summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorBrendanHay <>2019-08-23 07:38:00 (GMT)
committerhdiff <hdiff@hdiff.luite.com>2019-08-23 07:38:00 (GMT)
commit0af3651629f3e89aa162b41a30b0053fbed90862 (patch)
tree59ff9350963a013659ac088f4b1e824af3e35805
parent0631d46cd089382f5521238cbe93c6e551d2ee6e (diff)
version 0.5.0HEAD0.5.0master
-rw-r--r--README.md2
-rw-r--r--gen/Network/Google/Dataflow.hs85
-rw-r--r--gen/Network/Google/Dataflow/Types.hs58
-rw-r--r--gen/Network/Google/Dataflow/Types/Product.hs2603
-rw-r--r--gen/Network/Google/Dataflow/Types/Sum.hs34
-rw-r--r--gen/Network/Google/Resource/Dataflow/Projects/DeleteSnapshots.hs181
-rw-r--r--gen/Network/Google/Resource/Dataflow/Projects/Jobs/Aggregated.hs14
-rw-r--r--gen/Network/Google/Resource/Dataflow/Projects/Jobs/Create.hs26
-rw-r--r--gen/Network/Google/Resource/Dataflow/Projects/Jobs/Debug/GetConfig.hs10
-rw-r--r--gen/Network/Google/Resource/Dataflow/Projects/Jobs/Debug/SendCapture.hs10
-rw-r--r--gen/Network/Google/Resource/Dataflow/Projects/Jobs/Get.hs28
-rw-r--r--gen/Network/Google/Resource/Dataflow/Projects/Jobs/GetMetrics.hs26
-rw-r--r--gen/Network/Google/Resource/Dataflow/Projects/Jobs/List.hs32
-rw-r--r--gen/Network/Google/Resource/Dataflow/Projects/Jobs/Messages/List.hs28
-rw-r--r--gen/Network/Google/Resource/Dataflow/Projects/Jobs/Snapshot.hs10
-rw-r--r--gen/Network/Google/Resource/Dataflow/Projects/Jobs/Update.hs28
-rw-r--r--gen/Network/Google/Resource/Dataflow/Projects/Jobs/WorkItems/Lease.hs10
-rw-r--r--gen/Network/Google/Resource/Dataflow/Projects/Jobs/WorkItems/ReportStatus.hs13
-rw-r--r--gen/Network/Google/Resource/Dataflow/Projects/Locations/Jobs/Create.hs26
-rw-r--r--gen/Network/Google/Resource/Dataflow/Projects/Locations/Jobs/Debug/GetConfig.hs17
-rw-r--r--gen/Network/Google/Resource/Dataflow/Projects/Locations/Jobs/Debug/SendCapture.hs17
-rw-r--r--gen/Network/Google/Resource/Dataflow/Projects/Locations/Jobs/Get.hs28
-rw-r--r--gen/Network/Google/Resource/Dataflow/Projects/Locations/Jobs/GetMetrics.hs29
-rw-r--r--gen/Network/Google/Resource/Dataflow/Projects/Locations/Jobs/List.hs32
-rw-r--r--gen/Network/Google/Resource/Dataflow/Projects/Locations/Jobs/Messages/List.hs31
-rw-r--r--gen/Network/Google/Resource/Dataflow/Projects/Locations/Jobs/Snapshot.hs10
-rw-r--r--gen/Network/Google/Resource/Dataflow/Projects/Locations/Jobs/Update.hs28
-rw-r--r--gen/Network/Google/Resource/Dataflow/Projects/Locations/Jobs/WorkItems/Lease.hs17
-rw-r--r--gen/Network/Google/Resource/Dataflow/Projects/Locations/Jobs/WorkItems/ReportStatus.hs17
-rw-r--r--gen/Network/Google/Resource/Dataflow/Projects/Locations/SQL/Validate.hs193
-rw-r--r--gen/Network/Google/Resource/Dataflow/Projects/Locations/Snapshots/Delete.hs189
-rw-r--r--gen/Network/Google/Resource/Dataflow/Projects/Locations/Snapshots/Get.hs186
-rw-r--r--gen/Network/Google/Resource/Dataflow/Projects/Locations/Snapshots/List.hs174
-rw-r--r--gen/Network/Google/Resource/Dataflow/Projects/Locations/Templates/Create.hs17
-rw-r--r--gen/Network/Google/Resource/Dataflow/Projects/Locations/Templates/Get.hs14
-rw-r--r--gen/Network/Google/Resource/Dataflow/Projects/Locations/Templates/Launch.hs17
-rw-r--r--gen/Network/Google/Resource/Dataflow/Projects/Locations/WorkerMessages.hs17
-rw-r--r--gen/Network/Google/Resource/Dataflow/Projects/Snapshots/Get.hs180
-rw-r--r--gen/Network/Google/Resource/Dataflow/Projects/Snapshots/List.hs167
-rw-r--r--gen/Network/Google/Resource/Dataflow/Projects/Templates/Create.hs10
-rw-r--r--gen/Network/Google/Resource/Dataflow/Projects/Templates/Get.hs14
-rw-r--r--gen/Network/Google/Resource/Dataflow/Projects/Templates/Launch.hs14
-rw-r--r--gen/Network/Google/Resource/Dataflow/Projects/WorkerMessages.hs10
-rw-r--r--gogol-dataflow.cabal11
44 files changed, 3635 insertions, 1028 deletions
diff --git a/README.md b/README.md
index dc60a65..d1f1f14 100644
--- a/README.md
+++ b/README.md
@@ -8,7 +8,7 @@
## Version
-`0.3.0`
+`0.5.0`
## Description
diff --git a/gen/Network/Google/Dataflow.hs b/gen/Network/Google/Dataflow.hs
index 5ff4456..024053a 100644
--- a/gen/Network/Google/Dataflow.hs
+++ b/gen/Network/Google/Dataflow.hs
@@ -32,6 +32,9 @@ module Network.Google.Dataflow
-- * Resources
+ -- ** dataflow.projects.deleteSnapshots
+ , module Network.Google.Resource.Dataflow.Projects.DeleteSnapshots
+
-- ** dataflow.projects.jobs.aggregated
, module Network.Google.Resource.Dataflow.Projects.Jobs.Aggregated
@@ -101,6 +104,18 @@ module Network.Google.Dataflow
-- ** dataflow.projects.locations.jobs.workItems.reportStatus
, module Network.Google.Resource.Dataflow.Projects.Locations.Jobs.WorkItems.ReportStatus
+ -- ** dataflow.projects.locations.snapshots.delete
+ , module Network.Google.Resource.Dataflow.Projects.Locations.Snapshots.Delete
+
+ -- ** dataflow.projects.locations.snapshots.get
+ , module Network.Google.Resource.Dataflow.Projects.Locations.Snapshots.Get
+
+ -- ** dataflow.projects.locations.snapshots.list
+ , module Network.Google.Resource.Dataflow.Projects.Locations.Snapshots.List
+
+ -- ** dataflow.projects.locations.sql.validate
+ , module Network.Google.Resource.Dataflow.Projects.Locations.SQL.Validate
+
-- ** dataflow.projects.locations.templates.create
, module Network.Google.Resource.Dataflow.Projects.Locations.Templates.Create
@@ -113,6 +128,12 @@ module Network.Google.Dataflow
-- ** dataflow.projects.locations.workerMessages
, module Network.Google.Resource.Dataflow.Projects.Locations.WorkerMessages
+ -- ** dataflow.projects.snapshots.get
+ , module Network.Google.Resource.Dataflow.Projects.Snapshots.Get
+
+ -- ** dataflow.projects.snapshots.list
+ , module Network.Google.Resource.Dataflow.Projects.Snapshots.List
+
-- ** dataflow.projects.templates.create
, module Network.Google.Resource.Dataflow.Projects.Templates.Create
@@ -161,6 +182,11 @@ module Network.Google.Dataflow
, pmRegexes
, pmLabel
+ -- ** ReportWorkItemStatusRequestUnifiedWorkerRequest
+ , ReportWorkItemStatusRequestUnifiedWorkerRequest
+ , reportWorkItemStatusRequestUnifiedWorkerRequest
+ , rwisruwrAddtional
+
-- ** CreateJobFromTemplateRequest
, CreateJobFromTemplateRequest
, createJobFromTemplateRequest
@@ -274,6 +300,7 @@ module Network.Google.Dataflow
, reportWorkItemStatusRequest
, rwisrCurrentWorkerTime
, rwisrLocation
+ , rwisrUnifiedWorkerRequest
, rwisrWorkItemStatuses
, rwisrWorkerId
@@ -387,6 +414,11 @@ module Network.Google.Dataflow
, jmBigQueryDetails
, jmDatastoreDetails
+ -- ** ValidateResponse
+ , ValidateResponse
+ , validateResponse
+ , vrErrorMessage
+
-- ** GetTemplateResponse
, GetTemplateResponse
, getTemplateResponse
@@ -411,6 +443,9 @@ module Network.Google.Dataflow
, dDiskType
, dMountPoint
+ -- ** EnvironmentFlexResourceSchedulingGoal
+ , EnvironmentFlexResourceSchedulingGoal (..)
+
-- ** MetricUpdate
, MetricUpdate
, metricUpdate
@@ -443,6 +478,7 @@ module Network.Google.Dataflow
, environment
, eDataSet
, eExperiments
+ , eFlexResourceSchedulingGoal
, eWorkerPools
, eClusterManagerAPIService
, eVersion
@@ -450,6 +486,7 @@ module Network.Google.Dataflow
, eTempStoragePrefix
, eServiceAccountEmail
, eUserAgent
+ , eServiceKmsKeyName
, eSdkPipelineOptions
-- ** ConcatPosition
@@ -490,6 +527,11 @@ module Network.Google.Dataflow
-- ** AutoscalingSettingsAlgorithm
, AutoscalingSettingsAlgorithm (..)
+ -- ** LeaseWorkItemRequestUnifiedWorkerRequest
+ , LeaseWorkItemRequestUnifiedWorkerRequest
+ , leaseWorkItemRequestUnifiedWorkerRequest
+ , lwiruwrAddtional
+
-- ** DerivedSource
, DerivedSource
, derivedSource
@@ -608,6 +650,7 @@ module Network.Google.Dataflow
, sccInstructions
, sccSystemName
, sccComputationId
+ , sccTransformUserNameToStateFamily
, sccStageName
-- ** EnvironmentSdkPipelineOptions
@@ -635,6 +678,7 @@ module Network.Google.Dataflow
, lwirCurrentWorkerTime
, lwirLocation
, lwirWorkerCapabilities
+ , lwirUnifiedWorkerRequest
, lwirRequestedLeaseDuration
, lwirWorkerId
@@ -732,6 +776,10 @@ module Network.Google.Dataflow
, workItemServiceStateHarnessData
, wisshdAddtional
+ -- ** DeleteSnapshotResponse
+ , DeleteSnapshotResponse
+ , deleteSnapshotResponse
+
-- ** DataDiskAssignment
, DataDiskAssignment
, dataDiskAssignment
@@ -751,6 +799,11 @@ module Network.Google.Dataflow
-- ** SourceSplitResponseOutcome
, SourceSplitResponseOutcome (..)
+ -- ** ListSnapshotsResponse
+ , ListSnapshotsResponse
+ , listSnapshotsResponse
+ , lsrSnapshots
+
-- ** WorkerMessageResponse
, WorkerMessageResponse
, workerMessageResponse
@@ -951,6 +1004,11 @@ module Network.Google.Dataflow
, wleContainerStartTime
, wleMetadata
+ -- ** ReportWorkItemStatusResponseUnifiedWorkerResponse
+ , ReportWorkItemStatusResponseUnifiedWorkerResponse
+ , reportWorkItemStatusResponseUnifiedWorkerResponse
+ , rAddtional
+
-- ** RuntimeEnvironmentAdditionalUserLabels
, RuntimeEnvironmentAdditionalUserLabels
, runtimeEnvironmentAdditionalUserLabels
@@ -1125,6 +1183,7 @@ module Network.Google.Dataflow
, ReportWorkItemStatusResponse
, reportWorkItemStatusResponse
, rwisrWorkItemServiceStates
+ , rwisrUnifiedWorkerResponse
-- ** SourceFork
, SourceFork
@@ -1216,6 +1275,11 @@ module Network.Google.Dataflow
, pgbkiInputElementCodec
, pgbkiOriginalCombineValuesInputStoreName
+ -- ** LeaseWorkItemResponseUnifiedWorkerResponse
+ , LeaseWorkItemResponseUnifiedWorkerResponse
+ , leaseWorkItemResponseUnifiedWorkerResponse
+ , lAddtional
+
-- ** WorkerLifecycleEventEvent
, WorkerLifecycleEventEvent (..)
@@ -1276,6 +1340,7 @@ module Network.Google.Dataflow
, sctStreamingComputationConfigs
, sctWindmillServiceEndpoint
, sctWindmillServicePort
+ , sctMaxWorkItemCommitBytes
-- ** MetricShortId
, MetricShortId
@@ -1309,6 +1374,11 @@ module Network.Google.Dataflow
, ctUserName
, ctName
+ -- ** StreamingComputationConfigTransformUserNameToStateFamily
+ , StreamingComputationConfigTransformUserNameToStateFamily
+ , streamingComputationConfigTransformUserNameToStateFamily
+ , scctuntsfAddtional
+
-- ** WorkerPoolIPConfiguration
, WorkerPoolIPConfiguration (..)
@@ -1440,6 +1510,7 @@ module Network.Google.Dataflow
, LeaseWorkItemResponse
, leaseWorkItemResponse
, lwirWorkItems
+ , lwirUnifiedWorkerResponse
-- ** Position
, Position
@@ -1460,6 +1531,7 @@ module Network.Google.Dataflow
import Network.Google.Dataflow.Types
import Network.Google.Prelude
+import Network.Google.Resource.Dataflow.Projects.DeleteSnapshots
import Network.Google.Resource.Dataflow.Projects.Jobs.Aggregated
import Network.Google.Resource.Dataflow.Projects.Jobs.Create
import Network.Google.Resource.Dataflow.Projects.Jobs.Debug.GetConfig
@@ -1483,10 +1555,16 @@ import Network.Google.Resource.Dataflow.Projects.Locations.Jobs.Snapsh
import Network.Google.Resource.Dataflow.Projects.Locations.Jobs.Update
import Network.Google.Resource.Dataflow.Projects.Locations.Jobs.WorkItems.Lease
import Network.Google.Resource.Dataflow.Projects.Locations.Jobs.WorkItems.ReportStatus
+import Network.Google.Resource.Dataflow.Projects.Locations.Snapshots.Delete
+import Network.Google.Resource.Dataflow.Projects.Locations.Snapshots.Get
+import Network.Google.Resource.Dataflow.Projects.Locations.Snapshots.List
+import Network.Google.Resource.Dataflow.Projects.Locations.SQL.Validate
import Network.Google.Resource.Dataflow.Projects.Locations.Templates.Create
import Network.Google.Resource.Dataflow.Projects.Locations.Templates.Get
import Network.Google.Resource.Dataflow.Projects.Locations.Templates.Launch
import Network.Google.Resource.Dataflow.Projects.Locations.WorkerMessages
+import Network.Google.Resource.Dataflow.Projects.Snapshots.Get
+import Network.Google.Resource.Dataflow.Projects.Snapshots.List
import Network.Google.Resource.Dataflow.Projects.Templates.Create
import Network.Google.Resource.Dataflow.Projects.Templates.Get
import Network.Google.Resource.Dataflow.Projects.Templates.Launch
@@ -1513,6 +1591,8 @@ type DataflowAPI =
:<|> ProjectsJobsCreateResource
:<|> ProjectsJobsUpdateResource
:<|> ProjectsJobsGetMetricsResource
+ :<|> ProjectsSnapshotsListResource
+ :<|> ProjectsSnapshotsGetResource
:<|> ProjectsLocationsTemplatesLaunchResource
:<|> ProjectsLocationsTemplatesGetResource
:<|> ProjectsLocationsTemplatesCreateResource
@@ -1528,5 +1608,10 @@ type DataflowAPI =
:<|> ProjectsLocationsJobsCreateResource
:<|> ProjectsLocationsJobsUpdateResource
:<|> ProjectsLocationsJobsGetMetricsResource
+ :<|> ProjectsLocationsSnapshotsListResource
+ :<|> ProjectsLocationsSnapshotsGetResource
+ :<|> ProjectsLocationsSnapshotsDeleteResource
+ :<|> ProjectsLocationsSQLValidateResource
:<|> ProjectsLocationsWorkerMessagesResource
+ :<|> ProjectsDeleteSnapshotsResource
:<|> ProjectsWorkerMessagesResource
diff --git a/gen/Network/Google/Dataflow/Types.hs b/gen/Network/Google/Dataflow/Types.hs
index 6157c34..976378f 100644
--- a/gen/Network/Google/Dataflow/Types.hs
+++ b/gen/Network/Google/Dataflow/Types.hs
@@ -59,6 +59,11 @@ module Network.Google.Dataflow.Types
, pmRegexes
, pmLabel
+ -- * ReportWorkItemStatusRequestUnifiedWorkerRequest
+ , ReportWorkItemStatusRequestUnifiedWorkerRequest
+ , reportWorkItemStatusRequestUnifiedWorkerRequest
+ , rwisruwrAddtional
+
-- * CreateJobFromTemplateRequest
, CreateJobFromTemplateRequest
, createJobFromTemplateRequest
@@ -172,6 +177,7 @@ module Network.Google.Dataflow.Types
, reportWorkItemStatusRequest
, rwisrCurrentWorkerTime
, rwisrLocation
+ , rwisrUnifiedWorkerRequest
, rwisrWorkItemStatuses
, rwisrWorkerId
@@ -285,6 +291,11 @@ module Network.Google.Dataflow.Types
, jmBigQueryDetails
, jmDatastoreDetails
+ -- * ValidateResponse
+ , ValidateResponse
+ , validateResponse
+ , vrErrorMessage
+
-- * GetTemplateResponse
, GetTemplateResponse
, getTemplateResponse
@@ -309,6 +320,9 @@ module Network.Google.Dataflow.Types
, dDiskType
, dMountPoint
+ -- * EnvironmentFlexResourceSchedulingGoal
+ , EnvironmentFlexResourceSchedulingGoal (..)
+
-- * MetricUpdate
, MetricUpdate
, metricUpdate
@@ -341,6 +355,7 @@ module Network.Google.Dataflow.Types
, environment
, eDataSet
, eExperiments
+ , eFlexResourceSchedulingGoal
, eWorkerPools
, eClusterManagerAPIService
, eVersion
@@ -348,6 +363,7 @@ module Network.Google.Dataflow.Types
, eTempStoragePrefix
, eServiceAccountEmail
, eUserAgent
+ , eServiceKmsKeyName
, eSdkPipelineOptions
-- * ConcatPosition
@@ -388,6 +404,11 @@ module Network.Google.Dataflow.Types
-- * AutoscalingSettingsAlgorithm
, AutoscalingSettingsAlgorithm (..)
+ -- * LeaseWorkItemRequestUnifiedWorkerRequest
+ , LeaseWorkItemRequestUnifiedWorkerRequest
+ , leaseWorkItemRequestUnifiedWorkerRequest
+ , lwiruwrAddtional
+
-- * DerivedSource
, DerivedSource
, derivedSource
@@ -506,6 +527,7 @@ module Network.Google.Dataflow.Types
, sccInstructions
, sccSystemName
, sccComputationId
+ , sccTransformUserNameToStateFamily
, sccStageName
-- * EnvironmentSdkPipelineOptions
@@ -533,6 +555,7 @@ module Network.Google.Dataflow.Types
, lwirCurrentWorkerTime
, lwirLocation
, lwirWorkerCapabilities
+ , lwirUnifiedWorkerRequest
, lwirRequestedLeaseDuration
, lwirWorkerId
@@ -630,6 +653,10 @@ module Network.Google.Dataflow.Types
, workItemServiceStateHarnessData
, wisshdAddtional
+ -- * DeleteSnapshotResponse
+ , DeleteSnapshotResponse
+ , deleteSnapshotResponse
+
-- * DataDiskAssignment
, DataDiskAssignment
, dataDiskAssignment
@@ -649,6 +676,11 @@ module Network.Google.Dataflow.Types
-- * SourceSplitResponseOutcome
, SourceSplitResponseOutcome (..)
+ -- * ListSnapshotsResponse
+ , ListSnapshotsResponse
+ , listSnapshotsResponse
+ , lsrSnapshots
+
-- * WorkerMessageResponse
, WorkerMessageResponse
, workerMessageResponse
@@ -849,6 +881,11 @@ module Network.Google.Dataflow.Types
, wleContainerStartTime
, wleMetadata
+ -- * ReportWorkItemStatusResponseUnifiedWorkerResponse
+ , ReportWorkItemStatusResponseUnifiedWorkerResponse
+ , reportWorkItemStatusResponseUnifiedWorkerResponse
+ , rAddtional
+
-- * RuntimeEnvironmentAdditionalUserLabels
, RuntimeEnvironmentAdditionalUserLabels
, runtimeEnvironmentAdditionalUserLabels
@@ -1023,6 +1060,7 @@ module Network.Google.Dataflow.Types
, ReportWorkItemStatusResponse
, reportWorkItemStatusResponse
, rwisrWorkItemServiceStates
+ , rwisrUnifiedWorkerResponse
-- * SourceFork
, SourceFork
@@ -1114,6 +1152,11 @@ module Network.Google.Dataflow.Types
, pgbkiInputElementCodec
, pgbkiOriginalCombineValuesInputStoreName
+ -- * LeaseWorkItemResponseUnifiedWorkerResponse
+ , LeaseWorkItemResponseUnifiedWorkerResponse
+ , leaseWorkItemResponseUnifiedWorkerResponse
+ , lAddtional
+
-- * WorkerLifecycleEventEvent
, WorkerLifecycleEventEvent (..)
@@ -1174,6 +1217,7 @@ module Network.Google.Dataflow.Types
, sctStreamingComputationConfigs
, sctWindmillServiceEndpoint
, sctWindmillServicePort
+ , sctMaxWorkItemCommitBytes
-- * MetricShortId
, MetricShortId
@@ -1207,6 +1251,11 @@ module Network.Google.Dataflow.Types
, ctUserName
, ctName
+ -- * StreamingComputationConfigTransformUserNameToStateFamily
+ , StreamingComputationConfigTransformUserNameToStateFamily
+ , streamingComputationConfigTransformUserNameToStateFamily
+ , scctuntsfAddtional
+
-- * WorkerPoolIPConfiguration
, WorkerPoolIPConfiguration (..)
@@ -1338,6 +1387,7 @@ module Network.Google.Dataflow.Types
, LeaseWorkItemResponse
, leaseWorkItemResponse
, lwirWorkItems
+ , lwirUnifiedWorkerResponse
-- * Position
, Position
@@ -1368,16 +1418,16 @@ dataflowService
-- | View and manage your Google Compute Engine resources
computeScope :: Proxy '["https://www.googleapis.com/auth/compute"]
-computeScope = Proxy;
+computeScope = Proxy
-- | View your email address
userInfoEmailScope :: Proxy '["https://www.googleapis.com/auth/userinfo.email"]
-userInfoEmailScope = Proxy;
+userInfoEmailScope = Proxy
-- | View and manage your data across Google Cloud Platform services
cloudPlatformScope :: Proxy '["https://www.googleapis.com/auth/cloud-platform"]
-cloudPlatformScope = Proxy;
+cloudPlatformScope = Proxy
-- | View your Google Compute Engine resources
computeReadOnlyScope :: Proxy '["https://www.googleapis.com/auth/compute.readonly"]
-computeReadOnlyScope = Proxy;
+computeReadOnlyScope = Proxy
diff --git a/gen/Network/Google/Dataflow/Types/Product.hs b/gen/Network/Google/Dataflow/Types/Product.hs
index 1db6c51..891c0d1 100644
--- a/gen/Network/Google/Dataflow/Types/Product.hs
+++ b/gen/Network/Google/Dataflow/Types/Product.hs
@@ -23,9 +23,12 @@ import Network.Google.Prelude
-- | A mapping from each stage to the information about that stage.
--
-- /See:/ 'jobExecutionInfoStages' smart constructor.
-newtype JobExecutionInfoStages = JobExecutionInfoStages'
+newtype JobExecutionInfoStages =
+ JobExecutionInfoStages'
{ _jeisAddtional :: HashMap Text JobExecutionStageInfo
- } deriving (Eq,Show,Data,Typeable,Generic)
+ }
+ deriving (Eq, Show, Data, Typeable, Generic)
+
-- | Creates a value of 'JobExecutionInfoStages' with the minimum fields required to make a request.
--
@@ -36,9 +39,8 @@ jobExecutionInfoStages
:: HashMap Text JobExecutionStageInfo -- ^ 'jeisAddtional'
-> JobExecutionInfoStages
jobExecutionInfoStages pJeisAddtional_ =
- JobExecutionInfoStages'
- { _jeisAddtional = _Coerce # pJeisAddtional_
- }
+ JobExecutionInfoStages' {_jeisAddtional = _Coerce # pJeisAddtional_}
+
jeisAddtional :: Lens' JobExecutionInfoStages (HashMap Text JobExecutionStageInfo)
jeisAddtional
@@ -58,14 +60,17 @@ instance ToJSON JobExecutionInfoStages where
-- | All configuration data for a particular Computation.
--
-- /See:/ 'computationTopology' smart constructor.
-data ComputationTopology = ComputationTopology'
+data ComputationTopology =
+ ComputationTopology'
{ _ctStateFamilies :: !(Maybe [StateFamilyConfig])
, _ctInputs :: !(Maybe [StreamLocation])
, _ctKeyRanges :: !(Maybe [KeyRangeLocation])
, _ctOutputs :: !(Maybe [StreamLocation])
, _ctComputationId :: !(Maybe Text)
, _ctSystemStageName :: !(Maybe Text)
- } deriving (Eq,Show,Data,Typeable,Generic)
+ }
+ deriving (Eq, Show, Data, Typeable, Generic)
+
-- | Creates a value of 'ComputationTopology' with the minimum fields required to make a request.
--
@@ -85,7 +90,7 @@ data ComputationTopology = ComputationTopology'
computationTopology
:: ComputationTopology
computationTopology =
- ComputationTopology'
+ ComputationTopology'
{ _ctStateFamilies = Nothing
, _ctInputs = Nothing
, _ctKeyRanges = Nothing
@@ -94,6 +99,7 @@ computationTopology =
, _ctSystemStageName = Nothing
}
+
-- | The state family values.
ctStateFamilies :: Lens' ComputationTopology [StateFamilyConfig]
ctStateFamilies
@@ -161,11 +167,14 @@ instance ToJSON ComputationTopology where
-- | The response to a SourceSplitRequest.
--
-- /See:/ 'sourceSplitResponse' smart constructor.
-data SourceSplitResponse = SourceSplitResponse'
+data SourceSplitResponse =
+ SourceSplitResponse'
{ _ssrBundles :: !(Maybe [DerivedSource])
, _ssrShards :: !(Maybe [SourceSplitShard])
, _ssrOutcome :: !(Maybe SourceSplitResponseOutcome)
- } deriving (Eq,Show,Data,Typeable,Generic)
+ }
+ deriving (Eq, Show, Data, Typeable, Generic)
+
-- | Creates a value of 'SourceSplitResponse' with the minimum fields required to make a request.
--
@@ -179,11 +188,9 @@ data SourceSplitResponse = SourceSplitResponse'
sourceSplitResponse
:: SourceSplitResponse
sourceSplitResponse =
- SourceSplitResponse'
- { _ssrBundles = Nothing
- , _ssrShards = Nothing
- , _ssrOutcome = Nothing
- }
+ SourceSplitResponse'
+ {_ssrBundles = Nothing, _ssrShards = Nothing, _ssrOutcome = Nothing}
+
-- | If outcome is SPLITTING_HAPPENED, then this is a list of bundles into
-- which the source was split. Otherwise this field is ignored. This list
@@ -230,13 +237,16 @@ instance ToJSON SourceSplitResponse where
-- | Metadata for a specific parameter.
--
-- /See:/ 'parameterMetadata' smart constructor.
-data ParameterMetadata = ParameterMetadata'
+data ParameterMetadata =
+ ParameterMetadata'
{ _pmHelpText :: !(Maybe Text)
, _pmIsOptional :: !(Maybe Bool)
, _pmName :: !(Maybe Text)
, _pmRegexes :: !(Maybe [Text])
, _pmLabel :: !(Maybe Text)
- } deriving (Eq,Show,Data,Typeable,Generic)
+ }
+ deriving (Eq, Show, Data, Typeable, Generic)
+
-- | Creates a value of 'ParameterMetadata' with the minimum fields required to make a request.
--
@@ -254,7 +264,7 @@ data ParameterMetadata = ParameterMetadata'
parameterMetadata
:: ParameterMetadata
parameterMetadata =
- ParameterMetadata'
+ ParameterMetadata'
{ _pmHelpText = Nothing
, _pmIsOptional = Nothing
, _pmName = Nothing
@@ -262,6 +272,7 @@ parameterMetadata =
, _pmLabel = Nothing
}
+
-- | Required. The help text to display for the parameter.
pmHelpText :: Lens' ParameterMetadata (Maybe Text)
pmHelpText
@@ -307,16 +318,64 @@ instance ToJSON ParameterMetadata where
("regexes" .=) <$> _pmRegexes,
("label" .=) <$> _pmLabel])
+-- | Untranslated bag-of-bytes WorkProgressUpdateRequest from UnifiedWorker.
+--
+-- /See:/ 'reportWorkItemStatusRequestUnifiedWorkerRequest' smart constructor.
+newtype ReportWorkItemStatusRequestUnifiedWorkerRequest =
+ ReportWorkItemStatusRequestUnifiedWorkerRequest'
+ { _rwisruwrAddtional :: HashMap Text JSONValue
+ }
+ deriving (Eq, Show, Data, Typeable, Generic)
+
+
+-- | Creates a value of 'ReportWorkItemStatusRequestUnifiedWorkerRequest' with the minimum fields required to make a request.
+--
+-- Use one of the following lenses to modify other fields as desired:
+--
+-- * 'rwisruwrAddtional'
+reportWorkItemStatusRequestUnifiedWorkerRequest
+ :: HashMap Text JSONValue -- ^ 'rwisruwrAddtional'
+ -> ReportWorkItemStatusRequestUnifiedWorkerRequest
+reportWorkItemStatusRequestUnifiedWorkerRequest pRwisruwrAddtional_ =
+ ReportWorkItemStatusRequestUnifiedWorkerRequest'
+ {_rwisruwrAddtional = _Coerce # pRwisruwrAddtional_}
+
+
+-- | Properties of the object. Contains field \'type with type URL.
+rwisruwrAddtional :: Lens' ReportWorkItemStatusRequestUnifiedWorkerRequest (HashMap Text JSONValue)
+rwisruwrAddtional
+ = lens _rwisruwrAddtional
+ (\ s a -> s{_rwisruwrAddtional = a})
+ . _Coerce
+
+instance FromJSON
+ ReportWorkItemStatusRequestUnifiedWorkerRequest
+ where
+ parseJSON
+ = withObject
+ "ReportWorkItemStatusRequestUnifiedWorkerRequest"
+ (\ o ->
+ ReportWorkItemStatusRequestUnifiedWorkerRequest' <$>
+ (parseJSONObject o))
+
+instance ToJSON
+ ReportWorkItemStatusRequestUnifiedWorkerRequest
+ where
+ toJSON = toJSON . _rwisruwrAddtional
+
-- | A request to create a Cloud Dataflow job from a template.
--
-- /See:/ 'createJobFromTemplateRequest' smart constructor.
-data CreateJobFromTemplateRequest = CreateJobFromTemplateRequest'
+data CreateJobFromTemplateRequest =
+ CreateJobFromTemplateRequest'
{ _cjftrLocation :: !(Maybe Text)
, _cjftrEnvironment :: !(Maybe RuntimeEnvironment)
, _cjftrJobName :: !(Maybe Text)
, _cjftrGcsPath :: !(Maybe Text)
, _cjftrParameters :: !(Maybe CreateJobFromTemplateRequestParameters)
- } deriving (Eq,Show,Data,Typeable,Generic)
+ }
+ deriving (Eq, Show, Data, Typeable, Generic)
+
-- | Creates a value of 'CreateJobFromTemplateRequest' with the minimum fields required to make a request.
--
@@ -334,7 +393,7 @@ data CreateJobFromTemplateRequest = CreateJobFromTemplateRequest'
createJobFromTemplateRequest
:: CreateJobFromTemplateRequest
createJobFromTemplateRequest =
- CreateJobFromTemplateRequest'
+ CreateJobFromTemplateRequest'
{ _cjftrLocation = Nothing
, _cjftrEnvironment = Nothing
, _cjftrJobName = Nothing
@@ -342,7 +401,10 @@ createJobFromTemplateRequest =
, _cjftrParameters = Nothing
}
--- | The location to which to direct the request.
+
+-- | The [regional endpoint]
+-- (https:\/\/cloud.google.com\/dataflow\/docs\/concepts\/regional-endpoints)
+-- to which to direct the request.
cjftrLocation :: Lens' CreateJobFromTemplateRequest (Maybe Text)
cjftrLocation
= lens _cjftrLocation
@@ -428,11 +490,14 @@ instance ToJSON CreateJobFromTemplateRequest where
-- security\/privacy reasons.
--
-- /See:/ 'status' smart constructor.
-data Status = Status'
+data Status =
+ Status'
{ _sDetails :: !(Maybe [StatusDetailsItem])
, _sCode :: !(Maybe (Textual Int32))
, _sMessage :: !(Maybe Text)
- } deriving (Eq,Show,Data,Typeable,Generic)
+ }
+ deriving (Eq, Show, Data, Typeable, Generic)
+
-- | Creates a value of 'Status' with the minimum fields required to make a request.
--
@@ -445,12 +510,8 @@ data Status = Status'
-- * 'sMessage'
status
:: Status
-status =
- Status'
- { _sDetails = Nothing
- , _sCode = Nothing
- , _sMessage = Nothing
- }
+status = Status' {_sDetails = Nothing, _sCode = Nothing, _sMessage = Nothing}
+
-- | A list of messages that carry the error details. There is a common set
-- of message types for APIs to use.
@@ -491,10 +552,13 @@ instance ToJSON Status where
-- | Basic metadata about a counter.
--
-- /See:/ 'nameAndKind' smart constructor.
-data NameAndKind = NameAndKind'
+data NameAndKind =
+ NameAndKind'
{ _nakKind :: !(Maybe NameAndKindKind)
, _nakName :: !(Maybe Text)
- } deriving (Eq,Show,Data,Typeable,Generic)
+ }
+ deriving (Eq, Show, Data, Typeable, Generic)
+
-- | Creates a value of 'NameAndKind' with the minimum fields required to make a request.
--
@@ -505,11 +569,8 @@ data NameAndKind = NameAndKind'
-- * 'nakName'
nameAndKind
:: NameAndKind
-nameAndKind =
- NameAndKind'
- { _nakKind = Nothing
- , _nakName = Nothing
- }
+nameAndKind = NameAndKind' {_nakKind = Nothing, _nakName = Nothing}
+
-- | Counter aggregation kind.
nakKind :: Lens' NameAndKind (Maybe NameAndKindKind)
@@ -534,9 +595,12 @@ instance ToJSON NameAndKind where
-- | A metric value representing a list of integers.
--
-- /See:/ 'integerList' smart constructor.
-newtype IntegerList = IntegerList'
+newtype IntegerList =
+ IntegerList'
{ _ilElements :: Maybe [SplitInt64]
- } deriving (Eq,Show,Data,Typeable,Generic)
+ }
+ deriving (Eq, Show, Data, Typeable, Generic)
+
-- | Creates a value of 'IntegerList' with the minimum fields required to make a request.
--
@@ -545,10 +609,8 @@ newtype IntegerList = IntegerList'
-- * 'ilElements'
integerList
:: IntegerList
-integerList =
- IntegerList'
- { _ilElements = Nothing
- }
+integerList = IntegerList' {_ilElements = Nothing}
+
-- | Elements of the list.
ilElements :: Lens' IntegerList [SplitInt64]
@@ -572,7 +634,8 @@ instance ToJSON IntegerList where
-- the cloud.
--
-- /See:/ 'workItem' smart constructor.
-data WorkItem = WorkItem'
+data WorkItem =
+ WorkItem'
{ _wiJobId :: !(Maybe Text)
, _wiReportStatusInterval :: !(Maybe GDuration)
, _wiShellTask :: !(Maybe ShellTask)
@@ -588,7 +651,9 @@ data WorkItem = WorkItem'
, _wiConfiguration :: !(Maybe Text)
, _wiStreamingConfigTask :: !(Maybe StreamingConfigTask)
, _wiSeqMapTask :: !(Maybe SeqMapTask)
- } deriving (Eq,Show,Data,Typeable,Generic)
+ }
+ deriving (Eq, Show, Data, Typeable, Generic)
+
-- | Creates a value of 'WorkItem' with the minimum fields required to make a request.
--
@@ -626,7 +691,7 @@ data WorkItem = WorkItem'
workItem
:: WorkItem
workItem =
- WorkItem'
+ WorkItem'
{ _wiJobId = Nothing
, _wiReportStatusInterval = Nothing
, _wiShellTask = Nothing
@@ -644,6 +709,7 @@ workItem =
, _wiSeqMapTask = Nothing
}
+
-- | Identifies the workflow job this WorkItem belongs to.
wiJobId :: Lens' WorkItem (Maybe Text)
wiJobId = lens _wiJobId (\ s a -> s{_wiJobId = a})
@@ -782,12 +848,15 @@ instance ToJSON WorkItem where
-- that this health ping belongs to.
--
-- /See:/ 'workerHealthReport' smart constructor.
-data WorkerHealthReport = WorkerHealthReport'
+data WorkerHealthReport =
+ WorkerHealthReport'
{ _whrVMIsHealthy :: !(Maybe Bool)
, _whrReportInterval :: !(Maybe GDuration)
, _whrPods :: !(Maybe [WorkerHealthReportPodsItem])
, _whrVMStartupTime :: !(Maybe DateTime')
- } deriving (Eq,Show,Data,Typeable,Generic)
+ }
+ deriving (Eq, Show, Data, Typeable, Generic)
+
-- | Creates a value of 'WorkerHealthReport' with the minimum fields required to make a request.
--
@@ -803,13 +872,14 @@ data WorkerHealthReport = WorkerHealthReport'
workerHealthReport
:: WorkerHealthReport
workerHealthReport =
- WorkerHealthReport'
+ WorkerHealthReport'
{ _whrVMIsHealthy = Nothing
, _whrReportInterval = Nothing
, _whrPods = Nothing
, _whrVMStartupTime = Nothing
}
+
-- | Whether the VM is healthy.
whrVMIsHealthy :: Lens' WorkerHealthReport (Maybe Bool)
whrVMIsHealthy
@@ -862,13 +932,16 @@ instance ToJSON WorkerHealthReport where
-- | Represents a snapshot of a job.
--
-- /See:/ 'snapshot' smart constructor.
-data Snapshot = Snapshot'
+data Snapshot =
+ Snapshot'
{ _sCreationTime :: !(Maybe DateTime')
, _sTtl :: !(Maybe GDuration)
, _sSourceJobId :: !(Maybe Text)
, _sId :: !(Maybe Text)
, _sProjectId :: !(Maybe Text)
- } deriving (Eq,Show,Data,Typeable,Generic)
+ }
+ deriving (Eq, Show, Data, Typeable, Generic)
+
-- | Creates a value of 'Snapshot' with the minimum fields required to make a request.
--
@@ -886,7 +959,7 @@ data Snapshot = Snapshot'
snapshot
:: Snapshot
snapshot =
- Snapshot'
+ Snapshot'
{ _sCreationTime = Nothing
, _sTtl = Nothing
, _sSourceJobId = Nothing
@@ -894,6 +967,7 @@ snapshot =
, _sProjectId = Nothing
}
+
-- | The time this snapshot was created.
sCreationTime :: Lens' Snapshot (Maybe UTCTime)
sCreationTime
@@ -945,10 +1019,13 @@ instance ToJSON Snapshot where
-- processing) using SourceSplitRequest.
--
-- /See:/ 'sourceSplitOptions' smart constructor.
-data SourceSplitOptions = SourceSplitOptions'
+data SourceSplitOptions =
+ SourceSplitOptions'
{ _ssoDesiredShardSizeBytes :: !(Maybe (Textual Int64))
, _ssoDesiredBundleSizeBytes :: !(Maybe (Textual Int64))
- } deriving (Eq,Show,Data,Typeable,Generic)
+ }
+ deriving (Eq, Show, Data, Typeable, Generic)
+
-- | Creates a value of 'SourceSplitOptions' with the minimum fields required to make a request.
--
@@ -960,10 +1037,9 @@ data SourceSplitOptions = SourceSplitOptions'
sourceSplitOptions
:: SourceSplitOptions
sourceSplitOptions =
- SourceSplitOptions'
- { _ssoDesiredShardSizeBytes = Nothing
- , _ssoDesiredBundleSizeBytes = Nothing
- }
+ SourceSplitOptions'
+ {_ssoDesiredShardSizeBytes = Nothing, _ssoDesiredBundleSizeBytes = Nothing}
+
-- | DEPRECATED in favor of desired_bundle_size_bytes.
ssoDesiredShardSizeBytes :: Lens' SourceSplitOptions (Maybe Int64)
@@ -1000,9 +1076,12 @@ instance ToJSON SourceSplitOptions where
-- | Metadata to set on the Google Compute Engine VMs.
--
-- /See:/ 'workerPoolMetadata' smart constructor.
-newtype WorkerPoolMetadata = WorkerPoolMetadata'
+newtype WorkerPoolMetadata =
+ WorkerPoolMetadata'
{ _wpmAddtional :: HashMap Text Text
- } deriving (Eq,Show,Data,Typeable,Generic)
+ }
+ deriving (Eq, Show, Data, Typeable, Generic)
+
-- | Creates a value of 'WorkerPoolMetadata' with the minimum fields required to make a request.
--
@@ -1013,9 +1092,8 @@ workerPoolMetadata
:: HashMap Text Text -- ^ 'wpmAddtional'
-> WorkerPoolMetadata
workerPoolMetadata pWpmAddtional_ =
- WorkerPoolMetadata'
- { _wpmAddtional = _Coerce # pWpmAddtional_
- }
+ WorkerPoolMetadata' {_wpmAddtional = _Coerce # pWpmAddtional_}
+
wpmAddtional :: Lens' WorkerPoolMetadata (HashMap Text Text)
wpmAddtional
@@ -1033,10 +1111,13 @@ instance ToJSON WorkerPoolMetadata where
-- | Settings for WorkerPool autoscaling.
--
-- /See:/ 'autoscalingSettings' smart constructor.
-data AutoscalingSettings = AutoscalingSettings'
+data AutoscalingSettings =
+ AutoscalingSettings'
{ _asMaxNumWorkers :: !(Maybe (Textual Int32))
, _asAlgorithm :: !(Maybe AutoscalingSettingsAlgorithm)
- } deriving (Eq,Show,Data,Typeable,Generic)
+ }
+ deriving (Eq, Show, Data, Typeable, Generic)
+
-- | Creates a value of 'AutoscalingSettings' with the minimum fields required to make a request.
--
@@ -1048,10 +1129,8 @@ data AutoscalingSettings = AutoscalingSettings'
autoscalingSettings
:: AutoscalingSettings
autoscalingSettings =
- AutoscalingSettings'
- { _asMaxNumWorkers = Nothing
- , _asAlgorithm = Nothing
- }
+ AutoscalingSettings' {_asMaxNumWorkers = Nothing, _asAlgorithm = Nothing}
+
-- | The maximum number of workers to cap scaling at.
asMaxNumWorkers :: Lens' AutoscalingSettings (Maybe Int32)
@@ -1083,9 +1162,12 @@ instance ToJSON AutoscalingSettings where
-- will be executed.
--
-- /See:/ 'jobExecutionStageInfo' smart constructor.
-newtype JobExecutionStageInfo = JobExecutionStageInfo'
+newtype JobExecutionStageInfo =
+ JobExecutionStageInfo'
{ _jesiStepName :: Maybe [Text]
- } deriving (Eq,Show,Data,Typeable,Generic)
+ }
+ deriving (Eq, Show, Data, Typeable, Generic)
+
-- | Creates a value of 'JobExecutionStageInfo' with the minimum fields required to make a request.
--
@@ -1094,10 +1176,8 @@ newtype JobExecutionStageInfo = JobExecutionStageInfo'
-- * 'jesiStepName'
jobExecutionStageInfo
:: JobExecutionStageInfo
-jobExecutionStageInfo =
- JobExecutionStageInfo'
- { _jesiStepName = Nothing
- }
+jobExecutionStageInfo = JobExecutionStageInfo' {_jesiStepName = Nothing}
+
-- | The steps associated with the execution stage. Note that stages may have
-- several steps, and that a given step might be run by more than one
@@ -1123,14 +1203,17 @@ instance ToJSON JobExecutionStageInfo where
-- | An output of an instruction.
--
-- /See:/ 'instructionOutput' smart constructor.
-data InstructionOutput = InstructionOutput'
+data InstructionOutput =
+ InstructionOutput'
{ _ioOnlyCountValueBytes :: !(Maybe Bool)
, _ioCodec :: !(Maybe InstructionOutputCodec)
, _ioName :: !(Maybe Text)
, _ioSystemName :: !(Maybe Text)
, _ioOriginalName :: !(Maybe Text)
, _ioOnlyCountKeyBytes :: !(Maybe Bool)
- } deriving (Eq,Show,Data,Typeable,Generic)
+ }
+ deriving (Eq, Show, Data, Typeable, Generic)
+
-- | Creates a value of 'InstructionOutput' with the minimum fields required to make a request.
--
@@ -1150,7 +1233,7 @@ data InstructionOutput = InstructionOutput'
instructionOutput
:: InstructionOutput
instructionOutput =
- InstructionOutput'
+ InstructionOutput'
{ _ioOnlyCountValueBytes = Nothing
, _ioCodec = Nothing
, _ioName = Nothing
@@ -1159,6 +1242,7 @@ instructionOutput =
, _ioOnlyCountKeyBytes = Nothing
}
+
-- | For system-generated byte and mean byte metrics, certain instructions
-- should only report the value size.
ioOnlyCountValueBytes :: Lens' InstructionOutput (Maybe Bool)
@@ -1219,10 +1303,13 @@ instance ToJSON InstructionOutput where
-- | A metric value representing temporal values of a variable.
--
-- /See:/ 'integerGauge' smart constructor.
-data IntegerGauge = IntegerGauge'
+data IntegerGauge =
+ IntegerGauge'
{ _igValue :: !(Maybe SplitInt64)
, _igTimestamp :: !(Maybe DateTime')
- } deriving (Eq,Show,Data,Typeable,Generic)
+ }
+ deriving (Eq, Show, Data, Typeable, Generic)
+
-- | Creates a value of 'IntegerGauge' with the minimum fields required to make a request.
--
@@ -1233,11 +1320,8 @@ data IntegerGauge = IntegerGauge'
-- * 'igTimestamp'
integerGauge
:: IntegerGauge
-integerGauge =
- IntegerGauge'
- { _igValue = Nothing
- , _igTimestamp = Nothing
- }
+integerGauge = IntegerGauge' {_igValue = Nothing, _igTimestamp = Nothing}
+
-- | The value of the variable represented by this gauge.
igValue :: Lens' IntegerGauge (Maybe SplitInt64)
@@ -1266,11 +1350,14 @@ instance ToJSON IntegerGauge where
-- | Parameters to provide to the template being launched.
--
-- /See:/ 'launchTemplateParameters' smart constructor.
-data LaunchTemplateParameters = LaunchTemplateParameters'
+data LaunchTemplateParameters =
+ LaunchTemplateParameters'
{ _ltpEnvironment :: !(Maybe RuntimeEnvironment)
, _ltpJobName :: !(Maybe Text)
, _ltpParameters :: !(Maybe LaunchTemplateParametersParameters)
- } deriving (Eq,Show,Data,Typeable,Generic)
+ }
+ deriving (Eq, Show, Data, Typeable, Generic)
+
-- | Creates a value of 'LaunchTemplateParameters' with the minimum fields required to make a request.
--
@@ -1284,11 +1371,9 @@ data LaunchTemplateParameters = LaunchTemplateParameters'
launchTemplateParameters
:: LaunchTemplateParameters
launchTemplateParameters =
- LaunchTemplateParameters'
- { _ltpEnvironment = Nothing
- , _ltpJobName = Nothing
- , _ltpParameters = Nothing
- }
+ LaunchTemplateParameters'
+ {_ltpEnvironment = Nothing, _ltpJobName = Nothing, _ltpParameters = Nothing}
+
-- | The runtime environment for the job.
ltpEnvironment :: Lens' LaunchTemplateParameters (Maybe RuntimeEnvironment)
@@ -1326,12 +1411,16 @@ instance ToJSON LaunchTemplateParameters where
-- | Request to report the status of WorkItems.
--
-- /See:/ 'reportWorkItemStatusRequest' smart constructor.
-data ReportWorkItemStatusRequest = ReportWorkItemStatusRequest'
- { _rwisrCurrentWorkerTime :: !(Maybe DateTime')
- , _rwisrLocation :: !(Maybe Text)
- , _rwisrWorkItemStatuses :: !(Maybe [WorkItemStatus])
- , _rwisrWorkerId :: !(Maybe Text)
- } deriving (Eq,Show,Data,Typeable,Generic)
+data ReportWorkItemStatusRequest =
+ ReportWorkItemStatusRequest'
+ { _rwisrCurrentWorkerTime :: !(Maybe DateTime')
+ , _rwisrLocation :: !(Maybe Text)
+ , _rwisrUnifiedWorkerRequest :: !(Maybe ReportWorkItemStatusRequestUnifiedWorkerRequest)
+ , _rwisrWorkItemStatuses :: !(Maybe [WorkItemStatus])
+ , _rwisrWorkerId :: !(Maybe Text)
+ }
+ deriving (Eq, Show, Data, Typeable, Generic)
+
-- | Creates a value of 'ReportWorkItemStatusRequest' with the minimum fields required to make a request.
--
@@ -1341,19 +1430,23 @@ data ReportWorkItemStatusRequest = ReportWorkItemStatusRequest'
--
-- * 'rwisrLocation'
--
+-- * 'rwisrUnifiedWorkerRequest'
+--
-- * 'rwisrWorkItemStatuses'
--
-- * 'rwisrWorkerId'
reportWorkItemStatusRequest
:: ReportWorkItemStatusRequest
reportWorkItemStatusRequest =
- ReportWorkItemStatusRequest'
+ ReportWorkItemStatusRequest'
{ _rwisrCurrentWorkerTime = Nothing
, _rwisrLocation = Nothing
+ , _rwisrUnifiedWorkerRequest = Nothing
, _rwisrWorkItemStatuses = Nothing
, _rwisrWorkerId = Nothing
}
+
-- | The current timestamp at the worker.
rwisrCurrentWorkerTime :: Lens' ReportWorkItemStatusRequest (Maybe UTCTime)
rwisrCurrentWorkerTime
@@ -1361,12 +1454,20 @@ rwisrCurrentWorkerTime
(\ s a -> s{_rwisrCurrentWorkerTime = a})
. mapping _DateTime
--- | The location which contains the WorkItem\'s job.
+-- | The [regional endpoint]
+-- (https:\/\/cloud.google.com\/dataflow\/docs\/concepts\/regional-endpoints)
+-- that contains the WorkItem\'s job.
rwisrLocation :: Lens' ReportWorkItemStatusRequest (Maybe Text)
rwisrLocation
= lens _rwisrLocation
(\ s a -> s{_rwisrLocation = a})
+-- | Untranslated bag-of-bytes WorkProgressUpdateRequest from UnifiedWorker.
+rwisrUnifiedWorkerRequest :: Lens' ReportWorkItemStatusRequest (Maybe ReportWorkItemStatusRequestUnifiedWorkerRequest)
+rwisrUnifiedWorkerRequest
+ = lens _rwisrUnifiedWorkerRequest
+ (\ s a -> s{_rwisrUnifiedWorkerRequest = a})
+
-- | The order is unimportant, except that the order of the
-- WorkItemServiceState messages in the ReportWorkItemStatusResponse
-- corresponds to the order of WorkItemStatus messages here.
@@ -1392,6 +1493,7 @@ instance FromJSON ReportWorkItemStatusRequest where
(\ o ->
ReportWorkItemStatusRequest' <$>
(o .:? "currentWorkerTime") <*> (o .:? "location")
+ <*> (o .:? "unifiedWorkerRequest")
<*> (o .:? "workItemStatuses" .!= mempty)
<*> (o .:? "workerId"))
@@ -1402,6 +1504,8 @@ instance ToJSON ReportWorkItemStatusRequest where
[("currentWorkerTime" .=) <$>
_rwisrCurrentWorkerTime,
("location" .=) <$> _rwisrLocation,
+ ("unifiedWorkerRequest" .=) <$>
+ _rwisrUnifiedWorkerRequest,
("workItemStatuses" .=) <$> _rwisrWorkItemStatuses,
("workerId" .=) <$> _rwisrWorkerId])
@@ -1409,9 +1513,12 @@ instance ToJSON ReportWorkItemStatusRequest where
-- service are required in order to run the job.
--
-- /See:/ 'environmentVersion' smart constructor.
-newtype EnvironmentVersion = EnvironmentVersion'
+newtype EnvironmentVersion =
+ EnvironmentVersion'
{ _evAddtional :: HashMap Text JSONValue
- } deriving (Eq,Show,Data,Typeable,Generic)
+ }
+ deriving (Eq, Show, Data, Typeable, Generic)
+
-- | Creates a value of 'EnvironmentVersion' with the minimum fields required to make a request.
--
@@ -1422,9 +1529,8 @@ environmentVersion
:: HashMap Text JSONValue -- ^ 'evAddtional'
-> EnvironmentVersion
environmentVersion pEvAddtional_ =
- EnvironmentVersion'
- { _evAddtional = _Coerce # pEvAddtional_
- }
+ EnvironmentVersion' {_evAddtional = _Coerce # pEvAddtional_}
+
-- | Properties of the object.
evAddtional :: Lens' EnvironmentVersion (HashMap Text JSONValue)
@@ -1443,10 +1549,13 @@ instance ToJSON EnvironmentVersion where
-- | Streaming appliance snapshot configuration.
--
-- /See:/ 'streamingApplianceSnapshotConfig' smart constructor.
-data StreamingApplianceSnapshotConfig = StreamingApplianceSnapshotConfig'
+data StreamingApplianceSnapshotConfig =
+ StreamingApplianceSnapshotConfig'
{ _sascImportStateEndpoint :: !(Maybe Text)
, _sascSnapshotId :: !(Maybe Text)
- } deriving (Eq,Show,Data,Typeable,Generic)
+ }
+ deriving (Eq, Show, Data, Typeable, Generic)
+
-- | Creates a value of 'StreamingApplianceSnapshotConfig' with the minimum fields required to make a request.
--
@@ -1458,10 +1567,9 @@ data StreamingApplianceSnapshotConfig = StreamingApplianceSnapshotConfig'
streamingApplianceSnapshotConfig
:: StreamingApplianceSnapshotConfig
streamingApplianceSnapshotConfig =
- StreamingApplianceSnapshotConfig'
- { _sascImportStateEndpoint = Nothing
- , _sascSnapshotId = Nothing
- }
+ StreamingApplianceSnapshotConfig'
+ {_sascImportStateEndpoint = Nothing, _sascSnapshotId = Nothing}
+
-- | Indicates which endpoint is used to import appliance state.
sascImportStateEndpoint :: Lens' StreamingApplianceSnapshotConfig (Maybe Text)
@@ -1496,10 +1604,13 @@ instance ToJSON StreamingApplianceSnapshotConfig
-- | A sink that records can be encoded and written to.
--
-- /See:/ 'sink' smart constructor.
-data Sink = Sink'
+data Sink =
+ Sink'
{ _sCodec :: !(Maybe SinkCodec)
, _sSpec :: !(Maybe SinkSpec)
- } deriving (Eq,Show,Data,Typeable,Generic)
+ }
+ deriving (Eq, Show, Data, Typeable, Generic)
+
-- | Creates a value of 'Sink' with the minimum fields required to make a request.
--
@@ -1510,11 +1621,8 @@ data Sink = Sink'
-- * 'sSpec'
sink
:: Sink
-sink =
- Sink'
- { _sCodec = Nothing
- , _sSpec = Nothing
- }
+sink = Sink' {_sCodec = Nothing, _sSpec = Nothing}
+
-- | The codec to use to encode data written to the sink.
sCodec :: Lens' Sink (Maybe SinkCodec)
@@ -1538,9 +1646,12 @@ instance ToJSON Sink where
-- | A metric value representing a list of strings.
--
-- /See:/ 'stringList' smart constructor.
-newtype StringList = StringList'
+newtype StringList =
+ StringList'
{ _slElements :: Maybe [Text]
- } deriving (Eq,Show,Data,Typeable,Generic)
+ }
+ deriving (Eq, Show, Data, Typeable, Generic)
+
-- | Creates a value of 'StringList' with the minimum fields required to make a request.
--
@@ -1549,10 +1660,8 @@ newtype StringList = StringList'
-- * 'slElements'
stringList
:: StringList
-stringList =
- StringList'
- { _slElements = Nothing
- }
+stringList = StringList' {_slElements = Nothing}
+
-- | Elements of the list.
slElements :: Lens' StringList [Text]
@@ -1576,9 +1685,12 @@ instance ToJSON StringList where
-- in response to a health ping.
--
-- /See:/ 'workerHealthReportResponse' smart constructor.
-newtype WorkerHealthReportResponse = WorkerHealthReportResponse'
+newtype WorkerHealthReportResponse =
+ WorkerHealthReportResponse'
{ _whrrReportInterval :: Maybe GDuration
- } deriving (Eq,Show,Data,Typeable,Generic)
+ }
+ deriving (Eq, Show, Data, Typeable, Generic)
+
-- | Creates a value of 'WorkerHealthReportResponse' with the minimum fields required to make a request.
--
@@ -1588,9 +1700,8 @@ newtype WorkerHealthReportResponse = WorkerHealthReportResponse'
workerHealthReportResponse
:: WorkerHealthReportResponse
workerHealthReportResponse =
- WorkerHealthReportResponse'
- { _whrrReportInterval = Nothing
- }
+ WorkerHealthReportResponse' {_whrrReportInterval = Nothing}
+
-- | A positive value indicates the worker should change its reporting
-- interval to the specified value. The default value of zero means no
@@ -1617,7 +1728,8 @@ instance ToJSON WorkerHealthReportResponse where
-- | Data provided with a pipeline or transform to provide descriptive info.
--
-- /See:/ 'displayData' smart constructor.
-data DisplayData = DisplayData'
+data DisplayData =
+ DisplayData'
{ _ddDurationValue :: !(Maybe GDuration)
, _ddBoolValue :: !(Maybe Bool)
, _ddTimestampValue :: !(Maybe DateTime')
@@ -1630,7 +1742,9 @@ data DisplayData = DisplayData'
, _ddFloatValue :: !(Maybe (Textual Double))
, _ddStrValue :: !(Maybe Text)
, _ddLabel :: !(Maybe Text)
- } deriving (Eq,Show,Data,Typeable,Generic)
+ }
+ deriving (Eq, Show, Data, Typeable, Generic)
+
-- | Creates a value of 'DisplayData' with the minimum fields required to make a request.
--
@@ -1662,7 +1776,7 @@ data DisplayData = DisplayData'
displayData
:: DisplayData
displayData =
- DisplayData'
+ DisplayData'
{ _ddDurationValue = Nothing
, _ddBoolValue = Nothing
, _ddTimestampValue = Nothing
@@ -1677,6 +1791,7 @@ displayData =
, _ddLabel = Nothing
}
+
-- | Contains value if the data is of duration type.
ddDurationValue :: Lens' DisplayData (Maybe Scientific)
ddDurationValue
@@ -1788,8 +1903,9 @@ instance ToJSON DisplayData where
--
-- /See:/ 'sendDebugCaptureResponse' smart constructor.
data SendDebugCaptureResponse =
- SendDebugCaptureResponse'
- deriving (Eq,Show,Data,Typeable,Generic)
+ SendDebugCaptureResponse'
+ deriving (Eq, Show, Data, Typeable, Generic)
+
-- | Creates a value of 'SendDebugCaptureResponse' with the minimum fields required to make a request.
--
@@ -1797,6 +1913,7 @@ sendDebugCaptureResponse
:: SendDebugCaptureResponse
sendDebugCaptureResponse = SendDebugCaptureResponse'
+
instance FromJSON SendDebugCaptureResponse where
parseJSON
= withObject "SendDebugCaptureResponse"
@@ -1810,11 +1927,14 @@ instance ToJSON SendDebugCaptureResponse where
-- for programmatic consumption.
--
-- /See:/ 'structuredMessage' smart constructor.
-data StructuredMessage = StructuredMessage'
+data StructuredMessage =
+ StructuredMessage'
{ _smMessageText :: !(Maybe Text)
, _smMessageKey :: !(Maybe Text)
, _smParameters :: !(Maybe [Parameter])
- } deriving (Eq,Show,Data,Typeable,Generic)
+ }
+ deriving (Eq, Show, Data, Typeable, Generic)
+
-- | Creates a value of 'StructuredMessage' with the minimum fields required to make a request.
--
@@ -1828,11 +1948,9 @@ data StructuredMessage = StructuredMessage'
structuredMessage
:: StructuredMessage
structuredMessage =
- StructuredMessage'
- { _smMessageText = Nothing
- , _smMessageKey = Nothing
- , _smParameters = Nothing
- }
+ StructuredMessage'
+ {_smMessageText = Nothing, _smMessageKey = Nothing, _smParameters = Nothing}
+
-- | Human-readable version of message.
smMessageText :: Lens' StructuredMessage (Maybe Text)
@@ -1840,7 +1958,7 @@ smMessageText
= lens _smMessageText
(\ s a -> s{_smMessageText = a})
--- | Idenfier for this message type. Used by external systems to
+-- | Identifier for this message type. Used by external systems to
-- internationalize or personalize message.
smMessageKey :: Lens' StructuredMessage (Maybe Text)
smMessageKey
@@ -1877,9 +1995,12 @@ instance ToJSON StructuredMessage where
-- constrained to be \<= 128 bytes in size.
--
-- /See:/ 'jobLabels' smart constructor.
-newtype JobLabels = JobLabels'
+newtype JobLabels =
+ JobLabels'
{ _jlAddtional :: HashMap Text Text
- } deriving (Eq,Show,Data,Typeable,Generic)
+ }
+ deriving (Eq, Show, Data, Typeable, Generic)
+
-- | Creates a value of 'JobLabels' with the minimum fields required to make a request.
--
@@ -1889,10 +2010,8 @@ newtype JobLabels = JobLabels'
jobLabels
:: HashMap Text Text -- ^ 'jlAddtional'
-> JobLabels
-jobLabels pJlAddtional_ =
- JobLabels'
- { _jlAddtional = _Coerce # pJlAddtional_
- }
+jobLabels pJlAddtional_ = JobLabels' {_jlAddtional = _Coerce # pJlAddtional_}
+
jlAddtional :: Lens' JobLabels (HashMap Text Text)
jlAddtional
@@ -1911,11 +2030,14 @@ instance ToJSON JobLabels where
-- metric.
--
-- /See:/ 'metricStructuredName' smart constructor.
-data MetricStructuredName = MetricStructuredName'
+data MetricStructuredName =
+ MetricStructuredName'
{ _msnOrigin :: !(Maybe Text)
, _msnContext :: !(Maybe MetricStructuredNameContext)
, _msnName :: !(Maybe Text)
- } deriving (Eq,Show,Data,Typeable,Generic)
+ }
+ deriving (Eq, Show, Data, Typeable, Generic)
+
-- | Creates a value of 'MetricStructuredName' with the minimum fields required to make a request.
--
@@ -1929,11 +2051,9 @@ data MetricStructuredName = MetricStructuredName'
metricStructuredName
:: MetricStructuredName
metricStructuredName =
- MetricStructuredName'
- { _msnOrigin = Nothing
- , _msnContext = Nothing
- , _msnName = Nothing
- }
+ MetricStructuredName'
+ {_msnOrigin = Nothing, _msnContext = Nothing, _msnName = Nothing}
+
-- | Origin (namespace) of metric name. May be blank for user-define metrics;
-- will be \"dataflow\" for metrics defined by the Dataflow service or SDK.
@@ -1973,12 +2093,15 @@ instance ToJSON MetricStructuredName where
-- | Metadata for a BigQuery connector used by the job.
--
-- /See:/ 'bigQueryIODetails' smart constructor.
-data BigQueryIODetails = BigQueryIODetails'
+data BigQueryIODetails =
+ BigQueryIODetails'
{ _bqiodDataSet :: !(Maybe Text)
, _bqiodQuery :: !(Maybe Text)
, _bqiodProjectId :: !(Maybe Text)
, _bqiodTable :: !(Maybe Text)
- } deriving (Eq,Show,Data,Typeable,Generic)
+ }
+ deriving (Eq, Show, Data, Typeable, Generic)
+
-- | Creates a value of 'BigQueryIODetails' with the minimum fields required to make a request.
--
@@ -1994,13 +2117,14 @@ data BigQueryIODetails = BigQueryIODetails'
bigQueryIODetails
:: BigQueryIODetails
bigQueryIODetails =
- BigQueryIODetails'
+ BigQueryIODetails'
{ _bqiodDataSet = Nothing
, _bqiodQuery = Nothing
, _bqiodProjectId = Nothing
, _bqiodTable = Nothing
}
+
-- | Dataset accessed in the connection.
bqiodDataSet :: Lens' BigQueryIODetails (Maybe Text)
bqiodDataSet
@@ -2043,9 +2167,12 @@ instance ToJSON BigQueryIODetails where
-- | Metadata for a File connector used by the job.
--
-- /See:/ 'fileIODetails' smart constructor.
-newtype FileIODetails = FileIODetails'
+newtype FileIODetails =
+ FileIODetails'
{ _fiodFilePattern :: Maybe Text
- } deriving (Eq,Show,Data,Typeable,Generic)
+ }
+ deriving (Eq, Show, Data, Typeable, Generic)
+
-- | Creates a value of 'FileIODetails' with the minimum fields required to make a request.
--
@@ -2054,10 +2181,8 @@ newtype FileIODetails = FileIODetails'
-- * 'fiodFilePattern'
fileIODetails
:: FileIODetails
-fileIODetails =
- FileIODetails'
- { _fiodFilePattern = Nothing
- }
+fileIODetails = FileIODetails' {_fiodFilePattern = Nothing}
+
-- | File Pattern used to access files by the connector.
fiodFilePattern :: Lens' FileIODetails (Maybe Text)
@@ -2080,7 +2205,8 @@ instance ToJSON FileIODetails where
-- job.
--
-- /See:/ 'counterStructuredName' smart constructor.
-data CounterStructuredName = CounterStructuredName'
+data CounterStructuredName =
+ CounterStructuredName'
{ _csnOrigin :: !(Maybe CounterStructuredNameOrigin)
, _csnOriginNamespace :: !(Maybe Text)
, _csnComponentStepName :: !(Maybe Text)
@@ -2091,7 +2217,9 @@ data CounterStructuredName = CounterStructuredName'
, _csnOriginalRequestingStepName :: !(Maybe Text)
, _csnInputIndex :: !(Maybe (Textual Int32))
, _csnWorkerId :: !(Maybe Text)
- } deriving (Eq,Show,Data,Typeable,Generic)
+ }
+ deriving (Eq, Show, Data, Typeable, Generic)
+
-- | Creates a value of 'CounterStructuredName' with the minimum fields required to make a request.
--
@@ -2119,7 +2247,7 @@ data CounterStructuredName = CounterStructuredName'
counterStructuredName
:: CounterStructuredName
counterStructuredName =
- CounterStructuredName'
+ CounterStructuredName'
{ _csnOrigin = Nothing
, _csnOriginNamespace = Nothing
, _csnComponentStepName = Nothing
@@ -2132,6 +2260,7 @@ counterStructuredName =
, _csnWorkerId = Nothing
}
+
-- | One of the standard Origins defined above.
csnOrigin :: Lens' CounterStructuredName (Maybe CounterStructuredNameOrigin)
csnOrigin
@@ -2227,10 +2356,11 @@ instance ToJSON CounterStructuredName where
("workerId" .=) <$> _csnWorkerId])
-- | Metadata available primarily for filtering jobs. Will be included in the
--- ListJob response and Job SUMMARY view+.
+-- ListJob response and Job SUMMARY view.
--
-- /See:/ 'jobMetadata' smart constructor.
-data JobMetadata = JobMetadata'
+data JobMetadata =
+ JobMetadata'
{ _jmSpannerDetails :: !(Maybe [SpannerIODetails])
, _jmBigTableDetails :: !(Maybe [BigTableIODetails])
, _jmSdkVersion :: !(Maybe SdkVersion)
@@ -2238,7 +2368,9 @@ data JobMetadata = JobMetadata'
, _jmFileDetails :: !(Maybe [FileIODetails])
, _jmBigQueryDetails :: !(Maybe [BigQueryIODetails])
, _jmDatastoreDetails :: !(Maybe [DatastoreIODetails])
- } deriving (Eq,Show,Data,Typeable,Generic)
+ }
+ deriving (Eq, Show, Data, Typeable, Generic)
+
-- | Creates a value of 'JobMetadata' with the minimum fields required to make a request.
--
@@ -2260,7 +2392,7 @@ data JobMetadata = JobMetadata'
jobMetadata
:: JobMetadata
jobMetadata =
- JobMetadata'
+ JobMetadata'
{ _jmSpannerDetails = Nothing
, _jmBigTableDetails = Nothing
, _jmSdkVersion = Nothing
@@ -2270,6 +2402,7 @@ jobMetadata =
, _jmDatastoreDetails = Nothing
}
+
-- | Identification of a Spanner source used in the Dataflow job.
jmSpannerDetails :: Lens' JobMetadata [SpannerIODetails]
jmSpannerDetails
@@ -2348,13 +2481,52 @@ instance ToJSON JobMetadata where
("bigqueryDetails" .=) <$> _jmBigQueryDetails,
("datastoreDetails" .=) <$> _jmDatastoreDetails])
+-- | Response to the validation request.
+--
+-- /See:/ 'validateResponse' smart constructor.
+newtype ValidateResponse =
+ ValidateResponse'
+ { _vrErrorMessage :: Maybe Text
+ }
+ deriving (Eq, Show, Data, Typeable, Generic)
+
+
+-- | Creates a value of 'ValidateResponse' with the minimum fields required to make a request.
+--
+-- Use one of the following lenses to modify other fields as desired:
+--
+-- * 'vrErrorMessage'
+validateResponse
+ :: ValidateResponse
+validateResponse = ValidateResponse' {_vrErrorMessage = Nothing}
+
+
+-- | Will be empty if validation succeeds.
+vrErrorMessage :: Lens' ValidateResponse (Maybe Text)
+vrErrorMessage
+ = lens _vrErrorMessage
+ (\ s a -> s{_vrErrorMessage = a})
+
+instance FromJSON ValidateResponse where
+ parseJSON
+ = withObject "ValidateResponse"
+ (\ o -> ValidateResponse' <$> (o .:? "errorMessage"))
+
+instance ToJSON ValidateResponse where
+ toJSON ValidateResponse'{..}
+ = object
+ (catMaybes [("errorMessage" .=) <$> _vrErrorMessage])
+
-- | The response to a GetTemplate request.
--
-- /See:/ 'getTemplateResponse' smart constructor.
-data GetTemplateResponse = GetTemplateResponse'
+data GetTemplateResponse =
+ GetTemplateResponse'
{ _gtrStatus :: !(Maybe Status)
, _gtrMetadata :: !(Maybe TemplateMetadata)
- } deriving (Eq,Show,Data,Typeable,Generic)
+ }
+ deriving (Eq, Show, Data, Typeable, Generic)
+
-- | Creates a value of 'GetTemplateResponse' with the minimum fields required to make a request.
--
@@ -2366,10 +2538,8 @@ data GetTemplateResponse = GetTemplateResponse'
getTemplateResponse
:: GetTemplateResponse
getTemplateResponse =
- GetTemplateResponse'
- { _gtrStatus = Nothing
- , _gtrMetadata = Nothing
- }
+ GetTemplateResponse' {_gtrStatus = Nothing, _gtrMetadata = Nothing}
+
-- | The status of the get template request. Any problems with the request
-- will be indicated in the error_details.
@@ -2401,10 +2571,13 @@ instance ToJSON GetTemplateResponse where
-- outputs.
--
-- /See:/ 'writeInstruction' smart constructor.
-data WriteInstruction = WriteInstruction'
+data WriteInstruction =
+ WriteInstruction'
{ _wiSink :: !(Maybe Sink)
, _wiInput :: !(Maybe InstructionInput)
- } deriving (Eq,Show,Data,Typeable,Generic)
+ }
+ deriving (Eq, Show, Data, Typeable, Generic)
+
-- | Creates a value of 'WriteInstruction' with the minimum fields required to make a request.
--
@@ -2415,11 +2588,8 @@ data WriteInstruction = WriteInstruction'
-- * 'wiInput'
writeInstruction
:: WriteInstruction
-writeInstruction =
- WriteInstruction'
- { _wiSink = Nothing
- , _wiInput = Nothing
- }
+writeInstruction = WriteInstruction' {_wiSink = Nothing, _wiInput = Nothing}
+
-- | The sink to write to.
wiSink :: Lens' WriteInstruction (Maybe Sink)
@@ -2445,9 +2615,12 @@ instance ToJSON WriteInstruction where
-- | A description of the process that generated the request.
--
-- /See:/ 'environmentUserAgent' smart constructor.
-newtype EnvironmentUserAgent = EnvironmentUserAgent'
+newtype EnvironmentUserAgent =
+ EnvironmentUserAgent'
{ _euaAddtional :: HashMap Text JSONValue
- } deriving (Eq,Show,Data,Typeable,Generic)
+ }
+ deriving (Eq, Show, Data, Typeable, Generic)
+
-- | Creates a value of 'EnvironmentUserAgent' with the minimum fields required to make a request.
--
@@ -2458,9 +2631,8 @@ environmentUserAgent
:: HashMap Text JSONValue -- ^ 'euaAddtional'
-> EnvironmentUserAgent
environmentUserAgent pEuaAddtional_ =
- EnvironmentUserAgent'
- { _euaAddtional = _Coerce # pEuaAddtional_
- }
+ EnvironmentUserAgent' {_euaAddtional = _Coerce # pEuaAddtional_}
+
-- | Properties of the object.
euaAddtional :: Lens' EnvironmentUserAgent (HashMap Text JSONValue)
@@ -2480,11 +2652,14 @@ instance ToJSON EnvironmentUserAgent where
-- | Describes the data disk used by a workflow job.
--
-- /See:/ 'disk' smart constructor.
-data Disk = Disk'
+data Disk =
+ Disk'
{ _dSizeGb :: !(Maybe (Textual Int32))
, _dDiskType :: !(Maybe Text)
, _dMountPoint :: !(Maybe Text)
- } deriving (Eq,Show,Data,Typeable,Generic)
+ }
+ deriving (Eq, Show, Data, Typeable, Generic)
+
-- | Creates a value of 'Disk' with the minimum fields required to make a request.
--
@@ -2497,12 +2672,8 @@ data Disk = Disk'
-- * 'dMountPoint'
disk
:: Disk
-disk =
- Disk'
- { _dSizeGb = Nothing
- , _dDiskType = Nothing
- , _dMountPoint = Nothing
- }
+disk = Disk' {_dSizeGb = Nothing, _dDiskType = Nothing, _dMountPoint = Nothing}
+
-- | Size of disk in GB. If zero or unspecified, the service will attempt to
-- choose a reasonable default.
@@ -2552,7 +2723,8 @@ instance ToJSON Disk where
-- | Describes the state of a metric.
--
-- /See:/ 'metricUpdate' smart constructor.
-data MetricUpdate = MetricUpdate'
+data MetricUpdate =
+ MetricUpdate'
{ _muMeanSum :: !(Maybe JSONValue)
, _muInternal :: !(Maybe JSONValue)
, _muSet :: !(Maybe JSONValue)
@@ -2564,7 +2736,9 @@ data MetricUpdate = MetricUpdate'
, _muMeanCount :: !(Maybe JSONValue)
, _muName :: !(Maybe MetricStructuredName)
, _muScalar :: !(Maybe JSONValue)
- } deriving (Eq,Show,Data,Typeable,Generic)
+ }
+ deriving (Eq, Show, Data, Typeable, Generic)
+
-- | Creates a value of 'MetricUpdate' with the minimum fields required to make a request.
--
@@ -2594,7 +2768,7 @@ data MetricUpdate = MetricUpdate'
metricUpdate
:: MetricUpdate
metricUpdate =
- MetricUpdate'
+ MetricUpdate'
{ _muMeanSum = Nothing
, _muInternal = Nothing
, _muSet = Nothing
@@ -2608,6 +2782,7 @@ metricUpdate =
, _muScalar = Nothing
}
+
-- | Worker-computed aggregate value for the \"Mean\" aggregation kind. This
-- holds the sum of the aggregated values and is used in combination with
-- mean_count below to obtain the actual mean aggregate value. The only
@@ -2718,9 +2893,12 @@ instance ToJSON MetricUpdate where
-- | The result of a SourceGetMetadataOperation.
--
-- /See:/ 'sourceGetMetadataResponse' smart constructor.
-newtype SourceGetMetadataResponse = SourceGetMetadataResponse'
+newtype SourceGetMetadataResponse =
+ SourceGetMetadataResponse'
{ _sgmrMetadata :: Maybe SourceMetadata
- } deriving (Eq,Show,Data,Typeable,Generic)
+ }
+ deriving (Eq, Show, Data, Typeable, Generic)
+
-- | Creates a value of 'SourceGetMetadataResponse' with the minimum fields required to make a request.
--
@@ -2729,10 +2907,8 @@ newtype SourceGetMetadataResponse = SourceGetMetadataResponse'
-- * 'sgmrMetadata'
sourceGetMetadataResponse
:: SourceGetMetadataResponse
-sourceGetMetadataResponse =
- SourceGetMetadataResponse'
- { _sgmrMetadata = Nothing
- }
+sourceGetMetadataResponse = SourceGetMetadataResponse' {_sgmrMetadata = Nothing}
+
-- | The computed metadata.
sgmrMetadata :: Lens' SourceGetMetadataResponse (Maybe SourceMetadata)
@@ -2753,11 +2929,14 @@ instance ToJSON SourceGetMetadataResponse where
-- | Metadata describing a template.
--
-- /See:/ 'templateMetadata' smart constructor.
-data TemplateMetadata = TemplateMetadata'
+data TemplateMetadata =
+ TemplateMetadata'
{ _tmName :: !(Maybe Text)
, _tmParameters :: !(Maybe [ParameterMetadata])
, _tmDescription :: !(Maybe Text)
- } deriving (Eq,Show,Data,Typeable,Generic)
+ }
+ deriving (Eq, Show, Data, Typeable, Generic)
+
-- | Creates a value of 'TemplateMetadata' with the minimum fields required to make a request.
--
@@ -2771,11 +2950,9 @@ data TemplateMetadata = TemplateMetadata'
templateMetadata
:: TemplateMetadata
templateMetadata =
- TemplateMetadata'
- { _tmName = Nothing
- , _tmParameters = Nothing
- , _tmDescription = Nothing
- }
+ TemplateMetadata'
+ {_tmName = Nothing, _tmParameters = Nothing, _tmDescription = Nothing}
+
-- | Required. The name of the template.
tmName :: Lens' TemplateMetadata (Maybe Text)
@@ -2813,18 +2990,23 @@ instance ToJSON TemplateMetadata where
-- | Describes the environment in which a Dataflow Job runs.
--
-- /See:/ 'environment' smart constructor.
-data Environment = Environment'
- { _eDataSet :: !(Maybe Text)
- , _eExperiments :: !(Maybe [Text])
- , _eWorkerPools :: !(Maybe [WorkerPool])
- , _eClusterManagerAPIService :: !(Maybe Text)
- , _eVersion :: !(Maybe EnvironmentVersion)
- , _eInternalExperiments :: !(Maybe EnvironmentInternalExperiments)
- , _eTempStoragePrefix :: !(Maybe Text)
- , _eServiceAccountEmail :: !(Maybe Text)
- , _eUserAgent :: !(Maybe EnvironmentUserAgent)
- , _eSdkPipelineOptions :: !(Maybe EnvironmentSdkPipelineOptions)
- } deriving (Eq,Show,Data,Typeable,Generic)
+data Environment =
+ Environment'
+ { _eDataSet :: !(Maybe Text)
+ , _eExperiments :: !(Maybe [Text])
+ , _eFlexResourceSchedulingGoal :: !(Maybe EnvironmentFlexResourceSchedulingGoal)
+ , _eWorkerPools :: !(Maybe [WorkerPool])
+ , _eClusterManagerAPIService :: !(Maybe Text)
+ , _eVersion :: !(Maybe EnvironmentVersion)
+ , _eInternalExperiments :: !(Maybe EnvironmentInternalExperiments)
+ , _eTempStoragePrefix :: !(Maybe Text)
+ , _eServiceAccountEmail :: !(Maybe Text)
+ , _eUserAgent :: !(Maybe EnvironmentUserAgent)
+ , _eServiceKmsKeyName :: !(Maybe Text)
+ , _eSdkPipelineOptions :: !(Maybe EnvironmentSdkPipelineOptions)
+ }
+ deriving (Eq, Show, Data, Typeable, Generic)
+
-- | Creates a value of 'Environment' with the minimum fields required to make a request.
--
@@ -2834,6 +3016,8 @@ data Environment = Environment'
--
-- * 'eExperiments'
--
+-- * 'eFlexResourceSchedulingGoal'
+--
-- * 'eWorkerPools'
--
-- * 'eClusterManagerAPIService'
@@ -2848,13 +3032,16 @@ data Environment = Environment'
--
-- * 'eUserAgent'
--
+-- * 'eServiceKmsKeyName'
+--
-- * 'eSdkPipelineOptions'
environment
:: Environment
environment =
- Environment'
+ Environment'
{ _eDataSet = Nothing
, _eExperiments = Nothing
+ , _eFlexResourceSchedulingGoal = Nothing
, _eWorkerPools = Nothing
, _eClusterManagerAPIService = Nothing
, _eVersion = Nothing
@@ -2862,9 +3049,11 @@ environment =
, _eTempStoragePrefix = Nothing
, _eServiceAccountEmail = Nothing
, _eUserAgent = Nothing
+ , _eServiceKmsKeyName = Nothing
, _eSdkPipelineOptions = Nothing
}
+
-- | The dataset for the current project where various workflow related
-- tables are stored. The supported resource type is: Google BigQuery:
-- bigquery.googleapis.com\/{dataset}
@@ -2878,6 +3067,12 @@ eExperiments
. _Default
. _Coerce
+-- | Which Flexible Resource Scheduling mode to run in.
+eFlexResourceSchedulingGoal :: Lens' Environment (Maybe EnvironmentFlexResourceSchedulingGoal)
+eFlexResourceSchedulingGoal
+ = lens _eFlexResourceSchedulingGoal
+ (\ s a -> s{_eFlexResourceSchedulingGoal = a})
+
-- | The worker pools. At least one \"harness\" worker pool must be specified
-- in order for the job to have workers.
eWorkerPools :: Lens' Environment [WorkerPool]
@@ -2930,6 +3125,14 @@ eUserAgent :: Lens' Environment (Maybe EnvironmentUserAgent)
eUserAgent
= lens _eUserAgent (\ s a -> s{_eUserAgent = a})
+-- | If set, contains the Cloud KMS key identifier used to encrypt data at
+-- rest, AKA a Customer Managed Encryption Key (CMEK). Format:
+-- projects\/PROJECT_ID\/locations\/LOCATION\/keyRings\/KEY_RING\/cryptoKeys\/KEY
+eServiceKmsKeyName :: Lens' Environment (Maybe Text)
+eServiceKmsKeyName
+ = lens _eServiceKmsKeyName
+ (\ s a -> s{_eServiceKmsKeyName = a})
+
-- | The Cloud Dataflow SDK pipeline options specified by the user. These
-- options are passed through the service and are used to recreate the SDK
-- pipeline options on the worker in a language agnostic and platform
@@ -2946,6 +3149,7 @@ instance FromJSON Environment where
Environment' <$>
(o .:? "dataset") <*>
(o .:? "experiments" .!= mempty)
+ <*> (o .:? "flexResourceSchedulingGoal")
<*> (o .:? "workerPools" .!= mempty)
<*> (o .:? "clusterManagerApiService")
<*> (o .:? "version")
@@ -2953,6 +3157,7 @@ instance FromJSON Environment where
<*> (o .:? "tempStoragePrefix")
<*> (o .:? "serviceAccountEmail")
<*> (o .:? "userAgent")
+ <*> (o .:? "serviceKmsKeyName")
<*> (o .:? "sdkPipelineOptions"))
instance ToJSON Environment where
@@ -2961,6 +3166,8 @@ instance ToJSON Environment where
(catMaybes
[("dataset" .=) <$> _eDataSet,
("experiments" .=) <$> _eExperiments,
+ ("flexResourceSchedulingGoal" .=) <$>
+ _eFlexResourceSchedulingGoal,
("workerPools" .=) <$> _eWorkerPools,
("clusterManagerApiService" .=) <$>
_eClusterManagerAPIService,
@@ -2969,6 +3176,7 @@ instance ToJSON Environment where
("tempStoragePrefix" .=) <$> _eTempStoragePrefix,
("serviceAccountEmail" .=) <$> _eServiceAccountEmail,
("userAgent" .=) <$> _eUserAgent,
+ ("serviceKmsKeyName" .=) <$> _eServiceKmsKeyName,
("sdkPipelineOptions" .=) <$> _eSdkPipelineOptions])
-- | A position that encapsulates an inner position and an index for the
@@ -2976,10 +3184,13 @@ instance ToJSON Environment where
-- that encapsulates a set of other sources.
--
-- /See:/ 'concatPosition' smart constructor.
-data ConcatPosition = ConcatPosition'
+data ConcatPosition =
+ ConcatPosition'
{ _cpIndex :: !(Maybe (Textual Int32))
, _cpPosition :: !(Maybe Position)
- } deriving (Eq,Show,Data,Typeable,Generic)
+ }
+ deriving (Eq, Show, Data, Typeable, Generic)
+
-- | Creates a value of 'ConcatPosition' with the minimum fields required to make a request.
--
@@ -2990,11 +3201,8 @@ data ConcatPosition = ConcatPosition'
-- * 'cpPosition'
concatPosition
:: ConcatPosition
-concatPosition =
- ConcatPosition'
- { _cpIndex = Nothing
- , _cpPosition = Nothing
- }
+concatPosition = ConcatPosition' {_cpIndex = Nothing, _cpPosition = Nothing}
+
-- | Index of the inner source.
cpIndex :: Lens' ConcatPosition (Maybe Int32)
@@ -3028,9 +3236,12 @@ instance ToJSON ConcatPosition where
-- will have context[\'pcollection\'] = .
--
-- /See:/ 'metricStructuredNameContext' smart constructor.
-newtype MetricStructuredNameContext = MetricStructuredNameContext'
+newtype MetricStructuredNameContext =
+ MetricStructuredNameContext'
{ _msncAddtional :: HashMap Text Text
- } deriving (Eq,Show,Data,Typeable,Generic)
+ }
+ deriving (Eq, Show, Data, Typeable, Generic)
+
-- | Creates a value of 'MetricStructuredNameContext' with the minimum fields required to make a request.
--
@@ -3041,9 +3252,8 @@ metricStructuredNameContext
:: HashMap Text Text -- ^ 'msncAddtional'
-> MetricStructuredNameContext
metricStructuredNameContext pMsncAddtional_ =
- MetricStructuredNameContext'
- { _msncAddtional = _Coerce # pMsncAddtional_
- }
+ MetricStructuredNameContext' {_msncAddtional = _Coerce # pMsncAddtional_}
+
msncAddtional :: Lens' MetricStructuredNameContext (HashMap Text Text)
msncAddtional
@@ -3063,7 +3273,8 @@ instance ToJSON MetricStructuredNameContext where
-- | An update to a Counter sent from a worker.
--
-- /See:/ 'counterUpdate' smart constructor.
-data CounterUpdate = CounterUpdate'
+data CounterUpdate =
+ CounterUpdate'
{ _cuNameAndKind :: !(Maybe NameAndKind)
, _cuIntegerList :: !(Maybe IntegerList)
, _cuFloatingPoint :: !(Maybe (Textual Double))
@@ -3079,7 +3290,9 @@ data CounterUpdate = CounterUpdate'
, _cuBoolean :: !(Maybe Bool)
, _cuFloatingPointList :: !(Maybe FloatingPointList)
, _cuInteger :: !(Maybe SplitInt64)
- } deriving (Eq,Show,Data,Typeable,Generic)
+ }
+ deriving (Eq, Show, Data, Typeable, Generic)
+
-- | Creates a value of 'CounterUpdate' with the minimum fields required to make a request.
--
@@ -3117,7 +3330,7 @@ data CounterUpdate = CounterUpdate'
counterUpdate
:: CounterUpdate
counterUpdate =
- CounterUpdate'
+ CounterUpdate'
{ _cuNameAndKind = Nothing
, _cuIntegerList = Nothing
, _cuFloatingPoint = Nothing
@@ -3135,6 +3348,7 @@ counterUpdate =
, _cuInteger = Nothing
}
+
-- | Counter name and aggregation type.
cuNameAndKind :: Lens' CounterUpdate (Maybe NameAndKind)
cuNameAndKind
@@ -3270,9 +3484,12 @@ instance ToJSON CounterUpdate where
-- stage-to-stage communication.
--
-- /See:/ 'streamingStageLocation' smart constructor.
-newtype StreamingStageLocation = StreamingStageLocation'
+newtype StreamingStageLocation =
+ StreamingStageLocation'
{ _sslStreamId :: Maybe Text
- } deriving (Eq,Show,Data,Typeable,Generic)
+ }
+ deriving (Eq, Show, Data, Typeable, Generic)
+
-- | Creates a value of 'StreamingStageLocation' with the minimum fields required to make a request.
--
@@ -3281,10 +3498,8 @@ newtype StreamingStageLocation = StreamingStageLocation'
-- * 'sslStreamId'
streamingStageLocation
:: StreamingStageLocation
-streamingStageLocation =
- StreamingStageLocation'
- { _sslStreamId = Nothing
- }
+streamingStageLocation = StreamingStageLocation' {_sslStreamId = Nothing}
+
-- | Identifies the particular stream within the streaming Dataflow job.
sslStreamId :: Lens' StreamingStageLocation (Maybe Text)
@@ -3302,16 +3517,64 @@ instance ToJSON StreamingStageLocation where
= object
(catMaybes [("streamId" .=) <$> _sslStreamId])
+-- | Untranslated bag-of-bytes WorkRequest from UnifiedWorker.
+--
+-- /See:/ 'leaseWorkItemRequestUnifiedWorkerRequest' smart constructor.
+newtype LeaseWorkItemRequestUnifiedWorkerRequest =
+ LeaseWorkItemRequestUnifiedWorkerRequest'
+ { _lwiruwrAddtional :: HashMap Text JSONValue
+ }
+ deriving (Eq, Show, Data, Typeable, Generic)
+
+
+-- | Creates a value of 'LeaseWorkItemRequestUnifiedWorkerRequest' with the minimum fields required to make a request.
+--
+-- Use one of the following lenses to modify other fields as desired:
+--
+-- * 'lwiruwrAddtional'
+leaseWorkItemRequestUnifiedWorkerRequest
+ :: HashMap Text JSONValue -- ^ 'lwiruwrAddtional'
+ -> LeaseWorkItemRequestUnifiedWorkerRequest
+leaseWorkItemRequestUnifiedWorkerRequest pLwiruwrAddtional_ =
+ LeaseWorkItemRequestUnifiedWorkerRequest'
+ {_lwiruwrAddtional = _Coerce # pLwiruwrAddtional_}
+
+
+-- | Properties of the object. Contains field \'type with type URL.
+lwiruwrAddtional :: Lens' LeaseWorkItemRequestUnifiedWorkerRequest (HashMap Text JSONValue)
+lwiruwrAddtional
+ = lens _lwiruwrAddtional
+ (\ s a -> s{_lwiruwrAddtional = a})
+ . _Coerce
+
+instance FromJSON
+ LeaseWorkItemRequestUnifiedWorkerRequest
+ where
+ parseJSON
+ = withObject
+ "LeaseWorkItemRequestUnifiedWorkerRequest"
+ (\ o ->
+ LeaseWorkItemRequestUnifiedWorkerRequest' <$>
+ (parseJSONObject o))
+
+instance ToJSON
+ LeaseWorkItemRequestUnifiedWorkerRequest
+ where
+ toJSON = toJSON . _lwiruwrAddtional
+
-- | Specification of one of the bundles produced as a result of splitting a
-- Source (e.g. when executing a SourceSplitRequest, or when splitting an
-- active task using WorkItemStatus.dynamic_source_split), relative to the
-- source being split.
--
-- /See:/ 'derivedSource' smart constructor.
-data DerivedSource = DerivedSource'
+data DerivedSource =
+ DerivedSource'
{ _dsDerivationMode :: !(Maybe DerivedSourceDerivationMode)
, _dsSource :: !(Maybe Source)
- } deriving (Eq,Show,Data,Typeable,Generic)
+ }
+ deriving (Eq, Show, Data, Typeable, Generic)
+
-- | Creates a value of 'DerivedSource' with the minimum fields required to make a request.
--
@@ -3323,10 +3586,8 @@ data DerivedSource = DerivedSource'
derivedSource
:: DerivedSource
derivedSource =
- DerivedSource'
- { _dsDerivationMode = Nothing
- , _dsSource = Nothing
- }
+ DerivedSource' {_dsDerivationMode = Nothing, _dsSource = Nothing}
+
-- | What source to base the produced source on (if any).
dsDerivationMode :: Lens' DerivedSource (Maybe DerivedSourceDerivationMode)
@@ -3352,17 +3613,20 @@ instance ToJSON DerivedSource where
[("derivationMode" .=) <$> _dsDerivationMode,
("source" .=) <$> _dsSource])
--- | JobMetrics contains a collection of metrics descibing the detailed
+-- | JobMetrics contains a collection of metrics describing the detailed
-- progress of a Dataflow job. Metrics correspond to user-defined and
-- system-defined metrics in the job. This resource captures only the most
-- recent values of each metric; time-series data can be queried for them
-- (under the same metric names) from Cloud Monitoring.
--
-- /See:/ 'jobMetrics' smart constructor.
-data JobMetrics = JobMetrics'
+data JobMetrics =
+ JobMetrics'
{ _jmMetrics :: !(Maybe [MetricUpdate])
, _jmMetricTime :: !(Maybe DateTime')
- } deriving (Eq,Show,Data,Typeable,Generic)
+ }
+ deriving (Eq, Show, Data, Typeable, Generic)
+
-- | Creates a value of 'JobMetrics' with the minimum fields required to make a request.
--
@@ -3373,11 +3637,8 @@ data JobMetrics = JobMetrics'
-- * 'jmMetricTime'
jobMetrics
:: JobMetrics
-jobMetrics =
- JobMetrics'
- { _jmMetrics = Nothing
- , _jmMetricTime = Nothing
- }
+jobMetrics = JobMetrics' {_jmMetrics = Nothing, _jmMetricTime = Nothing}
+
-- | All metrics for this job.
jmMetrics :: Lens' JobMetrics [MetricUpdate]
@@ -3410,12 +3671,15 @@ instance ToJSON JobMetrics where
-- | Request to send encoded debug information.
--
-- /See:/ 'sendDebugCaptureRequest' smart constructor.
-data SendDebugCaptureRequest = SendDebugCaptureRequest'
+data SendDebugCaptureRequest =
+ SendDebugCaptureRequest'
{ _sdcrLocation :: !(Maybe Text)
, _sdcrData :: !(Maybe Text)
, _sdcrComponentId :: !(Maybe Text)
, _sdcrWorkerId :: !(Maybe Text)
- } deriving (Eq,Show,Data,Typeable,Generic)
+ }
+ deriving (Eq, Show, Data, Typeable, Generic)
+
-- | Creates a value of 'SendDebugCaptureRequest' with the minimum fields required to make a request.
--
@@ -3431,14 +3695,17 @@ data SendDebugCaptureRequest = SendDebugCaptureRequest'
sendDebugCaptureRequest
:: SendDebugCaptureRequest
sendDebugCaptureRequest =
- SendDebugCaptureRequest'
+ SendDebugCaptureRequest'
{ _sdcrLocation = Nothing
, _sdcrData = Nothing
, _sdcrComponentId = Nothing
, _sdcrWorkerId = Nothing
}
--- | The location which contains the job specified by job_id.
+
+-- | The [regional endpoint]
+-- (https:\/\/cloud.google.com\/dataflow\/docs\/concepts\/regional-endpoints)
+-- that contains the job specified by job_id.
sdcrLocation :: Lens' SendDebugCaptureRequest (Maybe Text)
sdcrLocation
= lens _sdcrLocation (\ s a -> s{_sdcrLocation = a})
@@ -3479,7 +3746,8 @@ instance ToJSON SendDebugCaptureRequest where
-- | Conveys a worker\'s progress through the work described by a WorkItem.
--
-- /See:/ 'workItemStatus' smart constructor.
-data WorkItemStatus = WorkItemStatus'
+data WorkItemStatus =
+ WorkItemStatus'
{ _wisReportedProgress :: !(Maybe ApproximateReportedProgress)
, _wisProgress :: !(Maybe ApproximateProgress)
, _wisTotalThrottlerWaitTimeSeconds :: !(Maybe (Textual Double))
@@ -3494,7 +3762,9 @@ data WorkItemStatus = WorkItemStatus'
, _wisCounterUpdates :: !(Maybe [CounterUpdate])
, _wisMetricUpdates :: !(Maybe [MetricUpdate])
, _wisWorkItemId :: !(Maybe Text)
- } deriving (Eq,Show,Data,Typeable,Generic)
+ }
+ deriving (Eq, Show, Data, Typeable, Generic)
+
-- | Creates a value of 'WorkItemStatus' with the minimum fields required to make a request.
--
@@ -3530,7 +3800,7 @@ data WorkItemStatus = WorkItemStatus'
workItemStatus
:: WorkItemStatus
workItemStatus =
- WorkItemStatus'
+ WorkItemStatus'
{ _wisReportedProgress = Nothing
, _wisProgress = Nothing
, _wisTotalThrottlerWaitTimeSeconds = Nothing
@@ -3547,6 +3817,7 @@ workItemStatus =
, _wisWorkItemId = Nothing
}
+
-- | The worker\'s progress through this WorkItem.
wisReportedProgress :: Lens' WorkItemStatus (Maybe ApproximateReportedProgress)
wisReportedProgress
@@ -3722,9 +3993,12 @@ instance ToJSON WorkItemStatus where
-- not be used here.
--
-- /See:/ 'workerMessageLabels' smart constructor.
-newtype WorkerMessageLabels = WorkerMessageLabels'
+newtype WorkerMessageLabels =
+ WorkerMessageLabels'
{ _wmlAddtional :: HashMap Text Text
- } deriving (Eq,Show,Data,Typeable,Generic)
+ }
+ deriving (Eq, Show, Data, Typeable, Generic)
+
-- | Creates a value of 'WorkerMessageLabels' with the minimum fields required to make a request.
--
@@ -3735,9 +4009,8 @@ workerMessageLabels
:: HashMap Text Text -- ^ 'wmlAddtional'
-> WorkerMessageLabels
workerMessageLabels pWmlAddtional_ =
- WorkerMessageLabels'
- { _wmlAddtional = _Coerce # pWmlAddtional_
- }
+ WorkerMessageLabels' {_wmlAddtional = _Coerce # pWmlAddtional_}
+
wmlAddtional :: Lens' WorkerMessageLabels (HashMap Text Text)
wmlAddtional
@@ -3756,9 +4029,12 @@ instance ToJSON WorkerMessageLabels where
-- output.
--
-- /See:/ 'flattenInstruction' smart constructor.
-newtype FlattenInstruction = FlattenInstruction'
+newtype FlattenInstruction =
+ FlattenInstruction'
{ _fiInputs :: Maybe [InstructionInput]
- } deriving (Eq,Show,Data,Typeable,Generic)
+ }
+ deriving (Eq, Show, Data, Typeable, Generic)
+
-- | Creates a value of 'FlattenInstruction' with the minimum fields required to make a request.
--
@@ -3767,10 +4043,8 @@ newtype FlattenInstruction = FlattenInstruction'
-- * 'fiInputs'
flattenInstruction
:: FlattenInstruction
-flattenInstruction =
- FlattenInstruction'
- { _fiInputs = Nothing
- }
+flattenInstruction = FlattenInstruction' {_fiInputs = Nothing}
+
-- | Describes the inputs to the flatten instruction.
fiInputs :: Lens' FlattenInstruction [InstructionInput]
@@ -3797,10 +4071,13 @@ instance ToJSON FlattenInstruction where
-- package staging failure).
--
-- /See:/ 'workerMessageCode' smart constructor.
-data WorkerMessageCode = WorkerMessageCode'
+data WorkerMessageCode =
+ WorkerMessageCode'
{ _wmcParameters :: !(Maybe WorkerMessageCodeParameters)
, _wmcCode :: !(Maybe Text)
- } deriving (Eq,Show,Data,Typeable,Generic)
+ }
+ deriving (Eq, Show, Data, Typeable, Generic)
+
-- | Creates a value of 'WorkerMessageCode' with the minimum fields required to make a request.
--
@@ -3812,10 +4089,8 @@ data WorkerMessageCode = WorkerMessageCode'
workerMessageCode
:: WorkerMessageCode
workerMessageCode =
- WorkerMessageCode'
- { _wmcParameters = Nothing
- , _wmcCode = Nothing
- }
+ WorkerMessageCode' {_wmcParameters = Nothing, _wmcCode = Nothing}
+
-- | Parameters contains specific information about the code. This is a
-- struct to allow parameters of different types. Examples: 1. For a
@@ -3862,14 +4137,17 @@ instance ToJSON WorkerMessageCode where
-- | Description of the type, names\/ids, and input\/outputs for a transform.
--
-- /See:/ 'transformSummary' smart constructor.
-data TransformSummary = TransformSummary'
+data TransformSummary =
+ TransformSummary'
{ _tsDisplayData :: !(Maybe [DisplayData])
, _tsKind :: !(Maybe TransformSummaryKind)
, _tsOutputCollectionName :: !(Maybe [Text])
, _tsInputCollectionName :: !(Maybe [Text])
, _tsName :: !(Maybe Text)
, _tsId :: !(Maybe Text)
- } deriving (Eq,Show,Data,Typeable,Generic)
+ }
+ deriving (Eq, Show, Data, Typeable, Generic)
+
-- | Creates a value of 'TransformSummary' with the minimum fields required to make a request.
--
@@ -3889,7 +4167,7 @@ data TransformSummary = TransformSummary'
transformSummary
:: TransformSummary
transformSummary =
- TransformSummary'
+ TransformSummary'
{ _tsDisplayData = Nothing
, _tsKind = Nothing
, _tsOutputCollectionName = Nothing
@@ -3898,6 +4176,7 @@ transformSummary =
, _tsId = Nothing
}
+
-- | Transform-specific display data.
tsDisplayData :: Lens' TransformSummary [DisplayData]
tsDisplayData
@@ -3961,9 +4240,12 @@ instance ToJSON TransformSummary where
-- corresponding name prefixes of the new job.
--
-- /See:/ 'jobTransformNameMApping' smart constructor.
-newtype JobTransformNameMApping = JobTransformNameMApping'
+newtype JobTransformNameMApping =
+ JobTransformNameMApping'
{ _jtnmaAddtional :: HashMap Text Text
- } deriving (Eq,Show,Data,Typeable,Generic)
+ }
+ deriving (Eq, Show, Data, Typeable, Generic)
+
-- | Creates a value of 'JobTransformNameMApping' with the minimum fields required to make a request.
--
@@ -3974,9 +4256,8 @@ jobTransformNameMApping
:: HashMap Text Text -- ^ 'jtnmaAddtional'
-> JobTransformNameMApping
jobTransformNameMApping pJtnmaAddtional_ =
- JobTransformNameMApping'
- { _jtnmaAddtional = _Coerce # pJtnmaAddtional_
- }
+ JobTransformNameMApping' {_jtnmaAddtional = _Coerce # pJtnmaAddtional_}
+
jtnmaAddtional :: Lens' JobTransformNameMApping (HashMap Text Text)
jtnmaAddtional
@@ -3996,9 +4277,12 @@ instance ToJSON JobTransformNameMApping where
-- | The source to read from, plus its parameters.
--
-- /See:/ 'sourceSpec' smart constructor.
-newtype SourceSpec = SourceSpec'
+newtype SourceSpec =
+ SourceSpec'
{ _ssAddtional :: HashMap Text JSONValue
- } deriving (Eq,Show,Data,Typeable,Generic)
+ }
+ deriving (Eq, Show, Data, Typeable, Generic)
+
-- | Creates a value of 'SourceSpec' with the minimum fields required to make a request.
--
@@ -4008,10 +4292,8 @@ newtype SourceSpec = SourceSpec'
sourceSpec
:: HashMap Text JSONValue -- ^ 'ssAddtional'
-> SourceSpec
-sourceSpec pSsAddtional_ =
- SourceSpec'
- { _ssAddtional = _Coerce # pSsAddtional_
- }
+sourceSpec pSsAddtional_ = SourceSpec' {_ssAddtional = _Coerce # pSsAddtional_}
+
-- | Properties of the object.
ssAddtional :: Lens' SourceSpec (HashMap Text JSONValue)
@@ -4031,11 +4313,14 @@ instance ToJSON SourceSpec where
-- the pipeline, etc.
--
-- /See:/ 'sourceMetadata' smart constructor.
-data SourceMetadata = SourceMetadata'
+data SourceMetadata =
+ SourceMetadata'
{ _smEstimatedSizeBytes :: !(Maybe (Textual Int64))
, _smProducesSortedKeys :: !(Maybe Bool)
, _smInfinite :: !(Maybe Bool)
- } deriving (Eq,Show,Data,Typeable,Generic)
+ }
+ deriving (Eq, Show, Data, Typeable, Generic)
+
-- | Creates a value of 'SourceMetadata' with the minimum fields required to make a request.
--
@@ -4049,12 +4334,13 @@ data SourceMetadata = SourceMetadata'
sourceMetadata
:: SourceMetadata
sourceMetadata =
- SourceMetadata'
+ SourceMetadata'
{ _smEstimatedSizeBytes = Nothing
, _smProducesSortedKeys = Nothing
, _smInfinite = Nothing
}
+
-- | An estimate of the total size (in bytes) of the data that would be read
-- from this source. This estimate is in terms of external storage size,
-- before any decompression or other processing done by the reader.
@@ -4097,9 +4383,12 @@ instance ToJSON SourceMetadata where
-- | Experimental settings.
--
-- /See:/ 'environmentInternalExperiments' smart constructor.
-newtype EnvironmentInternalExperiments = EnvironmentInternalExperiments'
+newtype EnvironmentInternalExperiments =
+ EnvironmentInternalExperiments'
{ _eieAddtional :: HashMap Text JSONValue
- } deriving (Eq,Show,Data,Typeable,Generic)
+ }
+ deriving (Eq, Show, Data, Typeable, Generic)
+
-- | Creates a value of 'EnvironmentInternalExperiments' with the minimum fields required to make a request.
--
@@ -4110,9 +4399,8 @@ environmentInternalExperiments
:: HashMap Text JSONValue -- ^ 'eieAddtional'
-> EnvironmentInternalExperiments
environmentInternalExperiments pEieAddtional_ =
- EnvironmentInternalExperiments'
- { _eieAddtional = _Coerce # pEieAddtional_
- }
+ EnvironmentInternalExperiments' {_eieAddtional = _Coerce # pEieAddtional_}
+
-- | Properties of the object. Contains field \'type with type URL.
eieAddtional :: Lens' EnvironmentInternalExperiments (HashMap Text JSONValue)
@@ -4134,7 +4422,8 @@ instance ToJSON EnvironmentInternalExperiments where
-- | Taskrunner configuration settings.
--
-- /See:/ 'taskRunnerSettings' smart constructor.
-data TaskRunnerSettings = TaskRunnerSettings'
+data TaskRunnerSettings =
+ TaskRunnerSettings'
{ _trsContinueOnException :: !(Maybe Bool)
, _trsHarnessCommand :: !(Maybe Text)
, _trsWorkflowFileName :: !(Maybe Text)
@@ -4154,7 +4443,9 @@ data TaskRunnerSettings = TaskRunnerSettings'
, _trsLogToSerialconsole :: !(Maybe Bool)
, _trsParallelWorkerSettings :: !(Maybe WorkerSettings)
, _trsLanguageHint :: !(Maybe Text)
- } deriving (Eq,Show,Data,Typeable,Generic)
+ }
+ deriving (Eq, Show, Data, Typeable, Generic)
+
-- | Creates a value of 'TaskRunnerSettings' with the minimum fields required to make a request.
--
@@ -4200,7 +4491,7 @@ data TaskRunnerSettings = TaskRunnerSettings'
taskRunnerSettings
:: TaskRunnerSettings
taskRunnerSettings =
- TaskRunnerSettings'
+ TaskRunnerSettings'
{ _trsContinueOnException = Nothing
, _trsHarnessCommand = Nothing
, _trsWorkflowFileName = Nothing
@@ -4222,6 +4513,7 @@ taskRunnerSettings =
, _trsLanguageHint = Nothing
}
+
-- | Whether to continue taskrunner if an exception is hit.
trsContinueOnException :: Lens' TaskRunnerSettings (Maybe Bool)
trsContinueOnException
@@ -4403,12 +4695,16 @@ instance ToJSON TaskRunnerSettings where
-- | Configuration information for a single streaming computation.
--
-- /See:/ 'streamingComputationConfig' smart constructor.
-data StreamingComputationConfig = StreamingComputationConfig'
- { _sccInstructions :: !(Maybe [ParallelInstruction])
- , _sccSystemName :: !(Maybe Text)
- , _sccComputationId :: !(Maybe Text)
- , _sccStageName :: !(Maybe Text)
- } deriving (Eq,Show,Data,Typeable,Generic)
+data StreamingComputationConfig =
+ StreamingComputationConfig'
+ { _sccInstructions :: !(Maybe [ParallelInstruction])
+ , _sccSystemName :: !(Maybe Text)
+ , _sccComputationId :: !(Maybe Text)
+ , _sccTransformUserNameToStateFamily :: !(Maybe StreamingComputationConfigTransformUserNameToStateFamily)
+ , _sccStageName :: !(Maybe Text)
+ }
+ deriving (Eq, Show, Data, Typeable, Generic)
+
-- | Creates a value of 'StreamingComputationConfig' with the minimum fields required to make a request.
--
@@ -4420,17 +4716,21 @@ data StreamingComputationConfig = StreamingComputationConfig'
--
-- * 'sccComputationId'
--
+-- * 'sccTransformUserNameToStateFamily'
+--
-- * 'sccStageName'
streamingComputationConfig
:: StreamingComputationConfig
streamingComputationConfig =
- StreamingComputationConfig'
+ StreamingComputationConfig'
{ _sccInstructions = Nothing
, _sccSystemName = Nothing
, _sccComputationId = Nothing
+ , _sccTransformUserNameToStateFamily = Nothing
, _sccStageName = Nothing
}
+
-- | Instructions that comprise the computation.
sccInstructions :: Lens' StreamingComputationConfig [ParallelInstruction]
sccInstructions
@@ -4451,6 +4751,13 @@ sccComputationId
= lens _sccComputationId
(\ s a -> s{_sccComputationId = a})
+-- | Map from user name of stateful transforms in this stage to their state
+-- family.
+sccTransformUserNameToStateFamily :: Lens' StreamingComputationConfig (Maybe StreamingComputationConfigTransformUserNameToStateFamily)
+sccTransformUserNameToStateFamily
+ = lens _sccTransformUserNameToStateFamily
+ (\ s a -> s{_sccTransformUserNameToStateFamily = a})
+
-- | Stage name of this computation.
sccStageName :: Lens' StreamingComputationConfig (Maybe Text)
sccStageName
@@ -4464,6 +4771,7 @@ instance FromJSON StreamingComputationConfig where
(o .:? "instructions" .!= mempty) <*>
(o .:? "systemName")
<*> (o .:? "computationId")
+ <*> (o .:? "transformUserNameToStateFamily")
<*> (o .:? "stageName"))
instance ToJSON StreamingComputationConfig where
@@ -4473,6 +4781,8 @@ instance ToJSON StreamingComputationConfig where
[("instructions" .=) <$> _sccInstructions,
("systemName" .=) <$> _sccSystemName,
("computationId" .=) <$> _sccComputationId,
+ ("transformUserNameToStateFamily" .=) <$>
+ _sccTransformUserNameToStateFamily,
("stageName" .=) <$> _sccStageName])
-- | The Cloud Dataflow SDK pipeline options specified by the user. These
@@ -4481,9 +4791,12 @@ instance ToJSON StreamingComputationConfig where
-- independent way.
--
-- /See:/ 'environmentSdkPipelineOptions' smart constructor.
-newtype EnvironmentSdkPipelineOptions = EnvironmentSdkPipelineOptions'
+newtype EnvironmentSdkPipelineOptions =
+ EnvironmentSdkPipelineOptions'
{ _espoAddtional :: HashMap Text JSONValue
- } deriving (Eq,Show,Data,Typeable,Generic)
+ }
+ deriving (Eq, Show, Data, Typeable, Generic)
+
-- | Creates a value of 'EnvironmentSdkPipelineOptions' with the minimum fields required to make a request.
--
@@ -4494,9 +4807,8 @@ environmentSdkPipelineOptions
:: HashMap Text JSONValue -- ^ 'espoAddtional'
-> EnvironmentSdkPipelineOptions
environmentSdkPipelineOptions pEspoAddtional_ =
- EnvironmentSdkPipelineOptions'
- { _espoAddtional = _Coerce # pEspoAddtional_
- }
+ EnvironmentSdkPipelineOptions' {_espoAddtional = _Coerce # pEspoAddtional_}
+
-- | Properties of the object.
espoAddtional :: Lens' EnvironmentSdkPipelineOptions (HashMap Text JSONValue)
@@ -4518,10 +4830,13 @@ instance ToJSON EnvironmentSdkPipelineOptions where
-- | A representation of a floating point mean metric contribution.
--
-- /See:/ 'floatingPointMean' smart constructor.
-data FloatingPointMean = FloatingPointMean'
+data FloatingPointMean =
+ FloatingPointMean'
{ _fpmCount :: !(Maybe SplitInt64)
, _fpmSum :: !(Maybe (Textual Double))
- } deriving (Eq,Show,Data,Typeable,Generic)
+ }
+ deriving (Eq, Show, Data, Typeable, Generic)
+
-- | Creates a value of 'FloatingPointMean' with the minimum fields required to make a request.
--
@@ -4532,11 +4847,8 @@ data FloatingPointMean = FloatingPointMean'
-- * 'fpmSum'
floatingPointMean
:: FloatingPointMean
-floatingPointMean =
- FloatingPointMean'
- { _fpmCount = Nothing
- , _fpmSum = Nothing
- }
+floatingPointMean = FloatingPointMean' {_fpmCount = Nothing, _fpmSum = Nothing}
+
-- | The number of values being aggregated.
fpmCount :: Lens' FloatingPointMean (Maybe SplitInt64)
@@ -4564,11 +4876,14 @@ instance ToJSON FloatingPointMean where
-- | Modeled after information exposed by \/proc\/stat.
--
-- /See:/ 'cpuTime' smart constructor.
-data CPUTime = CPUTime'
+data CPUTime =
+ CPUTime'
{ _ctTotalMs :: !(Maybe (Textual Word64))
, _ctRate :: !(Maybe (Textual Double))
, _ctTimestamp :: !(Maybe DateTime')
- } deriving (Eq,Show,Data,Typeable,Generic)
+ }
+ deriving (Eq, Show, Data, Typeable, Generic)
+
-- | Creates a value of 'CPUTime' with the minimum fields required to make a request.
--
@@ -4582,11 +4897,8 @@ data CPUTime = CPUTime'
cpuTime
:: CPUTime
cpuTime =
- CPUTime'
- { _ctTotalMs = Nothing
- , _ctRate = Nothing
- , _ctTimestamp = Nothing
- }
+ CPUTime' {_ctTotalMs = Nothing, _ctRate = Nothing, _ctTimestamp = Nothing}
+
-- | Total active CPU time across all cores (ie., non-idle) in milliseconds
-- since start-up.
@@ -4627,14 +4939,18 @@ instance ToJSON CPUTime where
-- | Request to lease WorkItems.
--
-- /See:/ 'leaseWorkItemRequest' smart constructor.
-data LeaseWorkItemRequest = LeaseWorkItemRequest'
+data LeaseWorkItemRequest =
+ LeaseWorkItemRequest'
{ _lwirWorkItemTypes :: !(Maybe [Text])
, _lwirCurrentWorkerTime :: !(Maybe DateTime')
, _lwirLocation :: !(Maybe Text)
, _lwirWorkerCapabilities :: !(Maybe [Text])
+ , _lwirUnifiedWorkerRequest :: !(Maybe LeaseWorkItemRequestUnifiedWorkerRequest)
, _lwirRequestedLeaseDuration :: !(Maybe GDuration)
, _lwirWorkerId :: !(Maybe Text)
- } deriving (Eq,Show,Data,Typeable,Generic)
+ }
+ deriving (Eq, Show, Data, Typeable, Generic)
+
-- | Creates a value of 'LeaseWorkItemRequest' with the minimum fields required to make a request.
--
@@ -4648,21 +4964,25 @@ data LeaseWorkItemRequest = LeaseWorkItemRequest'
--
-- * 'lwirWorkerCapabilities'
--
+-- * 'lwirUnifiedWorkerRequest'
+--
-- * 'lwirRequestedLeaseDuration'
--
-- * 'lwirWorkerId'
leaseWorkItemRequest
:: LeaseWorkItemRequest
leaseWorkItemRequest =
- LeaseWorkItemRequest'
+ LeaseWorkItemRequest'
{ _lwirWorkItemTypes = Nothing
, _lwirCurrentWorkerTime = Nothing
, _lwirLocation = Nothing
, _lwirWorkerCapabilities = Nothing
+ , _lwirUnifiedWorkerRequest = Nothing
, _lwirRequestedLeaseDuration = Nothing
, _lwirWorkerId = Nothing
}
+
-- | Filter for WorkItem type.
lwirWorkItemTypes :: Lens' LeaseWorkItemRequest [Text]
lwirWorkItemTypes
@@ -4678,7 +4998,9 @@ lwirCurrentWorkerTime
(\ s a -> s{_lwirCurrentWorkerTime = a})
. mapping _DateTime
--- | The location which contains the WorkItem\'s job.
+-- | The [regional endpoint]
+-- (https:\/\/cloud.google.com\/dataflow\/docs\/concepts\/regional-endpoints)
+-- that contains the WorkItem\'s job.
lwirLocation :: Lens' LeaseWorkItemRequest (Maybe Text)
lwirLocation
= lens _lwirLocation (\ s a -> s{_lwirLocation = a})
@@ -4692,6 +5014,12 @@ lwirWorkerCapabilities
. _Default
. _Coerce
+-- | Untranslated bag-of-bytes WorkRequest from UnifiedWorker.
+lwirUnifiedWorkerRequest :: Lens' LeaseWorkItemRequest (Maybe LeaseWorkItemRequestUnifiedWorkerRequest)
+lwirUnifiedWorkerRequest
+ = lens _lwirUnifiedWorkerRequest
+ (\ s a -> s{_lwirUnifiedWorkerRequest = a})
+
-- | The initial lease period.
lwirRequestedLeaseDuration :: Lens' LeaseWorkItemRequest (Maybe Scientific)
lwirRequestedLeaseDuration
@@ -4714,6 +5042,7 @@ instance FromJSON LeaseWorkItemRequest where
(o .:? "currentWorkerTime")
<*> (o .:? "location")
<*> (o .:? "workerCapabilities" .!= mempty)
+ <*> (o .:? "unifiedWorkerRequest")
<*> (o .:? "requestedLeaseDuration")
<*> (o .:? "workerId"))
@@ -4726,6 +5055,8 @@ instance ToJSON LeaseWorkItemRequest where
("location" .=) <$> _lwirLocation,
("workerCapabilities" .=) <$>
_lwirWorkerCapabilities,
+ ("unifiedWorkerRequest" .=) <$>
+ _lwirUnifiedWorkerRequest,
("requestedLeaseDuration" .=) <$>
_lwirRequestedLeaseDuration,
("workerId" .=) <$> _lwirWorkerId])
@@ -4735,10 +5066,13 @@ instance ToJSON LeaseWorkItemRequest where
-- completed.
--
-- /See:/ 'sourceOperationResponse' smart constructor.
-data SourceOperationResponse = SourceOperationResponse'
+data SourceOperationResponse =
+ SourceOperationResponse'
{ _sorSplit :: !(Maybe SourceSplitResponse)
, _sorGetMetadata :: !(Maybe SourceGetMetadataResponse)
- } deriving (Eq,Show,Data,Typeable,Generic)
+ }
+ deriving (Eq, Show, Data, Typeable, Generic)
+
-- | Creates a value of 'SourceOperationResponse' with the minimum fields required to make a request.
--
@@ -4750,10 +5084,8 @@ data SourceOperationResponse = SourceOperationResponse'
sourceOperationResponse
:: SourceOperationResponse
sourceOperationResponse =
- SourceOperationResponse'
- { _sorSplit = Nothing
- , _sorGetMetadata = Nothing
- }
+ SourceOperationResponse' {_sorSplit = Nothing, _sorGetMetadata = Nothing}
+
-- | A response to a request to split a source.
sorSplit :: Lens' SourceOperationResponse (Maybe SourceSplitResponse)
@@ -4782,9 +5114,12 @@ instance ToJSON SourceOperationResponse where
-- | Maps user stage names to stable computation names.
--
-- /See:/ 'topologyConfigUserStageToComputationNameMap' smart constructor.
-newtype TopologyConfigUserStageToComputationNameMap = TopologyConfigUserStageToComputationNameMap'
+newtype TopologyConfigUserStageToComputationNameMap =
+ TopologyConfigUserStageToComputationNameMap'
{ _tcustcnmAddtional :: HashMap Text Text
- } deriving (Eq,Show,Data,Typeable,Generic)
+ }
+ deriving (Eq, Show, Data, Typeable, Generic)
+
-- | Creates a value of 'TopologyConfigUserStageToComputationNameMap' with the minimum fields required to make a request.
--
@@ -4795,9 +5130,9 @@ topologyConfigUserStageToComputationNameMap
:: HashMap Text Text -- ^ 'tcustcnmAddtional'
-> TopologyConfigUserStageToComputationNameMap
topologyConfigUserStageToComputationNameMap pTcustcnmAddtional_ =
- TopologyConfigUserStageToComputationNameMap'
- { _tcustcnmAddtional = _Coerce # pTcustcnmAddtional_
- }
+ TopologyConfigUserStageToComputationNameMap'
+ {_tcustcnmAddtional = _Coerce # pTcustcnmAddtional_}
+
tcustcnmAddtional :: Lens' TopologyConfigUserStageToComputationNameMap (HashMap Text Text)
tcustcnmAddtional
@@ -4806,7 +5141,8 @@ tcustcnmAddtional
. _Coerce
instance FromJSON
- TopologyConfigUserStageToComputationNameMap where
+ TopologyConfigUserStageToComputationNameMap
+ where
parseJSON
= withObject
"TopologyConfigUserStageToComputationNameMap"
@@ -4815,16 +5151,20 @@ instance FromJSON
(parseJSONObject o))
instance ToJSON
- TopologyConfigUserStageToComputationNameMap where
+ TopologyConfigUserStageToComputationNameMap
+ where
toJSON = toJSON . _tcustcnmAddtional
-- | A task which consists of a shell command for the worker to execute.
--
-- /See:/ 'shellTask' smart constructor.
-data ShellTask = ShellTask'
+data ShellTask =
+ ShellTask'
{ _stCommand :: !(Maybe Text)
, _stExitCode :: !(Maybe (Textual Int32))
- } deriving (Eq,Show,Data,Typeable,Generic)
+ }
+ deriving (Eq, Show, Data, Typeable, Generic)
+
-- | Creates a value of 'ShellTask' with the minimum fields required to make a request.
--
@@ -4835,11 +5175,8 @@ data ShellTask = ShellTask'
-- * 'stExitCode'
shellTask
:: ShellTask
-shellTask =
- ShellTask'
- { _stCommand = Nothing
- , _stExitCode = Nothing
- }
+shellTask = ShellTask' {_stCommand = Nothing, _stExitCode = Nothing}
+
-- | The shell command to run.
stCommand :: Lens' ShellTask (Maybe Text)
@@ -4869,10 +5206,13 @@ instance ToJSON ShellTask where
-- | Metadata for a Datastore connector used by the job.
--
-- /See:/ 'datastoreIODetails' smart constructor.
-data DatastoreIODetails = DatastoreIODetails'
+data DatastoreIODetails =
+ DatastoreIODetails'
{ _diodNamespace :: !(Maybe Text)
, _diodProjectId :: !(Maybe Text)
- } deriving (Eq,Show,Data,Typeable,Generic)
+ }
+ deriving (Eq, Show, Data, Typeable, Generic)
+
-- | Creates a value of 'DatastoreIODetails' with the minimum fields required to make a request.
--
@@ -4884,10 +5224,8 @@ data DatastoreIODetails = DatastoreIODetails'
datastoreIODetails
:: DatastoreIODetails
datastoreIODetails =
- DatastoreIODetails'
- { _diodNamespace = Nothing
- , _diodProjectId = Nothing
- }
+ DatastoreIODetails' {_diodNamespace = Nothing, _diodProjectId = Nothing}
+
-- | Namespace used in the connection.
diodNamespace :: Lens' DatastoreIODetails (Maybe Text)
@@ -4917,9 +5255,12 @@ instance ToJSON DatastoreIODetails where
--
-- /See:/ 'statusDetailsItem' smart constructor.
-newtype StatusDetailsItem = StatusDetailsItem'
+newtype StatusDetailsItem =
+ StatusDetailsItem'
{ _sdiAddtional :: HashMap Text JSONValue
- } deriving (Eq,Show,Data,Typeable,Generic)
+ }
+ deriving (Eq, Show, Data, Typeable, Generic)
+
-- | Creates a value of 'StatusDetailsItem' with the minimum fields required to make a request.
--
@@ -4930,9 +5271,8 @@ statusDetailsItem
:: HashMap Text JSONValue -- ^ 'sdiAddtional'
-> StatusDetailsItem
statusDetailsItem pSdiAddtional_ =
- StatusDetailsItem'
- { _sdiAddtional = _Coerce # pSdiAddtional_
- }
+ StatusDetailsItem' {_sdiAddtional = _Coerce # pSdiAddtional_}
+
-- | Properties of the object. Contains field \'type with type URL.
sdiAddtional :: Lens' StatusDetailsItem (HashMap Text JSONValue)
@@ -4952,10 +5292,13 @@ instance ToJSON StatusDetailsItem where
-- the worker.
--
-- /See:/ 'reportedParallelism' smart constructor.
-data ReportedParallelism = ReportedParallelism'
+data ReportedParallelism =
+ ReportedParallelism'
{ _rpValue :: !(Maybe (Textual Double))
, _rpIsInfinite :: !(Maybe Bool)
- } deriving (Eq,Show,Data,Typeable,Generic)
+ }
+ deriving (Eq, Show, Data, Typeable, Generic)
+
-- | Creates a value of 'ReportedParallelism' with the minimum fields required to make a request.
--
@@ -4967,10 +5310,8 @@ data ReportedParallelism = ReportedParallelism'
reportedParallelism
:: ReportedParallelism
reportedParallelism =
- ReportedParallelism'
- { _rpValue = Nothing
- , _rpIsInfinite = Nothing
- }
+ ReportedParallelism' {_rpValue = Nothing, _rpIsInfinite = Nothing}
+
-- | Specifies the level of parallelism in case it is finite.
rpValue :: Lens' ReportedParallelism (Maybe Double)
@@ -5006,9 +5347,12 @@ instance ToJSON ReportedParallelism where
-- retrieved with JOB_VIEW_ALL.
--
-- /See:/ 'stepProperties' smart constructor.
-newtype StepProperties = StepProperties'
+newtype StepProperties =
+ StepProperties'
{ _spAddtional :: HashMap Text JSONValue
- } deriving (Eq,Show,Data,Typeable,Generic)
+ }
+ deriving (Eq, Show, Data, Typeable, Generic)
+
-- | Creates a value of 'StepProperties' with the minimum fields required to make a request.
--
@@ -5019,9 +5363,8 @@ stepProperties
:: HashMap Text JSONValue -- ^ 'spAddtional'
-> StepProperties
stepProperties pSpAddtional_ =
- StepProperties'
- { _spAddtional = _Coerce # pSpAddtional_
- }
+ StepProperties' {_spAddtional = _Coerce # pSpAddtional_}
+
-- | Properties of the object.
spAddtional :: Lens' StepProperties (HashMap Text JSONValue)
@@ -5041,13 +5384,16 @@ instance ToJSON StepProperties where
-- computations and their sharded locations.
--
-- /See:/ 'topologyConfig' smart constructor.
-data TopologyConfig = TopologyConfig'
+data TopologyConfig =
+ TopologyConfig'
{ _tcDataDiskAssignments :: !(Maybe [DataDiskAssignment])
, _tcPersistentStateVersion :: !(Maybe (Textual Int32))
, _tcForwardingKeyBits :: !(Maybe (Textual Int32))
, _tcUserStageToComputationNameMap :: !(Maybe TopologyConfigUserStageToComputationNameMap)
, _tcComputations :: !(Maybe [ComputationTopology])
- } deriving (Eq,Show,Data,Typeable,Generic)
+ }
+ deriving (Eq, Show, Data, Typeable, Generic)
+
-- | Creates a value of 'TopologyConfig' with the minimum fields required to make a request.
--
@@ -5065,7 +5411,7 @@ data TopologyConfig = TopologyConfig'
topologyConfig
:: TopologyConfig
topologyConfig =
- TopologyConfig'
+ TopologyConfig'
{ _tcDataDiskAssignments = Nothing
, _tcPersistentStateVersion = Nothing
, _tcForwardingKeyBits = Nothing
@@ -5073,6 +5419,7 @@ topologyConfig =
, _tcComputations = Nothing
}
+
-- | The disks assigned to a streaming Dataflow job.
tcDataDiskAssignments :: Lens' TopologyConfig [DataDiskAssignment]
tcDataDiskAssignments
@@ -5137,11 +5484,14 @@ instance ToJSON TopologyConfig where
-- WorkItem.
--
-- /See:/ 'approximateSplitRequest' smart constructor.
-data ApproximateSplitRequest = ApproximateSplitRequest'
+data ApproximateSplitRequest =
+ ApproximateSplitRequest'
{ _asrFractionConsumed :: !(Maybe (Textual Double))
, _asrFractionOfRemainder :: !(Maybe (Textual Double))
, _asrPosition :: !(Maybe Position)
- } deriving (Eq,Show,Data,Typeable,Generic)
+ }
+ deriving (Eq, Show, Data, Typeable, Generic)
+
-- | Creates a value of 'ApproximateSplitRequest' with the minimum fields required to make a request.
--
@@ -5155,12 +5505,13 @@ data ApproximateSplitRequest = ApproximateSplitRequest'
approximateSplitRequest
:: ApproximateSplitRequest
approximateSplitRequest =
- ApproximateSplitRequest'
+ ApproximateSplitRequest'
{ _asrFractionConsumed = Nothing
, _asrFractionOfRemainder = Nothing
, _asrPosition = Nothing
}
+
-- | A fraction at which to split the work item, from 0.0 (beginning of the
-- input) to 1.0 (end of the input).
asrFractionConsumed :: Lens' ApproximateSplitRequest (Maybe Double)
@@ -5204,10 +5555,13 @@ instance ToJSON ApproximateSplitRequest where
-- encoded in JSON.
--
-- /See:/ 'splitInt64' smart constructor.
-data SplitInt64 = SplitInt64'
+data SplitInt64 =
+ SplitInt64'
{ _siHighBits :: !(Maybe (Textual Int32))
, _siLowBits :: !(Maybe (Textual Word32))
- } deriving (Eq,Show,Data,Typeable,Generic)
+ }
+ deriving (Eq, Show, Data, Typeable, Generic)
+
-- | Creates a value of 'SplitInt64' with the minimum fields required to make a request.
--
@@ -5218,11 +5572,8 @@ data SplitInt64 = SplitInt64'
-- * 'siLowBits'
splitInt64
:: SplitInt64
-splitInt64 =
- SplitInt64'
- { _siHighBits = Nothing
- , _siLowBits = Nothing
- }
+splitInt64 = SplitInt64' {_siHighBits = Nothing, _siLowBits = Nothing}
+
-- | The high order bits, including the sign: n >> 32.
siHighBits :: Lens' SplitInt64 (Maybe Int32)
@@ -5253,14 +5604,17 @@ instance ToJSON SplitInt64 where
-- | Provides data to pass through to the worker harness.
--
-- /See:/ 'workerSettings' smart constructor.
-data WorkerSettings = WorkerSettings'
+data WorkerSettings =
+ WorkerSettings'
{ _wsServicePath :: !(Maybe Text)
, _wsBaseURL :: !(Maybe Text)
, _wsShuffleServicePath :: !(Maybe Text)
, _wsTempStoragePrefix :: !(Maybe Text)
, _wsReportingEnabled :: !(Maybe Bool)
, _wsWorkerId :: !(Maybe Text)
- } deriving (Eq,Show,Data,Typeable,Generic)
+ }
+ deriving (Eq, Show, Data, Typeable, Generic)
+
-- | Creates a value of 'WorkerSettings' with the minimum fields required to make a request.
--
@@ -5280,7 +5634,7 @@ data WorkerSettings = WorkerSettings'
workerSettings
:: WorkerSettings
workerSettings =
- WorkerSettings'
+ WorkerSettings'
{ _wsServicePath = Nothing
, _wsBaseURL = Nothing
, _wsShuffleServicePath = Nothing
@@ -5289,6 +5643,7 @@ workerSettings =
, _wsWorkerId = Nothing
}
+
-- | The Cloud Dataflow service path relative to the root URL, for example,
-- \"dataflow\/v1b3\/projects\".
wsServicePath :: Lens' WorkerSettings (Maybe Text)
@@ -5358,9 +5713,12 @@ instance ToJSON WorkerSettings where
-- | Response to a get debug configuration request.
--
-- /See:/ 'getDebugConfigResponse' smart constructor.
-newtype GetDebugConfigResponse = GetDebugConfigResponse'
+newtype GetDebugConfigResponse =
+ GetDebugConfigResponse'
{ _gdcrConfig :: Maybe Text
- } deriving (Eq,Show,Data,Typeable,Generic)
+ }
+ deriving (Eq, Show, Data, Typeable, Generic)
+
-- | Creates a value of 'GetDebugConfigResponse' with the minimum fields required to make a request.
--
@@ -5369,10 +5727,8 @@ newtype GetDebugConfigResponse = GetDebugConfigResponse'
-- * 'gdcrConfig'
getDebugConfigResponse
:: GetDebugConfigResponse
-getDebugConfigResponse =
- GetDebugConfigResponse'
- { _gdcrConfig = Nothing
- }
+getDebugConfigResponse = GetDebugConfigResponse' {_gdcrConfig = Nothing}
+
-- | The encoded debug configuration for the requested component.
gdcrConfig :: Lens' GetDebugConfigResponse (Maybe Text)
@@ -5388,14 +5744,17 @@ instance ToJSON GetDebugConfigResponse where
toJSON GetDebugConfigResponse'{..}
= object (catMaybes [("config" .=) <$> _gdcrConfig])
--- | The version of the SDK used to run the jobl
+-- | The version of the SDK used to run the job.
--
-- /See:/ 'sdkVersion' smart constructor.
-data SdkVersion = SdkVersion'
+data SdkVersion =
+ SdkVersion'
{ _svSdkSupportStatus :: !(Maybe SdkVersionSdkSupportStatus)
, _svVersionDisplayName :: !(Maybe Text)
, _svVersion :: !(Maybe Text)
- } deriving (Eq,Show,Data,Typeable,Generic)
+ }
+ deriving (Eq, Show, Data, Typeable, Generic)
+
-- | Creates a value of 'SdkVersion' with the minimum fields required to make a request.
--
@@ -5409,19 +5768,20 @@ data SdkVersion = SdkVersion'
sdkVersion
:: SdkVersion
sdkVersion =
- SdkVersion'
+ SdkVersion'
{ _svSdkSupportStatus = Nothing
, _svVersionDisplayName = Nothing
, _svVersion = Nothing
}
+
-- | The support status for this SDK version.
svSdkSupportStatus :: Lens' SdkVersion (Maybe SdkVersionSdkSupportStatus)
svSdkSupportStatus
= lens _svSdkSupportStatus
(\ s a -> s{_svSdkSupportStatus = a})
--- | A readable string describing the version of the sdk.
+-- | A readable string describing the version of the SDK.
svVersionDisplayName :: Lens' SdkVersion (Maybe Text)
svVersionDisplayName
= lens _svVersionDisplayName
@@ -5453,9 +5813,12 @@ instance ToJSON SdkVersion where
-- harness.
--
-- /See:/ 'workItemServiceStateHarnessData' smart constructor.
-newtype WorkItemServiceStateHarnessData = WorkItemServiceStateHarnessData'
+newtype WorkItemServiceStateHarnessData =
+ WorkItemServiceStateHarnessData'
{ _wisshdAddtional :: HashMap Text JSONValue
- } deriving (Eq,Show,Data,Typeable,Generic)
+ }
+ deriving (Eq, Show, Data, Typeable, Generic)
+
-- | Creates a value of 'WorkItemServiceStateHarnessData' with the minimum fields required to make a request.
--
@@ -5466,9 +5829,9 @@ workItemServiceStateHarnessData
:: HashMap Text JSONValue -- ^ 'wisshdAddtional'
-> WorkItemServiceStateHarnessData
workItemServiceStateHarnessData pWisshdAddtional_ =
- WorkItemServiceStateHarnessData'
- { _wisshdAddtional = _Coerce # pWisshdAddtional_
- }
+ WorkItemServiceStateHarnessData'
+ {_wisshdAddtional = _Coerce # pWisshdAddtional_}
+
-- | Properties of the object.
wisshdAddtional :: Lens' WorkItemServiceStateHarnessData (HashMap Text JSONValue)
@@ -5488,13 +5851,39 @@ instance FromJSON WorkItemServiceStateHarnessData
instance ToJSON WorkItemServiceStateHarnessData where
toJSON = toJSON . _wisshdAddtional
+-- | Response from deleting a snapshot.
+--
+-- /See:/ 'deleteSnapshotResponse' smart constructor.
+data DeleteSnapshotResponse =
+ DeleteSnapshotResponse'
+ deriving (Eq, Show, Data, Typeable, Generic)
+
+
+-- | Creates a value of 'DeleteSnapshotResponse' with the minimum fields required to make a request.
+--
+deleteSnapshotResponse
+ :: DeleteSnapshotResponse
+deleteSnapshotResponse = DeleteSnapshotResponse'
+
+
+instance FromJSON DeleteSnapshotResponse where
+ parseJSON
+ = withObject "DeleteSnapshotResponse"
+ (\ o -> pure DeleteSnapshotResponse')
+
+instance ToJSON DeleteSnapshotResponse where
+ toJSON = const emptyObject
+
-- | Data disk assignment for a given VM instance.
--
-- /See:/ 'dataDiskAssignment' smart constructor.
-data DataDiskAssignment = DataDiskAssignment'
+data DataDiskAssignment =
+ DataDiskAssignment'
{ _ddaVMInstance :: !(Maybe Text)
, _ddaDataDisks :: !(Maybe [Text])
- } deriving (Eq,Show,Data,Typeable,Generic)
+ }
+ deriving (Eq, Show, Data, Typeable, Generic)
+
-- | Creates a value of 'DataDiskAssignment' with the minimum fields required to make a request.
--
@@ -5506,10 +5895,8 @@ data DataDiskAssignment = DataDiskAssignment'
dataDiskAssignment
:: DataDiskAssignment
dataDiskAssignment =
- DataDiskAssignment'
- { _ddaVMInstance = Nothing
- , _ddaDataDisks = Nothing
- }
+ DataDiskAssignment' {_ddaVMInstance = Nothing, _ddaDataDisks = Nothing}
+
-- | VM instance name the data disks mounted to, for example
-- \"myproject-1014-104817-4c2-harness-0\".
@@ -5548,9 +5935,12 @@ instance ToJSON DataDiskAssignment where
-- go\/df-resource-signals.
--
-- /See:/ 'resourceUtilizationReport' smart constructor.
-newtype ResourceUtilizationReport = ResourceUtilizationReport'
+newtype ResourceUtilizationReport =
+ ResourceUtilizationReport'
{ _rurCPUTime :: Maybe [CPUTime]
- } deriving (Eq,Show,Data,Typeable,Generic)
+ }
+ deriving (Eq, Show, Data, Typeable, Generic)
+
-- | Creates a value of 'ResourceUtilizationReport' with the minimum fields required to make a request.
--
@@ -5559,10 +5949,8 @@ newtype ResourceUtilizationReport = ResourceUtilizationReport'
-- * 'rurCPUTime'
resourceUtilizationReport
:: ResourceUtilizationReport
-resourceUtilizationReport =
- ResourceUtilizationReport'
- { _rurCPUTime = Nothing
- }
+resourceUtilizationReport = ResourceUtilizationReport' {_rurCPUTime = Nothing}
+
-- | CPU utilization samples.
rurCPUTime :: Lens' ResourceUtilizationReport [CPUTime]
@@ -5582,12 +5970,17 @@ instance ToJSON ResourceUtilizationReport where
toJSON ResourceUtilizationReport'{..}
= object (catMaybes [("cpuTime" .=) <$> _rurCPUTime])
--- | Indicates which location failed to respond to a request for data.
+-- | Indicates which [regional endpoint]
+-- (https:\/\/cloud.google.com\/dataflow\/docs\/concepts\/regional-endpoints)
+-- failed to respond to a request for data.
--
-- /See:/ 'failedLocation' smart constructor.
-newtype FailedLocation = FailedLocation'
+newtype FailedLocation =
+ FailedLocation'
{ _flName :: Maybe Text
- } deriving (Eq,Show,Data,Typeable,Generic)
+ }
+ deriving (Eq, Show, Data, Typeable, Generic)
+
-- | Creates a value of 'FailedLocation' with the minimum fields required to make a request.
--
@@ -5596,12 +5989,12 @@ newtype FailedLocation = FailedLocation'
-- * 'flName'
failedLocation
:: FailedLocation
-failedLocation =
- FailedLocation'
- { _flName = Nothing
- }
+failedLocation = FailedLocation' {_flName = Nothing}
+
--- | The name of the failed location.
+-- | The name of the [regional endpoint]
+-- (https:\/\/cloud.google.com\/dataflow\/docs\/concepts\/regional-endpoints)
+-- that failed to respond.
flName :: Lens' FailedLocation (Maybe Text)
flName = lens _flName (\ s a -> s{_flName = a})
@@ -5614,15 +6007,57 @@ instance ToJSON FailedLocation where
toJSON FailedLocation'{..}
= object (catMaybes [("name" .=) <$> _flName])
+-- | List of snapshots.
+--
+-- /See:/ 'listSnapshotsResponse' smart constructor.
+newtype ListSnapshotsResponse =
+ ListSnapshotsResponse'
+ { _lsrSnapshots :: Maybe [Snapshot]
+ }
+ deriving (Eq, Show, Data, Typeable, Generic)
+
+
+-- | Creates a value of 'ListSnapshotsResponse' with the minimum fields required to make a request.
+--
+-- Use one of the following lenses to modify other fields as desired:
+--
+-- * 'lsrSnapshots'
+listSnapshotsResponse
+ :: ListSnapshotsResponse
+listSnapshotsResponse = ListSnapshotsResponse' {_lsrSnapshots = Nothing}
+
+
+-- | Returned snapshots.
+lsrSnapshots :: Lens' ListSnapshotsResponse [Snapshot]
+lsrSnapshots
+ = lens _lsrSnapshots (\ s a -> s{_lsrSnapshots = a})
+ . _Default
+ . _Coerce
+
+instance FromJSON ListSnapshotsResponse where
+ parseJSON
+ = withObject "ListSnapshotsResponse"
+ (\ o ->
+ ListSnapshotsResponse' <$>
+ (o .:? "snapshots" .!= mempty))
+
+instance ToJSON ListSnapshotsResponse where
+ toJSON ListSnapshotsResponse'{..}
+ = object
+ (catMaybes [("snapshots" .=) <$> _lsrSnapshots])
+
-- | A worker_message response allows the server to pass information to the
-- sender.
--
-- /See:/ 'workerMessageResponse' smart constructor.
-data WorkerMessageResponse = WorkerMessageResponse'
+data WorkerMessageResponse =
+ WorkerMessageResponse'
{ _wmrWorkerHealthReportResponse :: !(Maybe WorkerHealthReportResponse)
, _wmrWorkerMetricsResponse :: !(Maybe ResourceUtilizationReportResponse)
, _wmrWorkerShutdownNoticeResponse :: !(Maybe WorkerShutdownNoticeResponse)
- } deriving (Eq,Show,Data,Typeable,Generic)
+ }
+ deriving (Eq, Show, Data, Typeable, Generic)
+
-- | Creates a value of 'WorkerMessageResponse' with the minimum fields required to make a request.
--
@@ -5636,12 +6071,13 @@ data WorkerMessageResponse = WorkerMessageResponse'
workerMessageResponse
:: WorkerMessageResponse
workerMessageResponse =
- WorkerMessageResponse'
+ WorkerMessageResponse'
{ _wmrWorkerHealthReportResponse = Nothing
, _wmrWorkerMetricsResponse = Nothing
, _wmrWorkerShutdownNoticeResponse = Nothing
}
+
-- | The service\'s response to a worker\'s health report.
wmrWorkerHealthReportResponse :: Lens' WorkerMessageResponse (Maybe WorkerHealthReportResponse)
wmrWorkerHealthReportResponse
@@ -5683,9 +6119,12 @@ instance ToJSON WorkerMessageResponse where
-- | The runtime parameters to pass to the job.
--
-- /See:/ 'createJobFromTemplateRequestParameters' smart constructor.
-newtype CreateJobFromTemplateRequestParameters = CreateJobFromTemplateRequestParameters'
+newtype CreateJobFromTemplateRequestParameters =
+ CreateJobFromTemplateRequestParameters'
{ _cjftrpAddtional :: HashMap Text Text
- } deriving (Eq,Show,Data,Typeable,Generic)
+ }
+ deriving (Eq, Show, Data, Typeable, Generic)
+
-- | Creates a value of 'CreateJobFromTemplateRequestParameters' with the minimum fields required to make a request.
--
@@ -5696,9 +6135,9 @@ createJobFromTemplateRequestParameters
:: HashMap Text Text -- ^ 'cjftrpAddtional'
-> CreateJobFromTemplateRequestParameters
createJobFromTemplateRequestParameters pCjftrpAddtional_ =
- CreateJobFromTemplateRequestParameters'
- { _cjftrpAddtional = _Coerce # pCjftrpAddtional_
- }
+ CreateJobFromTemplateRequestParameters'
+ {_cjftrpAddtional = _Coerce # pCjftrpAddtional_}
+
cjftrpAddtional :: Lens' CreateJobFromTemplateRequestParameters (HashMap Text Text)
cjftrpAddtional
@@ -5707,7 +6146,8 @@ cjftrpAddtional
. _Coerce
instance FromJSON
- CreateJobFromTemplateRequestParameters where
+ CreateJobFromTemplateRequestParameters
+ where
parseJSON
= withObject "CreateJobFromTemplateRequestParameters"
(\ o ->
@@ -5715,17 +6155,21 @@ instance FromJSON
(parseJSONObject o))
instance ToJSON
- CreateJobFromTemplateRequestParameters where
+ CreateJobFromTemplateRequestParameters
+ where
toJSON = toJSON . _cjftrpAddtional
-- | Metadata for a BigTable connector used by the job.
--
-- /See:/ 'bigTableIODetails' smart constructor.
-data BigTableIODetails = BigTableIODetails'
+data BigTableIODetails =
+ BigTableIODetails'
{ _btiodInstanceId :: !(Maybe Text)
, _btiodProjectId :: !(Maybe Text)
, _btiodTableId :: !(Maybe Text)
- } deriving (Eq,Show,Data,Typeable,Generic)
+ }
+ deriving (Eq, Show, Data, Typeable, Generic)
+
-- | Creates a value of 'BigTableIODetails' with the minimum fields required to make a request.
--
@@ -5739,12 +6183,13 @@ data BigTableIODetails = BigTableIODetails'
bigTableIODetails
:: BigTableIODetails
bigTableIODetails =
- BigTableIODetails'
+ BigTableIODetails'
{ _btiodInstanceId = Nothing
, _btiodProjectId = Nothing
, _btiodTableId = Nothing
}
+
-- | InstanceId accessed in the connection.
btiodInstanceId :: Lens' BigTableIODetails (Maybe Text)
btiodInstanceId
@@ -5782,7 +6227,8 @@ instance ToJSON BigTableIODetails where
-- processed by a worker.
--
-- /See:/ 'workItemServiceState' smart constructor.
-data WorkItemServiceState = WorkItemServiceState'
+data WorkItemServiceState =
+ WorkItemServiceState'
{ _wissNextReportIndex :: !(Maybe (Textual Int64))
, _wissReportStatusInterval :: !(Maybe GDuration)
, _wissHarnessData :: !(Maybe WorkItemServiceStateHarnessData)
@@ -5791,7 +6237,9 @@ data WorkItemServiceState = WorkItemServiceState'
, _wissLeaseExpireTime :: !(Maybe DateTime')
, _wissSplitRequest :: !(Maybe ApproximateSplitRequest)
, _wissMetricShortId :: !(Maybe [MetricShortId])
- } deriving (Eq,Show,Data,Typeable,Generic)
+ }
+ deriving (Eq, Show, Data, Typeable, Generic)
+
-- | Creates a value of 'WorkItemServiceState' with the minimum fields required to make a request.
--
@@ -5815,7 +6263,7 @@ data WorkItemServiceState = WorkItemServiceState'
workItemServiceState
:: WorkItemServiceState
workItemServiceState =
- WorkItemServiceState'
+ WorkItemServiceState'
{ _wissNextReportIndex = Nothing
, _wissReportStatusInterval = Nothing
, _wissHarnessData = Nothing
@@ -5826,6 +6274,7 @@ workItemServiceState =
, _wissMetricShortId = Nothing
}
+
-- | The index value to use for the next report sent by the worker. Note: If
-- the report call fails for whatever reason, the worker should reuse this
-- index for subsequent report attempts.
@@ -5920,9 +6369,12 @@ instance ToJSON WorkItemServiceState where
-- | Response to the request to launch a template.
--
-- /See:/ 'launchTemplateResponse' smart constructor.
-newtype LaunchTemplateResponse = LaunchTemplateResponse'
+newtype LaunchTemplateResponse =
+ LaunchTemplateResponse'
{ _ltrJob :: Maybe Job
- } deriving (Eq,Show,Data,Typeable,Generic)
+ }
+ deriving (Eq, Show, Data, Typeable, Generic)
+
-- | Creates a value of 'LaunchTemplateResponse' with the minimum fields required to make a request.
--
@@ -5931,10 +6383,8 @@ newtype LaunchTemplateResponse = LaunchTemplateResponse'
-- * 'ltrJob'
launchTemplateResponse
:: LaunchTemplateResponse
-launchTemplateResponse =
- LaunchTemplateResponse'
- { _ltrJob = Nothing
- }
+launchTemplateResponse = LaunchTemplateResponse' {_ltrJob = Nothing}
+
-- | The job that was launched, if the request was not a dry run and the job
-- was successfully launched.
@@ -5953,13 +6403,16 @@ instance ToJSON LaunchTemplateResponse where
-- | A task which initializes part of a streaming Dataflow job.
--
-- /See:/ 'streamingSetupTask' smart constructor.
-data StreamingSetupTask = StreamingSetupTask'
+data StreamingSetupTask =
+ StreamingSetupTask'
{ _sstStreamingComputationTopology :: !(Maybe TopologyConfig)
, _sstReceiveWorkPort :: !(Maybe (Textual Int32))
, _sstWorkerHarnessPort :: !(Maybe (Textual Int32))
, _sstDrain :: !(Maybe Bool)
, _sstSnapshotConfig :: !(Maybe StreamingApplianceSnapshotConfig)
- } deriving (Eq,Show,Data,Typeable,Generic)
+ }
+ deriving (Eq, Show, Data, Typeable, Generic)
+
-- | Creates a value of 'StreamingSetupTask' with the minimum fields required to make a request.
--
@@ -5977,7 +6430,7 @@ data StreamingSetupTask = StreamingSetupTask'
streamingSetupTask
:: StreamingSetupTask
streamingSetupTask =
- StreamingSetupTask'
+ StreamingSetupTask'
{ _sstStreamingComputationTopology = Nothing
, _sstReceiveWorkPort = Nothing
, _sstWorkerHarnessPort = Nothing
@@ -5985,6 +6438,7 @@ streamingSetupTask =
, _sstSnapshotConfig = Nothing
}
+
-- | The global topology of the streaming Dataflow job.
sstStreamingComputationTopology :: Lens' StreamingSetupTask (Maybe TopologyConfig)
sstStreamingComputationTopology
@@ -6042,9 +6496,12 @@ instance ToJSON StreamingSetupTask where
-- | The codec to use for interpreting an element in the input PTable.
--
-- /See:/ 'partialGroupByKeyInstructionInputElementCodec' smart constructor.
-newtype PartialGroupByKeyInstructionInputElementCodec = PartialGroupByKeyInstructionInputElementCodec'
+newtype PartialGroupByKeyInstructionInputElementCodec =
+ PartialGroupByKeyInstructionInputElementCodec'
{ _pgbkiiecAddtional :: HashMap Text JSONValue
- } deriving (Eq,Show,Data,Typeable,Generic)
+ }
+ deriving (Eq, Show, Data, Typeable, Generic)
+
-- | Creates a value of 'PartialGroupByKeyInstructionInputElementCodec' with the minimum fields required to make a request.
--
@@ -6055,9 +6512,9 @@ partialGroupByKeyInstructionInputElementCodec
:: HashMap Text JSONValue -- ^ 'pgbkiiecAddtional'
-> PartialGroupByKeyInstructionInputElementCodec
partialGroupByKeyInstructionInputElementCodec pPgbkiiecAddtional_ =
- PartialGroupByKeyInstructionInputElementCodec'
- { _pgbkiiecAddtional = _Coerce # pPgbkiiecAddtional_
- }
+ PartialGroupByKeyInstructionInputElementCodec'
+ {_pgbkiiecAddtional = _Coerce # pPgbkiiecAddtional_}
+
-- | Properties of the object.
pgbkiiecAddtional :: Lens' PartialGroupByKeyInstructionInputElementCodec (HashMap Text JSONValue)
@@ -6067,7 +6524,8 @@ pgbkiiecAddtional
. _Coerce
instance FromJSON
- PartialGroupByKeyInstructionInputElementCodec where
+ PartialGroupByKeyInstructionInputElementCodec
+ where
parseJSON
= withObject
"PartialGroupByKeyInstructionInputElementCodec"
@@ -6076,7 +6534,8 @@ instance FromJSON
(parseJSONObject o))
instance ToJSON
- PartialGroupByKeyInstructionInputElementCodec where
+ PartialGroupByKeyInstructionInputElementCodec
+ where
toJSON = toJSON . _pgbkiiecAddtional
-- | MapTask consists of an ordered set of instructions, each of which
@@ -6085,12 +6544,15 @@ instance ToJSON
-- appear in the list before any instructions which depends on its output.
--
-- /See:/ 'mapTask' smart constructor.
-data MapTask = MapTask'
+data MapTask =
+ MapTask'
{ _mtInstructions :: !(Maybe [ParallelInstruction])
, _mtCounterPrefix :: !(Maybe Text)
, _mtSystemName :: !(Maybe Text)
, _mtStageName :: !(Maybe Text)
- } deriving (Eq,Show,Data,Typeable,Generic)
+ }
+ deriving (Eq, Show, Data, Typeable, Generic)
+
-- | Creates a value of 'MapTask' with the minimum fields required to make a request.
--
@@ -6106,13 +6568,14 @@ data MapTask = MapTask'
mapTask
:: MapTask
mapTask =
- MapTask'
+ MapTask'
{ _mtInstructions = Nothing
, _mtCounterPrefix = Nothing
, _mtSystemName = Nothing
, _mtStageName = Nothing
}
+
-- | The instructions in the MapTask.
mtInstructions :: Lens' MapTask [ParallelInstruction]
mtInstructions
@@ -6161,9 +6624,12 @@ instance ToJSON MapTask where
-- | Describes mounted data disk.
--
-- /See:/ 'mountedDataDisk' smart constructor.
-newtype MountedDataDisk = MountedDataDisk'
+newtype MountedDataDisk =
+ MountedDataDisk'
{ _mddDataDisk :: Maybe Text
- } deriving (Eq,Show,Data,Typeable,Generic)
+ }
+ deriving (Eq, Show, Data, Typeable, Generic)
+
-- | Creates a value of 'MountedDataDisk' with the minimum fields required to make a request.
--
@@ -6172,10 +6638,8 @@ newtype MountedDataDisk = MountedDataDisk'
-- * 'mddDataDisk'
mountedDataDisk
:: MountedDataDisk
-mountedDataDisk =
- MountedDataDisk'
- { _mddDataDisk = Nothing
- }
+mountedDataDisk = MountedDataDisk' {_mddDataDisk = Nothing}
+
-- | The name of the data disk. This name is local to the Google Cloud
-- Platform project and uniquely identifies the disk within that project,
@@ -6197,9 +6661,12 @@ instance ToJSON MountedDataDisk where
-- | The codec to use to encode data written to the sink.
--
-- /See:/ 'sinkCodec' smart constructor.
-newtype SinkCodec = SinkCodec'
+newtype SinkCodec =
+ SinkCodec'
{ _scAddtional :: HashMap Text JSONValue
- } deriving (Eq,Show,Data,Typeable,Generic)
+ }
+ deriving (Eq, Show, Data, Typeable, Generic)
+
-- | Creates a value of 'SinkCodec' with the minimum fields required to make a request.
--
@@ -6209,10 +6676,8 @@ newtype SinkCodec = SinkCodec'
sinkCodec
:: HashMap Text JSONValue -- ^ 'scAddtional'
-> SinkCodec
-sinkCodec pScAddtional_ =
- SinkCodec'
- { _scAddtional = _Coerce # pScAddtional_
- }
+sinkCodec pScAddtional_ = SinkCodec' {_scAddtional = _Coerce # pScAddtional_}
+
-- | Properties of the object.
scAddtional :: Lens' SinkCodec (HashMap Text JSONValue)
@@ -6231,10 +6696,13 @@ instance ToJSON SinkCodec where
-- | A representation of an integer mean metric contribution.
--
-- /See:/ 'integerMean' smart constructor.
-data IntegerMean = IntegerMean'
+data IntegerMean =
+ IntegerMean'
{ _imCount :: !(Maybe SplitInt64)
, _imSum :: !(Maybe SplitInt64)
- } deriving (Eq,Show,Data,Typeable,Generic)
+ }
+ deriving (Eq, Show, Data, Typeable, Generic)
+
-- | Creates a value of 'IntegerMean' with the minimum fields required to make a request.
--
@@ -6245,11 +6713,8 @@ data IntegerMean = IntegerMean'
-- * 'imSum'
integerMean
:: IntegerMean
-integerMean =
- IntegerMean'
- { _imCount = Nothing
- , _imSum = Nothing
- }
+integerMean = IntegerMean' {_imCount = Nothing, _imSum = Nothing}
+
-- | The number of values being aggregated.
imCount :: Lens' IntegerMean (Maybe SplitInt64)
@@ -6273,9 +6738,12 @@ instance ToJSON IntegerMean where
--
-- /See:/ 'workerHealthReportPodsItem' smart constructor.
-newtype WorkerHealthReportPodsItem = WorkerHealthReportPodsItem'
+newtype WorkerHealthReportPodsItem =
+ WorkerHealthReportPodsItem'
{ _whrpiAddtional :: HashMap Text JSONValue
- } deriving (Eq,Show,Data,Typeable,Generic)
+ }
+ deriving (Eq, Show, Data, Typeable, Generic)
+
-- | Creates a value of 'WorkerHealthReportPodsItem' with the minimum fields required to make a request.
--
@@ -6286,9 +6754,8 @@ workerHealthReportPodsItem
:: HashMap Text JSONValue -- ^ 'whrpiAddtional'
-> WorkerHealthReportPodsItem
workerHealthReportPodsItem pWhrpiAddtional_ =
- WorkerHealthReportPodsItem'
- { _whrpiAddtional = _Coerce # pWhrpiAddtional_
- }
+ WorkerHealthReportPodsItem' {_whrpiAddtional = _Coerce # pWhrpiAddtional_}
+
-- | Properties of the object.
whrpiAddtional :: Lens' WorkerHealthReportPodsItem (HashMap Text JSONValue)
@@ -6309,9 +6776,12 @@ instance ToJSON WorkerHealthReportPodsItem where
-- | The user function to invoke.
--
-- /See:/ 'parDoInstructionUserFn' smart constructor.
-newtype ParDoInstructionUserFn = ParDoInstructionUserFn'
+newtype ParDoInstructionUserFn =
+ ParDoInstructionUserFn'
{ _pdiufAddtional :: HashMap Text JSONValue
- } deriving (Eq,Show,Data,Typeable,Generic)
+ }
+ deriving (Eq, Show, Data, Typeable, Generic)
+
-- | Creates a value of 'ParDoInstructionUserFn' with the minimum fields required to make a request.
--
@@ -6322,9 +6792,8 @@ parDoInstructionUserFn
:: HashMap Text JSONValue -- ^ 'pdiufAddtional'
-> ParDoInstructionUserFn
parDoInstructionUserFn pPdiufAddtional_ =
- ParDoInstructionUserFn'
- { _pdiufAddtional = _Coerce # pPdiufAddtional_
- }
+ ParDoInstructionUserFn' {_pdiufAddtional = _Coerce # pPdiufAddtional_}
+
-- | Properties of the object.
pdiufAddtional :: Lens' ParDoInstructionUserFn (HashMap Text JSONValue)
@@ -6345,9 +6814,12 @@ instance ToJSON ParDoInstructionUserFn where
-- | The codec to use to encode data being written via this output.
--
-- /See:/ 'instructionOutputCodec' smart constructor.
-newtype InstructionOutputCodec = InstructionOutputCodec'
+newtype InstructionOutputCodec =
+ InstructionOutputCodec'
{ _iocAddtional :: HashMap Text JSONValue
- } deriving (Eq,Show,Data,Typeable,Generic)
+ }
+ deriving (Eq, Show, Data, Typeable, Generic)
+
-- | Creates a value of 'InstructionOutputCodec' with the minimum fields required to make a request.
--
@@ -6358,9 +6830,8 @@ instructionOutputCodec
:: HashMap Text JSONValue -- ^ 'iocAddtional'
-> InstructionOutputCodec
instructionOutputCodec pIocAddtional_ =
- InstructionOutputCodec'
- { _iocAddtional = _Coerce # pIocAddtional_
- }
+ InstructionOutputCodec' {_iocAddtional = _Coerce # pIocAddtional_}
+
-- | Properties of the object.
iocAddtional :: Lens' InstructionOutputCodec (HashMap Text JSONValue)
@@ -6381,12 +6852,15 @@ instance ToJSON InstructionOutputCodec where
-- of a streaming Dataflow job.
--
-- /See:/ 'streamLocation' smart constructor.
-data StreamLocation = StreamLocation'
+data StreamLocation =
+ StreamLocation'
{ _slStreamingStageLocation :: !(Maybe StreamingStageLocation)
, _slSideInputLocation :: !(Maybe StreamingSideInputLocation)
, _slCustomSourceLocation :: !(Maybe CustomSourceLocation)
, _slPubsubLocation :: !(Maybe PubsubLocation)
- } deriving (Eq,Show,Data,Typeable,Generic)
+ }
+ deriving (Eq, Show, Data, Typeable, Generic)
+
-- | Creates a value of 'StreamLocation' with the minimum fields required to make a request.
--
@@ -6402,13 +6876,14 @@ data StreamLocation = StreamLocation'
streamLocation
:: StreamLocation
streamLocation =
- StreamLocation'
+ StreamLocation'
{ _slStreamingStageLocation = Nothing
, _slSideInputLocation = Nothing
, _slCustomSourceLocation = Nothing
, _slPubsubLocation = Nothing
}
+
-- | The stream is part of another computation within the current streaming
-- Dataflow job.
slStreamingStageLocation :: Lens' StreamLocation (Maybe StreamingStageLocation)
@@ -6459,9 +6934,12 @@ instance ToJSON StreamLocation where
-- \"123456\" }
--
-- /See:/ 'workerLifecycleEventMetadata' smart constructor.
-newtype WorkerLifecycleEventMetadata = WorkerLifecycleEventMetadata'
+newtype WorkerLifecycleEventMetadata =
+ WorkerLifecycleEventMetadata'
{ _wlemAddtional :: HashMap Text Text
- } deriving (Eq,Show,Data,Typeable,Generic)
+ }
+ deriving (Eq, Show, Data, Typeable, Generic)
+
-- | Creates a value of 'WorkerLifecycleEventMetadata' with the minimum fields required to make a request.
--
@@ -6472,9 +6950,8 @@ workerLifecycleEventMetadata
:: HashMap Text Text -- ^ 'wlemAddtional'
-> WorkerLifecycleEventMetadata
workerLifecycleEventMetadata pWlemAddtional_ =
- WorkerLifecycleEventMetadata'
- { _wlemAddtional = _Coerce # pWlemAddtional_
- }
+ WorkerLifecycleEventMetadata' {_wlemAddtional = _Coerce # pWlemAddtional_}
+
wlemAddtional :: Lens' WorkerLifecycleEventMetadata (HashMap Text Text)
wlemAddtional
@@ -6495,9 +6972,12 @@ instance ToJSON WorkerLifecycleEventMetadata where
-- | Extra arguments for this worker pool.
--
-- /See:/ 'workerPoolPoolArgs' smart constructor.
-newtype WorkerPoolPoolArgs = WorkerPoolPoolArgs'
+newtype WorkerPoolPoolArgs =
+ WorkerPoolPoolArgs'
{ _wppaAddtional :: HashMap Text JSONValue
- } deriving (Eq,Show,Data,Typeable,Generic)
+ }
+ deriving (Eq, Show, Data, Typeable, Generic)
+
-- | Creates a value of 'WorkerPoolPoolArgs' with the minimum fields required to make a request.
--
@@ -6508,9 +6988,8 @@ workerPoolPoolArgs
:: HashMap Text JSONValue -- ^ 'wppaAddtional'
-> WorkerPoolPoolArgs
workerPoolPoolArgs pWppaAddtional_ =
- WorkerPoolPoolArgs'
- { _wppaAddtional = _Coerce # pWppaAddtional_
- }
+ WorkerPoolPoolArgs' {_wppaAddtional = _Coerce # pWppaAddtional_}
+
-- | Properties of the object. Contains field \'type with type URL.
wppaAddtional :: Lens' WorkerPoolPoolArgs (HashMap Text JSONValue)
@@ -6530,7 +7009,8 @@ instance ToJSON WorkerPoolPoolArgs where
-- | The environment values to set at runtime.
--
-- /See:/ 'runtimeEnvironment' smart constructor.
-data RuntimeEnvironment = RuntimeEnvironment'
+data RuntimeEnvironment =
+ RuntimeEnvironment'
{ _reNumWorkers :: !(Maybe (Textual Int32))
, _reNetwork :: !(Maybe Text)
, _reZone :: !(Maybe Text)
@@ -6542,7 +7022,9 @@ data RuntimeEnvironment = RuntimeEnvironment'
, _reAdditionalExperiments :: !(Maybe [Text])
, _reMaxWorkers :: !(Maybe (Textual Int32))
, _reTempLocation :: !(Maybe Text)
- } deriving (Eq,Show,Data,Typeable,Generic)
+ }
+ deriving (Eq, Show, Data, Typeable, Generic)
+
-- | Creates a value of 'RuntimeEnvironment' with the minimum fields required to make a request.
--
@@ -6572,7 +7054,7 @@ data RuntimeEnvironment = RuntimeEnvironment'
runtimeEnvironment
:: RuntimeEnvironment
runtimeEnvironment =
- RuntimeEnvironment'
+ RuntimeEnvironment'
{ _reNumWorkers = Nothing
, _reNetwork = Nothing
, _reZone = Nothing
@@ -6586,6 +7068,7 @@ runtimeEnvironment =
, _reTempLocation = Nothing
}
+
-- | The initial number of Google Compute Engine instnaces for the job.
reNumWorkers :: Lens' RuntimeEnvironment (Maybe Int32)
reNumWorkers
@@ -6624,7 +7107,10 @@ reMachineType
= lens _reMachineType
(\ s a -> s{_reMachineType = a})
--- | Additional user labels attached to the job.
+-- | Additional user labels to be specified for the job. Keys and values
+-- should follow the restrictions specified in the [labeling
+-- restrictions](https:\/\/cloud.google.com\/compute\/docs\/labeling-resources#restrictions)
+-- page.
reAdditionalUserLabels :: Lens' RuntimeEnvironment (Maybe RuntimeEnvironmentAdditionalUserLabels)
reAdditionalUserLabels
= lens _reAdditionalUserLabels
@@ -6698,12 +7184,15 @@ instance ToJSON RuntimeEnvironment where
-- attributes.
--
-- /See:/ 'counterMetadata' smart constructor.
-data CounterMetadata = CounterMetadata'
+data CounterMetadata =
+ CounterMetadata'
{ _cmKind :: !(Maybe CounterMetadataKind)
, _cmDescription :: !(Maybe Text)
, _cmStandardUnits :: !(Maybe CounterMetadataStandardUnits)
, _cmOtherUnits :: !(Maybe Text)
- } deriving (Eq,Show,Data,Typeable,Generic)
+ }
+ deriving (Eq, Show, Data, Typeable, Generic)
+
-- | Creates a value of 'CounterMetadata' with the minimum fields required to make a request.
--
@@ -6719,13 +7208,14 @@ data CounterMetadata = CounterMetadata'
counterMetadata
:: CounterMetadata
counterMetadata =
- CounterMetadata'
+ CounterMetadata'
{ _cmKind = Nothing
, _cmDescription = Nothing
, _cmStandardUnits = Nothing
, _cmOtherUnits = Nothing
}
+
-- | Counter aggregation kind.
cmKind :: Lens' CounterMetadata (Maybe CounterMetadataKind)
cmKind = lens _cmKind (\ s a -> s{_cmKind = a})
@@ -6768,9 +7258,12 @@ instance ToJSON CounterMetadata where
-- | The response to the worker messages.
--
-- /See:/ 'sendWorkerMessagesResponse' smart constructor.
-newtype SendWorkerMessagesResponse = SendWorkerMessagesResponse'
+newtype SendWorkerMessagesResponse =
+ SendWorkerMessagesResponse'
{ _swmrWorkerMessageResponses :: Maybe [WorkerMessageResponse]
- } deriving (Eq,Show,Data,Typeable,Generic)
+ }
+ deriving (Eq, Show, Data, Typeable, Generic)
+
-- | Creates a value of 'SendWorkerMessagesResponse' with the minimum fields required to make a request.
--
@@ -6780,9 +7273,8 @@ newtype SendWorkerMessagesResponse = SendWorkerMessagesResponse'
sendWorkerMessagesResponse
:: SendWorkerMessagesResponse
sendWorkerMessagesResponse =
- SendWorkerMessagesResponse'
- { _swmrWorkerMessageResponses = Nothing
- }
+ SendWorkerMessagesResponse' {_swmrWorkerMessageResponses = Nothing}
+
-- | The servers response to the worker messages.
swmrWorkerMessageResponses :: Lens' SendWorkerMessagesResponse [WorkerMessageResponse]
@@ -6809,10 +7301,13 @@ instance ToJSON SendWorkerMessagesResponse where
-- | Identifies the location of a streaming side input.
--
-- /See:/ 'streamingSideInputLocation' smart constructor.
-data StreamingSideInputLocation = StreamingSideInputLocation'
+data StreamingSideInputLocation =
+ StreamingSideInputLocation'
{ _ssilTag :: !(Maybe Text)
, _ssilStateFamily :: !(Maybe Text)
- } deriving (Eq,Show,Data,Typeable,Generic)
+ }
+ deriving (Eq, Show, Data, Typeable, Generic)
+
-- | Creates a value of 'StreamingSideInputLocation' with the minimum fields required to make a request.
--
@@ -6824,10 +7319,8 @@ data StreamingSideInputLocation = StreamingSideInputLocation'
streamingSideInputLocation
:: StreamingSideInputLocation
streamingSideInputLocation =
- StreamingSideInputLocation'
- { _ssilTag = Nothing
- , _ssilStateFamily = Nothing
- }
+ StreamingSideInputLocation' {_ssilTag = Nothing, _ssilStateFamily = Nothing}
+
-- | Identifies the particular side input within the streaming Dataflow job.
ssilTag :: Lens' StreamingSideInputLocation (Maybe Text)
@@ -6856,11 +7349,14 @@ instance ToJSON StreamingSideInputLocation where
-- | Request to get updated debug configuration for component.
--
-- /See:/ 'getDebugConfigRequest' smart constructor.
-data GetDebugConfigRequest = GetDebugConfigRequest'
+data GetDebugConfigRequest =
+ GetDebugConfigRequest'
{ _gdcrLocation :: !(Maybe Text)
, _gdcrComponentId :: !(Maybe Text)
, _gdcrWorkerId :: !(Maybe Text)
- } deriving (Eq,Show,Data,Typeable,Generic)
+ }
+ deriving (Eq, Show, Data, Typeable, Generic)
+
-- | Creates a value of 'GetDebugConfigRequest' with the minimum fields required to make a request.
--
@@ -6874,13 +7370,16 @@ data GetDebugConfigRequest = GetDebugConfigRequest'
getDebugConfigRequest
:: GetDebugConfigRequest
getDebugConfigRequest =
- GetDebugConfigRequest'
+ GetDebugConfigRequest'
{ _gdcrLocation = Nothing
, _gdcrComponentId = Nothing
, _gdcrWorkerId = Nothing
}
--- | The location which contains the job specified by job_id.
+
+-- | The [regional endpoint]
+-- (https:\/\/cloud.google.com\/dataflow\/docs\/concepts\/regional-endpoints)
+-- that contains the job specified by job_id.
gdcrLocation :: Lens' GetDebugConfigRequest (Maybe Text)
gdcrLocation
= lens _gdcrLocation (\ s a -> s{_gdcrLocation = a})
@@ -6916,10 +7415,13 @@ instance ToJSON GetDebugConfigRequest where
-- given counter.
--
-- /See:/ 'counterStructuredNameAndMetadata' smart constructor.
-data CounterStructuredNameAndMetadata = CounterStructuredNameAndMetadata'
+data CounterStructuredNameAndMetadata =
+ CounterStructuredNameAndMetadata'
{ _csnamName :: !(Maybe CounterStructuredName)
, _csnamMetadata :: !(Maybe CounterMetadata)
- } deriving (Eq,Show,Data,Typeable,Generic)
+ }
+ deriving (Eq, Show, Data, Typeable, Generic)
+
-- | Creates a value of 'CounterStructuredNameAndMetadata' with the minimum fields required to make a request.
--
@@ -6931,10 +7433,9 @@ data CounterStructuredNameAndMetadata = CounterStructuredNameAndMetadata'
counterStructuredNameAndMetadata
:: CounterStructuredNameAndMetadata
counterStructuredNameAndMetadata =
- CounterStructuredNameAndMetadata'
- { _csnamName = Nothing
- , _csnamMetadata = Nothing
- }
+ CounterStructuredNameAndMetadata'
+ {_csnamName = Nothing, _csnamMetadata = Nothing}
+
-- | Structured name of the counter.
csnamName :: Lens' CounterStructuredNameAndMetadata (Maybe CounterStructuredName)
@@ -6968,9 +7469,12 @@ instance ToJSON CounterStructuredNameAndMetadata
-- shut down.
--
-- /See:/ 'workerShutdownNotice' smart constructor.
-newtype WorkerShutdownNotice = WorkerShutdownNotice'
+newtype WorkerShutdownNotice =
+ WorkerShutdownNotice'
{ _wsnReason :: Maybe Text
- } deriving (Eq,Show,Data,Typeable,Generic)
+ }
+ deriving (Eq, Show, Data, Typeable, Generic)
+
-- | Creates a value of 'WorkerShutdownNotice' with the minimum fields required to make a request.
--
@@ -6979,10 +7483,8 @@ newtype WorkerShutdownNotice = WorkerShutdownNotice'
-- * 'wsnReason'
workerShutdownNotice
:: WorkerShutdownNotice
-workerShutdownNotice =
- WorkerShutdownNotice'
- { _wsnReason = Nothing
- }
+workerShutdownNotice = WorkerShutdownNotice' {_wsnReason = Nothing}
+
-- | The reason for the worker shutdown. Current possible values are:
-- \"UNKNOWN\": shutdown reason is unknown. \"PREEMPTION\": shutdown reason
@@ -7004,11 +7506,14 @@ instance ToJSON WorkerShutdownNotice where
-- streaming computation ranges.
--
-- /See:/ 'streamingComputationTask' smart constructor.
-data StreamingComputationTask = StreamingComputationTask'
+data StreamingComputationTask =
+ StreamingComputationTask'
{ _sctTaskType :: !(Maybe StreamingComputationTaskTaskType)
, _sctDataDisks :: !(Maybe [MountedDataDisk])
, _sctComputationRanges :: !(Maybe [StreamingComputationRanges])
- } deriving (Eq,Show,Data,Typeable,Generic)
+ }
+ deriving (Eq, Show, Data, Typeable, Generic)
+
-- | Creates a value of 'StreamingComputationTask' with the minimum fields required to make a request.
--
@@ -7022,12 +7527,13 @@ data StreamingComputationTask = StreamingComputationTask'
streamingComputationTask
:: StreamingComputationTask
streamingComputationTask =
- StreamingComputationTask'
+ StreamingComputationTask'
{ _sctTaskType = Nothing
, _sctDataDisks = Nothing
, _sctComputationRanges = Nothing
}
+
-- | A type of streaming computation task.
sctTaskType :: Lens' StreamingComputationTask (Maybe StreamingComputationTaskTaskType)
sctTaskType
@@ -7066,14 +7572,17 @@ instance ToJSON StreamingComputationTask where
-- | A descriptive representation of submitted pipeline as well as the
-- executed form. This data is provided by the Dataflow service for ease of
--- visualizing the pipeline and interpretting Dataflow provided metrics.
+-- visualizing the pipeline and interpreting Dataflow provided metrics.
--
-- /See:/ 'pipelineDescription' smart constructor.
-data PipelineDescription = PipelineDescription'
+data PipelineDescription =
+ PipelineDescription'
{ _pdExecutionPipelineStage :: !(Maybe [ExecutionStageSummary])
, _pdDisplayData :: !(Maybe [DisplayData])
, _pdOriginalPipelineTransform :: !(Maybe [TransformSummary])
- } deriving (Eq,Show,Data,Typeable,Generic)
+ }
+ deriving (Eq, Show, Data, Typeable, Generic)
+
-- | Creates a value of 'PipelineDescription' with the minimum fields required to make a request.
--
@@ -7087,12 +7596,13 @@ data PipelineDescription = PipelineDescription'
pipelineDescription
:: PipelineDescription
pipelineDescription =
- PipelineDescription'
+ PipelineDescription'
{ _pdExecutionPipelineStage = Nothing
, _pdDisplayData = Nothing
, _pdOriginalPipelineTransform = Nothing
}
+
-- | Description of each stage of execution of the pipeline.
pdExecutionPipelineStage :: Lens' PipelineDescription [ExecutionStageSummary]
pdExecutionPipelineStage
@@ -7140,12 +7650,15 @@ instance ToJSON PipelineDescription where
-- | A particular message pertaining to a Dataflow job.
--
-- /See:/ 'jobMessage' smart constructor.
-data JobMessage = JobMessage'
+data JobMessage =
+ JobMessage'
{ _jmTime :: !(Maybe DateTime')
, _jmMessageText :: !(Maybe Text)
, _jmMessageImportance :: !(Maybe JobMessageMessageImportance)
, _jmId :: !(Maybe Text)
- } deriving (Eq,Show,Data,Typeable,Generic)
+ }
+ deriving (Eq, Show, Data, Typeable, Generic)
+
-- | Creates a value of 'JobMessage' with the minimum fields required to make a request.
--
@@ -7161,13 +7674,14 @@ data JobMessage = JobMessage'
jobMessage
:: JobMessage
jobMessage =
- JobMessage'
+ JobMessage'
{ _jmTime = Nothing
, _jmMessageText = Nothing
, _jmMessageImportance = Nothing
, _jmId = Nothing
}
+
-- | The timestamp of the message.
jmTime :: Lens' JobMessage (Maybe UTCTime)
jmTime
@@ -7216,11 +7730,14 @@ instance ToJSON JobMessage where
-- proto.
--
-- /See:/ 'workerLifecycleEvent' smart constructor.
-data WorkerLifecycleEvent = WorkerLifecycleEvent'
+data WorkerLifecycleEvent =
+ WorkerLifecycleEvent'
{ _wleEvent :: !(Maybe WorkerLifecycleEventEvent)
, _wleContainerStartTime :: !(Maybe DateTime')
, _wleMetadata :: !(Maybe WorkerLifecycleEventMetadata)
- } deriving (Eq,Show,Data,Typeable,Generic)
+ }
+ deriving (Eq, Show, Data, Typeable, Generic)
+
-- | Creates a value of 'WorkerLifecycleEvent' with the minimum fields required to make a request.
--
@@ -7234,12 +7751,13 @@ data WorkerLifecycleEvent = WorkerLifecycleEvent'
workerLifecycleEvent
:: WorkerLifecycleEvent
workerLifecycleEvent =
- WorkerLifecycleEvent'
+ WorkerLifecycleEvent'
{ _wleEvent = Nothing
, _wleContainerStartTime = Nothing
, _wleMetadata = Nothing
}
+
-- | The event being reported.
wleEvent :: Lens' WorkerLifecycleEvent (Maybe WorkerLifecycleEventEvent)
wleEvent = lens _wleEvent (\ s a -> s{_wleEvent = a})
@@ -7274,12 +7792,62 @@ instance ToJSON WorkerLifecycleEvent where
("containerStartTime" .=) <$> _wleContainerStartTime,
("metadata" .=) <$> _wleMetadata])
--- | Additional user labels attached to the job.
+-- | Untranslated bag-of-bytes WorkProgressUpdateResponse for UnifiedWorker.
+--
+-- /See:/ 'reportWorkItemStatusResponseUnifiedWorkerResponse' smart constructor.
+newtype ReportWorkItemStatusResponseUnifiedWorkerResponse =
+ ReportWorkItemStatusResponseUnifiedWorkerResponse'
+ { _rAddtional :: HashMap Text JSONValue
+ }
+ deriving (Eq, Show, Data, Typeable, Generic)
+
+
+-- | Creates a value of 'ReportWorkItemStatusResponseUnifiedWorkerResponse' with the minimum fields required to make a request.
+--
+-- Use one of the following lenses to modify other fields as desired:
+--
+-- * 'rAddtional'
+reportWorkItemStatusResponseUnifiedWorkerResponse
+ :: HashMap Text JSONValue -- ^ 'rAddtional'
+ -> ReportWorkItemStatusResponseUnifiedWorkerResponse
+reportWorkItemStatusResponseUnifiedWorkerResponse pRAddtional_ =
+ ReportWorkItemStatusResponseUnifiedWorkerResponse'
+ {_rAddtional = _Coerce # pRAddtional_}
+
+
+-- | Properties of the object. Contains field \'type with type URL.
+rAddtional :: Lens' ReportWorkItemStatusResponseUnifiedWorkerResponse (HashMap Text JSONValue)
+rAddtional
+ = lens _rAddtional (\ s a -> s{_rAddtional = a}) .
+ _Coerce
+
+instance FromJSON
+ ReportWorkItemStatusResponseUnifiedWorkerResponse
+ where
+ parseJSON
+ = withObject
+ "ReportWorkItemStatusResponseUnifiedWorkerResponse"
+ (\ o ->
+ ReportWorkItemStatusResponseUnifiedWorkerResponse'
+ <$> (parseJSONObject o))
+
+instance ToJSON
+ ReportWorkItemStatusResponseUnifiedWorkerResponse
+ where
+ toJSON = toJSON . _rAddtional
+
+-- | Additional user labels to be specified for the job. Keys and values
+-- should follow the restrictions specified in the [labeling
+-- restrictions](https:\/\/cloud.google.com\/compute\/docs\/labeling-resources#restrictions)
+-- page.
--
-- /See:/ 'runtimeEnvironmentAdditionalUserLabels' smart constructor.
-newtype RuntimeEnvironmentAdditionalUserLabels = RuntimeEnvironmentAdditionalUserLabels'
+newtype RuntimeEnvironmentAdditionalUserLabels =
+ RuntimeEnvironmentAdditionalUserLabels'
{ _reaulAddtional :: HashMap Text Text
- } deriving (Eq,Show,Data,Typeable,Generic)
+ }
+ deriving (Eq, Show, Data, Typeable, Generic)
+
-- | Creates a value of 'RuntimeEnvironmentAdditionalUserLabels' with the minimum fields required to make a request.
--
@@ -7290,9 +7858,9 @@ runtimeEnvironmentAdditionalUserLabels
:: HashMap Text Text -- ^ 'reaulAddtional'
-> RuntimeEnvironmentAdditionalUserLabels
runtimeEnvironmentAdditionalUserLabels pReaulAddtional_ =
- RuntimeEnvironmentAdditionalUserLabels'
- { _reaulAddtional = _Coerce # pReaulAddtional_
- }
+ RuntimeEnvironmentAdditionalUserLabels'
+ {_reaulAddtional = _Coerce # pReaulAddtional_}
+
reaulAddtional :: Lens' RuntimeEnvironmentAdditionalUserLabels (HashMap Text Text)
reaulAddtional
@@ -7301,7 +7869,8 @@ reaulAddtional
. _Coerce
instance FromJSON
- RuntimeEnvironmentAdditionalUserLabels where
+ RuntimeEnvironmentAdditionalUserLabels
+ where
parseJSON
= withObject "RuntimeEnvironmentAdditionalUserLabels"
(\ o ->
@@ -7309,16 +7878,20 @@ instance FromJSON
(parseJSONObject o))
instance ToJSON
- RuntimeEnvironmentAdditionalUserLabels where
+ RuntimeEnvironmentAdditionalUserLabels
+ where
toJSON = toJSON . _reaulAddtional
-- | Information about an output of a SeqMapTask.
--
-- /See:/ 'seqMapTaskOutputInfo' smart constructor.
-data SeqMapTaskOutputInfo = SeqMapTaskOutputInfo'
+data SeqMapTaskOutputInfo =
+ SeqMapTaskOutputInfo'
{ _smtoiSink :: !(Maybe Sink)
, _smtoiTag :: !(Maybe Text)
- } deriving (Eq,Show,Data,Typeable,Generic)
+ }
+ deriving (Eq, Show, Data, Typeable, Generic)
+
-- | Creates a value of 'SeqMapTaskOutputInfo' with the minimum fields required to make a request.
--
@@ -7330,10 +7903,8 @@ data SeqMapTaskOutputInfo = SeqMapTaskOutputInfo'
seqMapTaskOutputInfo
:: SeqMapTaskOutputInfo
seqMapTaskOutputInfo =
- SeqMapTaskOutputInfo'
- { _smtoiSink = Nothing
- , _smtoiTag = Nothing
- }
+ SeqMapTaskOutputInfo' {_smtoiSink = Nothing, _smtoiTag = Nothing}
+
-- | The sink to write the output value to.
smtoiSink :: Lens' SeqMapTaskOutputInfo (Maybe Sink)
@@ -7361,10 +7932,13 @@ instance ToJSON SeqMapTaskOutputInfo where
-- | Metadata for a PubSub connector used by the job.
--
-- /See:/ 'pubSubIODetails' smart constructor.
-data PubSubIODetails = PubSubIODetails'
+data PubSubIODetails =
+ PubSubIODetails'
{ _psiodTopic :: !(Maybe Text)
, _psiodSubscription :: !(Maybe Text)
- } deriving (Eq,Show,Data,Typeable,Generic)
+ }
+ deriving (Eq, Show, Data, Typeable, Generic)
+
-- | Creates a value of 'PubSubIODetails' with the minimum fields required to make a request.
--
@@ -7376,10 +7950,8 @@ data PubSubIODetails = PubSubIODetails'
pubSubIODetails
:: PubSubIODetails
pubSubIODetails =
- PubSubIODetails'
- { _psiodTopic = Nothing
- , _psiodSubscription = Nothing
- }
+ PubSubIODetails' {_psiodTopic = Nothing, _psiodSubscription = Nothing}
+
-- | Topic accessed in the connection.
psiodTopic :: Lens' PubSubIODetails (Maybe Text)
@@ -7409,9 +7981,12 @@ instance ToJSON PubSubIODetails where
-- | A request to compute the SourceMetadata of a Source.
--
-- /See:/ 'sourceGetMetadataRequest' smart constructor.
-newtype SourceGetMetadataRequest = SourceGetMetadataRequest'
+newtype SourceGetMetadataRequest =
+ SourceGetMetadataRequest'
{ _sgmrSource :: Maybe Source
- } deriving (Eq,Show,Data,Typeable,Generic)
+ }
+ deriving (Eq, Show, Data, Typeable, Generic)
+
-- | Creates a value of 'SourceGetMetadataRequest' with the minimum fields required to make a request.
--
@@ -7420,10 +7995,8 @@ newtype SourceGetMetadataRequest = SourceGetMetadataRequest'
-- * 'sgmrSource'
sourceGetMetadataRequest
:: SourceGetMetadataRequest
-sourceGetMetadataRequest =
- SourceGetMetadataRequest'
- { _sgmrSource = Nothing
- }
+sourceGetMetadataRequest = SourceGetMetadataRequest' {_sgmrSource = Nothing}
+
-- | Specification of the source whose metadata should be computed.
sgmrSource :: Lens' SourceGetMetadataRequest (Maybe Source)
@@ -7444,8 +8017,9 @@ instance ToJSON SourceGetMetadataRequest where
--
-- /See:/ 'workerShutdownNoticeResponse' smart constructor.
data WorkerShutdownNoticeResponse =
- WorkerShutdownNoticeResponse'
- deriving (Eq,Show,Data,Typeable,Generic)
+ WorkerShutdownNoticeResponse'
+ deriving (Eq, Show, Data, Typeable, Generic)
+
-- | Creates a value of 'WorkerShutdownNoticeResponse' with the minimum fields required to make a request.
--
@@ -7453,6 +8027,7 @@ workerShutdownNoticeResponse
:: WorkerShutdownNoticeResponse
workerShutdownNoticeResponse = WorkerShutdownNoticeResponse'
+
instance FromJSON WorkerShutdownNoticeResponse where
parseJSON
= withObject "WorkerShutdownNoticeResponse"
@@ -7464,9 +8039,12 @@ instance ToJSON WorkerShutdownNoticeResponse where
-- | The user function to invoke.
--
-- /See:/ 'seqMapTaskUserFn' smart constructor.
-newtype SeqMapTaskUserFn = SeqMapTaskUserFn'
+newtype SeqMapTaskUserFn =
+ SeqMapTaskUserFn'
{ _smtufAddtional :: HashMap Text JSONValue
- } deriving (Eq,Show,Data,Typeable,Generic)
+ }
+ deriving (Eq, Show, Data, Typeable, Generic)
+
-- | Creates a value of 'SeqMapTaskUserFn' with the minimum fields required to make a request.
--
@@ -7477,9 +8055,8 @@ seqMapTaskUserFn
:: HashMap Text JSONValue -- ^ 'smtufAddtional'
-> SeqMapTaskUserFn
seqMapTaskUserFn pSmtufAddtional_ =
- SeqMapTaskUserFn'
- { _smtufAddtional = _Coerce # pSmtufAddtional_
- }
+ SeqMapTaskUserFn' {_smtufAddtional = _Coerce # pSmtufAddtional_}
+
-- | Properties of the object.
smtufAddtional :: Lens' SeqMapTaskUserFn (HashMap Text JSONValue)
@@ -7499,9 +8076,12 @@ instance ToJSON SeqMapTaskUserFn where
-- | The value combining function to invoke.
--
-- /See:/ 'partialGroupByKeyInstructionValueCombiningFn' smart constructor.
-newtype PartialGroupByKeyInstructionValueCombiningFn = PartialGroupByKeyInstructionValueCombiningFn'
+newtype PartialGroupByKeyInstructionValueCombiningFn =
+ PartialGroupByKeyInstructionValueCombiningFn'
{ _pgbkivcfAddtional :: HashMap Text JSONValue
- } deriving (Eq,Show,Data,Typeable,Generic)
+ }
+ deriving (Eq, Show, Data, Typeable, Generic)
+
-- | Creates a value of 'PartialGroupByKeyInstructionValueCombiningFn' with the minimum fields required to make a request.
--
@@ -7512,9 +8092,9 @@ partialGroupByKeyInstructionValueCombiningFn
:: HashMap Text JSONValue -- ^ 'pgbkivcfAddtional'
-> PartialGroupByKeyInstructionValueCombiningFn
partialGroupByKeyInstructionValueCombiningFn pPgbkivcfAddtional_ =
- PartialGroupByKeyInstructionValueCombiningFn'
- { _pgbkivcfAddtional = _Coerce # pPgbkivcfAddtional_
- }
+ PartialGroupByKeyInstructionValueCombiningFn'
+ {_pgbkivcfAddtional = _Coerce # pPgbkivcfAddtional_}
+
-- | Properties of the object.
pgbkivcfAddtional :: Lens' PartialGroupByKeyInstructionValueCombiningFn (HashMap Text JSONValue)
@@ -7524,7 +8104,8 @@ pgbkivcfAddtional
. _Coerce
instance FromJSON
- PartialGroupByKeyInstructionValueCombiningFn where
+ PartialGroupByKeyInstructionValueCombiningFn
+ where
parseJSON
= withObject
"PartialGroupByKeyInstructionValueCombiningFn"
@@ -7533,13 +8114,15 @@ instance FromJSON
(parseJSONObject o))
instance ToJSON
- PartialGroupByKeyInstructionValueCombiningFn where
+ PartialGroupByKeyInstructionValueCombiningFn
+ where
toJSON = toJSON . _pgbkivcfAddtional
-- | Defines a job to be run by the Cloud Dataflow service.
--
-- /See:/ 'job' smart constructor.
-data Job = Job'
+data Job =
+ Job'
{ _jStepsLocation :: !(Maybe Text)
, _jCreatedFromSnapshotId :: !(Maybe Text)
, _jRequestedState :: !(Maybe JobRequestedState)
@@ -7564,7 +8147,9 @@ data Job = Job'
, _jCurrentStateTime :: !(Maybe DateTime')
, _jReplaceJobId :: !(Maybe Text)
, _jCreateTime :: !(Maybe DateTime')
- } deriving (Eq,Show,Data,Typeable,Generic)
+ }
+ deriving (Eq, Show, Data, Typeable, Generic)
+
-- | Creates a value of 'Job' with the minimum fields required to make a request.
--
@@ -7620,7 +8205,7 @@ data Job = Job'
job
:: Job
job =
- Job'
+ Job'
{ _jStepsLocation = Nothing
, _jCreatedFromSnapshotId = Nothing
, _jRequestedState = Nothing
@@ -7647,6 +8232,7 @@ job =
, _jCreateTime = Nothing
}
+
-- | The GCS location where the steps are stored.
jStepsLocation :: Lens' Job (Maybe Text)
jStepsLocation
@@ -7678,7 +8264,9 @@ jJobMetadata :: Lens' Job (Maybe JobMetadata)
jJobMetadata
= lens _jJobMetadata (\ s a -> s{_jJobMetadata = a})
--- | The location that contains this job.
+-- | The [regional endpoint]
+-- (https:\/\/cloud.google.com\/dataflow\/docs\/concepts\/regional-endpoints)
+-- that contains this job.
jLocation :: Lens' Job (Maybe Text)
jLocation
= lens _jLocation (\ s a -> s{_jLocation = a})
@@ -7896,9 +8484,12 @@ instance ToJSON Job where
-- | An instruction that reads records. Takes no inputs, produces one output.
--
-- /See:/ 'readInstruction' smart constructor.
-newtype ReadInstruction = ReadInstruction'
+newtype ReadInstruction =
+ ReadInstruction'
{ _riSource :: Maybe Source
- } deriving (Eq,Show,Data,Typeable,Generic)
+ }
+ deriving (Eq, Show, Data, Typeable, Generic)
+
-- | Creates a value of 'ReadInstruction' with the minimum fields required to make a request.
--
@@ -7907,10 +8498,8 @@ newtype ReadInstruction = ReadInstruction'
-- * 'riSource'
readInstruction
:: ReadInstruction
-readInstruction =
- ReadInstruction'
- { _riSource = Nothing
- }
+readInstruction = ReadInstruction' {_riSource = Nothing}
+
-- | The source to read from.
riSource :: Lens' ReadInstruction (Maybe Source)
@@ -7928,12 +8517,15 @@ instance ToJSON ReadInstruction where
-- | A progress measurement of a WorkItem by a worker.
--
-- /See:/ 'approximateReportedProgress' smart constructor.
-data ApproximateReportedProgress = ApproximateReportedProgress'
+data ApproximateReportedProgress =
+ ApproximateReportedProgress'
{ _arpFractionConsumed :: !(Maybe (Textual Double))
, _arpConsumedParallelism :: !(Maybe ReportedParallelism)
, _arpRemainingParallelism :: !(Maybe ReportedParallelism)
, _arpPosition :: !(Maybe Position)
- } deriving (Eq,Show,Data,Typeable,Generic)
+ }
+ deriving (Eq, Show, Data, Typeable, Generic)
+
-- | Creates a value of 'ApproximateReportedProgress' with the minimum fields required to make a request.
--
@@ -7949,13 +8541,14 @@ data ApproximateReportedProgress = ApproximateReportedProgress'
approximateReportedProgress
:: ApproximateReportedProgress
approximateReportedProgress =
- ApproximateReportedProgress'
+ ApproximateReportedProgress'
{ _arpFractionConsumed = Nothing
, _arpConsumedParallelism = Nothing
, _arpRemainingParallelism = Nothing
, _arpPosition = Nothing
}
+
-- | Completion as fraction of the input consumed, from 0.0 (beginning,
-- nothing consumed), to 1.0 (end of the input, entire input consumed).
arpFractionConsumed :: Lens' ApproximateReportedProgress (Maybe Double)
@@ -8028,9 +8621,12 @@ instance ToJSON ApproximateReportedProgress where
-- | The sink to write to, plus its parameters.
--
-- /See:/ 'sinkSpec' smart constructor.
-newtype SinkSpec = SinkSpec'
+newtype SinkSpec =
+ SinkSpec'
{ _sAddtional :: HashMap Text JSONValue
- } deriving (Eq,Show,Data,Typeable,Generic)
+ }
+ deriving (Eq, Show, Data, Typeable, Generic)
+
-- | Creates a value of 'SinkSpec' with the minimum fields required to make a request.
--
@@ -8040,10 +8636,8 @@ newtype SinkSpec = SinkSpec'
sinkSpec
:: HashMap Text JSONValue -- ^ 'sAddtional'
-> SinkSpec
-sinkSpec pSAddtional_ =
- SinkSpec'
- { _sAddtional = _Coerce # pSAddtional_
- }
+sinkSpec pSAddtional_ = SinkSpec' {_sAddtional = _Coerce # pSAddtional_}
+
-- | Properties of the object.
sAddtional :: Lens' SinkSpec (HashMap Text JSONValue)
@@ -8066,7 +8660,8 @@ instance ToJSON SinkSpec where
-- of the various stages of the job.
--
-- /See:/ 'workerPool' smart constructor.
-data WorkerPool = WorkerPool'
+data WorkerPool =
+ WorkerPool'
{ _wpAutoscalingSettings :: !(Maybe AutoscalingSettings)
, _wpNumThreadsPerWorker :: !(Maybe (Textual Int32))
, _wpDiskSizeGb :: !(Maybe (Textual Int32))
@@ -8088,7 +8683,9 @@ data WorkerPool = WorkerPool'
, _wpPoolArgs :: !(Maybe WorkerPoolPoolArgs)
, _wpWorkerHarnessContainerImage :: !(Maybe Text)
, _wpDataDisks :: !(Maybe [Disk])
- } deriving (Eq,Show,Data,Typeable,Generic)
+ }
+ deriving (Eq, Show, Data, Typeable, Generic)
+
-- | Creates a value of 'WorkerPool' with the minimum fields required to make a request.
--
@@ -8138,7 +8735,7 @@ data WorkerPool = WorkerPool'
workerPool
:: WorkerPool
workerPool =
- WorkerPool'
+ WorkerPool'
{ _wpAutoscalingSettings = Nothing
, _wpNumThreadsPerWorker = Nothing
, _wpDiskSizeGb = Nothing
@@ -8162,6 +8759,7 @@ workerPool =
, _wpDataDisks = Nothing
}
+
-- | Settings for autoscaling of this WorkerPool.
wpAutoscalingSettings :: Lens' WorkerPool (Maybe AutoscalingSettings)
wpAutoscalingSettings
@@ -8380,11 +8978,14 @@ instance ToJSON WorkerPool where
-- be used to run many different types of jobs, not just Map-Reduce.
--
-- /See:/ 'step' smart constructor.
-data Step = Step'
+data Step =
+ Step'
{ _sKind :: !(Maybe Text)
, _sName :: !(Maybe Text)
, _sProperties :: !(Maybe StepProperties)
- } deriving (Eq,Show,Data,Typeable,Generic)
+ }
+ deriving (Eq, Show, Data, Typeable, Generic)
+
-- | Creates a value of 'Step' with the minimum fields required to make a request.
--
@@ -8397,12 +8998,8 @@ data Step = Step'
-- * 'sProperties'
step
:: Step
-step =
- Step'
- { _sKind = Nothing
- , _sName = Nothing
- , _sProperties = Nothing
- }
+step = Step' {_sKind = Nothing, _sName = Nothing, _sProperties = Nothing}
+
-- | The kind of step in the Cloud Dataflow job.
sKind :: Lens' Step (Maybe Text)
@@ -8439,11 +9036,14 @@ instance ToJSON Step where
-- stage.
--
-- /See:/ 'componentSource' smart constructor.
-data ComponentSource = ComponentSource'
+data ComponentSource =
+ ComponentSource'
{ _csUserName :: !(Maybe Text)
, _csName :: !(Maybe Text)
, _csOriginalTransformOrCollection :: !(Maybe Text)
- } deriving (Eq,Show,Data,Typeable,Generic)
+ }
+ deriving (Eq, Show, Data, Typeable, Generic)
+
-- | Creates a value of 'ComponentSource' with the minimum fields required to make a request.
--
@@ -8457,12 +9057,13 @@ data ComponentSource = ComponentSource'
componentSource
:: ComponentSource
componentSource =
- ComponentSource'
+ ComponentSource'
{ _csUserName = Nothing
, _csName = Nothing
, _csOriginalTransformOrCollection = Nothing
}
+
-- | Human-readable name for this transform; may be user or system generated.
csUserName :: Lens' ComponentSource (Maybe Text)
csUserName
@@ -8505,10 +9106,13 @@ instance ToJSON ComponentSource where
-- for that code to run.
--
-- /See:/ 'package' smart constructor.
-data Package = Package'
+data Package =
+ Package'
{ _pLocation :: !(Maybe Text)
, _pName :: !(Maybe Text)
- } deriving (Eq,Show,Data,Typeable,Generic)
+ }
+ deriving (Eq, Show, Data, Typeable, Generic)
+
-- | Creates a value of 'Package' with the minimum fields required to make a request.
--
@@ -8519,11 +9123,8 @@ data Package = Package'
-- * 'pName'
package
:: Package
-package =
- Package'
- { _pLocation = Nothing
- , _pName = Nothing
- }
+package = Package' {_pLocation = Nothing, _pName = Nothing}
+
-- | The resource to read the package from. The supported resource type is:
-- Google Cloud Storage: storage.googleapis.com\/{bucket}
@@ -8554,7 +9155,8 @@ instance ToJSON Package where
-- been generated by the Dataflow service during execution planning.
--
-- /See:/ 'executionStageSummary' smart constructor.
-data ExecutionStageSummary = ExecutionStageSummary'
+data ExecutionStageSummary =
+ ExecutionStageSummary'
{ _essOutputSource :: !(Maybe [StageSource])
, _essKind :: !(Maybe ExecutionStageSummaryKind)
, _essInputSource :: !(Maybe [StageSource])
@@ -8562,7 +9164,9 @@ data ExecutionStageSummary = ExecutionStageSummary'
, _essComponentSource :: !(Maybe [ComponentSource])
, _essId :: !(Maybe Text)
, _essComponentTransform :: !(Maybe [ComponentTransform])
- } deriving (Eq,Show,Data,Typeable,Generic)
+ }
+ deriving (Eq, Show, Data, Typeable, Generic)
+
-- | Creates a value of 'ExecutionStageSummary' with the minimum fields required to make a request.
--
@@ -8584,7 +9188,7 @@ data ExecutionStageSummary = ExecutionStageSummary'
executionStageSummary
:: ExecutionStageSummary
executionStageSummary =
- ExecutionStageSummary'
+ ExecutionStageSummary'
{ _essOutputSource = Nothing
, _essKind = Nothing
, _essInputSource = Nothing
@@ -8594,6 +9198,7 @@ executionStageSummary =
, _essComponentTransform = Nothing
}
+
-- | Output sources for this stage.
essOutputSource :: Lens' ExecutionStageSummary [StageSource]
essOutputSource
@@ -8678,9 +9283,12 @@ instance ToJSON ExecutionStageSummary where
-- most messages.
--
-- /See:/ 'workerMessageCodeParameters' smart constructor.
-newtype WorkerMessageCodeParameters = WorkerMessageCodeParameters'
+newtype WorkerMessageCodeParameters =
+ WorkerMessageCodeParameters'
{ _wmcpAddtional :: HashMap Text JSONValue
- } deriving (Eq,Show,Data,Typeable,Generic)
+ }
+ deriving (Eq, Show, Data, Typeable, Generic)
+
-- | Creates a value of 'WorkerMessageCodeParameters' with the minimum fields required to make a request.
--
@@ -8691,9 +9299,8 @@ workerMessageCodeParameters
:: HashMap Text JSONValue -- ^ 'wmcpAddtional'
-> WorkerMessageCodeParameters
workerMessageCodeParameters pWmcpAddtional_ =
- WorkerMessageCodeParameters'
- { _wmcpAddtional = _Coerce # pWmcpAddtional_
- }
+ WorkerMessageCodeParameters' {_wmcpAddtional = _Coerce # pWmcpAddtional_}
+
-- | Properties of the object.
wmcpAddtional :: Lens' WorkerMessageCodeParameters (HashMap Text JSONValue)
@@ -8716,10 +9323,13 @@ instance ToJSON WorkerMessageCodeParameters where
-- of the current task\'s input.
--
-- /See:/ 'dynamicSourceSplit' smart constructor.
-data DynamicSourceSplit = DynamicSourceSplit'
+data DynamicSourceSplit =
+ DynamicSourceSplit'
{ _dssResidual :: !(Maybe DerivedSource)
, _dssPrimary :: !(Maybe DerivedSource)
- } deriving (Eq,Show,Data,Typeable,Generic)
+ }
+ deriving (Eq, Show, Data, Typeable, Generic)
+
-- | Creates a value of 'DynamicSourceSplit' with the minimum fields required to make a request.
--
@@ -8731,10 +9341,8 @@ data DynamicSourceSplit = DynamicSourceSplit'
dynamicSourceSplit
:: DynamicSourceSplit
dynamicSourceSplit =
- DynamicSourceSplit'
- { _dssResidual = Nothing
- , _dssPrimary = Nothing
- }
+ DynamicSourceSplit' {_dssResidual = Nothing, _dssPrimary = Nothing}
+
-- | Residual part (returned to the pool of work). Specified relative to the
-- previously-current source.
@@ -8765,10 +9373,13 @@ instance ToJSON DynamicSourceSplit where
-- | Request to create a snapshot of a job.
--
-- /See:/ 'snapshotJobRequest' smart constructor.
-data SnapshotJobRequest = SnapshotJobRequest'
+data SnapshotJobRequest =
+ SnapshotJobRequest'
{ _sjrTtl :: !(Maybe GDuration)
, _sjrLocation :: !(Maybe Text)
- } deriving (Eq,Show,Data,Typeable,Generic)
+ }
+ deriving (Eq, Show, Data, Typeable, Generic)
+
-- | Creates a value of 'SnapshotJobRequest' with the minimum fields required to make a request.
--
@@ -8780,10 +9391,8 @@ data SnapshotJobRequest = SnapshotJobRequest'
snapshotJobRequest
:: SnapshotJobRequest
snapshotJobRequest =
- SnapshotJobRequest'
- { _sjrTtl = Nothing
- , _sjrLocation = Nothing
- }
+ SnapshotJobRequest' {_sjrTtl = Nothing, _sjrLocation = Nothing}
+
-- | TTL for the snapshot.
sjrTtl :: Lens' SnapshotJobRequest (Maybe Scientific)
@@ -8813,22 +9422,30 @@ instance ToJSON SnapshotJobRequest where
-- | Response from a request to report the status of WorkItems.
--
-- /See:/ 'reportWorkItemStatusResponse' smart constructor.
-newtype ReportWorkItemStatusResponse = ReportWorkItemStatusResponse'
- { _rwisrWorkItemServiceStates :: Maybe [WorkItemServiceState]
- } deriving (Eq,Show,Data,Typeable,Generic)
+data ReportWorkItemStatusResponse =
+ ReportWorkItemStatusResponse'
+ { _rwisrWorkItemServiceStates :: !(Maybe [WorkItemServiceState])
+ , _rwisrUnifiedWorkerResponse :: !(Maybe ReportWorkItemStatusResponseUnifiedWorkerResponse)
+ }
+ deriving (Eq, Show, Data, Typeable, Generic)
+
-- | Creates a value of 'ReportWorkItemStatusResponse' with the minimum fields required to make a request.
--
-- Use one of the following lenses to modify other fields as desired:
--
-- * 'rwisrWorkItemServiceStates'
+--
+-- * 'rwisrUnifiedWorkerResponse'
reportWorkItemStatusResponse
:: ReportWorkItemStatusResponse
reportWorkItemStatusResponse =
- ReportWorkItemStatusResponse'
+ ReportWorkItemStatusResponse'
{ _rwisrWorkItemServiceStates = Nothing
+ , _rwisrUnifiedWorkerResponse = Nothing
}
+
-- | A set of messages indicating the service-side state for each WorkItem
-- whose status was reported, in the same order as the WorkItemStatus
-- messages in the ReportWorkItemStatusRequest which resulting in this
@@ -8840,29 +9457,41 @@ rwisrWorkItemServiceStates
. _Default
. _Coerce
+-- | Untranslated bag-of-bytes WorkProgressUpdateResponse for UnifiedWorker.
+rwisrUnifiedWorkerResponse :: Lens' ReportWorkItemStatusResponse (Maybe ReportWorkItemStatusResponseUnifiedWorkerResponse)
+rwisrUnifiedWorkerResponse
+ = lens _rwisrUnifiedWorkerResponse
+ (\ s a -> s{_rwisrUnifiedWorkerResponse = a})
+
instance FromJSON ReportWorkItemStatusResponse where
parseJSON
= withObject "ReportWorkItemStatusResponse"
(\ o ->
ReportWorkItemStatusResponse' <$>
- (o .:? "workItemServiceStates" .!= mempty))
+ (o .:? "workItemServiceStates" .!= mempty) <*>
+ (o .:? "unifiedWorkerResponse"))
instance ToJSON ReportWorkItemStatusResponse where
toJSON ReportWorkItemStatusResponse'{..}
= object
(catMaybes
[("workItemServiceStates" .=) <$>
- _rwisrWorkItemServiceStates])
+ _rwisrWorkItemServiceStates,
+ ("unifiedWorkerResponse" .=) <$>
+ _rwisrUnifiedWorkerResponse])
-- | DEPRECATED in favor of DynamicSourceSplit.
--
-- /See:/ 'sourceFork' smart constructor.
-data SourceFork = SourceFork'
+data SourceFork =
+ SourceFork'
{ _sfResidual :: !(Maybe SourceSplitShard)
, _sfPrimarySource :: !(Maybe DerivedSource)
, _sfPrimary :: !(Maybe SourceSplitShard)
, _sfResidualSource :: !(Maybe DerivedSource)
- } deriving (Eq,Show,Data,Typeable,Generic)
+ }
+ deriving (Eq, Show, Data, Typeable, Generic)
+
-- | Creates a value of 'SourceFork' with the minimum fields required to make a request.
--
@@ -8878,13 +9507,14 @@ data SourceFork = SourceFork'
sourceFork
:: SourceFork
sourceFork =
- SourceFork'
+ SourceFork'
{ _sfResidual = Nothing
, _sfPrimarySource = Nothing
, _sfPrimary = Nothing
, _sfResidualSource = Nothing
}
+
-- | DEPRECATED
sfResidual :: Lens' SourceFork (Maybe SourceSplitShard)
sfResidual
@@ -8929,8 +9559,9 @@ instance ToJSON SourceFork where
--
-- /See:/ 'resourceUtilizationReportResponse' smart constructor.
data ResourceUtilizationReportResponse =
- ResourceUtilizationReportResponse'
- deriving (Eq,Show,Data,Typeable,Generic)
+ ResourceUtilizationReportResponse'
+ deriving (Eq, Show, Data, Typeable, Generic)
+
-- | Creates a value of 'ResourceUtilizationReportResponse' with the minimum fields required to make a request.
--
@@ -8938,6 +9569,7 @@ resourceUtilizationReportResponse
:: ResourceUtilizationReportResponse
resourceUtilizationReportResponse = ResourceUtilizationReportResponse'
+
instance FromJSON ResourceUtilizationReportResponse
where
parseJSON
@@ -8952,10 +9584,13 @@ instance ToJSON ResourceUtilizationReportResponse
-- computation ranges.
--
-- /See:/ 'streamingComputationRanges' smart constructor.
-data StreamingComputationRanges = StreamingComputationRanges'
+data StreamingComputationRanges =
+ StreamingComputationRanges'
{ _scrRangeAssignments :: !(Maybe [KeyRangeDataDiskAssignment])
, _scrComputationId :: !(Maybe Text)
- } deriving (Eq,Show,Data,Typeable,Generic)
+ }
+ deriving (Eq, Show, Data, Typeable, Generic)
+
-- | Creates a value of 'StreamingComputationRanges' with the minimum fields required to make a request.
--
@@ -8967,10 +9602,9 @@ data StreamingComputationRanges = StreamingComputationRanges'
streamingComputationRanges
:: StreamingComputationRanges
streamingComputationRanges =
- StreamingComputationRanges'
- { _scrRangeAssignments = Nothing
- , _scrComputationId = Nothing
- }
+ StreamingComputationRanges'
+ {_scrRangeAssignments = Nothing, _scrComputationId = Nothing}
+
-- | Data disk assignments for ranges from this computation.
scrRangeAssignments :: Lens' StreamingComputationRanges [KeyRangeDataDiskAssignment]
@@ -9005,11 +9639,14 @@ instance ToJSON StreamingComputationRanges where
-- response, depending on the page size in the ListJobsRequest.
--
-- /See:/ 'listJobsResponse' smart constructor.
-data ListJobsResponse = ListJobsResponse'
+data ListJobsResponse =
+ ListJobsResponse'
{ _ljrNextPageToken :: !(Maybe Text)
, _ljrFailedLocation :: !(Maybe [FailedLocation])
, _ljrJobs :: !(Maybe [Job])
- } deriving (Eq,Show,Data,Typeable,Generic)
+ }
+ deriving (Eq, Show, Data, Typeable, Generic)
+
-- | Creates a value of 'ListJobsResponse' with the minimum fields required to make a request.
--
@@ -9023,19 +9660,22 @@ data ListJobsResponse = ListJobsResponse'
listJobsResponse
:: ListJobsResponse
listJobsResponse =
- ListJobsResponse'
+ ListJobsResponse'
{ _ljrNextPageToken = Nothing
, _ljrFailedLocation = Nothing
, _ljrJobs = Nothing
}
+
-- | Set if there may be more results than fit in this response.
ljrNextPageToken :: Lens' ListJobsResponse (Maybe Text)
ljrNextPageToken
= lens _ljrNextPageToken
(\ s a -> s{_ljrNextPageToken = a})
--- | Zero or more messages describing locations that failed to respond.
+-- | Zero or more messages describing the [regional endpoints]
+-- (https:\/\/cloud.google.com\/dataflow\/docs\/concepts\/regional-endpoints)
+-- that failed to respond.
ljrFailedLocation :: Lens' ListJobsResponse [FailedLocation]
ljrFailedLocation
= lens _ljrFailedLocation
@@ -9069,9 +9709,12 @@ instance ToJSON ListJobsResponse where
-- | The runtime parameters to pass to the job.
--
-- /See:/ 'launchTemplateParametersParameters' smart constructor.
-newtype LaunchTemplateParametersParameters = LaunchTemplateParametersParameters'
+newtype LaunchTemplateParametersParameters =
+ LaunchTemplateParametersParameters'
{ _ltppAddtional :: HashMap Text Text
- } deriving (Eq,Show,Data,Typeable,Generic)
+ }
+ deriving (Eq, Show, Data, Typeable, Generic)
+
-- | Creates a value of 'LaunchTemplateParametersParameters' with the minimum fields required to make a request.
--
@@ -9082,9 +9725,9 @@ launchTemplateParametersParameters
:: HashMap Text Text -- ^ 'ltppAddtional'
-> LaunchTemplateParametersParameters
launchTemplateParametersParameters pLtppAddtional_ =
- LaunchTemplateParametersParameters'
- { _ltppAddtional = _Coerce # pLtppAddtional_
- }
+ LaunchTemplateParametersParameters'
+ {_ltppAddtional = _Coerce # pLtppAddtional_}
+
ltppAddtional :: Lens' LaunchTemplateParametersParameters (HashMap Text Text)
ltppAddtional
@@ -9107,13 +9750,16 @@ instance ToJSON LaunchTemplateParametersParameters
-- | A source that records can be read and decoded from.
--
-- /See:/ 'source' smart constructor.
-data Source = Source'
+data Source =
+ Source'
{ _souDoesNotNeedSplitting :: !(Maybe Bool)
, _souBaseSpecs :: !(Maybe [SourceBaseSpecsItem])
, _souCodec :: !(Maybe SourceCodec)
, _souSpec :: !(Maybe SourceSpec)
, _souMetadata :: !(Maybe SourceMetadata)
- } deriving (Eq,Show,Data,Typeable,Generic)
+ }
+ deriving (Eq, Show, Data, Typeable, Generic)
+
-- | Creates a value of 'Source' with the minimum fields required to make a request.
--
@@ -9131,7 +9777,7 @@ data Source = Source'
source
:: Source
source =
- Source'
+ Source'
{ _souDoesNotNeedSplitting = Nothing
, _souBaseSpecs = Nothing
, _souCodec = Nothing
@@ -9139,6 +9785,7 @@ source =
, _souMetadata = Nothing
}
+
-- | Setting this value to true hints to the framework that the source
-- doesn\'t need splitting, and using SourceSplitRequest on it would yield
-- SOURCE_SPLIT_OUTCOME_USE_CURRENT. E.g. a file splitter may set this to
@@ -9212,11 +9859,14 @@ instance ToJSON Source where
-- ApproximateSplitRequest.
--
-- /See:/ 'approximateProgress' smart constructor.
-data ApproximateProgress = ApproximateProgress'
+data ApproximateProgress =
+ ApproximateProgress'
{ _apRemainingTime :: !(Maybe GDuration)
, _apPercentComplete :: !(Maybe (Textual Double))
, _apPosition :: !(Maybe Position)
- } deriving (Eq,Show,Data,Typeable,Generic)
+ }
+ deriving (Eq, Show, Data, Typeable, Generic)
+
-- | Creates a value of 'ApproximateProgress' with the minimum fields required to make a request.
--
@@ -9230,12 +9880,13 @@ data ApproximateProgress = ApproximateProgress'
approximateProgress
:: ApproximateProgress
approximateProgress =
- ApproximateProgress'
+ ApproximateProgress'
{ _apRemainingTime = Nothing
, _apPercentComplete = Nothing
, _apPosition = Nothing
}
+
-- | Obsolete.
apRemainingTime :: Lens' ApproximateProgress (Maybe Scientific)
apRemainingTime
@@ -9274,7 +9925,8 @@ instance ToJSON ApproximateProgress where
-- | WorkerMessage provides information to the backend about a worker.
--
-- /See:/ 'workerMessage' smart constructor.
-data WorkerMessage = WorkerMessage'
+data WorkerMessage =
+ WorkerMessage'
{ _wmWorkerHealthReport :: !(Maybe WorkerHealthReport)
, _wmTime :: !(Maybe DateTime')
, _wmWorkerMessageCode :: !(Maybe WorkerMessageCode)
@@ -9282,7 +9934,9 @@ data WorkerMessage = WorkerMessage'
, _wmWorkerLifecycleEvent :: !(Maybe WorkerLifecycleEvent)
, _wmWorkerShutdownNotice :: !(Maybe WorkerShutdownNotice)
, _wmLabels :: !(Maybe WorkerMessageLabels)
- } deriving (Eq,Show,Data,Typeable,Generic)
+ }
+ deriving (Eq, Show, Data, Typeable, Generic)
+
-- | Creates a value of 'WorkerMessage' with the minimum fields required to make a request.
--
@@ -9304,7 +9958,7 @@ data WorkerMessage = WorkerMessage'
workerMessage
:: WorkerMessage
workerMessage =
- WorkerMessage'
+ WorkerMessage'
{ _wmWorkerHealthReport = Nothing
, _wmTime = Nothing
, _wmWorkerMessageCode = Nothing
@@ -9314,6 +9968,7 @@ workerMessage =
, _wmLabels = Nothing
}
+
-- | The health of a worker.
wmWorkerHealthReport :: Lens' WorkerMessage (Maybe WorkerHealthReport)
wmWorkerHealthReport
@@ -9391,13 +10046,16 @@ instance ToJSON WorkerMessage where
-- into JSON.
--
-- /See:/ 'keyRangeLocation' smart constructor.
-data KeyRangeLocation = KeyRangeLocation'
+data KeyRangeLocation =
+ KeyRangeLocation'
{ _krlDataDisk :: !(Maybe Text)
, _krlDeprecatedPersistentDirectory :: !(Maybe Text)
, _krlStart :: !(Maybe Text)
, _krlDeliveryEndpoint :: !(Maybe Text)
, _krlEnd :: !(Maybe Text)
- } deriving (Eq,Show,Data,Typeable,Generic)
+ }
+ deriving (Eq, Show, Data, Typeable, Generic)
+
-- | Creates a value of 'KeyRangeLocation' with the minimum fields required to make a request.
--
@@ -9415,7 +10073,7 @@ data KeyRangeLocation = KeyRangeLocation'
keyRangeLocation
:: KeyRangeLocation
keyRangeLocation =
- KeyRangeLocation'
+ KeyRangeLocation'
{ _krlDataDisk = Nothing
, _krlDeprecatedPersistentDirectory = Nothing
, _krlStart = Nothing
@@ -9423,6 +10081,7 @@ keyRangeLocation =
, _krlEnd = Nothing
}
+
-- | The name of the data disk where data for this range is stored. This name
-- is local to the Google Cloud Platform project and uniquely identifies
-- the disk within that project, for example
@@ -9483,10 +10142,13 @@ instance ToJSON KeyRangeLocation where
-- supported.
--
-- /See:/ 'histogram' smart constructor.
-data Histogram = Histogram'
+data Histogram =
+ Histogram'
{ _hBucketCounts :: !(Maybe [Textual Int64])
, _hFirstBucketOffSet :: !(Maybe (Textual Int32))
- } deriving (Eq,Show,Data,Typeable,Generic)
+ }
+ deriving (Eq, Show, Data, Typeable, Generic)
+
-- | Creates a value of 'Histogram' with the minimum fields required to make a request.
--
@@ -9497,11 +10159,8 @@ data Histogram = Histogram'
-- * 'hFirstBucketOffSet'
histogram
:: Histogram
-histogram =
- Histogram'
- { _hBucketCounts = Nothing
- , _hFirstBucketOffSet = Nothing
- }
+histogram = Histogram' {_hBucketCounts = Nothing, _hFirstBucketOffSet = Nothing}
+
-- | Counts of values in each bucket. For efficiency, prefix and trailing
-- buckets with count = 0 are elided. Buckets can store the full range of
@@ -9541,9 +10200,12 @@ instance ToJSON Histogram where
-- | Information about an output of a multi-output DoFn.
--
-- /See:/ 'multiOutputInfo' smart constructor.
-newtype MultiOutputInfo = MultiOutputInfo'
+newtype MultiOutputInfo =
+ MultiOutputInfo'
{ _moiTag :: Maybe Text
- } deriving (Eq,Show,Data,Typeable,Generic)
+ }
+ deriving (Eq, Show, Data, Typeable, Generic)
+
-- | Creates a value of 'MultiOutputInfo' with the minimum fields required to make a request.
--
@@ -9552,10 +10214,8 @@ newtype MultiOutputInfo = MultiOutputInfo'
-- * 'moiTag'
multiOutputInfo
:: MultiOutputInfo
-multiOutputInfo =
- MultiOutputInfo'
- { _moiTag = Nothing
- }
+multiOutputInfo = MultiOutputInfo' {_moiTag = Nothing}
+
-- | The id of the tag the user code will emit to this output by; this should
-- correspond to the tag of some SideInputInfo.
@@ -9575,14 +10235,17 @@ instance ToJSON MultiOutputInfo where
-- output.
--
-- /See:/ 'partialGroupByKeyInstruction' smart constructor.
-data PartialGroupByKeyInstruction = PartialGroupByKeyInstruction'
+data PartialGroupByKeyInstruction =
+ PartialGroupByKeyInstruction'
{ _pgbkiValueCombiningFn :: !(Maybe PartialGroupByKeyInstructionValueCombiningFn)
, _pgbkiSideInputs :: !(Maybe [SideInputInfo])
, _pgbkiInput :: !(Maybe InstructionInput)
, _pgbkiOriginalCombineValuesStepName :: !(Maybe Text)
, _pgbkiInputElementCodec :: !(Maybe PartialGroupByKeyInstructionInputElementCodec)
, _pgbkiOriginalCombineValuesInputStoreName :: !(Maybe Text)
- } deriving (Eq,Show,Data,Typeable,Generic)
+ }
+ deriving (Eq, Show, Data, Typeable, Generic)
+
-- | Creates a value of 'PartialGroupByKeyInstruction' with the minimum fields required to make a request.
--
@@ -9602,7 +10265,7 @@ data PartialGroupByKeyInstruction = PartialGroupByKeyInstruction'
partialGroupByKeyInstruction
:: PartialGroupByKeyInstruction
partialGroupByKeyInstruction =
- PartialGroupByKeyInstruction'
+ PartialGroupByKeyInstruction'
{ _pgbkiValueCombiningFn = Nothing
, _pgbkiSideInputs = Nothing
, _pgbkiInput = Nothing
@@ -9611,6 +10274,7 @@ partialGroupByKeyInstruction =
, _pgbkiOriginalCombineValuesInputStoreName = Nothing
}
+
-- | The value combining function to invoke.
pgbkiValueCombiningFn :: Lens' PartialGroupByKeyInstruction (Maybe PartialGroupByKeyInstructionValueCombiningFn)
pgbkiValueCombiningFn
@@ -9676,18 +10340,65 @@ instance ToJSON PartialGroupByKeyInstruction where
("originalCombineValuesInputStoreName" .=) <$>
_pgbkiOriginalCombineValuesInputStoreName])
+-- | Untranslated bag-of-bytes WorkResponse for UnifiedWorker.
+--
+-- /See:/ 'leaseWorkItemResponseUnifiedWorkerResponse' smart constructor.
+newtype LeaseWorkItemResponseUnifiedWorkerResponse =
+ LeaseWorkItemResponseUnifiedWorkerResponse'
+ { _lAddtional :: HashMap Text JSONValue
+ }
+ deriving (Eq, Show, Data, Typeable, Generic)
+
+
+-- | Creates a value of 'LeaseWorkItemResponseUnifiedWorkerResponse' with the minimum fields required to make a request.
+--
+-- Use one of the following lenses to modify other fields as desired:
+--
+-- * 'lAddtional'
+leaseWorkItemResponseUnifiedWorkerResponse
+ :: HashMap Text JSONValue -- ^ 'lAddtional'
+ -> LeaseWorkItemResponseUnifiedWorkerResponse
+leaseWorkItemResponseUnifiedWorkerResponse pLAddtional_ =
+ LeaseWorkItemResponseUnifiedWorkerResponse'
+ {_lAddtional = _Coerce # pLAddtional_}
+
+
+-- | Properties of the object. Contains field \'type with type URL.
+lAddtional :: Lens' LeaseWorkItemResponseUnifiedWorkerResponse (HashMap Text JSONValue)
+lAddtional
+ = lens _lAddtional (\ s a -> s{_lAddtional = a}) .
+ _Coerce
+
+instance FromJSON
+ LeaseWorkItemResponseUnifiedWorkerResponse
+ where
+ parseJSON
+ = withObject
+ "LeaseWorkItemResponseUnifiedWorkerResponse"
+ (\ o ->
+ LeaseWorkItemResponseUnifiedWorkerResponse' <$>
+ (parseJSONObject o))
+
+instance ToJSON
+ LeaseWorkItemResponseUnifiedWorkerResponse
+ where
+ toJSON = toJSON . _lAddtional
+
-- | An instruction that does a ParDo operation. Takes one main input and
-- zero or more side inputs, and produces zero or more outputs. Runs user
-- code.
--
-- /See:/ 'parDoInstruction' smart constructor.
-data ParDoInstruction = ParDoInstruction'
+data ParDoInstruction =
+ ParDoInstruction'
{ _pdiNumOutputs :: !(Maybe (Textual Int32))
, _pdiMultiOutputInfos :: !(Maybe [MultiOutputInfo])
, _pdiSideInputs :: !(Maybe [SideInputInfo])
, _pdiInput :: !(Maybe InstructionInput)
, _pdiUserFn :: !(Maybe ParDoInstructionUserFn)
- } deriving (Eq,Show,Data,Typeable,Generic)
+ }
+ deriving (Eq, Show, Data, Typeable, Generic)
+
-- | Creates a value of 'ParDoInstruction' with the minimum fields required to make a request.
--
@@ -9705,7 +10416,7 @@ data ParDoInstruction = ParDoInstruction'
parDoInstruction
:: ParDoInstruction
parDoInstruction =
- ParDoInstruction'
+ ParDoInstruction'
{ _pdiNumOutputs = Nothing
, _pdiMultiOutputInfos = Nothing
, _pdiSideInputs = Nothing
@@ -9713,6 +10424,7 @@ parDoInstruction =
, _pdiUserFn = Nothing
}
+
-- | The number of outputs.
pdiNumOutputs :: Lens' ParDoInstruction (Maybe Int32)
pdiNumOutputs
@@ -9769,9 +10481,12 @@ instance ToJSON ParDoInstruction where
-- | Identifies the location of a custom souce.
--
-- /See:/ 'customSourceLocation' smart constructor.
-newtype CustomSourceLocation = CustomSourceLocation'
+newtype CustomSourceLocation =
+ CustomSourceLocation'
{ _cslStateful :: Maybe Bool
- } deriving (Eq,Show,Data,Typeable,Generic)
+ }
+ deriving (Eq, Show, Data, Typeable, Generic)
+
-- | Creates a value of 'CustomSourceLocation' with the minimum fields required to make a request.
--
@@ -9780,10 +10495,8 @@ newtype CustomSourceLocation = CustomSourceLocation'
-- * 'cslStateful'
customSourceLocation
:: CustomSourceLocation
-customSourceLocation =
- CustomSourceLocation'
- { _cslStateful = Nothing
- }
+customSourceLocation = CustomSourceLocation' {_cslStateful = Nothing}
+
-- | Whether this source is stateful.
cslStateful :: Lens' CustomSourceLocation (Maybe Bool)
@@ -9803,14 +10516,17 @@ instance ToJSON CustomSourceLocation where
-- | A metric value representing a distribution.
--
-- /See:/ 'distributionUpdate' smart constructor.
-data DistributionUpdate = DistributionUpdate'
+data DistributionUpdate =
+ DistributionUpdate'
{ _duMax :: !(Maybe SplitInt64)
, _duCount :: !(Maybe SplitInt64)
, _duMin :: !(Maybe SplitInt64)
, _duHistogram :: !(Maybe Histogram)
, _duSumOfSquares :: !(Maybe (Textual Double))
, _duSum :: !(Maybe SplitInt64)
- } deriving (Eq,Show,Data,Typeable,Generic)
+ }
+ deriving (Eq, Show, Data, Typeable, Generic)
+
-- | Creates a value of 'DistributionUpdate' with the minimum fields required to make a request.
--
@@ -9830,7 +10546,7 @@ data DistributionUpdate = DistributionUpdate'
distributionUpdate
:: DistributionUpdate
distributionUpdate =
- DistributionUpdate'
+ DistributionUpdate'
{ _duMax = Nothing
, _duCount = Nothing
, _duMin = Nothing
@@ -9839,6 +10555,7 @@ distributionUpdate =
, _duSum = Nothing
}
+
-- | The maximum value present in the distribution.
duMax :: Lens' DistributionUpdate (Maybe SplitInt64)
duMax = lens _duMax (\ s a -> s{_duMax = a})
@@ -9890,9 +10607,12 @@ instance ToJSON DistributionUpdate where
--
-- /See:/ 'sourceBaseSpecsItem' smart constructor.
-newtype SourceBaseSpecsItem = SourceBaseSpecsItem'
+newtype SourceBaseSpecsItem =
+ SourceBaseSpecsItem'
{ _sbsiAddtional :: HashMap Text JSONValue
- } deriving (Eq,Show,Data,Typeable,Generic)
+ }
+ deriving (Eq, Show, Data, Typeable, Generic)
+
-- | Creates a value of 'SourceBaseSpecsItem' with the minimum fields required to make a request.
--
@@ -9903,9 +10623,8 @@ sourceBaseSpecsItem
:: HashMap Text JSONValue -- ^ 'sbsiAddtional'
-> SourceBaseSpecsItem
sourceBaseSpecsItem pSbsiAddtional_ =
- SourceBaseSpecsItem'
- { _sbsiAddtional = _Coerce # pSbsiAddtional_
- }
+ SourceBaseSpecsItem' {_sbsiAddtional = _Coerce # pSbsiAddtional_}
+
-- | Properties of the object.
sbsiAddtional :: Lens' SourceBaseSpecsItem (HashMap Text JSONValue)
@@ -9925,7 +10644,8 @@ instance ToJSON SourceBaseSpecsItem where
-- | Describes a particular operation comprising a MapTask.
--
-- /See:/ 'parallelInstruction' smart constructor.
-data ParallelInstruction = ParallelInstruction'
+data ParallelInstruction =
+ ParallelInstruction'
{ _piRead :: !(Maybe ReadInstruction)
, _piWrite :: !(Maybe WriteInstruction)
, _piParDo :: !(Maybe ParDoInstruction)
@@ -9935,7 +10655,9 @@ data ParallelInstruction = ParallelInstruction'
, _piSystemName :: !(Maybe Text)
, _piFlatten :: !(Maybe FlattenInstruction)
, _piOriginalName :: !(Maybe Text)
- } deriving (Eq,Show,Data,Typeable,Generic)
+ }
+ deriving (Eq, Show, Data, Typeable, Generic)
+
-- | Creates a value of 'ParallelInstruction' with the minimum fields required to make a request.
--
@@ -9961,7 +10683,7 @@ data ParallelInstruction = ParallelInstruction'
parallelInstruction
:: ParallelInstruction
parallelInstruction =
- ParallelInstruction'
+ ParallelInstruction'
{ _piRead = Nothing
, _piWrite = Nothing
, _piParDo = Nothing
@@ -9973,6 +10695,7 @@ parallelInstruction =
, _piOriginalName = Nothing
}
+
-- | Additional information for Read instructions.
piRead :: Lens' ParallelInstruction (Maybe ReadInstruction)
piRead = lens _piRead (\ s a -> s{_piRead = a})
@@ -10048,9 +10771,12 @@ instance ToJSON ParallelInstruction where
-- | How to interpret the source element(s) as a side input value.
--
-- /See:/ 'sideInputInfoKind' smart constructor.
-newtype SideInputInfoKind = SideInputInfoKind'
+newtype SideInputInfoKind =
+ SideInputInfoKind'
{ _siikAddtional :: HashMap Text JSONValue
- } deriving (Eq,Show,Data,Typeable,Generic)
+ }
+ deriving (Eq, Show, Data, Typeable, Generic)
+
-- | Creates a value of 'SideInputInfoKind' with the minimum fields required to make a request.
--
@@ -10061,9 +10787,8 @@ sideInputInfoKind
:: HashMap Text JSONValue -- ^ 'siikAddtional'
-> SideInputInfoKind
sideInputInfoKind pSiikAddtional_ =
- SideInputInfoKind'
- { _siikAddtional = _Coerce # pSiikAddtional_
- }
+ SideInputInfoKind' {_siikAddtional = _Coerce # pSiikAddtional_}
+
-- | Properties of the object.
siikAddtional :: Lens' SideInputInfoKind (HashMap Text JSONValue)
@@ -10084,12 +10809,16 @@ instance ToJSON SideInputInfoKind where
-- computations.
--
-- /See:/ 'streamingConfigTask' smart constructor.
-data StreamingConfigTask = StreamingConfigTask'
+data StreamingConfigTask =
+ StreamingConfigTask'
{ _sctUserStepToStateFamilyNameMap :: !(Maybe StreamingConfigTaskUserStepToStateFamilyNameMap)
, _sctStreamingComputationConfigs :: !(Maybe [StreamingComputationConfig])
, _sctWindmillServiceEndpoint :: !(Maybe Text)
, _sctWindmillServicePort :: !(Maybe (Textual Int64))
- } deriving (Eq,Show,Data,Typeable,Generic)
+ , _sctMaxWorkItemCommitBytes :: !(Maybe (Textual Int64))
+ }
+ deriving (Eq, Show, Data, Typeable, Generic)
+
-- | Creates a value of 'StreamingConfigTask' with the minimum fields required to make a request.
--
@@ -10102,16 +10831,20 @@ data StreamingConfigTask = StreamingConfigTask'
-- * 'sctWindmillServiceEndpoint'
--
-- * 'sctWindmillServicePort'
+--
+-- * 'sctMaxWorkItemCommitBytes'
streamingConfigTask
:: StreamingConfigTask
streamingConfigTask =
- StreamingConfigTask'
+ StreamingConfigTask'
{ _sctUserStepToStateFamilyNameMap = Nothing
, _sctStreamingComputationConfigs = Nothing
, _sctWindmillServiceEndpoint = Nothing
, _sctWindmillServicePort = Nothing
+ , _sctMaxWorkItemCommitBytes = Nothing
}
+
-- | Map from user step names to state families.
sctUserStepToStateFamilyNameMap :: Lens' StreamingConfigTask (Maybe StreamingConfigTaskUserStepToStateFamilyNameMap)
sctUserStepToStateFamilyNameMap
@@ -10143,6 +10876,13 @@ sctWindmillServicePort
(\ s a -> s{_sctWindmillServicePort = a})
. mapping _Coerce
+-- | Maximum size for work item commit supported windmill storage layer.
+sctMaxWorkItemCommitBytes :: Lens' StreamingConfigTask (Maybe Int64)
+sctMaxWorkItemCommitBytes
+ = lens _sctMaxWorkItemCommitBytes
+ (\ s a -> s{_sctMaxWorkItemCommitBytes = a})
+ . mapping _Coerce
+
instance FromJSON StreamingConfigTask where
parseJSON
= withObject "StreamingConfigTask"
@@ -10151,7 +10891,8 @@ instance FromJSON StreamingConfigTask where
(o .:? "userStepToStateFamilyNameMap") <*>
(o .:? "streamingComputationConfigs" .!= mempty)
<*> (o .:? "windmillServiceEndpoint")
- <*> (o .:? "windmillServicePort"))
+ <*> (o .:? "windmillServicePort")
+ <*> (o .:? "maxWorkItemCommitBytes"))
instance ToJSON StreamingConfigTask where
toJSON StreamingConfigTask'{..}
@@ -10164,16 +10905,21 @@ instance ToJSON StreamingConfigTask where
("windmillServiceEndpoint" .=) <$>
_sctWindmillServiceEndpoint,
("windmillServicePort" .=) <$>
- _sctWindmillServicePort])
+ _sctWindmillServicePort,
+ ("maxWorkItemCommitBytes" .=) <$>
+ _sctMaxWorkItemCommitBytes])
-- | The metric short id is returned to the user alongside an offset into
-- ReportWorkItemStatusRequest
--
-- /See:/ 'metricShortId' smart constructor.
-data MetricShortId = MetricShortId'
+data MetricShortId =
+ MetricShortId'
{ _msiShortId :: !(Maybe (Textual Int64))
, _msiMetricIndex :: !(Maybe (Textual Int32))
- } deriving (Eq,Show,Data,Typeable,Generic)
+ }
+ deriving (Eq, Show, Data, Typeable, Generic)
+
-- | Creates a value of 'MetricShortId' with the minimum fields required to make a request.
--
@@ -10185,10 +10931,8 @@ data MetricShortId = MetricShortId'
metricShortId
:: MetricShortId
metricShortId =
- MetricShortId'
- { _msiShortId = Nothing
- , _msiMetricIndex = Nothing
- }
+ MetricShortId' {_msiShortId = Nothing, _msiMetricIndex = Nothing}
+
-- | The service-generated short identifier for the metric.
msiShortId :: Lens' MetricShortId (Maybe Int64)
@@ -10221,10 +10965,13 @@ instance ToJSON MetricShortId where
-- | A request for sending worker messages to the service.
--
-- /See:/ 'sendWorkerMessagesRequest' smart constructor.
-data SendWorkerMessagesRequest = SendWorkerMessagesRequest'
+data SendWorkerMessagesRequest =
+ SendWorkerMessagesRequest'
{ _swmrLocation :: !(Maybe Text)
, _swmrWorkerMessages :: !(Maybe [WorkerMessage])
- } deriving (Eq,Show,Data,Typeable,Generic)
+ }
+ deriving (Eq, Show, Data, Typeable, Generic)
+
-- | Creates a value of 'SendWorkerMessagesRequest' with the minimum fields required to make a request.
--
@@ -10236,12 +10983,13 @@ data SendWorkerMessagesRequest = SendWorkerMessagesRequest'
sendWorkerMessagesRequest
:: SendWorkerMessagesRequest
sendWorkerMessagesRequest =
- SendWorkerMessagesRequest'
- { _swmrLocation = Nothing
- , _swmrWorkerMessages = Nothing
- }
+ SendWorkerMessagesRequest'
+ {_swmrLocation = Nothing, _swmrWorkerMessages = Nothing}
--- | The location which contains the job
+
+-- | The [regional endpoint]
+-- (https:\/\/cloud.google.com\/dataflow\/docs\/concepts\/regional-endpoints)
+-- that contains the job.
swmrLocation :: Lens' SendWorkerMessagesRequest (Maybe Text)
swmrLocation
= lens _swmrLocation (\ s a -> s{_swmrLocation = a})
@@ -10272,10 +11020,13 @@ instance ToJSON SendWorkerMessagesRequest where
-- | DEPRECATED in favor of DerivedSource.
--
-- /See:/ 'sourceSplitShard' smart constructor.
-data SourceSplitShard = SourceSplitShard'
+data SourceSplitShard =
+ SourceSplitShard'
{ _sssDerivationMode :: !(Maybe SourceSplitShardDerivationMode)
, _sssSource :: !(Maybe Source)
- } deriving (Eq,Show,Data,Typeable,Generic)
+ }
+ deriving (Eq, Show, Data, Typeable, Generic)
+
-- | Creates a value of 'SourceSplitShard' with the minimum fields required to make a request.
--
@@ -10287,10 +11038,8 @@ data SourceSplitShard = SourceSplitShard'
sourceSplitShard
:: SourceSplitShard
sourceSplitShard =
- SourceSplitShard'
- { _sssDerivationMode = Nothing
- , _sssSource = Nothing
- }
+ SourceSplitShard' {_sssDerivationMode = Nothing, _sssSource = Nothing}
+
-- | DEPRECATED
sssDerivationMode :: Lens' SourceSplitShard (Maybe SourceSplitShardDerivationMode)
@@ -10320,11 +11069,14 @@ instance ToJSON SourceSplitShard where
-- | Information about a side input of a DoFn or an input of a SeqDoFn.
--
-- /See:/ 'sideInputInfo' smart constructor.
-data SideInputInfo = SideInputInfo'
+data SideInputInfo =
+ SideInputInfo'
{ _siiTag :: !(Maybe Text)
, _siiKind :: !(Maybe SideInputInfoKind)
, _siiSources :: !(Maybe [Source])
- } deriving (Eq,Show,Data,Typeable,Generic)
+ }
+ deriving (Eq, Show, Data, Typeable, Generic)
+
-- | Creates a value of 'SideInputInfo' with the minimum fields required to make a request.
--
@@ -10338,11 +11090,8 @@ data SideInputInfo = SideInputInfo'
sideInputInfo
:: SideInputInfo
sideInputInfo =
- SideInputInfo'
- { _siiTag = Nothing
- , _siiKind = Nothing
- , _siiSources = Nothing
- }
+ SideInputInfo' {_siiTag = Nothing, _siiKind = Nothing, _siiSources = Nothing}
+
-- | The id of the tag the user code will access this side input by; this
-- should correspond to the tag of some MultiOutputInfo.
@@ -10381,11 +11130,14 @@ instance ToJSON SideInputInfo where
-- | Description of a transform executed as part of an execution stage.
--
-- /See:/ 'componentTransform' smart constructor.
-data ComponentTransform = ComponentTransform'
+data ComponentTransform =
+ ComponentTransform'
{ _ctOriginalTransform :: !(Maybe Text)
, _ctUserName :: !(Maybe Text)
, _ctName :: !(Maybe Text)
- } deriving (Eq,Show,Data,Typeable,Generic)
+ }
+ deriving (Eq, Show, Data, Typeable, Generic)
+
-- | Creates a value of 'ComponentTransform' with the minimum fields required to make a request.
--
@@ -10399,11 +11151,9 @@ data ComponentTransform = ComponentTransform'
componentTransform
:: ComponentTransform
componentTransform =
- ComponentTransform'
- { _ctOriginalTransform = Nothing
- , _ctUserName = Nothing
- , _ctName = Nothing
- }
+ ComponentTransform'
+ {_ctOriginalTransform = Nothing, _ctUserName = Nothing, _ctName = Nothing}
+
-- | User name for the original user transform with which this transform is
-- most closely associated.
@@ -10437,13 +11187,61 @@ instance ToJSON ComponentTransform where
("userName" .=) <$> _ctUserName,
("name" .=) <$> _ctName])
+-- | Map from user name of stateful transforms in this stage to their state
+-- family.
+--
+-- /See:/ 'streamingComputationConfigTransformUserNameToStateFamily' smart constructor.
+newtype StreamingComputationConfigTransformUserNameToStateFamily =
+ StreamingComputationConfigTransformUserNameToStateFamily'
+ { _scctuntsfAddtional :: HashMap Text Text
+ }
+ deriving (Eq, Show, Data, Typeable, Generic)
+
+
+-- | Creates a value of 'StreamingComputationConfigTransformUserNameToStateFamily' with the minimum fields required to make a request.
+--
+-- Use one of the following lenses to modify other fields as desired:
+--
+-- * 'scctuntsfAddtional'
+streamingComputationConfigTransformUserNameToStateFamily
+ :: HashMap Text Text -- ^ 'scctuntsfAddtional'
+ -> StreamingComputationConfigTransformUserNameToStateFamily
+streamingComputationConfigTransformUserNameToStateFamily pScctuntsfAddtional_ =
+ StreamingComputationConfigTransformUserNameToStateFamily'
+ {_scctuntsfAddtional = _Coerce # pScctuntsfAddtional_}
+
+
+scctuntsfAddtional :: Lens' StreamingComputationConfigTransformUserNameToStateFamily (HashMap Text Text)
+scctuntsfAddtional
+ = lens _scctuntsfAddtional
+ (\ s a -> s{_scctuntsfAddtional = a})
+ . _Coerce
+
+instance FromJSON
+ StreamingComputationConfigTransformUserNameToStateFamily
+ where
+ parseJSON
+ = withObject
+ "StreamingComputationConfigTransformUserNameToStateFamily"
+ (\ o ->
+ StreamingComputationConfigTransformUserNameToStateFamily'
+ <$> (parseJSONObject o))
+
+instance ToJSON
+ StreamingComputationConfigTransformUserNameToStateFamily
+ where
+ toJSON = toJSON . _scctuntsfAddtional
+
-- | Additional information about how a Cloud Dataflow job will be executed
-- that isn\'t contained in the submitted job.
--
-- /See:/ 'jobExecutionInfo' smart constructor.
-newtype JobExecutionInfo = JobExecutionInfo'
+newtype JobExecutionInfo =
+ JobExecutionInfo'
{ _jeiStages :: Maybe JobExecutionInfoStages
- } deriving (Eq,Show,Data,Typeable,Generic)
+ }
+ deriving (Eq, Show, Data, Typeable, Generic)
+
-- | Creates a value of 'JobExecutionInfo' with the minimum fields required to make a request.
--
@@ -10452,10 +11250,8 @@ newtype JobExecutionInfo = JobExecutionInfo'
-- * 'jeiStages'
jobExecutionInfo
:: JobExecutionInfo
-jobExecutionInfo =
- JobExecutionInfo'
- { _jeiStages = Nothing
- }
+jobExecutionInfo = JobExecutionInfo' {_jeiStages = Nothing}
+
-- | A mapping from each stage to the information about that stage.
jeiStages :: Lens' JobExecutionInfo (Maybe JobExecutionInfoStages)
@@ -10474,9 +11270,12 @@ instance ToJSON JobExecutionInfo where
-- | The codec to use to decode data read from the source.
--
-- /See:/ 'sourceCodec' smart constructor.
-newtype SourceCodec = SourceCodec'
+newtype SourceCodec =
+ SourceCodec'
{ _souAddtional :: HashMap Text JSONValue
- } deriving (Eq,Show,Data,Typeable,Generic)
+ }
+ deriving (Eq, Show, Data, Typeable, Generic)
+
-- | Creates a value of 'SourceCodec' with the minimum fields required to make a request.
--
@@ -10487,9 +11286,8 @@ sourceCodec
:: HashMap Text JSONValue -- ^ 'souAddtional'
-> SourceCodec
sourceCodec pSouAddtional_ =
- SourceCodec'
- { _souAddtional = _Coerce # pSouAddtional_
- }
+ SourceCodec' {_souAddtional = _Coerce # pSouAddtional_}
+
-- | Properties of the object.
souAddtional :: Lens' SourceCodec (HashMap Text JSONValue)
@@ -10508,10 +11306,13 @@ instance ToJSON SourceCodec where
-- | State family configuration.
--
-- /See:/ 'stateFamilyConfig' smart constructor.
-data StateFamilyConfig = StateFamilyConfig'
+data StateFamilyConfig =
+ StateFamilyConfig'
{ _sfcIsRead :: !(Maybe Bool)
, _sfcStateFamily :: !(Maybe Text)
- } deriving (Eq,Show,Data,Typeable,Generic)
+ }
+ deriving (Eq, Show, Data, Typeable, Generic)
+
-- | Creates a value of 'StateFamilyConfig' with the minimum fields required to make a request.
--
@@ -10523,10 +11324,8 @@ data StateFamilyConfig = StateFamilyConfig'
stateFamilyConfig
:: StateFamilyConfig
stateFamilyConfig =
- StateFamilyConfig'
- { _sfcIsRead = Nothing
- , _sfcStateFamily = Nothing
- }
+ StateFamilyConfig' {_sfcIsRead = Nothing, _sfcStateFamily = Nothing}
+
-- | If true, this family corresponds to a read operation.
sfcIsRead :: Lens' StateFamilyConfig (Maybe Bool)
@@ -10558,11 +11357,14 @@ instance ToJSON StateFamilyConfig where
-- simplify encoding into JSON.
--
-- /See:/ 'keyRangeDataDiskAssignment' smart constructor.
-data KeyRangeDataDiskAssignment = KeyRangeDataDiskAssignment'
+data KeyRangeDataDiskAssignment =
+ KeyRangeDataDiskAssignment'
{ _krddaDataDisk :: !(Maybe Text)
, _krddaStart :: !(Maybe Text)
, _krddaEnd :: !(Maybe Text)
- } deriving (Eq,Show,Data,Typeable,Generic)
+ }
+ deriving (Eq, Show, Data, Typeable, Generic)
+
-- | Creates a value of 'KeyRangeDataDiskAssignment' with the minimum fields required to make a request.
--
@@ -10576,11 +11378,9 @@ data KeyRangeDataDiskAssignment = KeyRangeDataDiskAssignment'
keyRangeDataDiskAssignment
:: KeyRangeDataDiskAssignment
keyRangeDataDiskAssignment =
- KeyRangeDataDiskAssignment'
- { _krddaDataDisk = Nothing
- , _krddaStart = Nothing
- , _krddaEnd = Nothing
- }
+ KeyRangeDataDiskAssignment'
+ {_krddaDataDisk = Nothing, _krddaStart = Nothing, _krddaEnd = Nothing}
+
-- | The name of the data disk where data for this range is stored. This name
-- is local to the Google Cloud Platform project and uniquely identifies
@@ -10620,14 +11420,17 @@ instance ToJSON KeyRangeDataDiskAssignment where
-- Dataflow service.
--
-- /See:/ 'autoscalingEvent' smart constructor.
-data AutoscalingEvent = AutoscalingEvent'
+data AutoscalingEvent =
+ AutoscalingEvent'
{ _aeCurrentNumWorkers :: !(Maybe (Textual Int64))
, _aeTime :: !(Maybe DateTime')
, _aeEventType :: !(Maybe AutoscalingEventEventType)
, _aeTargetNumWorkers :: !(Maybe (Textual Int64))
, _aeWorkerPool :: !(Maybe Text)
, _aeDescription :: !(Maybe StructuredMessage)
- } deriving (Eq,Show,Data,Typeable,Generic)
+ }
+ deriving (Eq, Show, Data, Typeable, Generic)
+
-- | Creates a value of 'AutoscalingEvent' with the minimum fields required to make a request.
--
@@ -10647,7 +11450,7 @@ data AutoscalingEvent = AutoscalingEvent'
autoscalingEvent
:: AutoscalingEvent
autoscalingEvent =
- AutoscalingEvent'
+ AutoscalingEvent'
{ _aeCurrentNumWorkers = Nothing
, _aeTime = Nothing
, _aeEventType = Nothing
@@ -10656,6 +11459,7 @@ autoscalingEvent =
, _aeDescription = Nothing
}
+
-- | The current number of workers the job has.
aeCurrentNumWorkers :: Lens' AutoscalingEvent (Maybe Int64)
aeCurrentNumWorkers
@@ -10731,10 +11535,13 @@ instance ToJSON AutoscalingEvent where
-- and to bundles produced from it.
--
-- /See:/ 'sourceSplitRequest' smart constructor.
-data SourceSplitRequest = SourceSplitRequest'
+data SourceSplitRequest =
+ SourceSplitRequest'
{ _ssrSource :: !(Maybe Source)
, _ssrOptions :: !(Maybe SourceSplitOptions)
- } deriving (Eq,Show,Data,Typeable,Generic)
+ }
+ deriving (Eq, Show, Data, Typeable, Generic)
+
-- | Creates a value of 'SourceSplitRequest' with the minimum fields required to make a request.
--
@@ -10746,10 +11553,8 @@ data SourceSplitRequest = SourceSplitRequest'
sourceSplitRequest
:: SourceSplitRequest
sourceSplitRequest =
- SourceSplitRequest'
- { _ssrSource = Nothing
- , _ssrOptions = Nothing
- }
+ SourceSplitRequest' {_ssrSource = Nothing, _ssrOptions = Nothing}
+
-- | Specification of the source to be split.
ssrSource :: Lens' SourceSplitRequest (Maybe Source)
@@ -10778,11 +11583,14 @@ instance ToJSON SourceSplitRequest where
-- | Response to a request to list job messages.
--
-- /See:/ 'listJobMessagesResponse' smart constructor.
-data ListJobMessagesResponse = ListJobMessagesResponse'
+data ListJobMessagesResponse =
+ ListJobMessagesResponse'
{ _ljmrJobMessages :: !(Maybe [JobMessage])
, _ljmrNextPageToken :: !(Maybe Text)
, _ljmrAutoscalingEvents :: !(Maybe [AutoscalingEvent])
- } deriving (Eq,Show,Data,Typeable,Generic)
+ }
+ deriving (Eq, Show, Data, Typeable, Generic)
+
-- | Creates a value of 'ListJobMessagesResponse' with the minimum fields required to make a request.
--
@@ -10796,12 +11604,13 @@ data ListJobMessagesResponse = ListJobMessagesResponse'
listJobMessagesResponse
:: ListJobMessagesResponse
listJobMessagesResponse =
- ListJobMessagesResponse'
+ ListJobMessagesResponse'
{ _ljmrJobMessages = Nothing
, _ljmrNextPageToken = Nothing
, _ljmrAutoscalingEvents = Nothing
}
+
-- | Messages in ascending timestamp order.
ljmrJobMessages :: Lens' ListJobMessagesResponse [JobMessage]
ljmrJobMessages
@@ -10845,7 +11654,8 @@ instance ToJSON ListJobMessagesResponse where
-- a streaming Dataflow job.
--
-- /See:/ 'pubsubLocation' smart constructor.
-data PubsubLocation = PubsubLocation'
+data PubsubLocation =
+ PubsubLocation'
{ _plTrackingSubscription :: !(Maybe Text)
, _plDropLateData :: !(Maybe Bool)
, _plTimestampLabel :: !(Maybe Text)
@@ -10853,7 +11663,9 @@ data PubsubLocation = PubsubLocation'
, _plTopic :: !(Maybe Text)
, _plWithAttributes :: !(Maybe Bool)
, _plSubscription :: !(Maybe Text)
- } deriving (Eq,Show,Data,Typeable,Generic)
+ }
+ deriving (Eq, Show, Data, Typeable, Generic)
+
-- | Creates a value of 'PubsubLocation' with the minimum fields required to make a request.
--
@@ -10875,7 +11687,7 @@ data PubsubLocation = PubsubLocation'
pubsubLocation
:: PubsubLocation
pubsubLocation =
- PubsubLocation'
+ PubsubLocation'
{ _plTrackingSubscription = Nothing
, _plDropLateData = Nothing
, _plTimestampLabel = Nothing
@@ -10885,6 +11697,7 @@ pubsubLocation =
, _plSubscription = Nothing
}
+
-- | If set, specifies the pubsub subscription that will be used for tracking
-- custom time timestamps for watermark estimation.
plTrackingSubscription :: Lens' PubsubLocation (Maybe Text)
@@ -10957,9 +11770,12 @@ instance ToJSON PubsubLocation where
-- | A metric value representing a list of floating point numbers.
--
-- /See:/ 'floatingPointList' smart constructor.
-newtype FloatingPointList = FloatingPointList'
+newtype FloatingPointList =
+ FloatingPointList'
{ _fplElements :: Maybe [Textual Double]
- } deriving (Eq,Show,Data,Typeable,Generic)
+ }
+ deriving (Eq, Show, Data, Typeable, Generic)
+
-- | Creates a value of 'FloatingPointList' with the minimum fields required to make a request.
--
@@ -10968,10 +11784,8 @@ newtype FloatingPointList = FloatingPointList'
-- * 'fplElements'
floatingPointList
:: FloatingPointList
-floatingPointList =
- FloatingPointList'
- { _fplElements = Nothing
- }
+floatingPointList = FloatingPointList' {_fplElements = Nothing}
+
-- | Elements of the list.
fplElements :: Lens' FloatingPointList [Double]
@@ -10995,10 +11809,13 @@ instance ToJSON FloatingPointList where
-- instruction.
--
-- /See:/ 'instructionInput' smart constructor.
-data InstructionInput = InstructionInput'
+data InstructionInput =
+ InstructionInput'
{ _iiProducerInstructionIndex :: !(Maybe (Textual Int32))
, _iiOutputNum :: !(Maybe (Textual Int32))
- } deriving (Eq,Show,Data,Typeable,Generic)
+ }
+ deriving (Eq, Show, Data, Typeable, Generic)
+
-- | Creates a value of 'InstructionInput' with the minimum fields required to make a request.
--
@@ -11010,10 +11827,9 @@ data InstructionInput = InstructionInput'
instructionInput
:: InstructionInput
instructionInput =
- InstructionInput'
- { _iiProducerInstructionIndex = Nothing
- , _iiOutputNum = Nothing
- }
+ InstructionInput'
+ {_iiProducerInstructionIndex = Nothing, _iiOutputNum = Nothing}
+
-- | The index (origin zero) of the parallel instruction that produces the
-- output to be consumed by this input. This index is relative to the list
@@ -11049,14 +11865,17 @@ instance ToJSON InstructionInput where
-- | Describes a particular function to invoke.
--
-- /See:/ 'seqMapTask' smart constructor.
-data SeqMapTask = SeqMapTask'
+data SeqMapTask =
+ SeqMapTask'
{ _smtInputs :: !(Maybe [SideInputInfo])
, _smtName :: !(Maybe Text)
, _smtOutputInfos :: !(Maybe [SeqMapTaskOutputInfo])
, _smtSystemName :: !(Maybe Text)
, _smtStageName :: !(Maybe Text)
, _smtUserFn :: !(Maybe SeqMapTaskUserFn)
- } deriving (Eq,Show,Data,Typeable,Generic)
+ }
+ deriving (Eq, Show, Data, Typeable, Generic)
+
-- | Creates a value of 'SeqMapTask' with the minimum fields required to make a request.
--
@@ -11076,7 +11895,7 @@ data SeqMapTask = SeqMapTask'
seqMapTask
:: SeqMapTask
seqMapTask =
- SeqMapTask'
+ SeqMapTask'
{ _smtInputs = Nothing
, _smtName = Nothing
, _smtOutputInfos = Nothing
@@ -11085,6 +11904,7 @@ seqMapTask =
, _smtUserFn = Nothing
}
+
-- | Information about each of the inputs.
smtInputs :: Lens' SeqMapTask [SideInputInfo]
smtInputs
@@ -11146,9 +11966,12 @@ instance ToJSON SeqMapTask where
-- | Map from user step names to state families.
--
-- /See:/ 'streamingConfigTaskUserStepToStateFamilyNameMap' smart constructor.
-newtype StreamingConfigTaskUserStepToStateFamilyNameMap = StreamingConfigTaskUserStepToStateFamilyNameMap'
+newtype StreamingConfigTaskUserStepToStateFamilyNameMap =
+ StreamingConfigTaskUserStepToStateFamilyNameMap'
{ _sctustsfnmAddtional :: HashMap Text Text
- } deriving (Eq,Show,Data,Typeable,Generic)
+ }
+ deriving (Eq, Show, Data, Typeable, Generic)
+
-- | Creates a value of 'StreamingConfigTaskUserStepToStateFamilyNameMap' with the minimum fields required to make a request.
--
@@ -11159,9 +11982,9 @@ streamingConfigTaskUserStepToStateFamilyNameMap
:: HashMap Text Text -- ^ 'sctustsfnmAddtional'
-> StreamingConfigTaskUserStepToStateFamilyNameMap
streamingConfigTaskUserStepToStateFamilyNameMap pSctustsfnmAddtional_ =
- StreamingConfigTaskUserStepToStateFamilyNameMap'
- { _sctustsfnmAddtional = _Coerce # pSctustsfnmAddtional_
- }
+ StreamingConfigTaskUserStepToStateFamilyNameMap'
+ {_sctustsfnmAddtional = _Coerce # pSctustsfnmAddtional_}
+
sctustsfnmAddtional :: Lens' StreamingConfigTaskUserStepToStateFamilyNameMap (HashMap Text Text)
sctustsfnmAddtional
@@ -11170,7 +11993,8 @@ sctustsfnmAddtional
. _Coerce
instance FromJSON
- StreamingConfigTaskUserStepToStateFamilyNameMap where
+ StreamingConfigTaskUserStepToStateFamilyNameMap
+ where
parseJSON
= withObject
"StreamingConfigTaskUserStepToStateFamilyNameMap"
@@ -11179,17 +12003,21 @@ instance FromJSON
(parseJSONObject o))
instance ToJSON
- StreamingConfigTaskUserStepToStateFamilyNameMap where
+ StreamingConfigTaskUserStepToStateFamilyNameMap
+ where
toJSON = toJSON . _sctustsfnmAddtional
-- | A message describing the state of a particular execution stage.
--
-- /See:/ 'executionStageState' smart constructor.
-data ExecutionStageState = ExecutionStageState'
+data ExecutionStageState =
+ ExecutionStageState'
{ _essExecutionStageName :: !(Maybe Text)
, _essCurrentStateTime :: !(Maybe DateTime')
, _essExecutionStageState :: !(Maybe ExecutionStageStateExecutionStageState)
- } deriving (Eq,Show,Data,Typeable,Generic)
+ }
+ deriving (Eq, Show, Data, Typeable, Generic)
+
-- | Creates a value of 'ExecutionStageState' with the minimum fields required to make a request.
--
@@ -11203,12 +12031,13 @@ data ExecutionStageState = ExecutionStageState'
executionStageState
:: ExecutionStageState
executionStageState =
- ExecutionStageState'
+ ExecutionStageState'
{ _essExecutionStageName = Nothing
, _essCurrentStateTime = Nothing
, _essExecutionStageState = Nothing
}
+
-- | The name of the execution stage.
essExecutionStageName :: Lens' ExecutionStageState (Maybe Text)
essExecutionStageName
@@ -11250,12 +12079,15 @@ instance ToJSON ExecutionStageState where
-- | Description of an input or output of an execution stage.
--
-- /See:/ 'stageSource' smart constructor.
-data StageSource = StageSource'
+data StageSource =
+ StageSource'
{ _ssSizeBytes :: !(Maybe (Textual Int64))
, _ssUserName :: !(Maybe Text)
, _ssName :: !(Maybe Text)
, _ssOriginalTransformOrCollection :: !(Maybe Text)
- } deriving (Eq,Show,Data,Typeable,Generic)
+ }
+ deriving (Eq, Show, Data, Typeable, Generic)
+
-- | Creates a value of 'StageSource' with the minimum fields required to make a request.
--
@@ -11271,13 +12103,14 @@ data StageSource = StageSource'
stageSource
:: StageSource
stageSource =
- StageSource'
+ StageSource'
{ _ssSizeBytes = Nothing
, _ssUserName = Nothing
, _ssName = Nothing
, _ssOriginalTransformOrCollection = Nothing
}
+
-- | Size of the source, if measurable.
ssSizeBytes :: Lens' StageSource (Maybe Int64)
ssSizeBytes
@@ -11323,14 +12156,17 @@ instance ToJSON StageSource where
-- performed on a user-defined Source specification.
--
-- /See:/ 'sourceOperationRequest' smart constructor.
-data SourceOperationRequest = SourceOperationRequest'
+data SourceOperationRequest =
+ SourceOperationRequest'
{ _souSplit :: !(Maybe SourceSplitRequest)
, _souGetMetadata :: !(Maybe SourceGetMetadataRequest)
, _souName :: !(Maybe Text)
, _souSystemName :: !(Maybe Text)
, _souStageName :: !(Maybe Text)
, _souOriginalName :: !(Maybe Text)
- } deriving (Eq,Show,Data,Typeable,Generic)
+ }
+ deriving (Eq, Show, Data, Typeable, Generic)
+
-- | Creates a value of 'SourceOperationRequest' with the minimum fields required to make a request.
--
@@ -11350,7 +12186,7 @@ data SourceOperationRequest = SourceOperationRequest'
sourceOperationRequest
:: SourceOperationRequest
sourceOperationRequest =
- SourceOperationRequest'
+ SourceOperationRequest'
{ _souSplit = Nothing
, _souGetMetadata = Nothing
, _souName = Nothing
@@ -11359,6 +12195,7 @@ sourceOperationRequest =
, _souOriginalName = Nothing
}
+
-- | Information about a request to split a source.
souSplit :: Lens' SourceOperationRequest (Maybe SourceSplitRequest)
souSplit = lens _souSplit (\ s a -> s{_souSplit = a})
@@ -11418,11 +12255,14 @@ instance ToJSON SourceOperationRequest where
-- | Metadata for a Spanner connector used by the job.
--
-- /See:/ 'spannerIODetails' smart constructor.
-data SpannerIODetails = SpannerIODetails'
+data SpannerIODetails =
+ SpannerIODetails'
{ _siodInstanceId :: !(Maybe Text)
, _siodDatabaseId :: !(Maybe Text)
, _siodProjectId :: !(Maybe Text)
- } deriving (Eq,Show,Data,Typeable,Generic)
+ }
+ deriving (Eq, Show, Data, Typeable, Generic)
+
-- | Creates a value of 'SpannerIODetails' with the minimum fields required to make a request.
--
@@ -11436,12 +12276,13 @@ data SpannerIODetails = SpannerIODetails'
spannerIODetails
:: SpannerIODetails
spannerIODetails =
- SpannerIODetails'
+ SpannerIODetails'
{ _siodInstanceId = Nothing
, _siodDatabaseId = Nothing
, _siodProjectId = Nothing
}
+
-- | InstanceId accessed in the connection.
siodInstanceId :: Lens' SpannerIODetails (Maybe Text)
siodInstanceId
@@ -11479,21 +12320,27 @@ instance ToJSON SpannerIODetails where
-- | Response to a request to lease WorkItems.
--
-- /See:/ 'leaseWorkItemResponse' smart constructor.
-newtype LeaseWorkItemResponse = LeaseWorkItemResponse'
- { _lwirWorkItems :: Maybe [WorkItem]
- } deriving (Eq,Show,Data,Typeable,Generic)
+data LeaseWorkItemResponse =
+ LeaseWorkItemResponse'
+ { _lwirWorkItems :: !(Maybe [WorkItem])
+ , _lwirUnifiedWorkerResponse :: !(Maybe LeaseWorkItemResponseUnifiedWorkerResponse)
+ }
+ deriving (Eq, Show, Data, Typeable, Generic)
+
-- | Creates a value of 'LeaseWorkItemResponse' with the minimum fields required to make a request.
--
-- Use one of the following lenses to modify other fields as desired:
--
-- * 'lwirWorkItems'
+--
+-- * 'lwirUnifiedWorkerResponse'
leaseWorkItemResponse
:: LeaseWorkItemResponse
leaseWorkItemResponse =
- LeaseWorkItemResponse'
- { _lwirWorkItems = Nothing
- }
+ LeaseWorkItemResponse'
+ {_lwirWorkItems = Nothing, _lwirUnifiedWorkerResponse = Nothing}
+
-- | A list of the leased WorkItems.
lwirWorkItems :: Lens' LeaseWorkItemResponse [WorkItem]
@@ -11503,31 +12350,44 @@ lwirWorkItems
. _Default
. _Coerce
+-- | Untranslated bag-of-bytes WorkResponse for UnifiedWorker.
+lwirUnifiedWorkerResponse :: Lens' LeaseWorkItemResponse (Maybe LeaseWorkItemResponseUnifiedWorkerResponse)
+lwirUnifiedWorkerResponse
+ = lens _lwirUnifiedWorkerResponse
+ (\ s a -> s{_lwirUnifiedWorkerResponse = a})
+
instance FromJSON LeaseWorkItemResponse where
parseJSON
= withObject "LeaseWorkItemResponse"
(\ o ->
LeaseWorkItemResponse' <$>
- (o .:? "workItems" .!= mempty))
+ (o .:? "workItems" .!= mempty) <*>
+ (o .:? "unifiedWorkerResponse"))
instance ToJSON LeaseWorkItemResponse where
toJSON LeaseWorkItemResponse'{..}
= object
- (catMaybes [("workItems" .=) <$> _lwirWorkItems])
+ (catMaybes
+ [("workItems" .=) <$> _lwirWorkItems,
+ ("unifiedWorkerResponse" .=) <$>
+ _lwirUnifiedWorkerResponse])
-- | Position defines a position within a collection of data. The value can
-- be either the end position, a key (used with ordered collections), a
-- byte offset, or a record index.
--
-- /See:/ 'position' smart constructor.
-data Position = Position'
+data Position =
+ Position'
{ _pByteOffSet :: !(Maybe (Textual Int64))
, _pConcatPosition :: !(Maybe ConcatPosition)
, _pRecordIndex :: !(Maybe (Textual Int64))
, _pShufflePosition :: !(Maybe Text)
, _pKey :: !(Maybe Text)
, _pEnd :: !(Maybe Bool)
- } deriving (Eq,Show,Data,Typeable,Generic)
+ }
+ deriving (Eq, Show, Data, Typeable, Generic)
+
-- | Creates a value of 'Position' with the minimum fields required to make a request.
--
@@ -11547,7 +12407,7 @@ data Position = Position'
position
:: Position
position =
- Position'
+ Position'
{ _pByteOffSet = Nothing
, _pConcatPosition = Nothing
, _pRecordIndex = Nothing
@@ -11556,6 +12416,7 @@ position =
, _pEnd = Nothing
}
+
-- | Position is a byte offset.
pByteOffSet :: Lens' Position (Maybe Int64)
pByteOffSet
@@ -11614,10 +12475,13 @@ instance ToJSON Position where
-- | Structured data associated with this message.
--
-- /See:/ 'parameter' smart constructor.
-data Parameter = Parameter'
+data Parameter =
+ Parameter'
{ _parValue :: !(Maybe JSONValue)
, _parKey :: !(Maybe Text)
- } deriving (Eq,Show,Data,Typeable,Generic)
+ }
+ deriving (Eq, Show, Data, Typeable, Generic)
+
-- | Creates a value of 'Parameter' with the minimum fields required to make a request.
--
@@ -11628,11 +12492,8 @@ data Parameter = Parameter'
-- * 'parKey'
parameter
:: Parameter
-parameter =
- Parameter'
- { _parValue = Nothing
- , _parKey = Nothing
- }
+parameter = Parameter' {_parValue = Nothing, _parKey = Nothing}
+
-- | Value for this parameter.
parValue :: Lens' Parameter (Maybe JSONValue)
diff --git a/gen/Network/Google/Dataflow/Types/Sum.hs b/gen/Network/Google/Dataflow/Types/Sum.hs
index 38f4249..1883987 100644
--- a/gen/Network/Google/Dataflow/Types/Sum.hs
+++ b/gen/Network/Google/Dataflow/Types/Sum.hs
@@ -176,6 +176,40 @@ instance FromJSON WorkerPoolTeardownPolicy where
instance ToJSON WorkerPoolTeardownPolicy where
toJSON = toJSONText
+-- | Which Flexible Resource Scheduling mode to run in.
+data EnvironmentFlexResourceSchedulingGoal
+ = FlexrsUnspecified
+ -- ^ @FLEXRS_UNSPECIFIED@
+ -- Run in the default mode.
+ | FlexrsSpeedOptimized
+ -- ^ @FLEXRS_SPEED_OPTIMIZED@
+ -- Optimize for lower execution time.
+ | FlexrsCostOptimized
+ -- ^ @FLEXRS_COST_OPTIMIZED@
+ -- Optimize for lower cost.
+ deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic)
+
+instance Hashable EnvironmentFlexResourceSchedulingGoal
+
+instance FromHttpApiData EnvironmentFlexResourceSchedulingGoal where
+ parseQueryParam = \case
+ "FLEXRS_UNSPECIFIED" -> Right FlexrsUnspecified
+ "FLEXRS_SPEED_OPTIMIZED" -> Right FlexrsSpeedOptimized
+ "FLEXRS_COST_OPTIMIZED" -> Right FlexrsCostOptimized
+ x -> Left ("Unable to parse EnvironmentFlexResourceSchedulingGoal from: " <> x)
+
+instance ToHttpApiData EnvironmentFlexResourceSchedulingGoal where
+ toQueryParam = \case
+ FlexrsUnspecified -> "FLEXRS_UNSPECIFIED"
+ FlexrsSpeedOptimized -> "FLEXRS_SPEED_OPTIMIZED"
+ FlexrsCostOptimized -> "FLEXRS_COST_OPTIMIZED"
+
+instance FromJSON EnvironmentFlexResourceSchedulingGoal where
+ parseJSON = parseJSONText "EnvironmentFlexResourceSchedulingGoal"
+
+instance ToJSON EnvironmentFlexResourceSchedulingGoal where
+ toJSON = toJSONText
+
-- | The algorithm to use for autoscaling.
data AutoscalingSettingsAlgorithm
= AutoscalingAlgorithmUnknown
diff --git a/gen/Network/Google/Resource/Dataflow/Projects/DeleteSnapshots.hs b/gen/Network/Google/Resource/Dataflow/Projects/DeleteSnapshots.hs
new file mode 100644
index 0000000..1d705b7
--- /dev/null
+++ b/gen/Network/Google/Resource/Dataflow/Projects/DeleteSnapshots.hs
@@ -0,0 +1,181 @@
+{-# LANGUAGE DataKinds #-}
+{-# LANGUAGE DeriveDataTypeable #-}
+{-# LANGUAGE DeriveGeneric #-}
+{-# LANGUAGE FlexibleInstances #-}
+{-# LANGUAGE NoImplicitPrelude #-}
+{-# LANGUAGE OverloadedStrings #-}
+{-# LANGUAGE RecordWildCards #-}
+{-# LANGUAGE TypeFamilies #-}
+{-# LANGUAGE TypeOperators #-}
+
+{-# OPTIONS_GHC -fno-warn-duplicate-exports #-}
+{-# OPTIONS_GHC -fno-warn-unused-binds #-}
+{-# OPTIONS_GHC -fno-warn-unused-imports #-}
+
+-- |
+-- Module : Network.Google.Resource.Dataflow.Projects.DeleteSnapshots
+-- Copyright : (c) 2015-2016 Brendan Hay
+-- License : Mozilla Public License, v. 2.0.
+-- Maintainer : Brendan Hay <brendan.g.hay@gmail.com>
+-- Stability : auto-generated
+-- Portability : non-portable (GHC extensions)
+--
+-- Deletes a snapshot.
+--
+-- /See:/ <https://cloud.google.com/dataflow Dataflow API Reference> for @dataflow.projects.deleteSnapshots@.
+module Network.Google.Resource.Dataflow.Projects.DeleteSnapshots
+ (
+ -- * REST Resource
+ ProjectsDeleteSnapshotsResource
+
+ -- * Creating a Request
+ , projectsDeleteSnapshots
+ , ProjectsDeleteSnapshots
+
+ -- * Request Lenses
+ , pdsXgafv
+ , pdsUploadProtocol
+ , pdsLocation
+ , pdsAccessToken
+ , pdsUploadType
+ , pdsProjectId
+ , pdsCallback
+ , pdsSnapshotId
+ ) where
+
+import Network.Google.Dataflow.Types
+import Network.Google.Prelude
+
+-- | A resource alias for @dataflow.projects.deleteSnapshots@ method which the
+-- 'ProjectsDeleteSnapshots' request conforms to.
+type ProjectsDeleteSnapshotsResource =
+ "v1b3" :>
+ "projects" :>
+ Capture "projectId" Text :>
+ "snapshots" :>
+ QueryParam "$.xgafv" Xgafv :>
+ QueryParam "upload_protocol" Text :>
+ QueryParam "location" Text :>
+ QueryParam "access_token" Text :>
+ QueryParam "uploadType" Text :>
+ QueryParam "callback" Text :>
+ QueryParam "snapshotId" Text :>
+ QueryParam "alt" AltJSON :>
+ Delete '[JSON] DeleteSnapshotResponse
+
+-- | Deletes a snapshot.
+--
+-- /See:/ 'projectsDeleteSnapshots' smart constructor.
+data ProjectsDeleteSnapshots =
+ ProjectsDeleteSnapshots'
+ { _pdsXgafv :: !(Maybe Xgafv)
+ , _pdsUploadProtocol :: !(Maybe Text)
+ , _pdsLocation :: !(Maybe Text)
+ , _pdsAccessToken :: !(Maybe Text)
+ , _pdsUploadType :: !(Maybe Text)
+ , _pdsProjectId :: !Text
+ , _pdsCallback :: !(Maybe Text)
+ , _pdsSnapshotId :: !(Maybe Text)
+ }
+ deriving (Eq, Show, Data, Typeable, Generic)
+
+
+-- | Creates a value of 'ProjectsDeleteSnapshots' with the minimum fields required to make a request.
+--
+-- Use one of the following lenses to modify other fields as desired:
+--
+-- * 'pdsXgafv'
+--
+-- * 'pdsUploadProtocol'
+--
+-- * 'pdsLocation'
+--
+-- * 'pdsAccessToken'
+--
+-- * 'pdsUploadType'
+--
+-- * 'pdsProjectId'
+--
+-- * 'pdsCallback'
+--
+-- * 'pdsSnapshotId'
+projectsDeleteSnapshots
+ :: Text -- ^ 'pdsProjectId'
+ -> ProjectsDeleteSnapshots
+projectsDeleteSnapshots pPdsProjectId_ =
+ ProjectsDeleteSnapshots'
+ { _pdsXgafv = Nothing
+ , _pdsUploadProtocol = Nothing
+ , _pdsLocation = Nothing
+ , _pdsAccessToken = Nothing
+ , _pdsUploadType = Nothing
+ , _pdsProjectId = pPdsProjectId_
+ , _pdsCallback = Nothing
+ , _pdsSnapshotId = Nothing
+ }
+
+
+-- | V1 error format.
+pdsXgafv :: Lens' ProjectsDeleteSnapshots (Maybe Xgafv)
+pdsXgafv = lens _pdsXgafv (\ s a -> s{_pdsXgafv = a})
+
+-- | Upload protocol for media (e.g. \"raw\", \"multipart\").
+pdsUploadProtocol :: Lens' ProjectsDeleteSnapshots (Maybe Text)
+pdsUploadProtocol
+ = lens _pdsUploadProtocol
+ (\ s a -> s{_pdsUploadProtocol = a})
+
+-- | The location that contains this snapshot.
+pdsLocation :: Lens' ProjectsDeleteSnapshots (Maybe Text)
+pdsLocation
+ = lens _pdsLocation (\ s a -> s{_pdsLocation = a})
+
+-- | OAuth access token.
+pdsAccessToken :: Lens' ProjectsDeleteSnapshots (Maybe Text)
+pdsAccessToken
+ = lens _pdsAccessToken
+ (\ s a -> s{_pdsAccessToken = a})
+
+-- | Legacy upload protocol for media (e.g. \"media\", \"multipart\").
+pdsUploadType :: Lens' ProjectsDeleteSnapshots (Maybe Text)
+pdsUploadType
+ = lens _pdsUploadType
+ (\ s a -> s{_pdsUploadType = a})
+
+-- | The ID of the Cloud Platform project that the snapshot belongs to.
+pdsProjectId :: Lens' ProjectsDeleteSnapshots Text
+pdsProjectId
+ = lens _pdsProjectId (\ s a -> s{_pdsProjectId = a})
+
+-- | JSONP
+pdsCallback :: Lens' ProjectsDeleteSnapshots (Maybe Text)
+pdsCallback
+ = lens _pdsCallback (\ s a -> s{_pdsCallback = a})
+
+-- | The ID of the snapshot.
+pdsSnapshotId :: Lens' ProjectsDeleteSnapshots (Maybe Text)
+pdsSnapshotId
+ = lens _pdsSnapshotId
+ (\ s a -> s{_pdsSnapshotId = a})
+
+instance GoogleRequest ProjectsDeleteSnapshots where
+ type Rs ProjectsDeleteSnapshots =
+ DeleteSnapshotResponse
+ type Scopes ProjectsDeleteSnapshots =
+ '["https://www.googleapis.com/auth/cloud-platform",
+ "https://www.googleapis.com/auth/compute",
+ "https://www.googleapis.com/auth/compute.readonly",
+ "https://www.googleapis.com/auth/userinfo.email"]
+ requestClient ProjectsDeleteSnapshots'{..}
+ = go _pdsProjectId _pdsXgafv _pdsUploadProtocol
+ _pdsLocation
+ _pdsAccessToken
+ _pdsUploadType
+ _pdsCallback
+ _pdsSnapshotId
+ (Just AltJSON)
+ dataflowService
+ where go
+ = buildClient
+ (Proxy :: Proxy ProjectsDeleteSnapshotsResource)
+ mempty
diff --git a/gen/Network/Google/Resource/Dataflow/Projects/Jobs/Aggregated.hs b/gen/Network/Google/Resource/Dataflow/Projects/Jobs/Aggregated.hs
index ea2d06e..34ba105 100644
--- a/gen/Network/Google/Resource/Dataflow/Projects/Jobs/Aggregated.hs
+++ b/gen/Network/Google/Resource/Dataflow/Projects/Jobs/Aggregated.hs
@@ -72,7 +72,8 @@ type ProjectsJobsAggregatedResource =
-- | List the jobs of a project across all regions.
--
-- /See:/ 'projectsJobsAggregated' smart constructor.
-data ProjectsJobsAggregated = ProjectsJobsAggregated'
+data ProjectsJobsAggregated =
+ ProjectsJobsAggregated'
{ _pjaXgafv :: !(Maybe Xgafv)
, _pjaUploadProtocol :: !(Maybe Text)
, _pjaLocation :: !(Maybe Text)
@@ -84,7 +85,9 @@ data ProjectsJobsAggregated = ProjectsJobsAggregated'
, _pjaProjectId :: !Text
, _pjaPageSize :: !(Maybe (Textual Int32))
, _pjaCallback :: !(Maybe Text)
- } deriving (Eq,Show,Data,Typeable,Generic)
+ }
+ deriving (Eq, Show, Data, Typeable, Generic)
+
-- | Creates a value of 'ProjectsJobsAggregated' with the minimum fields required to make a request.
--
@@ -115,7 +118,7 @@ projectsJobsAggregated
:: Text -- ^ 'pjaProjectId'
-> ProjectsJobsAggregated
projectsJobsAggregated pPjaProjectId_ =
- ProjectsJobsAggregated'
+ ProjectsJobsAggregated'
{ _pjaXgafv = Nothing
, _pjaUploadProtocol = Nothing
, _pjaLocation = Nothing
@@ -129,6 +132,7 @@ projectsJobsAggregated pPjaProjectId_ =
, _pjaCallback = Nothing
}
+
-- | V1 error format.
pjaXgafv :: Lens' ProjectsJobsAggregated (Maybe Xgafv)
pjaXgafv = lens _pjaXgafv (\ s a -> s{_pjaXgafv = a})
@@ -139,7 +143,9 @@ pjaUploadProtocol
= lens _pjaUploadProtocol
(\ s a -> s{_pjaUploadProtocol = a})
--- | The location that contains this job.
+-- | The [regional endpoint]
+-- (https:\/\/cloud.google.com\/dataflow\/docs\/concepts\/regional-endpoints)
+-- that contains this job.
pjaLocation :: Lens' ProjectsJobsAggregated (Maybe Text)
pjaLocation
= lens _pjaLocation (\ s a -> s{_pjaLocation = a})
diff --git a/gen/Network/Google/Resource/Dataflow/Projects/Jobs/Create.hs b/gen/Network/Google/Resource/Dataflow/Projects/Jobs/Create.hs
index 97c884d..69d8b9a 100644
--- a/gen/Network/Google/Resource/Dataflow/Projects/Jobs/Create.hs
+++ b/gen/Network/Google/Resource/Dataflow/Projects/Jobs/Create.hs
@@ -20,7 +20,11 @@
-- Stability : auto-generated
-- Portability : non-portable (GHC extensions)
--
--- Creates a Cloud Dataflow job.
+-- Creates a Cloud Dataflow job. To create a job, we recommend using
+-- \`projects.locations.jobs.create\` with a [regional endpoint]
+-- (https:\/\/cloud.google.com\/dataflow\/docs\/concepts\/regional-endpoints).
+-- Using \`projects.jobs.create\` is not recommended, as your job will
+-- always start in \`us-central1\`.
--
-- /See:/ <https://cloud.google.com/dataflow Dataflow API Reference> for @dataflow.projects.jobs.create@.
module Network.Google.Resource.Dataflow.Projects.Jobs.Create
@@ -66,10 +70,15 @@ type ProjectsJobsCreateResource =
QueryParam "alt" AltJSON :>
ReqBody '[JSON] Job :> Post '[JSON] Job
--- | Creates a Cloud Dataflow job.
+-- | Creates a Cloud Dataflow job. To create a job, we recommend using
+-- \`projects.locations.jobs.create\` with a [regional endpoint]
+-- (https:\/\/cloud.google.com\/dataflow\/docs\/concepts\/regional-endpoints).
+-- Using \`projects.jobs.create\` is not recommended, as your job will
+-- always start in \`us-central1\`.
--
-- /See:/ 'projectsJobsCreate' smart constructor.
-data ProjectsJobsCreate = ProjectsJobsCreate'
+data ProjectsJobsCreate =
+ ProjectsJobsCreate'
{ _pjcXgafv :: !(Maybe Xgafv)
, _pjcUploadProtocol :: !(Maybe Text)
, _pjcLocation :: !(Maybe Text)
@@ -80,7 +89,9 @@ data ProjectsJobsCreate = ProjectsJobsCreate'
, _pjcProjectId :: !Text
, _pjcReplaceJobId :: !(Maybe Text)
, _pjcCallback :: !(Maybe Text)
- } deriving (Eq,Show,Data,Typeable,Generic)
+ }
+ deriving (Eq, Show, Data, Typeable, Generic)
+
-- | Creates a value of 'ProjectsJobsCreate' with the minimum fields required to make a request.
--
@@ -110,7 +121,7 @@ projectsJobsCreate
-> Text -- ^ 'pjcProjectId'
-> ProjectsJobsCreate
projectsJobsCreate pPjcPayload_ pPjcProjectId_ =
- ProjectsJobsCreate'
+ ProjectsJobsCreate'
{ _pjcXgafv = Nothing
, _pjcUploadProtocol = Nothing
, _pjcLocation = Nothing
@@ -123,6 +134,7 @@ projectsJobsCreate pPjcPayload_ pPjcProjectId_ =
, _pjcCallback = Nothing
}
+
-- | V1 error format.
pjcXgafv :: Lens' ProjectsJobsCreate (Maybe Xgafv)
pjcXgafv = lens _pjcXgafv (\ s a -> s{_pjcXgafv = a})
@@ -133,7 +145,9 @@ pjcUploadProtocol
= lens _pjcUploadProtocol
(\ s a -> s{_pjcUploadProtocol = a})
--- | The location that contains this job.
+-- | The [regional endpoint]
+-- (https:\/\/cloud.google.com\/dataflow\/docs\/concepts\/regional-endpoints)
+-- that contains this job.
pjcLocation :: Lens' ProjectsJobsCreate (Maybe Text)
pjcLocation
= lens _pjcLocation (\ s a -> s{_pjcLocation = a})
diff --git a/gen/Network/Google/Resource/Dataflow/Projects/Jobs/Debug/GetConfig.hs b/gen/Network/Google/Resource/Dataflow/Projects/Jobs/Debug/GetConfig.hs
index d7eee23..74fc7a7 100644
--- a/gen/Network/Google/Resource/Dataflow/Projects/Jobs/Debug/GetConfig.hs
+++ b/gen/Network/Google/Resource/Dataflow/Projects/Jobs/Debug/GetConfig.hs
@@ -68,7 +68,8 @@ type ProjectsJobsDebugGetConfigResource =
-- | Get encoded debug configuration for component. Not cacheable.
--
-- /See:/ 'projectsJobsDebugGetConfig' smart constructor.
-data ProjectsJobsDebugGetConfig = ProjectsJobsDebugGetConfig'
+data ProjectsJobsDebugGetConfig =
+ ProjectsJobsDebugGetConfig'
{ _pjdgcXgafv :: !(Maybe Xgafv)
, _pjdgcJobId :: !Text
, _pjdgcUploadProtocol :: !(Maybe Text)
@@ -77,7 +78,9 @@ data ProjectsJobsDebugGetConfig = ProjectsJobsDebugGetConfig'
, _pjdgcPayload :: !GetDebugConfigRequest
, _pjdgcProjectId :: !Text
, _pjdgcCallback :: !(Maybe Text)
- } deriving (Eq,Show,Data,Typeable,Generic)
+ }
+ deriving (Eq, Show, Data, Typeable, Generic)
+
-- | Creates a value of 'ProjectsJobsDebugGetConfig' with the minimum fields required to make a request.
--
@@ -104,7 +107,7 @@ projectsJobsDebugGetConfig
-> Text -- ^ 'pjdgcProjectId'
-> ProjectsJobsDebugGetConfig
projectsJobsDebugGetConfig pPjdgcJobId_ pPjdgcPayload_ pPjdgcProjectId_ =
- ProjectsJobsDebugGetConfig'
+ ProjectsJobsDebugGetConfig'
{ _pjdgcXgafv = Nothing
, _pjdgcJobId = pPjdgcJobId_
, _pjdgcUploadProtocol = Nothing
@@ -115,6 +118,7 @@ projectsJobsDebugGetConfig pPjdgcJobId_ pPjdgcPayload_ pPjdgcProjectId_ =
, _pjdgcCallback = Nothing
}
+
-- | V1 error format.
pjdgcXgafv :: Lens' ProjectsJobsDebugGetConfig (Maybe Xgafv)
pjdgcXgafv
diff --git a/gen/Network/Google/Resource/Dataflow/Projects/Jobs/Debug/SendCapture.hs b/gen/Network/Google/Resource/Dataflow/Projects/Jobs/Debug/SendCapture.hs
index f7d2405..45e9afa 100644
--- a/gen/Network/Google/Resource/Dataflow/Projects/Jobs/Debug/SendCapture.hs
+++ b/gen/Network/Google/Resource/Dataflow/Projects/Jobs/Debug/SendCapture.hs
@@ -68,7 +68,8 @@ type ProjectsJobsDebugSendCaptureResource =
-- | Send encoded debug capture data for component.
--
-- /See:/ 'projectsJobsDebugSendCapture' smart constructor.
-data ProjectsJobsDebugSendCapture = ProjectsJobsDebugSendCapture'
+data ProjectsJobsDebugSendCapture =
+ ProjectsJobsDebugSendCapture'
{ _pjdscXgafv :: !(Maybe Xgafv)
, _pjdscJobId :: !Text
, _pjdscUploadProtocol :: !(Maybe Text)
@@ -77,7 +78,9 @@ data ProjectsJobsDebugSendCapture = ProjectsJobsDebugSendCapture'
, _pjdscPayload :: !SendDebugCaptureRequest
, _pjdscProjectId :: !Text
, _pjdscCallback :: !(Maybe Text)
- } deriving (Eq,Show,Data,Typeable,Generic)
+ }
+ deriving (Eq, Show, Data, Typeable, Generic)
+
-- | Creates a value of 'ProjectsJobsDebugSendCapture' with the minimum fields required to make a request.
--
@@ -104,7 +107,7 @@ projectsJobsDebugSendCapture
-> Text -- ^ 'pjdscProjectId'
-> ProjectsJobsDebugSendCapture
projectsJobsDebugSendCapture pPjdscJobId_ pPjdscPayload_ pPjdscProjectId_ =
- ProjectsJobsDebugSendCapture'
+ ProjectsJobsDebugSendCapture'
{ _pjdscXgafv = Nothing
, _pjdscJobId = pPjdscJobId_
, _pjdscUploadProtocol = Nothing
@@ -115,6 +118,7 @@ projectsJobsDebugSendCapture pPjdscJobId_ pPjdscPayload_ pPjdscProjectId_ =
, _pjdscCallback = Nothing
}
+
-- | V1 error format.
pjdscXgafv :: Lens' ProjectsJobsDebugSendCapture (Maybe Xgafv)
pjdscXgafv
diff --git a/gen/Network/Google/Resource/Dataflow/Projects/Jobs/Get.hs b/gen/Network/Google/Resource/Dataflow/Projects/Jobs/Get.hs
index 2ed39cc..1cc5f8e 100644
--- a/gen/Network/Google/Resource/Dataflow/Projects/Jobs/Get.hs
+++ b/gen/Network/Google/Resource/Dataflow/Projects/Jobs/Get.hs
@@ -20,7 +20,12 @@
-- Stability : auto-generated
-- Portability : non-portable (GHC extensions)
--
--- Gets the state of the specified Cloud Dataflow job.
+-- Gets the state of the specified Cloud Dataflow job. To get the state of
+-- a job, we recommend using \`projects.locations.jobs.get\` with a
+-- [regional endpoint]
+-- (https:\/\/cloud.google.com\/dataflow\/docs\/concepts\/regional-endpoints).
+-- Using \`projects.jobs.get\` is not recommended, as you can only get the
+-- state of jobs that are running in \`us-central1\`.
--
-- /See:/ <https://cloud.google.com/dataflow Dataflow API Reference> for @dataflow.projects.jobs.get@.
module Network.Google.Resource.Dataflow.Projects.Jobs.Get
@@ -64,10 +69,16 @@ type ProjectsJobsGetResource =
QueryParam "callback" Text :>
QueryParam "alt" AltJSON :> Get '[JSON] Job
--- | Gets the state of the specified Cloud Dataflow job.
+-- | Gets the state of the specified Cloud Dataflow job. To get the state of
+-- a job, we recommend using \`projects.locations.jobs.get\` with a
+-- [regional endpoint]
+-- (https:\/\/cloud.google.com\/dataflow\/docs\/concepts\/regional-endpoints).
+-- Using \`projects.jobs.get\` is not recommended, as you can only get the
+-- state of jobs that are running in \`us-central1\`.
--
-- /See:/ 'projectsJobsGet' smart constructor.
-data ProjectsJobsGet = ProjectsJobsGet'
+data ProjectsJobsGet =
+ ProjectsJobsGet'
{ _pjgXgafv :: !(Maybe Xgafv)
, _pjgJobId :: !Text
, _pjgUploadProtocol :: !(Maybe Text)
@@ -77,7 +88,9 @@ data ProjectsJobsGet = ProjectsJobsGet'
, _pjgView :: !(Maybe Text)
, _pjgProjectId :: !Text
, _pjgCallback :: !(Maybe Text)
- } deriving (Eq,Show,Data,Typeable,Generic)
+ }
+ deriving (Eq, Show, Data, Typeable, Generic)
+
-- | Creates a value of 'ProjectsJobsGet' with the minimum fields required to make a request.
--
@@ -105,7 +118,7 @@ projectsJobsGet
-> Text -- ^ 'pjgProjectId'
-> ProjectsJobsGet
projectsJobsGet pPjgJobId_ pPjgProjectId_ =
- ProjectsJobsGet'
+ ProjectsJobsGet'
{ _pjgXgafv = Nothing
, _pjgJobId = pPjgJobId_
, _pjgUploadProtocol = Nothing
@@ -117,6 +130,7 @@ projectsJobsGet pPjgJobId_ pPjgProjectId_ =
, _pjgCallback = Nothing
}
+
-- | V1 error format.
pjgXgafv :: Lens' ProjectsJobsGet (Maybe Xgafv)
pjgXgafv = lens _pjgXgafv (\ s a -> s{_pjgXgafv = a})
@@ -131,7 +145,9 @@ pjgUploadProtocol
= lens _pjgUploadProtocol
(\ s a -> s{_pjgUploadProtocol = a})
--- | The location that contains this job.
+-- | The [regional endpoint]
+-- (https:\/\/cloud.google.com\/dataflow\/docs\/concepts\/regional-endpoints)
+-- that contains this job.
pjgLocation :: Lens' ProjectsJobsGet (Maybe Text)
pjgLocation
= lens _pjgLocation (\ s a -> s{_pjgLocation = a})
diff --git a/gen/Network/Google/Resource/Dataflow/Projects/Jobs/GetMetrics.hs b/gen/Network/Google/Resource/Dataflow/Projects/Jobs/GetMetrics.hs
index 54d7e9a..b3ae133 100644
--- a/gen/Network/Google/Resource/Dataflow/Projects/Jobs/GetMetrics.hs
+++ b/gen/Network/Google/Resource/Dataflow/Projects/Jobs/GetMetrics.hs
@@ -20,7 +20,11 @@
-- Stability : auto-generated
-- Portability : non-portable (GHC extensions)
--
--- Request the job status.
+-- Request the job status. To request the status of a job, we recommend
+-- using \`projects.locations.jobs.getMetrics\` with a [regional endpoint]
+-- (https:\/\/cloud.google.com\/dataflow\/docs\/concepts\/regional-endpoints).
+-- Using \`projects.jobs.getMetrics\` is not recommended, as you can only
+-- request the status of jobs that are running in \`us-central1\`.
--
-- /See:/ <https://cloud.google.com/dataflow Dataflow API Reference> for @dataflow.projects.jobs.getMetrics@.
module Network.Google.Resource.Dataflow.Projects.Jobs.GetMetrics
@@ -66,10 +70,15 @@ type ProjectsJobsGetMetricsResource =
QueryParam "alt" AltJSON :>
Get '[JSON] JobMetrics
--- | Request the job status.
+-- | Request the job status. To request the status of a job, we recommend
+-- using \`projects.locations.jobs.getMetrics\` with a [regional endpoint]
+-- (https:\/\/cloud.google.com\/dataflow\/docs\/concepts\/regional-endpoints).
+-- Using \`projects.jobs.getMetrics\` is not recommended, as you can only
+-- request the status of jobs that are running in \`us-central1\`.
--
-- /See:/ 'projectsJobsGetMetrics' smart constructor.
-data ProjectsJobsGetMetrics = ProjectsJobsGetMetrics'
+data ProjectsJobsGetMetrics =
+ ProjectsJobsGetMetrics'
{ _pjgmXgafv :: !(Maybe Xgafv)
, _pjgmJobId :: !Text
, _pjgmUploadProtocol :: !(Maybe Text)
@@ -79,7 +88,9 @@ data ProjectsJobsGetMetrics = ProjectsJobsGetMetrics'
, _pjgmUploadType :: !(Maybe Text)
, _pjgmProjectId :: !Text
, _pjgmCallback :: !(Maybe Text)
- } deriving (Eq,Show,Data,Typeable,Generic)
+ }
+ deriving (Eq, Show, Data, Typeable, Generic)
+
-- | Creates a value of 'ProjectsJobsGetMetrics' with the minimum fields required to make a request.
--
@@ -107,7 +118,7 @@ projectsJobsGetMetrics
-> Text -- ^ 'pjgmProjectId'
-> ProjectsJobsGetMetrics
projectsJobsGetMetrics pPjgmJobId_ pPjgmProjectId_ =
- ProjectsJobsGetMetrics'
+ ProjectsJobsGetMetrics'
{ _pjgmXgafv = Nothing
, _pjgmJobId = pPjgmJobId_
, _pjgmUploadProtocol = Nothing
@@ -119,6 +130,7 @@ projectsJobsGetMetrics pPjgmJobId_ pPjgmProjectId_ =
, _pjgmCallback = Nothing
}
+
-- | V1 error format.
pjgmXgafv :: Lens' ProjectsJobsGetMetrics (Maybe Xgafv)
pjgmXgafv
@@ -135,7 +147,9 @@ pjgmUploadProtocol
= lens _pjgmUploadProtocol
(\ s a -> s{_pjgmUploadProtocol = a})
--- | The location which contains the job specified by job_id.
+-- | The [regional endpoint]
+-- (https:\/\/cloud.google.com\/dataflow\/docs\/concepts\/regional-endpoints)
+-- that contains the job specified by job_id.
pjgmLocation :: Lens' ProjectsJobsGetMetrics (Maybe Text)
pjgmLocation
= lens _pjgmLocation (\ s a -> s{_pjgmLocation = a})
diff --git a/gen/Network/Google/Resource/Dataflow/Projects/Jobs/List.hs b/gen/Network/Google/Resource/Dataflow/Projects/Jobs/List.hs
index 9f07fb8..f5293c6 100644
--- a/gen/Network/Google/Resource/Dataflow/Projects/Jobs/List.hs
+++ b/gen/Network/Google/Resource/Dataflow/Projects/Jobs/List.hs
@@ -20,7 +20,14 @@
-- Stability : auto-generated
-- Portability : non-portable (GHC extensions)
--
--- List the jobs of a project in a given region.
+-- List the jobs of a project. To list the jobs of a project in a region,
+-- we recommend using \`projects.locations.jobs.get\` with a [regional
+-- endpoint]
+-- (https:\/\/cloud.google.com\/dataflow\/docs\/concepts\/regional-endpoints).
+-- To list the all jobs across all regions, use
+-- \`projects.jobs.aggregated\`. Using \`projects.jobs.list\` is not
+-- recommended, as you can only get the list of jobs that are running in
+-- \`us-central1\`.
--
-- /See:/ <https://cloud.google.com/dataflow Dataflow API Reference> for @dataflow.projects.jobs.list@.
module Network.Google.Resource.Dataflow.Projects.Jobs.List
@@ -69,10 +76,18 @@ type ProjectsJobsListResource =
QueryParam "alt" AltJSON :>
Get '[JSON] ListJobsResponse
--- | List the jobs of a project in a given region.
+-- | List the jobs of a project. To list the jobs of a project in a region,
+-- we recommend using \`projects.locations.jobs.get\` with a [regional
+-- endpoint]
+-- (https:\/\/cloud.google.com\/dataflow\/docs\/concepts\/regional-endpoints).
+-- To list the all jobs across all regions, use
+-- \`projects.jobs.aggregated\`. Using \`projects.jobs.list\` is not
+-- recommended, as you can only get the list of jobs that are running in
+-- \`us-central1\`.
--
-- /See:/ 'projectsJobsList' smart constructor.
-data ProjectsJobsList = ProjectsJobsList'
+data ProjectsJobsList =
+ ProjectsJobsList'
{ _pjlXgafv :: !(Maybe Xgafv)
, _pjlUploadProtocol :: !(Maybe Text)
, _pjlLocation :: !(Maybe Text)
@@ -84,7 +99,9 @@ data ProjectsJobsList = ProjectsJobsList'
, _pjlProjectId :: !Text
, _pjlPageSize :: !(Maybe (Textual Int32))
, _pjlCallback :: !(Maybe Text)
- } deriving (Eq,Show,Data,Typeable,Generic)
+ }
+ deriving (Eq, Show, Data, Typeable, Generic)
+
-- | Creates a value of 'ProjectsJobsList' with the minimum fields required to make a request.
--
@@ -115,7 +132,7 @@ projectsJobsList
:: Text -- ^ 'pjlProjectId'
-> ProjectsJobsList
projectsJobsList pPjlProjectId_ =
- ProjectsJobsList'
+ ProjectsJobsList'
{ _pjlXgafv = Nothing
, _pjlUploadProtocol = Nothing
, _pjlLocation = Nothing
@@ -129,6 +146,7 @@ projectsJobsList pPjlProjectId_ =
, _pjlCallback = Nothing
}
+
-- | V1 error format.
pjlXgafv :: Lens' ProjectsJobsList (Maybe Xgafv)
pjlXgafv = lens _pjlXgafv (\ s a -> s{_pjlXgafv = a})
@@ -139,7 +157,9 @@ pjlUploadProtocol
= lens _pjlUploadProtocol
(\ s a -> s{_pjlUploadProtocol = a})
--- | The location that contains this job.
+-- | The [regional endpoint]
+-- (https:\/\/cloud.google.com\/dataflow\/docs\/concepts\/regional-endpoints)
+-- that contains this job.
pjlLocation :: Lens' ProjectsJobsList (Maybe Text)
pjlLocation
= lens _pjlLocation (\ s a -> s{_pjlLocation = a})
diff --git a/gen/Network/Google/Resource/Dataflow/Projects/Jobs/Messages/List.hs b/gen/Network/Google/Resource/Dataflow/Projects/Jobs/Messages/List.hs
index af5d54a..28e4f94 100644
--- a/gen/Network/Google/Resource/Dataflow/Projects/Jobs/Messages/List.hs
+++ b/gen/Network/Google/Resource/Dataflow/Projects/Jobs/Messages/List.hs
@@ -20,7 +20,12 @@
-- Stability : auto-generated
-- Portability : non-portable (GHC extensions)
--
--- Request the job status.
+-- Request the job status. To request the status of a job, we recommend
+-- using \`projects.locations.jobs.messages.list\` with a [regional
+-- endpoint]
+-- (https:\/\/cloud.google.com\/dataflow\/docs\/concepts\/regional-endpoints).
+-- Using \`projects.jobs.messages.list\` is not recommended, as you can
+-- only request the status of jobs that are running in \`us-central1\`.
--
-- /See:/ <https://cloud.google.com/dataflow Dataflow API Reference> for @dataflow.projects.jobs.messages.list@.
module Network.Google.Resource.Dataflow.Projects.Jobs.Messages.List
@@ -74,10 +79,16 @@ type ProjectsJobsMessagesListResource =
QueryParam "alt" AltJSON :>
Get '[JSON] ListJobMessagesResponse
--- | Request the job status.
+-- | Request the job status. To request the status of a job, we recommend
+-- using \`projects.locations.jobs.messages.list\` with a [regional
+-- endpoint]
+-- (https:\/\/cloud.google.com\/dataflow\/docs\/concepts\/regional-endpoints).
+-- Using \`projects.jobs.messages.list\` is not recommended, as you can
+-- only request the status of jobs that are running in \`us-central1\`.
--
-- /See:/ 'projectsJobsMessagesList' smart constructor.
-data ProjectsJobsMessagesList = ProjectsJobsMessagesList'
+data ProjectsJobsMessagesList =
+ ProjectsJobsMessagesList'
{ _pjmlXgafv :: !(Maybe Xgafv)
, _pjmlJobId :: !Text
, _pjmlUploadProtocol :: !(Maybe Text)
@@ -91,7 +102,9 @@ data ProjectsJobsMessagesList = ProjectsJobsMessagesList'
, _pjmlProjectId :: !Text
, _pjmlPageSize :: !(Maybe (Textual Int32))
, _pjmlCallback :: !(Maybe Text)
- } deriving (Eq,Show,Data,Typeable,Generic)
+ }
+ deriving (Eq, Show, Data, Typeable, Generic)
+
-- | Creates a value of 'ProjectsJobsMessagesList' with the minimum fields required to make a request.
--
@@ -127,7 +140,7 @@ projectsJobsMessagesList
-> Text -- ^ 'pjmlProjectId'
-> ProjectsJobsMessagesList
projectsJobsMessagesList pPjmlJobId_ pPjmlProjectId_ =
- ProjectsJobsMessagesList'
+ ProjectsJobsMessagesList'
{ _pjmlXgafv = Nothing
, _pjmlJobId = pPjmlJobId_
, _pjmlUploadProtocol = Nothing
@@ -143,6 +156,7 @@ projectsJobsMessagesList pPjmlJobId_ pPjmlProjectId_ =
, _pjmlCallback = Nothing
}
+
-- | V1 error format.
pjmlXgafv :: Lens' ProjectsJobsMessagesList (Maybe Xgafv)
pjmlXgafv
@@ -159,7 +173,9 @@ pjmlUploadProtocol
= lens _pjmlUploadProtocol
(\ s a -> s{_pjmlUploadProtocol = a})
--- | The location which contains the job specified by job_id.
+-- | The [regional endpoint]
+-- (https:\/\/cloud.google.com\/dataflow\/docs\/concepts\/regional-endpoints)
+-- that contains the job specified by job_id.
pjmlLocation :: Lens' ProjectsJobsMessagesList (Maybe Text)
pjmlLocation
= lens _pjmlLocation (\ s a -> s{_pjmlLocation = a})
diff --git a/gen/Network/Google/Resource/Dataflow/Projects/Jobs/Snapshot.hs b/gen/Network/Google/Resource/Dataflow/Projects/Jobs/Snapshot.hs
index f24cdea..2ece42c 100644
--- a/gen/Network/Google/Resource/Dataflow/Projects/Jobs/Snapshot.hs
+++ b/gen/Network/Google/Resource/Dataflow/Projects/Jobs/Snapshot.hs
@@ -66,7 +66,8 @@ type ProjectsJobsSnapshotResource =
-- | Snapshot the state of a streaming job.
--
-- /See:/ 'projectsJobsSnapshot' smart constructor.
-data ProjectsJobsSnapshot = ProjectsJobsSnapshot'
+data ProjectsJobsSnapshot =
+ ProjectsJobsSnapshot'
{ _pjsXgafv :: !(Maybe Xgafv)
, _pjsJobId :: !Text
, _pjsUploadProtocol :: !(Maybe Text)
@@ -75,7 +76,9 @@ data ProjectsJobsSnapshot = ProjectsJobsSnapshot'
, _pjsPayload :: !SnapshotJobRequest
, _pjsProjectId :: !Text
, _pjsCallback :: !(Maybe Text)
- } deriving (Eq,Show,Data,Typeable,Generic)
+ }
+ deriving (Eq, Show, Data, Typeable, Generic)
+
-- | Creates a value of 'ProjectsJobsSnapshot' with the minimum fields required to make a request.
--
@@ -102,7 +105,7 @@ projectsJobsSnapshot
-> Text -- ^ 'pjsProjectId'
-> ProjectsJobsSnapshot
projectsJobsSnapshot pPjsJobId_ pPjsPayload_ pPjsProjectId_ =
- ProjectsJobsSnapshot'
+ ProjectsJobsSnapshot'
{ _pjsXgafv = Nothing
, _pjsJobId = pPjsJobId_
, _pjsUploadProtocol = Nothing
@@ -113,6 +116,7 @@ projectsJobsSnapshot pPjsJobId_ pPjsPayload_ pPjsProjectId_ =
, _pjsCallback = Nothing
}
+
-- | V1 error format.
pjsXgafv :: Lens' ProjectsJobsSnapshot (Maybe Xgafv)
pjsXgafv = lens _pjsXgafv (\ s a -> s{_pjsXgafv = a})
diff --git a/gen/Network/Google/Resource/Dataflow/Projects/Jobs/Update.hs b/gen/Network/Google/Resource/Dataflow/Projects/Jobs/Update.hs
index a9efd4a..9569217 100644
--- a/gen/Network/Google/Resource/Dataflow/Projects/Jobs/Update.hs
+++ b/gen/Network/Google/Resource/Dataflow/Projects/Jobs/Update.hs
@@ -20,7 +20,12 @@
-- Stability : auto-generated
-- Portability : non-portable (GHC extensions)
--
--- Updates the state of an existing Cloud Dataflow job.
+-- Updates the state of an existing Cloud Dataflow job. To update the state
+-- of an existing job, we recommend using
+-- \`projects.locations.jobs.update\` with a [regional endpoint]
+-- (https:\/\/cloud.google.com\/dataflow\/docs\/concepts\/regional-endpoints).
+-- Using \`projects.jobs.update\` is not recommended, as you can only
+-- update the state of jobs that are running in \`us-central1\`.
--
-- /See:/ <https://cloud.google.com/dataflow Dataflow API Reference> for @dataflow.projects.jobs.update@.
module Network.Google.Resource.Dataflow.Projects.Jobs.Update
@@ -64,10 +69,16 @@ type ProjectsJobsUpdateResource =
QueryParam "alt" AltJSON :>
ReqBody '[JSON] Job :> Put '[JSON] Job
--- | Updates the state of an existing Cloud Dataflow job.
+-- | Updates the state of an existing Cloud Dataflow job. To update the state
+-- of an existing job, we recommend using
+-- \`projects.locations.jobs.update\` with a [regional endpoint]
+-- (https:\/\/cloud.google.com\/dataflow\/docs\/concepts\/regional-endpoints).
+-- Using \`projects.jobs.update\` is not recommended, as you can only
+-- update the state of jobs that are running in \`us-central1\`.
--
-- /See:/ 'projectsJobsUpdate' smart constructor.
-data ProjectsJobsUpdate = ProjectsJobsUpdate'
+data ProjectsJobsUpdate =
+ ProjectsJobsUpdate'
{ _pjuXgafv :: !(Maybe Xgafv)
, _pjuJobId :: !Text
, _pjuUploadProtocol :: !(Maybe Text)
@@ -77,7 +88,9 @@ data ProjectsJobsUpdate = ProjectsJobsUpdate'
, _pjuPayload :: !Job
, _pjuProjectId :: !Text
, _pjuCallback :: !(Maybe Text)
- } deriving (Eq,Show,Data,Typeable,Generic)
+ }
+ deriving (Eq, Show, Data, Typeable, Generic)
+
-- | Creates a value of 'ProjectsJobsUpdate' with the minimum fields required to make a request.
--
@@ -106,7 +119,7 @@ projectsJobsUpdate
-> Text -- ^ 'pjuProjectId'
-> ProjectsJobsUpdate
projectsJobsUpdate pPjuJobId_ pPjuPayload_ pPjuProjectId_ =
- ProjectsJobsUpdate'
+ ProjectsJobsUpdate'
{ _pjuXgafv = Nothing
, _pjuJobId = pPjuJobId_
, _pjuUploadProtocol = Nothing
@@ -118,6 +131,7 @@ projectsJobsUpdate pPjuJobId_ pPjuPayload_ pPjuProjectId_ =
, _pjuCallback = Nothing
}
+
-- | V1 error format.
pjuXgafv :: Lens' ProjectsJobsUpdate (Maybe Xgafv)
pjuXgafv = lens _pjuXgafv (\ s a -> s{_pjuXgafv = a})
@@ -132,7 +146,9 @@ pjuUploadProtocol
= lens _pjuUploadProtocol
(\ s a -> s{_pjuUploadProtocol = a})
--- | The location that contains this job.
+-- | The [regional endpoint]
+-- (https:\/\/cloud.google.com\/dataflow\/docs\/concepts\/regional-endpoints)
+-- that contains this job.
pjuLocation :: Lens' ProjectsJobsUpdate (Maybe Text)
pjuLocation
= lens _pjuLocation (\ s a -> s{_pjuLocation = a})
diff --git a/gen/Network/Google/Resource/Dataflow/Projects/Jobs/WorkItems/Lease.hs b/gen/Network/Google/Resource/Dataflow/Projects/Jobs/WorkItems/Lease.hs
index a7912b8..eca6faa 100644
--- a/gen/Network/Google/Resource/Dataflow/Projects/Jobs/WorkItems/Lease.hs
+++ b/gen/Network/Google/Resource/Dataflow/Projects/Jobs/WorkItems/Lease.hs
@@ -67,7 +67,8 @@ type ProjectsJobsWorkItemsLeaseResource =
-- | Leases a dataflow WorkItem to run.
--
-- /See:/ 'projectsJobsWorkItemsLease' smart constructor.
-data ProjectsJobsWorkItemsLease = ProjectsJobsWorkItemsLease'
+data ProjectsJobsWorkItemsLease =
+ ProjectsJobsWorkItemsLease'
{ _pjwilXgafv :: !(Maybe Xgafv)
, _pjwilJobId :: !Text
, _pjwilUploadProtocol :: !(Maybe Text)
@@ -76,7 +77,9 @@ data ProjectsJobsWorkItemsLease = ProjectsJobsWorkItemsLease'
, _pjwilPayload :: !LeaseWorkItemRequest
, _pjwilProjectId :: !Text
, _pjwilCallback :: !(Maybe Text)
- } deriving (Eq,Show,Data,Typeable,Generic)
+ }
+ deriving (Eq, Show, Data, Typeable, Generic)
+
-- | Creates a value of 'ProjectsJobsWorkItemsLease' with the minimum fields required to make a request.
--
@@ -103,7 +106,7 @@ projectsJobsWorkItemsLease
-> Text -- ^ 'pjwilProjectId'
-> ProjectsJobsWorkItemsLease
projectsJobsWorkItemsLease pPjwilJobId_ pPjwilPayload_ pPjwilProjectId_ =
- ProjectsJobsWorkItemsLease'
+ ProjectsJobsWorkItemsLease'
{ _pjwilXgafv = Nothing
, _pjwilJobId = pPjwilJobId_
, _pjwilUploadProtocol = Nothing
@@ -114,6 +117,7 @@ projectsJobsWorkItemsLease pPjwilJobId_ pPjwilPayload_ pPjwilProjectId_ =
, _pjwilCallback = Nothing
}
+
-- | V1 error format.
pjwilXgafv :: Lens' ProjectsJobsWorkItemsLease (Maybe Xgafv)
pjwilXgafv
diff --git a/gen/Network/Google/Resource/Dataflow/Projects/Jobs/WorkItems/ReportStatus.hs b/gen/Network/Google/Resource/Dataflow/Projects/Jobs/WorkItems/ReportStatus.hs
index b642873..ab04f43 100644
--- a/gen/Network/Google/Resource/Dataflow/Projects/Jobs/WorkItems/ReportStatus.hs
+++ b/gen/Network/Google/Resource/Dataflow/Projects/Jobs/WorkItems/ReportStatus.hs
@@ -67,7 +67,8 @@ type ProjectsJobsWorkItemsReportStatusResource =
-- | Reports the status of dataflow WorkItems leased by a worker.
--
-- /See:/ 'projectsJobsWorkItemsReportStatus' smart constructor.
-data ProjectsJobsWorkItemsReportStatus = ProjectsJobsWorkItemsReportStatus'
+data ProjectsJobsWorkItemsReportStatus =
+ ProjectsJobsWorkItemsReportStatus'
{ _pjwirsXgafv :: !(Maybe Xgafv)
, _pjwirsJobId :: !Text
, _pjwirsUploadProtocol :: !(Maybe Text)
@@ -76,7 +77,9 @@ data ProjectsJobsWorkItemsReportStatus = ProjectsJobsWorkItemsReportStatus'
, _pjwirsPayload :: !ReportWorkItemStatusRequest
, _pjwirsProjectId :: !Text
, _pjwirsCallback :: !(Maybe Text)
- } deriving (Eq,Show,Data,Typeable,Generic)
+ }
+ deriving (Eq, Show, Data, Typeable, Generic)
+
-- | Creates a value of 'ProjectsJobsWorkItemsReportStatus' with the minimum fields required to make a request.
--
@@ -103,7 +106,7 @@ projectsJobsWorkItemsReportStatus
-> Text -- ^ 'pjwirsProjectId'
-> ProjectsJobsWorkItemsReportStatus
projectsJobsWorkItemsReportStatus pPjwirsJobId_ pPjwirsPayload_ pPjwirsProjectId_ =
- ProjectsJobsWorkItemsReportStatus'
+ ProjectsJobsWorkItemsReportStatus'
{ _pjwirsXgafv = Nothing
, _pjwirsJobId = pPjwirsJobId_
, _pjwirsUploadProtocol = Nothing
@@ -114,6 +117,7 @@ projectsJobsWorkItemsReportStatus pPjwirsJobId_ pPjwirsPayload_ pPjwirsProjectId
, _pjwirsCallback = Nothing
}
+
-- | V1 error format.
pjwirsXgafv :: Lens' ProjectsJobsWorkItemsReportStatus (Maybe Xgafv)
pjwirsXgafv
@@ -161,7 +165,8 @@ pjwirsCallback
(\ s a -> s{_pjwirsCallback = a})
instance GoogleRequest
- ProjectsJobsWorkItemsReportStatus where
+ ProjectsJobsWorkItemsReportStatus
+ where
type Rs ProjectsJobsWorkItemsReportStatus =
ReportWorkItemStatusResponse
type Scopes ProjectsJobsWorkItemsReportStatus =
diff --git a/gen/Network/Google/Resource/Dataflow/Projects/Locations/Jobs/Create.hs b/gen/Network/Google/Resource/Dataflow/Projects/Locations/Jobs/Create.hs
index def1b41..4aebeb6 100644
--- a/gen/Network/Google/Resource/Dataflow/Projects/Locations/Jobs/Create.hs
+++ b/gen/Network/Google/Resource/Dataflow/Projects/Locations/Jobs/Create.hs
@@ -20,7 +20,11 @@
-- Stability : auto-generated
-- Portability : non-portable (GHC extensions)
--
--- Creates a Cloud Dataflow job.
+-- Creates a Cloud Dataflow job. To create a job, we recommend using
+-- \`projects.locations.jobs.create\` with a [regional endpoint]
+-- (https:\/\/cloud.google.com\/dataflow\/docs\/concepts\/regional-endpoints).
+-- Using \`projects.jobs.create\` is not recommended, as your job will
+-- always start in \`us-central1\`.
--
-- /See:/ <https://cloud.google.com/dataflow Dataflow API Reference> for @dataflow.projects.locations.jobs.create@.
module Network.Google.Resource.Dataflow.Projects.Locations.Jobs.Create
@@ -67,10 +71,15 @@ type ProjectsLocationsJobsCreateResource =
QueryParam "alt" AltJSON :>
ReqBody '[JSON] Job :> Post '[JSON] Job
--- | Creates a Cloud Dataflow job.
+-- | Creates a Cloud Dataflow job. To create a job, we recommend using
+-- \`projects.locations.jobs.create\` with a [regional endpoint]
+-- (https:\/\/cloud.google.com\/dataflow\/docs\/concepts\/regional-endpoints).
+-- Using \`projects.jobs.create\` is not recommended, as your job will
+-- always start in \`us-central1\`.
--
-- /See:/ 'projectsLocationsJobsCreate' smart constructor.
-data ProjectsLocationsJobsCreate = ProjectsLocationsJobsCreate'
+data ProjectsLocationsJobsCreate =
+ ProjectsLocationsJobsCreate'
{ _pljcXgafv :: !(Maybe Xgafv)
, _pljcUploadProtocol :: !(Maybe Text)
, _pljcLocation :: !Text
@@ -81,7 +90,9 @@ data ProjectsLocationsJobsCreate = ProjectsLocationsJobsCreate'
, _pljcProjectId :: !Text
, _pljcReplaceJobId :: !(Maybe Text)
, _pljcCallback :: !(Maybe Text)
- } deriving (Eq,Show,Data,Typeable,Generic)
+ }
+ deriving (Eq, Show, Data, Typeable, Generic)
+
-- | Creates a value of 'ProjectsLocationsJobsCreate' with the minimum fields required to make a request.
--
@@ -112,7 +123,7 @@ projectsLocationsJobsCreate
-> Text -- ^ 'pljcProjectId'
-> ProjectsLocationsJobsCreate
projectsLocationsJobsCreate pPljcLocation_ pPljcPayload_ pPljcProjectId_ =
- ProjectsLocationsJobsCreate'
+ ProjectsLocationsJobsCreate'
{ _pljcXgafv = Nothing
, _pljcUploadProtocol = Nothing
, _pljcLocation = pPljcLocation_
@@ -125,6 +136,7 @@ projectsLocationsJobsCreate pPljcLocation_ pPljcPayload_ pPljcProjectId_ =
, _pljcCallback = Nothing
}
+
-- | V1 error format.
pljcXgafv :: Lens' ProjectsLocationsJobsCreate (Maybe Xgafv)
pljcXgafv
@@ -136,7 +148,9 @@ pljcUploadProtocol
= lens _pljcUploadProtocol
(\ s a -> s{_pljcUploadProtocol = a})
--- | The location that contains this job.
+-- | The [regional endpoint]
+-- (https:\/\/cloud.google.com\/dataflow\/docs\/concepts\/regional-endpoints)
+-- that contains this job.
pljcLocation :: Lens' ProjectsLocationsJobsCreate Text
pljcLocation
= lens _pljcLocation (\ s a -> s{_pljcLocation = a})
diff --git a/gen/Network/Google/Resource/Dataflow/Projects/Locations/Jobs/Debug/GetConfig.hs b/gen/Network/Google/Resource/Dataflow/Projects/Locations/Jobs/Debug/GetConfig.hs
index dc417f8..93ad5fa 100644
--- a/gen/Network/Google/Resource/Dataflow/Projects/Locations/Jobs/Debug/GetConfig.hs
+++ b/gen/Network/Google/Resource/Dataflow/Projects/Locations/Jobs/Debug/GetConfig.hs
@@ -71,7 +71,8 @@ type ProjectsLocationsJobsDebugGetConfigResource =
-- | Get encoded debug configuration for component. Not cacheable.
--
-- /See:/ 'projectsLocationsJobsDebugGetConfig' smart constructor.
-data ProjectsLocationsJobsDebugGetConfig = ProjectsLocationsJobsDebugGetConfig'
+data ProjectsLocationsJobsDebugGetConfig =
+ ProjectsLocationsJobsDebugGetConfig'
{ _pljdgcXgafv :: !(Maybe Xgafv)
, _pljdgcJobId :: !Text
, _pljdgcUploadProtocol :: !(Maybe Text)
@@ -81,7 +82,9 @@ data ProjectsLocationsJobsDebugGetConfig = ProjectsLocationsJobsDebugGetConfig'
, _pljdgcPayload :: !GetDebugConfigRequest
, _pljdgcProjectId :: !Text
, _pljdgcCallback :: !(Maybe Text)
- } deriving (Eq,Show,Data,Typeable,Generic)
+ }
+ deriving (Eq, Show, Data, Typeable, Generic)
+
-- | Creates a value of 'ProjectsLocationsJobsDebugGetConfig' with the minimum fields required to make a request.
--
@@ -111,7 +114,7 @@ projectsLocationsJobsDebugGetConfig
-> Text -- ^ 'pljdgcProjectId'
-> ProjectsLocationsJobsDebugGetConfig
projectsLocationsJobsDebugGetConfig pPljdgcJobId_ pPljdgcLocation_ pPljdgcPayload_ pPljdgcProjectId_ =
- ProjectsLocationsJobsDebugGetConfig'
+ ProjectsLocationsJobsDebugGetConfig'
{ _pljdgcXgafv = Nothing
, _pljdgcJobId = pPljdgcJobId_
, _pljdgcUploadProtocol = Nothing
@@ -123,6 +126,7 @@ projectsLocationsJobsDebugGetConfig pPljdgcJobId_ pPljdgcLocation_ pPljdgcPayloa
, _pljdgcCallback = Nothing
}
+
-- | V1 error format.
pljdgcXgafv :: Lens' ProjectsLocationsJobsDebugGetConfig (Maybe Xgafv)
pljdgcXgafv
@@ -139,7 +143,9 @@ pljdgcUploadProtocol
= lens _pljdgcUploadProtocol
(\ s a -> s{_pljdgcUploadProtocol = a})
--- | The location which contains the job specified by job_id.
+-- | The [regional endpoint]
+-- (https:\/\/cloud.google.com\/dataflow\/docs\/concepts\/regional-endpoints)
+-- that contains the job specified by job_id.
pljdgcLocation :: Lens' ProjectsLocationsJobsDebugGetConfig Text
pljdgcLocation
= lens _pljdgcLocation
@@ -176,7 +182,8 @@ pljdgcCallback
(\ s a -> s{_pljdgcCallback = a})
instance GoogleRequest
- ProjectsLocationsJobsDebugGetConfig where
+ ProjectsLocationsJobsDebugGetConfig
+ where
type Rs ProjectsLocationsJobsDebugGetConfig =
GetDebugConfigResponse
type Scopes ProjectsLocationsJobsDebugGetConfig =
diff --git a/gen/Network/Google/Resource/Dataflow/Projects/Locations/Jobs/Debug/SendCapture.hs b/gen/Network/Google/Resource/Dataflow/Projects/Locations/Jobs/Debug/SendCapture.hs
index 87cace3..2f5ff7c 100644
--- a/gen/Network/Google/Resource/Dataflow/Projects/Locations/Jobs/Debug/SendCapture.hs
+++ b/gen/Network/Google/Resource/Dataflow/Projects/Locations/Jobs/Debug/SendCapture.hs
@@ -71,7 +71,8 @@ type ProjectsLocationsJobsDebugSendCaptureResource =
-- | Send encoded debug capture data for component.
--
-- /See:/ 'projectsLocationsJobsDebugSendCapture' smart constructor.
-data ProjectsLocationsJobsDebugSendCapture = ProjectsLocationsJobsDebugSendCapture'
+data ProjectsLocationsJobsDebugSendCapture =
+ ProjectsLocationsJobsDebugSendCapture'
{ _pljdscXgafv :: !(Maybe Xgafv)
, _pljdscJobId :: !Text
, _pljdscUploadProtocol :: !(Maybe Text)
@@ -81,7 +82,9 @@ data ProjectsLocationsJobsDebugSendCapture = ProjectsLocationsJobsDebugSendCaptu
, _pljdscPayload :: !SendDebugCaptureRequest
, _pljdscProjectId :: !Text
, _pljdscCallback :: !(Maybe Text)
- } deriving (Eq,Show,Data,Typeable,Generic)
+ }
+ deriving (Eq, Show, Data, Typeable, Generic)
+
-- | Creates a value of 'ProjectsLocationsJobsDebugSendCapture' with the minimum fields required to make a request.
--
@@ -111,7 +114,7 @@ projectsLocationsJobsDebugSendCapture
-> Text -- ^ 'pljdscProjectId'
-> ProjectsLocationsJobsDebugSendCapture
projectsLocationsJobsDebugSendCapture pPljdscJobId_ pPljdscLocation_ pPljdscPayload_ pPljdscProjectId_ =
- ProjectsLocationsJobsDebugSendCapture'
+ ProjectsLocationsJobsDebugSendCapture'
{ _pljdscXgafv = Nothing
, _pljdscJobId = pPljdscJobId_
, _pljdscUploadProtocol = Nothing
@@ -123,6 +126,7 @@ projectsLocationsJobsDebugSendCapture pPljdscJobId_ pPljdscLocation_ pPljdscPayl
, _pljdscCallback = Nothing
}
+
-- | V1 error format.
pljdscXgafv :: Lens' ProjectsLocationsJobsDebugSendCapture (Maybe Xgafv)
pljdscXgafv
@@ -139,7 +143,9 @@ pljdscUploadProtocol
= lens _pljdscUploadProtocol
(\ s a -> s{_pljdscUploadProtocol = a})
--- | The location which contains the job specified by job_id.
+-- | The [regional endpoint]
+-- (https:\/\/cloud.google.com\/dataflow\/docs\/concepts\/regional-endpoints)
+-- that contains the job specified by job_id.
pljdscLocation :: Lens' ProjectsLocationsJobsDebugSendCapture Text
pljdscLocation
= lens _pljdscLocation
@@ -176,7 +182,8 @@ pljdscCallback
(\ s a -> s{_pljdscCallback = a})
instance GoogleRequest
- ProjectsLocationsJobsDebugSendCapture where
+ ProjectsLocationsJobsDebugSendCapture
+ where
type Rs ProjectsLocationsJobsDebugSendCapture =
SendDebugCaptureResponse
type Scopes ProjectsLocationsJobsDebugSendCapture =
diff --git a/gen/Network/Google/Resource/Dataflow/Projects/Locations/Jobs/Get.hs b/gen/Network/Google/Resource/Dataflow/Projects/Locations/Jobs/Get.hs
index d7b8a1f..899ead1 100644
--- a/gen/Network/Google/Resource/Dataflow/Projects/Locations/Jobs/Get.hs
+++ b/gen/Network/Google/Resource/Dataflow/Projects/Locations/Jobs/Get.hs
@@ -20,7 +20,12 @@
-- Stability : auto-generated
-- Portability : non-portable (GHC extensions)
--
--- Gets the state of the specified Cloud Dataflow job.
+-- Gets the state of the specified Cloud Dataflow job. To get the state of
+-- a job, we recommend using \`projects.locations.jobs.get\` with a
+-- [regional endpoint]
+-- (https:\/\/cloud.google.com\/dataflow\/docs\/concepts\/regional-endpoints).
+-- Using \`projects.jobs.get\` is not recommended, as you can only get the
+-- state of jobs that are running in \`us-central1\`.
--
-- /See:/ <https://cloud.google.com/dataflow Dataflow API Reference> for @dataflow.projects.locations.jobs.get@.
module Network.Google.Resource.Dataflow.Projects.Locations.Jobs.Get
@@ -65,10 +70,16 @@ type ProjectsLocationsJobsGetResource =
QueryParam "callback" Text :>
QueryParam "alt" AltJSON :> Get '[JSON] Job
--- | Gets the state of the specified Cloud Dataflow job.
+-- | Gets the state of the specified Cloud Dataflow job. To get the state of
+-- a job, we recommend using \`projects.locations.jobs.get\` with a
+-- [regional endpoint]
+-- (https:\/\/cloud.google.com\/dataflow\/docs\/concepts\/regional-endpoints).
+-- Using \`projects.jobs.get\` is not recommended, as you can only get the
+-- state of jobs that are running in \`us-central1\`.
--
-- /See:/ 'projectsLocationsJobsGet' smart constructor.
-data ProjectsLocationsJobsGet = ProjectsLocationsJobsGet'
+data ProjectsLocationsJobsGet =
+ ProjectsLocationsJobsGet'
{ _pljgXgafv :: !(Maybe Xgafv)
, _pljgJobId :: !Text
, _pljgUploadProtocol :: !(Maybe Text)
@@ -78,7 +89,9 @@ data ProjectsLocationsJobsGet = ProjectsLocationsJobsGet'
, _pljgView :: !(Maybe Text)
, _pljgProjectId :: !Text
, _pljgCallback :: !(Maybe Text)
- } deriving (Eq,Show,Data,Typeable,Generic)
+ }
+ deriving (Eq, Show, Data, Typeable, Generic)
+
-- | Creates a value of 'ProjectsLocationsJobsGet' with the minimum fields required to make a request.
--
@@ -107,7 +120,7 @@ projectsLocationsJobsGet
-> Text -- ^ 'pljgProjectId'
-> ProjectsLocationsJobsGet
projectsLocationsJobsGet pPljgJobId_ pPljgLocation_ pPljgProjectId_ =
- ProjectsLocationsJobsGet'
+ ProjectsLocationsJobsGet'
{ _pljgXgafv = Nothing
, _pljgJobId = pPljgJobId_
, _pljgUploadProtocol = Nothing
@@ -119,6 +132,7 @@ projectsLocationsJobsGet pPljgJobId_ pPljgLocation_ pPljgProjectId_ =
, _pljgCallback = Nothing
}
+
-- | V1 error format.
pljgXgafv :: Lens' ProjectsLocationsJobsGet (Maybe Xgafv)
pljgXgafv
@@ -135,7 +149,9 @@ pljgUploadProtocol
= lens _pljgUploadProtocol
(\ s a -> s{_pljgUploadProtocol = a})
--- | The location that contains this job.
+-- | The [regional endpoint]
+-- (https:\/\/cloud.google.com\/dataflow\/docs\/concepts\/regional-endpoints)
+-- that contains this job.
pljgLocation :: Lens' ProjectsLocationsJobsGet Text
pljgLocation
= lens _pljgLocation (\ s a -> s{_pljgLocation = a})
diff --git a/gen/Network/Google/Resource/Dataflow/Projects/Locations/Jobs/GetMetrics.hs b/gen/Network/Google/Resource/Dataflow/Projects/Locations/Jobs/GetMetrics.hs
index b7c91e9..04012b2 100644
--- a/gen/Network/Google/Resource/Dataflow/Projects/Locations/Jobs/GetMetrics.hs
+++ b/gen/Network/Google/Resource/Dataflow/Projects/Locations/Jobs/GetMetrics.hs
@@ -20,7 +20,11 @@
-- Stability : auto-generated
-- Portability : non-portable (GHC extensions)
--
--- Request the job status.
+-- Request the job status. To request the status of a job, we recommend
+-- using \`projects.locations.jobs.getMetrics\` with a [regional endpoint]
+-- (https:\/\/cloud.google.com\/dataflow\/docs\/concepts\/regional-endpoints).
+-- Using \`projects.jobs.getMetrics\` is not recommended, as you can only
+-- request the status of jobs that are running in \`us-central1\`.
--
-- /See:/ <https://cloud.google.com/dataflow Dataflow API Reference> for @dataflow.projects.locations.jobs.getMetrics@.
module Network.Google.Resource.Dataflow.Projects.Locations.Jobs.GetMetrics
@@ -67,10 +71,15 @@ type ProjectsLocationsJobsGetMetricsResource =
QueryParam "alt" AltJSON :>
Get '[JSON] JobMetrics
--- | Request the job status.
+-- | Request the job status. To request the status of a job, we recommend
+-- using \`projects.locations.jobs.getMetrics\` with a [regional endpoint]
+-- (https:\/\/cloud.google.com\/dataflow\/docs\/concepts\/regional-endpoints).
+-- Using \`projects.jobs.getMetrics\` is not recommended, as you can only
+-- request the status of jobs that are running in \`us-central1\`.
--
-- /See:/ 'projectsLocationsJobsGetMetrics' smart constructor.
-data ProjectsLocationsJobsGetMetrics = ProjectsLocationsJobsGetMetrics'
+data ProjectsLocationsJobsGetMetrics =
+ ProjectsLocationsJobsGetMetrics'
{ _pljgmXgafv :: !(Maybe Xgafv)
, _pljgmJobId :: !Text
, _pljgmUploadProtocol :: !(Maybe Text)
@@ -80,7 +89,9 @@ data ProjectsLocationsJobsGetMetrics = ProjectsLocationsJobsGetMetrics'
, _pljgmUploadType :: !(Maybe Text)
, _pljgmProjectId :: !Text
, _pljgmCallback :: !(Maybe Text)
- } deriving (Eq,Show,Data,Typeable,Generic)
+ }
+ deriving (Eq, Show, Data, Typeable, Generic)
+
-- | Creates a value of 'ProjectsLocationsJobsGetMetrics' with the minimum fields required to make a request.
--
@@ -109,7 +120,7 @@ projectsLocationsJobsGetMetrics
-> Text -- ^ 'pljgmProjectId'
-> ProjectsLocationsJobsGetMetrics
projectsLocationsJobsGetMetrics pPljgmJobId_ pPljgmLocation_ pPljgmProjectId_ =
- ProjectsLocationsJobsGetMetrics'
+ ProjectsLocationsJobsGetMetrics'
{ _pljgmXgafv = Nothing
, _pljgmJobId = pPljgmJobId_
, _pljgmUploadProtocol = Nothing
@@ -121,6 +132,7 @@ projectsLocationsJobsGetMetrics pPljgmJobId_ pPljgmLocation_ pPljgmProjectId_ =
, _pljgmCallback = Nothing
}
+
-- | V1 error format.
pljgmXgafv :: Lens' ProjectsLocationsJobsGetMetrics (Maybe Xgafv)
pljgmXgafv
@@ -137,7 +149,9 @@ pljgmUploadProtocol
= lens _pljgmUploadProtocol
(\ s a -> s{_pljgmUploadProtocol = a})
--- | The location which contains the job specified by job_id.
+-- | The [regional endpoint]
+-- (https:\/\/cloud.google.com\/dataflow\/docs\/concepts\/regional-endpoints)
+-- that contains the job specified by job_id.
pljgmLocation :: Lens' ProjectsLocationsJobsGetMetrics Text
pljgmLocation
= lens _pljgmLocation
@@ -176,7 +190,8 @@ pljgmCallback
(\ s a -> s{_pljgmCallback = a})
instance GoogleRequest
- ProjectsLocationsJobsGetMetrics where
+ ProjectsLocationsJobsGetMetrics
+ where
type Rs ProjectsLocationsJobsGetMetrics = JobMetrics
type Scopes ProjectsLocationsJobsGetMetrics =
'["https://www.googleapis.com/auth/cloud-platform",
diff --git a/gen/Network/Google/Resource/Dataflow/Projects/Locations/Jobs/List.hs b/gen/Network/Google/Resource/Dataflow/Projects/Locations/Jobs/List.hs
index 5e75988..ccdbe8f 100644
--- a/gen/Network/Google/Resource/Dataflow/Projects/Locations/Jobs/List.hs
+++ b/gen/Network/Google/Resource/Dataflow/Projects/Locations/Jobs/List.hs
@@ -20,7 +20,14 @@
-- Stability : auto-generated
-- Portability : non-portable (GHC extensions)
--
--- List the jobs of a project in a given region.
+-- List the jobs of a project. To list the jobs of a project in a region,
+-- we recommend using \`projects.locations.jobs.get\` with a [regional
+-- endpoint]
+-- (https:\/\/cloud.google.com\/dataflow\/docs\/concepts\/regional-endpoints).
+-- To list the all jobs across all regions, use
+-- \`projects.jobs.aggregated\`. Using \`projects.jobs.list\` is not
+-- recommended, as you can only get the list of jobs that are running in
+-- \`us-central1\`.
--
-- /See:/ <https://cloud.google.com/dataflow Dataflow API Reference> for @dataflow.projects.locations.jobs.list@.
module Network.Google.Resource.Dataflow.Projects.Locations.Jobs.List
@@ -70,10 +77,18 @@ type ProjectsLocationsJobsListResource =
QueryParam "alt" AltJSON :>
Get '[JSON] ListJobsResponse
--- | List the jobs of a project in a given region.
+-- | List the jobs of a project. To list the jobs of a project in a region,
+-- we recommend using \`projects.locations.jobs.get\` with a [regional
+-- endpoint]
+-- (https:\/\/cloud.google.com\/dataflow\/docs\/concepts\/regional-endpoints).
+-- To list the all jobs across all regions, use
+-- \`projects.jobs.aggregated\`. Using \`projects.jobs.list\` is not
+-- recommended, as you can only get the list of jobs that are running in
+-- \`us-central1\`.
--
-- /See:/ 'projectsLocationsJobsList' smart constructor.
-data ProjectsLocationsJobsList = ProjectsLocationsJobsList'
+data ProjectsLocationsJobsList =
+ ProjectsLocationsJobsList'
{ _pljlXgafv :: !(Maybe Xgafv)
, _pljlUploadProtocol :: !(Maybe Text)
, _pljlLocation :: !Text
@@ -85,7 +100,9 @@ data ProjectsLocationsJobsList = ProjectsLocationsJobsList'
, _pljlProjectId :: !Text
, _pljlPageSize :: !(Maybe (Textual Int32))
, _pljlCallback :: !(Maybe Text)
- } deriving (Eq,Show,Data,Typeable,Generic)
+ }
+ deriving (Eq, Show, Data, Typeable, Generic)
+
-- | Creates a value of 'ProjectsLocationsJobsList' with the minimum fields required to make a request.
--
@@ -117,7 +134,7 @@ projectsLocationsJobsList
-> Text -- ^ 'pljlProjectId'
-> ProjectsLocationsJobsList
projectsLocationsJobsList pPljlLocation_ pPljlProjectId_ =
- ProjectsLocationsJobsList'
+ ProjectsLocationsJobsList'
{ _pljlXgafv = Nothing
, _pljlUploadProtocol = Nothing
, _pljlLocation = pPljlLocation_
@@ -131,6 +148,7 @@ projectsLocationsJobsList pPljlLocation_ pPljlProjectId_ =
, _pljlCallback = Nothing
}
+
-- | V1 error format.
pljlXgafv :: Lens' ProjectsLocationsJobsList (Maybe Xgafv)
pljlXgafv
@@ -142,7 +160,9 @@ pljlUploadProtocol
= lens _pljlUploadProtocol
(\ s a -> s{_pljlUploadProtocol = a})
--- | The location that contains this job.
+-- | The [regional endpoint]
+-- (https:\/\/cloud.google.com\/dataflow\/docs\/concepts\/regional-endpoints)
+-- that contains this job.
pljlLocation :: Lens' ProjectsLocationsJobsList Text
pljlLocation
= lens _pljlLocation (\ s a -> s{_pljlLocation = a})
diff --git a/gen/Network/Google/Resource/Dataflow/Projects/Locations/Jobs/Messages/List.hs b/gen/Network/Google/Resource/Dataflow/Projects/Locations/Jobs/Messages/List.hs
index fbb699e..fb1175f 100644
--- a/gen/Network/Google/Resource/Dataflow/Projects/Locations/Jobs/Messages/List.hs
+++ b/gen/Network/Google/Resource/Dataflow/Projects/Locations/Jobs/Messages/List.hs
@@ -20,7 +20,12 @@
-- Stability : auto-generated
-- Portability : non-portable (GHC extensions)
--
--- Request the job status.
+-- Request the job status. To request the status of a job, we recommend
+-- using \`projects.locations.jobs.messages.list\` with a [regional
+-- endpoint]
+-- (https:\/\/cloud.google.com\/dataflow\/docs\/concepts\/regional-endpoints).
+-- Using \`projects.jobs.messages.list\` is not recommended, as you can
+-- only request the status of jobs that are running in \`us-central1\`.
--
-- /See:/ <https://cloud.google.com/dataflow Dataflow API Reference> for @dataflow.projects.locations.jobs.messages.list@.
module Network.Google.Resource.Dataflow.Projects.Locations.Jobs.Messages.List
@@ -75,10 +80,16 @@ type ProjectsLocationsJobsMessagesListResource =
QueryParam "alt" AltJSON :>
Get '[JSON] ListJobMessagesResponse
--- | Request the job status.
+-- | Request the job status. To request the status of a job, we recommend
+-- using \`projects.locations.jobs.messages.list\` with a [regional
+-- endpoint]
+-- (https:\/\/cloud.google.com\/dataflow\/docs\/concepts\/regional-endpoints).
+-- Using \`projects.jobs.messages.list\` is not recommended, as you can
+-- only request the status of jobs that are running in \`us-central1\`.
--
-- /See:/ 'projectsLocationsJobsMessagesList' smart constructor.
-data ProjectsLocationsJobsMessagesList = ProjectsLocationsJobsMessagesList'
+data ProjectsLocationsJobsMessagesList =
+ ProjectsLocationsJobsMessagesList'
{ _pljmlXgafv :: !(Maybe Xgafv)
, _pljmlJobId :: !Text
, _pljmlUploadProtocol :: !(Maybe Text)
@@ -92,7 +103,9 @@ data ProjectsLocationsJobsMessagesList = ProjectsLocationsJobsMessagesList'
, _pljmlProjectId :: !Text
, _pljmlPageSize :: !(Maybe (Textual Int32))
, _pljmlCallback :: !(Maybe Text)
- } deriving (Eq,Show,Data,Typeable,Generic)
+ }
+ deriving (Eq, Show, Data, Typeable, Generic)
+
-- | Creates a value of 'ProjectsLocationsJobsMessagesList' with the minimum fields required to make a request.
--
@@ -129,7 +142,7 @@ projectsLocationsJobsMessagesList
-> Text -- ^ 'pljmlProjectId'
-> ProjectsLocationsJobsMessagesList
projectsLocationsJobsMessagesList pPljmlJobId_ pPljmlLocation_ pPljmlProjectId_ =
- ProjectsLocationsJobsMessagesList'
+ ProjectsLocationsJobsMessagesList'
{ _pljmlXgafv = Nothing
, _pljmlJobId = pPljmlJobId_
, _pljmlUploadProtocol = Nothing
@@ -145,6 +158,7 @@ projectsLocationsJobsMessagesList pPljmlJobId_ pPljmlLocation_ pPljmlProjectId_
, _pljmlCallback = Nothing
}
+
-- | V1 error format.
pljmlXgafv :: Lens' ProjectsLocationsJobsMessagesList (Maybe Xgafv)
pljmlXgafv
@@ -161,7 +175,9 @@ pljmlUploadProtocol
= lens _pljmlUploadProtocol
(\ s a -> s{_pljmlUploadProtocol = a})
--- | The location which contains the job specified by job_id.
+-- | The [regional endpoint]
+-- (https:\/\/cloud.google.com\/dataflow\/docs\/concepts\/regional-endpoints)
+-- that contains the job specified by job_id.
pljmlLocation :: Lens' ProjectsLocationsJobsMessagesList Text
pljmlLocation
= lens _pljmlLocation
@@ -229,7 +245,8 @@ pljmlCallback
(\ s a -> s{_pljmlCallback = a})
instance GoogleRequest
- ProjectsLocationsJobsMessagesList where
+ ProjectsLocationsJobsMessagesList
+ where
type Rs ProjectsLocationsJobsMessagesList =
ListJobMessagesResponse
type Scopes ProjectsLocationsJobsMessagesList =
diff --git a/gen/Network/Google/Resource/Dataflow/Projects/Locations/Jobs/Snapshot.hs b/gen/Network/Google/Resource/Dataflow/Projects/Locations/Jobs/Snapshot.hs
index 4866158..ff02413 100644
--- a/gen/Network/Google/Resource/Dataflow/Projects/Locations/Jobs/Snapshot.hs
+++ b/gen/Network/Google/Resource/Dataflow/Projects/Locations/Jobs/Snapshot.hs
@@ -69,7 +69,8 @@ type ProjectsLocationsJobsSnapshotResource =
-- | Snapshot the state of a streaming job.
--
-- /See:/ 'projectsLocationsJobsSnapshot' smart constructor.
-data ProjectsLocationsJobsSnapshot = ProjectsLocationsJobsSnapshot'
+data ProjectsLocationsJobsSnapshot =
+ ProjectsLocationsJobsSnapshot'
{ _pljsXgafv :: !(Maybe Xgafv)
, _pljsJobId :: !Text
, _pljsUploadProtocol :: !(Maybe Text)
@@ -79,7 +80,9 @@ data ProjectsLocationsJobsSnapshot = ProjectsLocationsJobsSnapshot'
, _pljsPayload :: !SnapshotJobRequest
, _pljsProjectId :: !Text
, _pljsCallback :: !(Maybe Text)
- } deriving (Eq,Show,Data,Typeable,Generic)
+ }
+ deriving (Eq, Show, Data, Typeable, Generic)
+
-- | Creates a value of 'ProjectsLocationsJobsSnapshot' with the minimum fields required to make a request.
--
@@ -109,7 +112,7 @@ projectsLocationsJobsSnapshot
-> Text -- ^ 'pljsProjectId'
-> ProjectsLocationsJobsSnapshot
projectsLocationsJobsSnapshot pPljsJobId_ pPljsLocation_ pPljsPayload_ pPljsProjectId_ =
- ProjectsLocationsJobsSnapshot'
+ ProjectsLocationsJobsSnapshot'
{ _pljsXgafv = Nothing
, _pljsJobId = pPljsJobId_
, _pljsUploadProtocol = Nothing
@@ -121,6 +124,7 @@ projectsLocationsJobsSnapshot pPljsJobId_ pPljsLocation_ pPljsPayload_ pPljsProj
, _pljsCallback = Nothing
}
+
-- | V1 error format.
pljsXgafv :: Lens' ProjectsLocationsJobsSnapshot (Maybe Xgafv)
pljsXgafv
diff --git a/gen/Network/Google/Resource/Dataflow/Projects/Locations/Jobs/Update.hs b/gen/Network/Google/Resource/Dataflow/Projects/Locations/Jobs/Update.hs
index f78b12a..e859138 100644
--- a/gen/Network/Google/Resource/Dataflow/Projects/Locations/Jobs/Update.hs
+++ b/gen/Network/Google/Resource/Dataflow/Projects/Locations/Jobs/Update.hs
@@ -20,7 +20,12 @@
-- Stability : auto-generated
-- Portability : non-portable (GHC extensions)
--
--- Updates the state of an existing Cloud Dataflow job.
+-- Updates the state of an existing Cloud Dataflow job. To update the state
+-- of an existing job, we recommend using
+-- \`projects.locations.jobs.update\` with a [regional endpoint]
+-- (https:\/\/cloud.google.com\/dataflow\/docs\/concepts\/regional-endpoints).
+-- Using \`projects.jobs.update\` is not recommended, as you can only
+-- update the state of jobs that are running in \`us-central1\`.
--
-- /See:/ <https://cloud.google.com/dataflow Dataflow API Reference> for @dataflow.projects.locations.jobs.update@.
module Network.Google.Resource.Dataflow.Projects.Locations.Jobs.Update
@@ -65,10 +70,16 @@ type ProjectsLocationsJobsUpdateResource =
QueryParam "alt" AltJSON :>
ReqBody '[JSON] Job :> Put '[JSON] Job
--- | Updates the state of an existing Cloud Dataflow job.
+-- | Updates the state of an existing Cloud Dataflow job. To update the state
+-- of an existing job, we recommend using
+-- \`projects.locations.jobs.update\` with a [regional endpoint]
+-- (https:\/\/cloud.google.com\/dataflow\/docs\/concepts\/regional-endpoints).
+-- Using \`projects.jobs.update\` is not recommended, as you can only
+-- update the state of jobs that are running in \`us-central1\`.
--
-- /See:/ 'projectsLocationsJobsUpdate' smart constructor.
-data ProjectsLocationsJobsUpdate = ProjectsLocationsJobsUpdate'
+data ProjectsLocationsJobsUpdate =
+ ProjectsLocationsJobsUpdate'
{ _pljuXgafv :: !(Maybe Xgafv)
, _pljuJobId :: !Text
, _pljuUploadProtocol :: !(Maybe Text)
@@ -78,7 +89,9 @@ data ProjectsLocationsJobsUpdate = ProjectsLocationsJobsUpdate'
, _pljuPayload :: !Job
, _pljuProjectId :: !Text
, _pljuCallback :: !(Maybe Text)
- } deriving (Eq,Show,Data,Typeable,Generic)
+ }
+ deriving (Eq, Show, Data, Typeable, Generic)
+
-- | Creates a value of 'ProjectsLocationsJobsUpdate' with the minimum fields required to make a request.
--
@@ -108,7 +121,7 @@ projectsLocationsJobsUpdate
-> Text -- ^ 'pljuProjectId'
-> ProjectsLocationsJobsUpdate
projectsLocationsJobsUpdate pPljuJobId_ pPljuLocation_ pPljuPayload_ pPljuProjectId_ =
- ProjectsLocationsJobsUpdate'
+ ProjectsLocationsJobsUpdate'
{ _pljuXgafv = Nothing
, _pljuJobId = pPljuJobId_
, _pljuUploadProtocol = Nothing
@@ -120,6 +133,7 @@ projectsLocationsJobsUpdate pPljuJobId_ pPljuLocation_ pPljuPayload_ pPljuProjec
, _pljuCallback = Nothing
}
+
-- | V1 error format.
pljuXgafv :: Lens' ProjectsLocationsJobsUpdate (Maybe Xgafv)
pljuXgafv
@@ -136,7 +150,9 @@ pljuUploadProtocol
= lens _pljuUploadProtocol
(\ s a -> s{_pljuUploadProtocol = a})
--- | The location that contains this job.
+-- | The [regional endpoint]
+-- (https:\/\/cloud.google.com\/dataflow\/docs\/concepts\/regional-endpoints)
+-- that contains this job.
pljuLocation :: Lens' ProjectsLocationsJobsUpdate Text
pljuLocation
= lens _pljuLocation (\ s a -> s{_pljuLocation = a})
diff --git a/gen/Network/Google/Resource/Dataflow/Projects/Locations/Jobs/WorkItems/Lease.hs b/gen/Network/Google/Resource/Dataflow/Projects/Locations/Jobs/WorkItems/Lease.hs
index 649f2f4..97c7215 100644
--- a/gen/Network/Google/Resource/Dataflow/Projects/Locations/Jobs/WorkItems/Lease.hs
+++ b/gen/Network/Google/Resource/Dataflow/Projects/Locations/Jobs/WorkItems/Lease.hs
@@ -70,7 +70,8 @@ type ProjectsLocationsJobsWorkItemsLeaseResource =
-- | Leases a dataflow WorkItem to run.
--
-- /See:/ 'projectsLocationsJobsWorkItemsLease' smart constructor.
-data ProjectsLocationsJobsWorkItemsLease = ProjectsLocationsJobsWorkItemsLease'
+data ProjectsLocationsJobsWorkItemsLease =
+ ProjectsLocationsJobsWorkItemsLease'
{ _pljwilXgafv :: !(Maybe Xgafv)
, _pljwilJobId :: !Text
, _pljwilUploadProtocol :: !(Maybe Text)
@@ -80,7 +81,9 @@ data ProjectsLocationsJobsWorkItemsLease = ProjectsLocationsJobsWorkItemsLease'
, _pljwilPayload :: !LeaseWorkItemRequest
, _pljwilProjectId :: !Text
, _pljwilCallback :: !(Maybe Text)
- } deriving (Eq,Show,Data,Typeable,Generic)
+ }
+ deriving (Eq, Show, Data, Typeable, Generic)
+
-- | Creates a value of 'ProjectsLocationsJobsWorkItemsLease' with the minimum fields required to make a request.
--
@@ -110,7 +113,7 @@ projectsLocationsJobsWorkItemsLease
-> Text -- ^ 'pljwilProjectId'
-> ProjectsLocationsJobsWorkItemsLease
projectsLocationsJobsWorkItemsLease pPljwilJobId_ pPljwilLocation_ pPljwilPayload_ pPljwilProjectId_ =
- ProjectsLocationsJobsWorkItemsLease'
+ ProjectsLocationsJobsWorkItemsLease'
{ _pljwilXgafv = Nothing
, _pljwilJobId = pPljwilJobId_
, _pljwilUploadProtocol = Nothing
@@ -122,6 +125,7 @@ projectsLocationsJobsWorkItemsLease pPljwilJobId_ pPljwilLocation_ pPljwilPayloa
, _pljwilCallback = Nothing
}
+
-- | V1 error format.
pljwilXgafv :: Lens' ProjectsLocationsJobsWorkItemsLease (Maybe Xgafv)
pljwilXgafv
@@ -138,7 +142,9 @@ pljwilUploadProtocol
= lens _pljwilUploadProtocol
(\ s a -> s{_pljwilUploadProtocol = a})
--- | The location which contains the WorkItem\'s job.
+-- | The [regional endpoint]
+-- (https:\/\/cloud.google.com\/dataflow\/docs\/concepts\/regional-endpoints)
+-- that contains the WorkItem\'s job.
pljwilLocation :: Lens' ProjectsLocationsJobsWorkItemsLease Text
pljwilLocation
= lens _pljwilLocation
@@ -175,7 +181,8 @@ pljwilCallback
(\ s a -> s{_pljwilCallback = a})
instance GoogleRequest
- ProjectsLocationsJobsWorkItemsLease where
+ ProjectsLocationsJobsWorkItemsLease
+ where
type Rs ProjectsLocationsJobsWorkItemsLease =
LeaseWorkItemResponse
type Scopes ProjectsLocationsJobsWorkItemsLease =
diff --git a/gen/Network/Google/Resource/Dataflow/Projects/Locations/Jobs/WorkItems/ReportStatus.hs b/gen/Network/Google/Resource/Dataflow/Projects/Locations/Jobs/WorkItems/ReportStatus.hs
index f4d4e20..214c42f 100644
--- a/gen/Network/Google/Resource/Dataflow/Projects/Locations/Jobs/WorkItems/ReportStatus.hs
+++ b/gen/Network/Google/Resource/Dataflow/Projects/Locations/Jobs/WorkItems/ReportStatus.hs
@@ -71,7 +71,8 @@ type ProjectsLocationsJobsWorkItemsReportStatusResource
-- | Reports the status of dataflow WorkItems leased by a worker.
--
-- /See:/ 'projectsLocationsJobsWorkItemsReportStatus' smart constructor.
-data ProjectsLocationsJobsWorkItemsReportStatus = ProjectsLocationsJobsWorkItemsReportStatus'
+data ProjectsLocationsJobsWorkItemsReportStatus =
+ ProjectsLocationsJobsWorkItemsReportStatus'
{ _pljwirsXgafv :: !(Maybe Xgafv)
, _pljwirsJobId :: !Text
, _pljwirsUploadProtocol :: !(Maybe Text)
@@ -81,7 +82,9 @@ data ProjectsLocationsJobsWorkItemsReportStatus = ProjectsLocationsJobsWorkItems
, _pljwirsPayload :: !ReportWorkItemStatusRequest
, _pljwirsProjectId :: !Text
, _pljwirsCallback :: !(Maybe Text)
- } deriving (Eq,Show,Data,Typeable,Generic)
+ }
+ deriving (Eq, Show, Data, Typeable, Generic)
+
-- | Creates a value of 'ProjectsLocationsJobsWorkItemsReportStatus' with the minimum fields required to make a request.
--
@@ -111,7 +114,7 @@ projectsLocationsJobsWorkItemsReportStatus
-> Text -- ^ 'pljwirsProjectId'
-> ProjectsLocationsJobsWorkItemsReportStatus
projectsLocationsJobsWorkItemsReportStatus pPljwirsJobId_ pPljwirsLocation_ pPljwirsPayload_ pPljwirsProjectId_ =
- ProjectsLocationsJobsWorkItemsReportStatus'
+ ProjectsLocationsJobsWorkItemsReportStatus'
{ _pljwirsXgafv = Nothing
, _pljwirsJobId = pPljwirsJobId_
, _pljwirsUploadProtocol = Nothing
@@ -123,6 +126,7 @@ projectsLocationsJobsWorkItemsReportStatus pPljwirsJobId_ pPljwirsLocation_ pPlj
, _pljwirsCallback = Nothing
}
+
-- | V1 error format.
pljwirsXgafv :: Lens' ProjectsLocationsJobsWorkItemsReportStatus (Maybe Xgafv)
pljwirsXgafv
@@ -139,7 +143,9 @@ pljwirsUploadProtocol
= lens _pljwirsUploadProtocol
(\ s a -> s{_pljwirsUploadProtocol = a})
--- | The location which contains the WorkItem\'s job.
+-- | The [regional endpoint]
+-- (https:\/\/cloud.google.com\/dataflow\/docs\/concepts\/regional-endpoints)
+-- that contains the WorkItem\'s job.
pljwirsLocation :: Lens' ProjectsLocationsJobsWorkItemsReportStatus Text
pljwirsLocation
= lens _pljwirsLocation
@@ -176,7 +182,8 @@ pljwirsCallback
(\ s a -> s{_pljwirsCallback = a})
instance GoogleRequest
- ProjectsLocationsJobsWorkItemsReportStatus where
+ ProjectsLocationsJobsWorkItemsReportStatus
+ where
type Rs ProjectsLocationsJobsWorkItemsReportStatus =
ReportWorkItemStatusResponse
type Scopes
diff --git a/gen/Network/Google/Resource/Dataflow/Projects/Locations/SQL/Validate.hs b/gen/Network/Google/Resource/Dataflow/Projects/Locations/SQL/Validate.hs
new file mode 100644
index 0000000..da6732c
--- /dev/null
+++ b/gen/Network/Google/Resource/Dataflow/Projects/Locations/SQL/Validate.hs
@@ -0,0 +1,193 @@
+{-# LANGUAGE DataKinds #-}
+{-# LANGUAGE DeriveDataTypeable #-}
+{-# LANGUAGE DeriveGeneric #-}
+{-# LANGUAGE FlexibleInstances #-}
+{-# LANGUAGE NoImplicitPrelude #-}
+{-# LANGUAGE OverloadedStrings #-}
+{-# LANGUAGE RecordWildCards #-}
+{-# LANGUAGE TypeFamilies #-}
+{-# LANGUAGE TypeOperators #-}
+
+{-# OPTIONS_GHC -fno-warn-duplicate-exports #-}
+{-# OPTIONS_GHC -fno-warn-unused-binds #-}
+{-# OPTIONS_GHC -fno-warn-unused-imports #-}
+
+-- |
+-- Module : Network.Google.Resource.Dataflow.Projects.Locations.SQL.Validate
+-- Copyright : (c) 2015-2016 Brendan Hay
+-- License : Mozilla Public License, v. 2.0.
+-- Maintainer : Brendan Hay <brendan.g.hay@gmail.com>
+-- Stability : auto-generated
+-- Portability : non-portable (GHC extensions)
+--
+-- Validates a GoogleSQL query for Cloud Dataflow syntax. Will always
+-- confirm the given query parses correctly, and if able to look up schema
+-- information from DataCatalog, will validate that the query analyzes
+-- properly as well.
+--
+-- /See:/ <https://cloud.google.com/dataflow Dataflow API Reference> for @dataflow.projects.locations.sql.validate@.
+module Network.Google.Resource.Dataflow.Projects.Locations.SQL.Validate
+ (
+ -- * REST Resource
+ ProjectsLocationsSQLValidateResource
+
+ -- * Creating a Request
+ , projectsLocationsSQLValidate
+ , ProjectsLocationsSQLValidate
+
+ -- * Request Lenses
+ , plsqlvXgafv
+ , plsqlvUploadProtocol
+ , plsqlvLocation
+ , plsqlvAccessToken
+ , plsqlvUploadType
+ , plsqlvQuery
+ , plsqlvProjectId
+ , plsqlvCallback
+ ) where
+
+import Network.Google.Dataflow.Types
+import Network.Google.Prelude
+
+-- | A resource alias for @dataflow.projects.locations.sql.validate@ method which the
+-- 'ProjectsLocationsSQLValidate' request conforms to.
+type ProjectsLocationsSQLValidateResource =
+ "v1b3" :>
+ "projects" :>
+ Capture "projectId" Text :>
+ "locations" :>
+ Capture "location" Text :>
+ "sql:validate" :>
+ QueryParam "$.xgafv" Xgafv :>
+ QueryParam "upload_protocol" Text :>
+ QueryParam "access_token" Text :>
+ QueryParam "uploadType" Text :>
+ QueryParam "query" Text :>
+ QueryParam "callback" Text :>
+ QueryParam "alt" AltJSON :>
+ Get '[JSON] ValidateResponse
+
+-- | Validates a GoogleSQL query for Cloud Dataflow syntax. Will always
+-- confirm the given query parses correctly, and if able to look up schema
+-- information from DataCatalog, will validate that the query analyzes
+-- properly as well.
+--
+-- /See:/ 'projectsLocationsSQLValidate' smart constructor.
+data ProjectsLocationsSQLValidate =
+ ProjectsLocationsSQLValidate'
+ { _plsqlvXgafv :: !(Maybe Xgafv)
+ , _plsqlvUploadProtocol :: !(Maybe Text)
+ , _plsqlvLocation :: !Text
+ , _plsqlvAccessToken :: !(Maybe Text)
+ , _plsqlvUploadType :: !(Maybe Text)
+ , _plsqlvQuery :: !(Maybe Text)
+ , _plsqlvProjectId :: !Text
+ , _plsqlvCallback :: !(Maybe Text)
+ }
+ deriving (Eq, Show, Data, Typeable, Generic)
+
+
+-- | Creates a value of 'ProjectsLocationsSQLValidate' with the minimum fields required to make a request.
+--
+-- Use one of the following lenses to modify other fields as desired:
+--
+-- * 'plsqlvXgafv'
+--
+-- * 'plsqlvUploadProtocol'
+--
+-- * 'plsqlvLocation'
+--
+-- * 'plsqlvAccessToken'
+--
+-- * 'plsqlvUploadType'
+--
+-- * 'plsqlvQuery'
+--
+-- * 'plsqlvProjectId'
+--
+-- * 'plsqlvCallback'
+projectsLocationsSQLValidate
+ :: Text -- ^ 'plsqlvLocation'
+ -> Text -- ^ 'plsqlvProjectId'
+ -> ProjectsLocationsSQLValidate
+projectsLocationsSQLValidate pPlsqlvLocation_ pPlsqlvProjectId_ =
+ ProjectsLocationsSQLValidate'
+ { _plsqlvXgafv = Nothing
+ , _plsqlvUploadProtocol = Nothing
+ , _plsqlvLocation = pPlsqlvLocation_
+ , _plsqlvAccessToken = Nothing
+ , _plsqlvUploadType = Nothing
+ , _plsqlvQuery = Nothing
+ , _plsqlvProjectId = pPlsqlvProjectId_
+ , _plsqlvCallback = Nothing
+ }
+
+
+-- | V1 error format.
+plsqlvXgafv :: Lens' ProjectsLocationsSQLValidate (Maybe Xgafv)
+plsqlvXgafv
+ = lens _plsqlvXgafv (\ s a -> s{_plsqlvXgafv = a})
+
+-- | Upload protocol for media (e.g. \"raw\", \"multipart\").
+plsqlvUploadProtocol :: Lens' ProjectsLocationsSQLValidate (Maybe Text)
+plsqlvUploadProtocol
+ = lens _plsqlvUploadProtocol
+ (\ s a -> s{_plsqlvUploadProtocol = a})
+
+-- | The [regional endpoint]
+-- (https:\/\/cloud.google.com\/dataflow\/docs\/concepts\/regional-endpoints)
+-- to which to direct the request.
+plsqlvLocation :: Lens' ProjectsLocationsSQLValidate Text
+plsqlvLocation
+ = lens _plsqlvLocation
+ (\ s a -> s{_plsqlvLocation = a})
+
+-- | OAuth access token.
+plsqlvAccessToken :: Lens' ProjectsLocationsSQLValidate (Maybe Text)
+plsqlvAccessToken
+ = lens _plsqlvAccessToken
+ (\ s a -> s{_plsqlvAccessToken = a})
+
+-- | Legacy upload protocol for media (e.g. \"media\", \"multipart\").
+plsqlvUploadType :: Lens' ProjectsLocationsSQLValidate (Maybe Text)
+plsqlvUploadType
+ = lens _plsqlvUploadType
+ (\ s a -> s{_plsqlvUploadType = a})
+
+-- | The sql query to validate.
+plsqlvQuery :: Lens' ProjectsLocationsSQLValidate (Maybe Text)
+plsqlvQuery
+ = lens _plsqlvQuery (\ s a -> s{_plsqlvQuery = a})
+
+-- | Required. The ID of the Cloud Platform project that the job belongs to.
+plsqlvProjectId :: Lens' ProjectsLocationsSQLValidate Text
+plsqlvProjectId
+ = lens _plsqlvProjectId
+ (\ s a -> s{_plsqlvProjectId = a})
+
+-- | JSONP
+plsqlvCallback :: Lens' ProjectsLocationsSQLValidate (Maybe Text)
+plsqlvCallback
+ = lens _plsqlvCallback
+ (\ s a -> s{_plsqlvCallback = a})
+
+instance GoogleRequest ProjectsLocationsSQLValidate
+ where
+ type Rs ProjectsLocationsSQLValidate =
+ ValidateResponse
+ type Scopes ProjectsLocationsSQLValidate =
+ '["https://www.googleapis.com/auth/cloud-platform",
+ "https://www.googleapis.com/auth/userinfo.email"]
+ requestClient ProjectsLocationsSQLValidate'{..}
+ = go _plsqlvProjectId _plsqlvLocation _plsqlvXgafv
+ _plsqlvUploadProtocol
+ _plsqlvAccessToken
+ _plsqlvUploadType
+ _plsqlvQuery
+ _plsqlvCallback
+ (Just AltJSON)
+ dataflowService
+ where go
+ = buildClient
+ (Proxy :: Proxy ProjectsLocationsSQLValidateResource)
+ mempty
diff --git a/gen/Network/Google/Resource/Dataflow/Projects/Locations/Snapshots/Delete.hs b/gen/Network/Google/Resource/Dataflow/Projects/Locations/Snapshots/Delete.hs
new file mode 100644
index 0000000..d4d4d43
--- /dev/null
+++ b/gen/Network/Google/Resource/Dataflow/Projects/Locations/Snapshots/Delete.hs
@@ -0,0 +1,189 @@
+{-# LANGUAGE DataKinds #-}
+{-# LANGUAGE DeriveDataTypeable #-}
+{-# LANGUAGE DeriveGeneric #-}
+{-# LANGUAGE FlexibleInstances #-}
+{-# LANGUAGE NoImplicitPrelude #-}
+{-# LANGUAGE OverloadedStrings #-}
+{-# LANGUAGE RecordWildCards #-}
+{-# LANGUAGE TypeFamilies #-}
+{-# LANGUAGE TypeOperators #-}
+
+{-# OPTIONS_GHC -fno-warn-duplicate-exports #-}
+{-# OPTIONS_GHC -fno-warn-unused-binds #-}
+{-# OPTIONS_GHC -fno-warn-unused-imports #-}
+
+-- |
+-- Module : Network.Google.Resource.Dataflow.Projects.Locations.Snapshots.Delete
+-- Copyright : (c) 2015-2016 Brendan Hay
+-- License : Mozilla Public License, v. 2.0.
+-- Maintainer : Brendan Hay <brendan.g.hay@gmail.com>
+-- Stability : auto-generated
+-- Portability : non-portable (GHC extensions)
+--
+-- Deletes a snapshot.
+--
+-- /See:/ <https://cloud.google.com/dataflow Dataflow API Reference> for @dataflow.projects.locations.snapshots.delete@.
+module Network.Google.Resource.Dataflow.Projects.Locations.Snapshots.Delete
+ (
+ -- * REST Resource
+ ProjectsLocationsSnapshotsDeleteResource
+
+ -- * Creating a Request
+ , projectsLocationsSnapshotsDelete
+ , ProjectsLocationsSnapshotsDelete
+
+ -- * Request Lenses
+ , plsdXgafv
+ , plsdUploadProtocol
+ , plsdLocation
+ , plsdAccessToken
+ , plsdUploadType
+ , plsdProjectId
+ , plsdCallback
+ , plsdSnapshotId
+ ) where
+
+import Network.Google.Dataflow.Types
+import Network.Google.Prelude
+
+-- | A resource alias for @dataflow.projects.locations.snapshots.delete@ method which the
+-- 'ProjectsLocationsSnapshotsDelete' request conforms to.
+type ProjectsLocationsSnapshotsDeleteResource =
+ "v1b3" :>
+ "projects" :>
+ Capture "projectId" Text :>
+ "locations" :>
+ Capture "location" Text :>
+ "snapshots" :>
+ Capture "snapshotId" Text :>
+ QueryParam "$.xgafv" Xgafv :>
+ QueryParam "upload_protocol" Text :>
+ QueryParam "access_token" Text :>
+ QueryParam "uploadType" Text :>
+ QueryParam "callback" Text :>
+ QueryParam "alt" AltJSON :>
+ Delete '[JSON] DeleteSnapshotResponse
+
+-- | Deletes a snapshot.
+--
+-- /See:/ 'projectsLocationsSnapshotsDelete' smart constructor.
+data ProjectsLocationsSnapshotsDelete =
+ ProjectsLocationsSnapshotsDelete'
+ { _plsdXgafv :: !(Maybe Xgafv)
+ , _plsdUploadProtocol :: !(Maybe Text)
+ , _plsdLocation :: !Text
+ , _plsdAccessToken :: !(Maybe Text)
+ , _plsdUploadType :: !(Maybe Text)
+ , _plsdProjectId :: !Text
+ , _plsdCallback :: !(Maybe Text)
+ , _plsdSnapshotId :: !Text
+ }
+ deriving (Eq, Show, Data, Typeable, Generic)
+
+
+-- | Creates a value of 'ProjectsLocationsSnapshotsDelete' with the minimum fields required to make a request.
+--
+-- Use one of the following lenses to modify other fields as desired:
+--
+-- * 'plsdXgafv'
+--
+-- * 'plsdUploadProtocol'
+--
+-- * 'plsdLocation'
+--
+-- * 'plsdAccessToken'
+--
+-- * 'plsdUploadType'
+--
+-- * 'plsdProjectId'
+--
+-- * 'plsdCallback'
+--
+-- * 'plsdSnapshotId'
+projectsLocationsSnapshotsDelete
+ :: Text -- ^ 'plsdLocation'
+ -> Text -- ^ 'plsdProjectId'
+ -> Text -- ^ 'plsdSnapshotId'
+ -> ProjectsLocationsSnapshotsDelete
+projectsLocationsSnapshotsDelete pPlsdLocation_ pPlsdProjectId_ pPlsdSnapshotId_ =
+ ProjectsLocationsSnapshotsDelete'
+ { _plsdXgafv = Nothing
+ , _plsdUploadProtocol = Nothing
+ , _plsdLocation = pPlsdLocation_
+ , _plsdAccessToken = Nothing
+ , _plsdUploadType = Nothing
+ , _plsdProjectId = pPlsdProjectId_
+ , _plsdCallback = Nothing
+ , _plsdSnapshotId = pPlsdSnapshotId_
+ }
+
+
+-- | V1 error format.
+plsdXgafv :: Lens' ProjectsLocationsSnapshotsDelete (Maybe Xgafv)
+plsdXgafv
+ = lens _plsdXgafv (\ s a -> s{_plsdXgafv = a})
+
+-- | Upload protocol for media (e.g. \"raw\", \"multipart\").
+plsdUploadProtocol :: Lens' ProjectsLocationsSnapshotsDelete (Maybe Text)
+plsdUploadProtocol
+ = lens _plsdUploadProtocol
+ (\ s a -> s{_plsdUploadProtocol = a})
+
+-- | The location that contains this snapshot.
+plsdLocation :: Lens' ProjectsLocationsSnapshotsDelete Text
+plsdLocation
+ = lens _plsdLocation (\ s a -> s{_plsdLocation = a})
+
+-- | OAuth access token.
+plsdAccessToken :: Lens' ProjectsLocationsSnapshotsDelete (Maybe Text)
+plsdAccessToken
+ = lens _plsdAccessToken
+ (\ s a -> s{_plsdAccessToken = a})
+
+-- | Legacy upload protocol for media (e.g. \"media\", \"multipart\").
+plsdUploadType :: Lens' ProjectsLocationsSnapshotsDelete (Maybe Text)
+plsdUploadType
+ = lens _plsdUploadType
+ (\ s a -> s{_plsdUploadType = a})
+
+-- | The ID of the Cloud Platform project that the snapshot belongs to.
+plsdProjectId :: Lens' ProjectsLocationsSnapshotsDelete Text
+plsdProjectId
+ = lens _plsdProjectId
+ (\ s a -> s{_plsdProjectId = a})
+
+-- | JSONP
+plsdCallback :: Lens' ProjectsLocationsSnapshotsDelete (Maybe Text)
+plsdCallback
+ = lens _plsdCallback (\ s a -> s{_plsdCallback = a})
+
+-- | The ID of the snapshot.
+plsdSnapshotId :: Lens' ProjectsLocationsSnapshotsDelete Text
+plsdSnapshotId
+ = lens _plsdSnapshotId
+ (\ s a -> s{_plsdSnapshotId = a})
+
+instance GoogleRequest
+ ProjectsLocationsSnapshotsDelete
+ where
+ type Rs ProjectsLocationsSnapshotsDelete =
+ DeleteSnapshotResponse
+ type Scopes ProjectsLocationsSnapshotsDelete =
+ '["https://www.googleapis.com/auth/cloud-platform",
+ "https://www.googleapis.com/auth/compute",
+ "https://www.googleapis.com/auth/compute.readonly",
+ "https://www.googleapis.com/auth/userinfo.email"]
+ requestClient ProjectsLocationsSnapshotsDelete'{..}
+ = go _plsdProjectId _plsdLocation _plsdSnapshotId
+ _plsdXgafv
+ _plsdUploadProtocol
+ _plsdAccessToken
+ _plsdUploadType
+ _plsdCallback
+ (Just AltJSON)
+ dataflowService
+ where go
+ = buildClient
+ (Proxy ::
+ Proxy ProjectsLocationsSnapshotsDeleteResource)
+ mempty
diff --git a/gen/Network/Google/Resource/Dataflow/Projects/Locations/Snapshots/Get.hs b/gen/Network/Google/Resource/Dataflow/Projects/Locations/Snapshots/Get.hs
new file mode 100644
index 0000000..211d5a9
--- /dev/null
+++ b/gen/Network/Google/Resource/Dataflow/Projects/Locations/Snapshots/Get.hs
@@ -0,0 +1,186 @@
+{-# LANGUAGE DataKinds #-}
+{-# LANGUAGE DeriveDataTypeable #-}
+{-# LANGUAGE DeriveGeneric #-}
+{-# LANGUAGE FlexibleInstances #-}
+{-# LANGUAGE NoImplicitPrelude #-}
+{-# LANGUAGE OverloadedStrings #-}
+{-# LANGUAGE RecordWildCards #-}
+{-# LANGUAGE TypeFamilies #-}
+{-# LANGUAGE TypeOperators #-}
+
+{-# OPTIONS_GHC -fno-warn-duplicate-exports #-}
+{-# OPTIONS_GHC -fno-warn-unused-binds #-}
+{-# OPTIONS_GHC -fno-warn-unused-imports #-}
+
+-- |
+-- Module : Network.Google.Resource.Dataflow.Projects.Locations.Snapshots.Get
+-- Copyright : (c) 2015-2016 Brendan Hay
+-- License : Mozilla Public License, v. 2.0.
+-- Maintainer : Brendan Hay <brendan.g.hay@gmail.com>
+-- Stability : auto-generated
+-- Portability : non-portable (GHC extensions)
+--
+-- Gets information about a snapshot.
+--
+-- /See:/ <https://cloud.google.com/dataflow Dataflow API Reference> for @dataflow.projects.locations.snapshots.get@.
+module Network.Google.Resource.Dataflow.Projects.Locations.Snapshots.Get
+ (
+ -- * REST Resource
+ ProjectsLocationsSnapshotsGetResource
+
+ -- * Creating a Request
+ , projectsLocationsSnapshotsGet
+ , ProjectsLocationsSnapshotsGet
+
+ -- * Request Lenses
+ , plsgXgafv
+ , plsgUploadProtocol
+ , plsgLocation
+ , plsgAccessToken
+ , plsgUploadType
+ , plsgProjectId
+ , plsgCallback
+ , plsgSnapshotId
+ ) where
+
+import Network.Google.Dataflow.Types
+import Network.Google.Prelude
+
+-- | A resource alias for @dataflow.projects.locations.snapshots.get@ method which the
+-- 'ProjectsLocationsSnapshotsGet' request conforms to.
+type ProjectsLocationsSnapshotsGetResource =
+ "v1b3" :>
+ "projects" :>
+ Capture "projectId" Text :>
+ "locations" :>
+ Capture "location" Text :>
+ "snapshots" :>
+ Capture "snapshotId" Text :>
+ QueryParam "$.xgafv" Xgafv :>
+ QueryParam "upload_protocol" Text :>
+ QueryParam "access_token" Text :>
+ QueryParam "uploadType" Text :>
+ QueryParam "callback" Text :>
+ QueryParam "alt" AltJSON :> Get '[JSON] Snapshot
+
+-- | Gets information about a snapshot.
+--
+-- /See:/ 'projectsLocationsSnapshotsGet' smart constructor.
+data ProjectsLocationsSnapshotsGet =
+ ProjectsLocationsSnapshotsGet'
+ { _plsgXgafv :: !(Maybe Xgafv)
+ , _plsgUploadProtocol :: !(Maybe Text)
+ , _plsgLocation :: !Text
+ , _plsgAccessToken :: !(Maybe Text)
+ , _plsgUploadType :: !(Maybe Text)
+ , _plsgProjectId :: !Text
+ , _plsgCallback :: !(Maybe Text)
+ , _plsgSnapshotId :: !Text
+ }
+ deriving (Eq, Show, Data, Typeable, Generic)
+
+
+-- | Creates a value of 'ProjectsLocationsSnapshotsGet' with the minimum fields required to make a request.
+--
+-- Use one of the following lenses to modify other fields as desired:
+--
+-- * 'plsgXgafv'
+--
+-- * 'plsgUploadProtocol'
+--
+-- * 'plsgLocation'
+--
+-- * 'plsgAccessToken'
+--
+-- * 'plsgUploadType'
+--
+-- * 'plsgProjectId'
+--
+-- * 'plsgCallback'
+--
+-- * 'plsgSnapshotId'
+projectsLocationsSnapshotsGet
+ :: Text -- ^ 'plsgLocation'
+ -> Text -- ^ 'plsgProjectId'
+ -> Text -- ^ 'plsgSnapshotId'
+ -> ProjectsLocationsSnapshotsGet
+projectsLocationsSnapshotsGet pPlsgLocation_ pPlsgProjectId_ pPlsgSnapshotId_ =
+ ProjectsLocationsSnapshotsGet'
+ { _plsgXgafv = Nothing
+ , _plsgUploadProtocol = Nothing
+ , _plsgLocation = pPlsgLocation_
+ , _plsgAccessToken = Nothing
+ , _plsgUploadType = Nothing
+ , _plsgProjectId = pPlsgProjectId_
+ , _plsgCallback = Nothing
+ , _plsgSnapshotId = pPlsgSnapshotId_
+ }
+
+
+-- | V1 error format.
+plsgXgafv :: Lens' ProjectsLocationsSnapshotsGet (Maybe Xgafv)
+plsgXgafv
+ = lens _plsgXgafv (\ s a -> s{_plsgXgafv = a})
+
+-- | Upload protocol for media (e.g. \"raw\", \"multipart\").
+plsgUploadProtocol :: Lens' ProjectsLocationsSnapshotsGet (Maybe Text)
+plsgUploadProtocol
+ = lens _plsgUploadProtocol
+ (\ s a -> s{_plsgUploadProtocol = a})
+
+-- | The location that contains this snapshot.
+plsgLocation :: Lens' ProjectsLocationsSnapshotsGet Text
+plsgLocation
+ = lens _plsgLocation (\ s a -> s{_plsgLocation = a})
+
+-- | OAuth access token.
+plsgAccessToken :: Lens' ProjectsLocationsSnapshotsGet (Maybe Text)
+plsgAccessToken
+ = lens _plsgAccessToken
+ (\ s a -> s{_plsgAccessToken = a})
+
+-- | Legacy upload protocol for media (e.g. \"media\", \"multipart\").
+plsgUploadType :: Lens' ProjectsLocationsSnapshotsGet (Maybe Text)
+plsgUploadType
+ = lens _plsgUploadType
+ (\ s a -> s{_plsgUploadType = a})
+
+-- | The ID of the Cloud Platform project that the snapshot belongs to.
+plsgProjectId :: Lens' ProjectsLocationsSnapshotsGet Text
+plsgProjectId
+ = lens _plsgProjectId
+ (\ s a -> s{_plsgProjectId = a})
+
+-- | JSONP
+plsgCallback :: Lens' ProjectsLocationsSnapshotsGet (Maybe Text)
+plsgCallback
+ = lens _plsgCallback (\ s a -> s{_plsgCallback = a})
+
+-- | The ID of the snapshot.
+plsgSnapshotId :: Lens' ProjectsLocationsSnapshotsGet Text
+plsgSnapshotId
+ = lens _plsgSnapshotId
+ (\ s a -> s{_plsgSnapshotId = a})
+
+instance GoogleRequest ProjectsLocationsSnapshotsGet
+ where
+ type Rs ProjectsLocationsSnapshotsGet = Snapshot
+ type Scopes ProjectsLocationsSnapshotsGet =
+ '["https://www.googleapis.com/auth/cloud-platform",
+ "https://www.googleapis.com/auth/compute",
+ "https://www.googleapis.com/auth/compute.readonly",
+ "https://www.googleapis.com/auth/userinfo.email"]
+ requestClient ProjectsLocationsSnapshotsGet'{..}
+ = go _plsgProjectId _plsgLocation _plsgSnapshotId
+ _plsgXgafv
+ _plsgUploadProtocol
+ _plsgAccessToken
+ _plsgUploadType
+ _plsgCallback
+ (Just AltJSON)
+ dataflowService
+ where go
+ = buildClient
+ (Proxy ::
+ Proxy ProjectsLocationsSnapshotsGetResource)
+ mempty
diff --git a/gen/Network/Google/Resource/Dataflow/Projects/Locations/Snapshots/List.hs b/gen/Network/Google/Resource/Dataflow/Projects/Locations/Snapshots/List.hs
new file mode 100644
index 0000000..8c96d2e
--- /dev/null
+++ b/gen/Network/Google/Resource/Dataflow/Projects/Locations/Snapshots/List.hs
@@ -0,0 +1,174 @@
+{-# LANGUAGE DataKinds #-}
+{-# LANGUAGE DeriveDataTypeable #-}
+{-# LANGUAGE DeriveGeneric #-}
+{-# LANGUAGE FlexibleInstances #-}
+{-# LANGUAGE NoImplicitPrelude #-}
+{-# LANGUAGE OverloadedStrings #-}
+{-# LANGUAGE RecordWildCards #-}
+{-# LANGUAGE TypeFamilies #-}
+{-# LANGUAGE TypeOperators #-}
+
+{-# OPTIONS_GHC -fno-warn-duplicate-exports #-}
+{-# OPTIONS_GHC -fno-warn-unused-binds #-}
+{-# OPTIONS_GHC -fno-warn-unused-imports #-}
+
+-- |
+-- Module : Network.Google.Resource.Dataflow.Projects.Locations.Snapshots.List
+-- Copyright : (c) 2015-2016 Brendan Hay
+-- License : Mozilla Public License, v. 2.0.
+-- Maintainer : Brendan Hay <brendan.g.hay@gmail.com>
+-- Stability : auto-generated
+-- Portability : non-portable (GHC extensions)
+--
+-- Lists snapshots.
+--
+-- /See:/ <https://cloud.google.com/dataflow Dataflow API Reference> for @dataflow.projects.locations.snapshots.list@.
+module Network.Google.Resource.Dataflow.Projects.Locations.Snapshots.List
+ (
+ -- * REST Resource
+ ProjectsLocationsSnapshotsListResource
+
+ -- * Creating a Request
+ , projectsLocationsSnapshotsList
+ , ProjectsLocationsSnapshotsList
+
+ -- * Request Lenses
+ , plslXgafv
+ , plslUploadProtocol
+ , plslLocation
+ , plslAccessToken
+ , plslUploadType
+ , plslProjectId
+ , plslCallback
+ ) where
+
+import Network.Google.Dataflow.Types
+import Network.Google.Prelude
+
+-- | A resource alias for @dataflow.projects.locations.snapshots.list@ method which the
+-- 'ProjectsLocationsSnapshotsList' request conforms to.
+type ProjectsLocationsSnapshotsListResource =
+ "v1b3" :>
+ "projects" :>
+ Capture "projectId" Text :>
+ "locations" :>
+ Capture "location" Text :>
+ "snapshots" :>
+ QueryParam "$.xgafv" Xgafv :>
+ QueryParam "upload_protocol" Text :>
+ QueryParam "access_token" Text :>
+ QueryParam "uploadType" Text :>
+ QueryParam "callback" Text :>
+ QueryParam "alt" AltJSON :>
+ Get '[JSON] ListSnapshotsResponse
+
+-- | Lists snapshots.
+--
+-- /See:/ 'projectsLocationsSnapshotsList' smart constructor.
+data ProjectsLocationsSnapshotsList =
+ ProjectsLocationsSnapshotsList'
+ { _plslXgafv :: !(Maybe Xgafv)
+ , _plslUploadProtocol :: !(Maybe Text)
+ , _plslLocation :: !Text
+ , _plslAccessToken :: !(Maybe Text)
+ , _plslUploadType :: !(Maybe Text)
+ , _plslProjectId :: !Text
+ , _plslCallback :: !(Maybe Text)
+ }
+ deriving (Eq, Show, Data, Typeable, Generic)
+
+
+-- | Creates a value of 'ProjectsLocationsSnapshotsList' with the minimum fields required to make a request.
+--
+-- Use one of the following lenses to modify other fields as desired:
+--
+-- * 'plslXgafv'
+--
+-- * 'plslUploadProtocol'
+--
+-- * 'plslLocation'
+--
+-- * 'plslAccessToken'
+--
+-- * 'plslUploadType'
+--
+-- * 'plslProjectId'
+--
+-- * 'plslCallback'
+projectsLocationsSnapshotsList
+ :: Text -- ^ 'plslLocation'
+ -> Text -- ^ 'plslProjectId'
+ -> ProjectsLocationsSnapshotsList
+projectsLocationsSnapshotsList pPlslLocation_ pPlslProjectId_ =
+ ProjectsLocationsSnapshotsList'
+ { _plslXgafv = Nothing
+ , _plslUploadProtocol = Nothing
+ , _plslLocation = pPlslLocation_
+ , _plslAccessToken = Nothing
+ , _plslUploadType = Nothing
+ , _plslProjectId = pPlslProjectId_
+ , _plslCallback = Nothing
+ }
+
+
+-- | V1 error format.
+plslXgafv :: Lens' ProjectsLocationsSnapshotsList (Maybe Xgafv)
+plslXgafv
+ = lens _plslXgafv (\ s a -> s{_plslXgafv = a})
+
+-- | Upload protocol for media (e.g. \"raw\", \"multipart\").
+plslUploadProtocol :: Lens' ProjectsLocationsSnapshotsList (Maybe Text)
+plslUploadProtocol
+ = lens _plslUploadProtocol
+ (\ s a -> s{_plslUploadProtocol = a})
+
+-- | The location to list snapshots in.
+plslLocation :: Lens' ProjectsLocationsSnapshotsList Text
+plslLocation
+ = lens _plslLocation (\ s a -> s{_plslLocation = a})
+
+-- | OAuth access token.
+plslAccessToken :: Lens' ProjectsLocationsSnapshotsList (Maybe Text)
+plslAccessToken
+ = lens _plslAccessToken
+ (\ s a -> s{_plslAccessToken = a})
+
+-- | Legacy upload protocol for media (e.g. \"media\", \"multipart\").
+plslUploadType :: Lens' ProjectsLocationsSnapshotsList (Maybe Text)
+plslUploadType
+ = lens _plslUploadType
+ (\ s a -> s{_plslUploadType = a})
+
+-- | The project ID to list snapshots for.
+plslProjectId :: Lens' ProjectsLocationsSnapshotsList Text
+plslProjectId
+ = lens _plslProjectId
+ (\ s a -> s{_plslProjectId = a})
+
+-- | JSONP
+plslCallback :: Lens' ProjectsLocationsSnapshotsList (Maybe Text)
+plslCallback
+ = lens _plslCallback (\ s a -> s{_plslCallback = a})
+
+instance GoogleRequest ProjectsLocationsSnapshotsList
+ where
+ type Rs ProjectsLocationsSnapshotsList =
+ ListSnapshotsResponse
+ type Scopes ProjectsLocationsSnapshotsList =
+ '["https://www.googleapis.com/auth/cloud-platform",
+ "https://www.googleapis.com/auth/compute",
+ "https://www.googleapis.com/auth/compute.readonly",
+ "https://www.googleapis.com/auth/userinfo.email"]
+ requestClient ProjectsLocationsSnapshotsList'{..}
+ = go _plslProjectId _plslLocation _plslXgafv
+ _plslUploadProtocol
+ _plslAccessToken
+ _plslUploadType
+ _plslCallback
+ (Just AltJSON)
+ dataflowService
+ where go
+ = buildClient
+ (Proxy ::
+ Proxy ProjectsLocationsSnapshotsListResource)
+ mempty
diff --git a/gen/Network/Google/Resource/Dataflow/Projects/Locations/Templates/Create.hs b/gen/Network/Google/Resource/Dataflow/Projects/Locations/Templates/Create.hs
index af512ac..8c2aaf5 100644
--- a/gen/Network/Google/Resource/Dataflow/Projects/Locations/Templates/Create.hs
+++ b/gen/Network/Google/Resource/Dataflow/Projects/Locations/Templates/Create.hs
@@ -67,7 +67,8 @@ type ProjectsLocationsTemplatesCreateResource =
-- | Creates a Cloud Dataflow job from a template.
--
-- /See:/ 'projectsLocationsTemplatesCreate' smart constructor.
-data ProjectsLocationsTemplatesCreate = ProjectsLocationsTemplatesCreate'
+data ProjectsLocationsTemplatesCreate =
+ ProjectsLocationsTemplatesCreate'
{ _pltcXgafv :: !(Maybe Xgafv)
, _pltcUploadProtocol :: !(Maybe Text)
, _pltcLocation :: !Text
@@ -76,7 +77,9 @@ data ProjectsLocationsTemplatesCreate = ProjectsLocationsTemplatesCreate'
, _pltcPayload :: !CreateJobFromTemplateRequest
, _pltcProjectId :: !Text
, _pltcCallback :: !(Maybe Text)
- } deriving (Eq,Show,Data,Typeable,Generic)
+ }
+ deriving (Eq, Show, Data, Typeable, Generic)
+
-- | Creates a value of 'ProjectsLocationsTemplatesCreate' with the minimum fields required to make a request.
--
@@ -103,7 +106,7 @@ projectsLocationsTemplatesCreate
-> Text -- ^ 'pltcProjectId'
-> ProjectsLocationsTemplatesCreate
projectsLocationsTemplatesCreate pPltcLocation_ pPltcPayload_ pPltcProjectId_ =
- ProjectsLocationsTemplatesCreate'
+ ProjectsLocationsTemplatesCreate'
{ _pltcXgafv = Nothing
, _pltcUploadProtocol = Nothing
, _pltcLocation = pPltcLocation_
@@ -114,6 +117,7 @@ projectsLocationsTemplatesCreate pPltcLocation_ pPltcPayload_ pPltcProjectId_ =
, _pltcCallback = Nothing
}
+
-- | V1 error format.
pltcXgafv :: Lens' ProjectsLocationsTemplatesCreate (Maybe Xgafv)
pltcXgafv
@@ -125,7 +129,9 @@ pltcUploadProtocol
= lens _pltcUploadProtocol
(\ s a -> s{_pltcUploadProtocol = a})
--- | The location to which to direct the request.
+-- | The [regional endpoint]
+-- (https:\/\/cloud.google.com\/dataflow\/docs\/concepts\/regional-endpoints)
+-- to which to direct the request.
pltcLocation :: Lens' ProjectsLocationsTemplatesCreate Text
pltcLocation
= lens _pltcLocation (\ s a -> s{_pltcLocation = a})
@@ -159,7 +165,8 @@ pltcCallback
= lens _pltcCallback (\ s a -> s{_pltcCallback = a})
instance GoogleRequest
- ProjectsLocationsTemplatesCreate where
+ ProjectsLocationsTemplatesCreate
+ where
type Rs ProjectsLocationsTemplatesCreate = Job
type Scopes ProjectsLocationsTemplatesCreate =
'["https://www.googleapis.com/auth/cloud-platform",
diff --git a/gen/Network/Google/Resource/Dataflow/Projects/Locations/Templates/Get.hs b/gen/Network/Google/Resource/Dataflow/Projects/Locations/Templates/Get.hs
index 620da0f..c73f4fd 100644
--- a/gen/Network/Google/Resource/Dataflow/Projects/Locations/Templates/Get.hs
+++ b/gen/Network/Google/Resource/Dataflow/Projects/Locations/Templates/Get.hs
@@ -69,7 +69,8 @@ type ProjectsLocationsTemplatesGetResource =
-- | Get the template associated with a template.
--
-- /See:/ 'projectsLocationsTemplatesGet' smart constructor.
-data ProjectsLocationsTemplatesGet = ProjectsLocationsTemplatesGet'
+data ProjectsLocationsTemplatesGet =
+ ProjectsLocationsTemplatesGet'
{ _pltgXgafv :: !(Maybe Xgafv)
, _pltgUploadProtocol :: !(Maybe Text)
, _pltgLocation :: !Text
@@ -79,7 +80,9 @@ data ProjectsLocationsTemplatesGet = ProjectsLocationsTemplatesGet'
, _pltgView :: !(Maybe Text)
, _pltgProjectId :: !Text
, _pltgCallback :: !(Maybe Text)
- } deriving (Eq,Show,Data,Typeable,Generic)
+ }
+ deriving (Eq, Show, Data, Typeable, Generic)
+
-- | Creates a value of 'ProjectsLocationsTemplatesGet' with the minimum fields required to make a request.
--
@@ -107,7 +110,7 @@ projectsLocationsTemplatesGet
-> Text -- ^ 'pltgProjectId'
-> ProjectsLocationsTemplatesGet
projectsLocationsTemplatesGet pPltgLocation_ pPltgProjectId_ =
- ProjectsLocationsTemplatesGet'
+ ProjectsLocationsTemplatesGet'
{ _pltgXgafv = Nothing
, _pltgUploadProtocol = Nothing
, _pltgLocation = pPltgLocation_
@@ -119,6 +122,7 @@ projectsLocationsTemplatesGet pPltgLocation_ pPltgProjectId_ =
, _pltgCallback = Nothing
}
+
-- | V1 error format.
pltgXgafv :: Lens' ProjectsLocationsTemplatesGet (Maybe Xgafv)
pltgXgafv
@@ -130,7 +134,9 @@ pltgUploadProtocol
= lens _pltgUploadProtocol
(\ s a -> s{_pltgUploadProtocol = a})
--- | The location to which to direct the request.
+-- | The [regional endpoint]
+-- (https:\/\/cloud.google.com\/dataflow\/docs\/concepts\/regional-endpoints)
+-- to which to direct the request.
pltgLocation :: Lens' ProjectsLocationsTemplatesGet Text
pltgLocation
= lens _pltgLocation (\ s a -> s{_pltgLocation = a})
diff --git a/gen/Network/Google/Resource/Dataflow/Projects/Locations/Templates/Launch.hs b/gen/Network/Google/Resource/Dataflow/Projects/Locations/Templates/Launch.hs
index 4958cc6..b37e8bc 100644
--- a/gen/Network/Google/Resource/Dataflow/Projects/Locations/Templates/Launch.hs
+++ b/gen/Network/Google/Resource/Dataflow/Projects/Locations/Templates/Launch.hs
@@ -75,7 +75,8 @@ type ProjectsLocationsTemplatesLaunchResource =
-- | Launch a template.
--
-- /See:/ 'projectsLocationsTemplatesLaunch' smart constructor.
-data ProjectsLocationsTemplatesLaunch = ProjectsLocationsTemplatesLaunch'
+data ProjectsLocationsTemplatesLaunch =
+ ProjectsLocationsTemplatesLaunch'
{ _pltlXgafv :: !(Maybe Xgafv)
, _pltlValidateOnly :: !(Maybe Bool)
, _pltlUploadProtocol :: !(Maybe Text)
@@ -88,7 +89,9 @@ data ProjectsLocationsTemplatesLaunch = ProjectsLocationsTemplatesLaunch'
, _pltlProjectId :: !Text
, _pltlCallback :: !(Maybe Text)
, _pltlDynamicTemplateGcsPath :: !(Maybe Text)
- } deriving (Eq,Show,Data,Typeable,Generic)
+ }
+ deriving (Eq, Show, Data, Typeable, Generic)
+
-- | Creates a value of 'ProjectsLocationsTemplatesLaunch' with the minimum fields required to make a request.
--
@@ -123,7 +126,7 @@ projectsLocationsTemplatesLaunch
-> Text -- ^ 'pltlProjectId'
-> ProjectsLocationsTemplatesLaunch
projectsLocationsTemplatesLaunch pPltlLocation_ pPltlPayload_ pPltlProjectId_ =
- ProjectsLocationsTemplatesLaunch'
+ ProjectsLocationsTemplatesLaunch'
{ _pltlXgafv = Nothing
, _pltlValidateOnly = Nothing
, _pltlUploadProtocol = Nothing
@@ -138,6 +141,7 @@ projectsLocationsTemplatesLaunch pPltlLocation_ pPltlPayload_ pPltlProjectId_ =
, _pltlDynamicTemplateGcsPath = Nothing
}
+
-- | V1 error format.
pltlXgafv :: Lens' ProjectsLocationsTemplatesLaunch (Maybe Xgafv)
pltlXgafv
@@ -156,7 +160,9 @@ pltlUploadProtocol
= lens _pltlUploadProtocol
(\ s a -> s{_pltlUploadProtocol = a})
--- | The location to which to direct the request.
+-- | The [regional endpoint]
+-- (https:\/\/cloud.google.com\/dataflow\/docs\/concepts\/regional-endpoints)
+-- to which to direct the request.
pltlLocation :: Lens' ProjectsLocationsTemplatesLaunch Text
pltlLocation
= lens _pltlLocation (\ s a -> s{_pltlLocation = a})
@@ -210,7 +216,8 @@ pltlDynamicTemplateGcsPath
(\ s a -> s{_pltlDynamicTemplateGcsPath = a})
instance GoogleRequest
- ProjectsLocationsTemplatesLaunch where
+ ProjectsLocationsTemplatesLaunch
+ where
type Rs ProjectsLocationsTemplatesLaunch =
LaunchTemplateResponse
type Scopes ProjectsLocationsTemplatesLaunch =
diff --git a/gen/Network/Google/Resource/Dataflow/Projects/Locations/WorkerMessages.hs b/gen/Network/Google/Resource/Dataflow/Projects/Locations/WorkerMessages.hs
index c6fc1ba..3489874 100644
--- a/gen/Network/Google/Resource/Dataflow/Projects/Locations/WorkerMessages.hs
+++ b/gen/Network/Google/Resource/Dataflow/Projects/Locations/WorkerMessages.hs
@@ -67,7 +67,8 @@ type ProjectsLocationsWorkerMessagesResource =
-- | Send a worker_message to the service.
--
-- /See:/ 'projectsLocationsWorkerMessages' smart constructor.
-data ProjectsLocationsWorkerMessages = ProjectsLocationsWorkerMessages'
+data ProjectsLocationsWorkerMessages =
+ ProjectsLocationsWorkerMessages'
{ _plwmXgafv :: !(Maybe Xgafv)
, _plwmUploadProtocol :: !(Maybe Text)
, _plwmLocation :: !Text
@@ -76,7 +77,9 @@ data ProjectsLocationsWorkerMessages = ProjectsLocationsWorkerMessages'
, _plwmPayload :: !SendWorkerMessagesRequest
, _plwmProjectId :: !Text
, _plwmCallback :: !(Maybe Text)
- } deriving (Eq,Show,Data,Typeable,Generic)
+ }
+ deriving (Eq, Show, Data, Typeable, Generic)
+
-- | Creates a value of 'ProjectsLocationsWorkerMessages' with the minimum fields required to make a request.
--
@@ -103,7 +106,7 @@ projectsLocationsWorkerMessages
-> Text -- ^ 'plwmProjectId'
-> ProjectsLocationsWorkerMessages
projectsLocationsWorkerMessages pPlwmLocation_ pPlwmPayload_ pPlwmProjectId_ =
- ProjectsLocationsWorkerMessages'
+ ProjectsLocationsWorkerMessages'
{ _plwmXgafv = Nothing
, _plwmUploadProtocol = Nothing
, _plwmLocation = pPlwmLocation_
@@ -114,6 +117,7 @@ projectsLocationsWorkerMessages pPlwmLocation_ pPlwmPayload_ pPlwmProjectId_ =
, _plwmCallback = Nothing
}
+
-- | V1 error format.
plwmXgafv :: Lens' ProjectsLocationsWorkerMessages (Maybe Xgafv)
plwmXgafv
@@ -125,7 +129,9 @@ plwmUploadProtocol
= lens _plwmUploadProtocol
(\ s a -> s{_plwmUploadProtocol = a})
--- | The location which contains the job
+-- | The [regional endpoint]
+-- (https:\/\/cloud.google.com\/dataflow\/docs\/concepts\/regional-endpoints)
+-- that contains the job.
plwmLocation :: Lens' ProjectsLocationsWorkerMessages Text
plwmLocation
= lens _plwmLocation (\ s a -> s{_plwmLocation = a})
@@ -159,7 +165,8 @@ plwmCallback
= lens _plwmCallback (\ s a -> s{_plwmCallback = a})
instance GoogleRequest
- ProjectsLocationsWorkerMessages where
+ ProjectsLocationsWorkerMessages
+ where
type Rs ProjectsLocationsWorkerMessages =
SendWorkerMessagesResponse
type Scopes ProjectsLocationsWorkerMessages =
diff --git a/gen/Network/Google/Resource/Dataflow/Projects/Snapshots/Get.hs b/gen/Network/Google/Resource/Dataflow/Projects/Snapshots/Get.hs
new file mode 100644
index 0000000..1ca3ead
--- /dev/null
+++ b/gen/Network/Google/Resource/Dataflow/Projects/Snapshots/Get.hs
@@ -0,0 +1,180 @@
+{-# LANGUAGE DataKinds #-}
+{-# LANGUAGE DeriveDataTypeable #-}
+{-# LANGUAGE DeriveGeneric #-}
+{-# LANGUAGE FlexibleInstances #-}
+{-# LANGUAGE NoImplicitPrelude #-}
+{-# LANGUAGE OverloadedStrings #-}
+{-# LANGUAGE RecordWildCards #-}
+{-# LANGUAGE TypeFamilies #-}
+{-# LANGUAGE TypeOperators #-}
+
+{-# OPTIONS_GHC -fno-warn-duplicate-exports #-}
+{-# OPTIONS_GHC -fno-warn-unused-binds #-}
+{-# OPTIONS_GHC -fno-warn-unused-imports #-}
+
+-- |
+-- Module : Network.Google.Resource.Dataflow.Projects.Snapshots.Get
+-- Copyright : (c) 2015-2016 Brendan Hay
+-- License : Mozilla Public License, v. 2.0.
+-- Maintainer : Brendan Hay <brendan.g.hay@gmail.com>
+-- Stability : auto-generated
+-- Portability : non-portable (GHC extensions)
+--
+-- Gets information about a snapshot.
+--
+-- /See:/ <https://cloud.google.com/dataflow Dataflow API Reference> for @dataflow.projects.snapshots.get@.
+module Network.Google.Resource.Dataflow.Projects.Snapshots.Get
+ (
+ -- * REST Resource
+ ProjectsSnapshotsGetResource
+
+ -- * Creating a Request
+ , projectsSnapshotsGet
+ , ProjectsSnapshotsGet
+
+ -- * Request Lenses
+ , psgXgafv
+ , psgUploadProtocol
+ , psgLocation
+ , psgAccessToken
+ , psgUploadType
+ , psgProjectId
+ , psgCallback
+ , psgSnapshotId
+ ) where
+
+import Network.Google.Dataflow.Types
+import Network.Google.Prelude
+
+-- | A resource alias for @dataflow.projects.snapshots.get@ method which the
+-- 'ProjectsSnapshotsGet' request conforms to.
+type ProjectsSnapshotsGetResource =
+ "v1b3" :>
+ "projects" :>
+ Capture "projectId" Text :>
+ "snapshots" :>
+ Capture "snapshotId" Text :>
+ QueryParam "$.xgafv" Xgafv :>
+ QueryParam "upload_protocol" Text :>
+ QueryParam "location" Text :>
+ QueryParam "access_token" Text :>
+ QueryParam "uploadType" Text :>
+ QueryParam "callback" Text :>
+ QueryParam "alt" AltJSON :> Get '[JSON] Snapshot
+
+-- | Gets information about a snapshot.
+--
+-- /See:/ 'projectsSnapshotsGet' smart constructor.
+data ProjectsSnapshotsGet =
+ ProjectsSnapshotsGet'
+ { _psgXgafv :: !(Maybe Xgafv)
+ , _psgUploadProtocol :: !(Maybe Text)
+ , _psgLocation :: !(Maybe Text)
+ , _psgAccessToken :: !(Maybe Text)
+ , _psgUploadType :: !(Maybe Text)
+ , _psgProjectId :: !Text
+ , _psgCallback :: !(Maybe Text)
+ , _psgSnapshotId :: !Text
+ }
+ deriving (Eq, Show, Data, Typeable, Generic)
+
+
+-- | Creates a value of 'ProjectsSnapshotsGet' with the minimum fields required to make a request.
+--
+-- Use one of the following lenses to modify other fields as desired:
+--
+-- * 'psgXgafv'
+--
+-- * 'psgUploadProtocol'
+--
+-- * 'psgLocation'
+--
+-- * 'psgAccessToken'
+--
+-- * 'psgUploadType'
+--
+-- * 'psgProjectId'
+--
+-- * 'psgCallback'
+--
+-- * 'psgSnapshotId'
+projectsSnapshotsGet
+ :: Text -- ^ 'psgProjectId'
+ -> Text -- ^ 'psgSnapshotId'
+ -> ProjectsSnapshotsGet
+projectsSnapshotsGet pPsgProjectId_ pPsgSnapshotId_ =
+ ProjectsSnapshotsGet'
+ { _psgXgafv = Nothing
+ , _psgUploadProtocol = Nothing
+ , _psgLocation = Nothing
+ , _psgAccessToken = Nothing
+ , _psgUploadType = Nothing
+ , _psgProjectId = pPsgProjectId_
+ , _psgCallback = Nothing
+ , _psgSnapshotId = pPsgSnapshotId_
+ }
+
+
+-- | V1 error format.
+psgXgafv :: Lens' ProjectsSnapshotsGet (Maybe Xgafv)
+psgXgafv = lens _psgXgafv (\ s a -> s{_psgXgafv = a})
+
+-- | Upload protocol for media (e.g. \"raw\", \"multipart\").
+psgUploadProtocol :: Lens' ProjectsSnapshotsGet (Maybe Text)
+psgUploadProtocol
+ = lens _psgUploadProtocol
+ (\ s a -> s{_psgUploadProtocol = a})
+
+-- | The location that contains this snapshot.
+psgLocation :: Lens' ProjectsSnapshotsGet (Maybe Text)
+psgLocation
+ = lens _psgLocation (\ s a -> s{_psgLocation = a})
+
+-- | OAuth access token.
+psgAccessToken :: Lens' ProjectsSnapshotsGet (Maybe Text)
+psgAccessToken
+ = lens _psgAccessToken
+ (\ s a -> s{_psgAccessToken = a})
+
+-- | Legacy upload protocol for media (e.g. \"media\", \"multipart\").
+psgUploadType :: Lens' ProjectsSnapshotsGet (Maybe Text)
+psgUploadType
+ = lens _psgUploadType
+ (\ s a -> s{_psgUploadType = a})
+
+-- | The ID of the Cloud Platform project that the snapshot belongs to.
+psgProjectId :: Lens' ProjectsSnapshotsGet Text
+psgProjectId
+ = lens _psgProjectId (\ s a -> s{_psgProjectId = a})
+
+-- | JSONP
+psgCallback :: Lens' ProjectsSnapshotsGet (Maybe Text)
+psgCallback
+ = lens _psgCallback (\ s a -> s{_psgCallback = a})
+
+-- | The ID of the snapshot.
+psgSnapshotId :: Lens' ProjectsSnapshotsGet Text
+psgSnapshotId
+ = lens _psgSnapshotId
+ (\ s a -> s{_psgSnapshotId = a})
+
+instance GoogleRequest ProjectsSnapshotsGet where
+ type Rs ProjectsSnapshotsGet = Snapshot
+ type Scopes ProjectsSnapshotsGet =
+ '["https://www.googleapis.com/auth/cloud-platform",
+ "https://www.googleapis.com/auth/compute",
+ "https://www.googleapis.com/auth/compute.readonly",
+ "https://www.googleapis.com/auth/userinfo.email"]
+ requestClient ProjectsSnapshotsGet'{..}
+ = go _psgProjectId _psgSnapshotId _psgXgafv
+ _psgUploadProtocol
+ _psgLocation
+ _psgAccessToken
+ _psgUploadType
+ _psgCallback
+ (Just AltJSON)
+ dataflowService
+ where go
+ = buildClient
+ (Proxy :: Proxy ProjectsSnapshotsGetResource)
+ mempty
diff --git a/gen/Network/Google/Resource/Dataflow/Projects/Snapshots/List.hs b/gen/Network/Google/Resource/Dataflow/Projects/Snapshots/List.hs
new file mode 100644
index 0000000..3835929
--- /dev/null
+++ b/gen/Network/Google/Resource/Dataflow/Projects/Snapshots/List.hs
@@ -0,0 +1,167 @@
+{-# LANGUAGE DataKinds #-}
+{-# LANGUAGE DeriveDataTypeable #-}
+{-# LANGUAGE DeriveGeneric #-}
+{-# LANGUAGE FlexibleInstances #-}
+{-# LANGUAGE NoImplicitPrelude #-}
+{-# LANGUAGE OverloadedStrings #-}
+{-# LANGUAGE RecordWildCards #-}
+{-# LANGUAGE TypeFamilies #-}
+{-# LANGUAGE TypeOperators #-}
+
+{-# OPTIONS_GHC -fno-warn-duplicate-exports #-}
+{-# OPTIONS_GHC -fno-warn-unused-binds #-}
+{-# OPTIONS_GHC -fno-warn-unused-imports #-}
+
+-- |
+-- Module : Network.Google.Resource.Dataflow.Projects.Snapshots.List
+-- Copyright : (c) 2015-2016 Brendan Hay
+-- License : Mozilla Public License, v. 2.0.
+-- Maintainer : Brendan Hay <brendan.g.hay@gmail.com>
+-- Stability : auto-generated
+-- Portability : non-portable (GHC extensions)
+--
+-- Lists snapshots.
+--
+-- /See:/ <https://cloud.google.com/dataflow Dataflow API Reference> for @dataflow.projects.snapshots.list@.
+module Network.Google.Resource.Dataflow.Projects.Snapshots.List
+ (
+ -- * REST Resource
+ ProjectsSnapshotsListResource
+
+ -- * Creating a Request
+ , projectsSnapshotsList
+ , ProjectsSnapshotsList
+
+ -- * Request Lenses
+ , pslXgafv
+ , pslUploadProtocol
+ , pslLocation
+ , pslAccessToken
+ , pslUploadType
+ , pslProjectId
+ , pslCallback
+ ) where
+
+import Network.Google.Dataflow.Types
+import Network.Google.Prelude
+
+-- | A resource alias for @dataflow.projects.snapshots.list@ method which the
+-- 'ProjectsSnapshotsList' request conforms to.
+type ProjectsSnapshotsListResource =
+ "v1b3" :>
+ "projects" :>
+ Capture "projectId" Text :>
+ "snapshots" :>
+ QueryParam "$.xgafv" Xgafv :>
+ QueryParam "upload_protocol" Text :>
+ QueryParam "location" Text :>
+ QueryParam "access_token" Text :>
+ QueryParam "uploadType" Text :>
+ QueryParam "callback" Text :>
+ QueryParam "alt" AltJSON :>
+ Get '[JSON] ListSnapshotsResponse
+
+-- | Lists snapshots.
+--
+-- /See:/ 'projectsSnapshotsList' smart constructor.
+data ProjectsSnapshotsList =
+ ProjectsSnapshotsList'
+ { _pslXgafv :: !(Maybe Xgafv)
+ , _pslUploadProtocol :: !(Maybe Text)
+ , _pslLocation :: !(Maybe Text)
+ , _pslAccessToken :: !(Maybe Text)
+ , _pslUploadType :: !(Maybe Text)
+ , _pslProjectId :: !Text
+ , _pslCallback :: !(Maybe Text)
+ }
+ deriving (Eq, Show, Data, Typeable, Generic)
+
+
+-- | Creates a value of 'ProjectsSnapshotsList' with the minimum fields required to make a request.
+--
+-- Use one of the following lenses to modify other fields as desired:
+--
+-- * 'pslXgafv'
+--
+-- * 'pslUploadProtocol'
+--
+-- * 'pslLocation'
+--
+-- * 'pslAccessToken'
+--
+-- * 'pslUploadType'
+--
+-- * 'pslProjectId'
+--
+-- * 'pslCallback'
+projectsSnapshotsList
+ :: Text -- ^ 'pslProjectId'
+ -> ProjectsSnapshotsList
+projectsSnapshotsList pPslProjectId_ =
+ ProjectsSnapshotsList'
+ { _pslXgafv = Nothing
+ , _pslUploadProtocol = Nothing
+ , _pslLocation = Nothing
+ , _pslAccessToken = Nothing
+ , _pslUploadType = Nothing
+ , _pslProjectId = pPslProjectId_
+ , _pslCallback = Nothing
+ }
+
+
+-- | V1 error format.
+pslXgafv :: Lens' ProjectsSnapshotsList (Maybe Xgafv)
+pslXgafv = lens _pslXgafv (\ s a -> s{_pslXgafv = a})
+
+-- | Upload protocol for media (e.g. \"raw\", \"multipart\").
+pslUploadProtocol :: Lens' ProjectsSnapshotsList (Maybe Text)
+pslUploadProtocol
+ = lens _pslUploadProtocol
+ (\ s a -> s{_pslUploadProtocol = a})
+
+-- | The location to list snapshots in.
+pslLocation :: Lens' ProjectsSnapshotsList (Maybe Text)
+pslLocation
+ = lens _pslLocation (\ s a -> s{_pslLocation = a})
+
+-- | OAuth access token.
+pslAccessToken :: Lens' ProjectsSnapshotsList (Maybe Text)
+pslAccessToken
+ = lens _pslAccessToken
+ (\ s a -> s{_pslAccessToken = a})
+
+-- | Legacy upload protocol for media (e.g. \"media\", \"multipart\").
+pslUploadType :: Lens' ProjectsSnapshotsList (Maybe Text)
+pslUploadType
+ = lens _pslUploadType
+ (\ s a -> s{_pslUploadType = a})
+
+-- | The project ID to list snapshots for.
+pslProjectId :: Lens' ProjectsSnapshotsList Text
+pslProjectId
+ = lens _pslProjectId (\ s a -> s{_pslProjectId = a})
+
+-- | JSONP
+pslCallback :: Lens' ProjectsSnapshotsList (Maybe Text)
+pslCallback
+ = lens _pslCallback (\ s a -> s{_pslCallback = a})
+
+instance GoogleRequest ProjectsSnapshotsList where
+ type Rs ProjectsSnapshotsList = ListSnapshotsResponse
+ type Scopes ProjectsSnapshotsList =
+ '["https://www.googleapis.com/auth/cloud-platform",
+ "https://www.googleapis.com/auth/compute",
+ "https://www.googleapis.com/auth/compute.readonly",
+ "https://www.googleapis.com/auth/userinfo.email"]
+ requestClient ProjectsSnapshotsList'{..}
+ = go _pslProjectId _pslXgafv _pslUploadProtocol
+ _pslLocation
+ _pslAccessToken
+ _pslUploadType
+ _pslCallback
+ (Just AltJSON)
+ dataflowService
+ where go
+ = buildClient
+ (Proxy :: Proxy ProjectsSnapshotsListResource)
+ mempty
diff --git a/gen/Network/Google/Resource/Dataflow/Projects/Templates/Create.hs b/gen/Network/Google/Resource/Dataflow/Projects/Templates/Create.hs
index f0309c9..89ea9ba 100644
--- a/gen/Network/Google/Resource/Dataflow/Projects/Templates/Create.hs
+++ b/gen/Network/Google/Resource/Dataflow/Projects/Templates/Create.hs
@@ -64,7 +64,8 @@ type ProjectsTemplatesCreateResource =
-- | Creates a Cloud Dataflow job from a template.
--
-- /See:/ 'projectsTemplatesCreate' smart constructor.
-data ProjectsTemplatesCreate = ProjectsTemplatesCreate'
+data ProjectsTemplatesCreate =
+ ProjectsTemplatesCreate'
{ _ptcXgafv :: !(Maybe Xgafv)
, _ptcUploadProtocol :: !(Maybe Text)
, _ptcAccessToken :: !(Maybe Text)
@@ -72,7 +73,9 @@ data ProjectsTemplatesCreate = ProjectsTemplatesCreate'
, _ptcPayload :: !CreateJobFromTemplateRequest
, _ptcProjectId :: !Text
, _ptcCallback :: !(Maybe Text)
- } deriving (Eq,Show,Data,Typeable,Generic)
+ }
+ deriving (Eq, Show, Data, Typeable, Generic)
+
-- | Creates a value of 'ProjectsTemplatesCreate' with the minimum fields required to make a request.
--
@@ -96,7 +99,7 @@ projectsTemplatesCreate
-> Text -- ^ 'ptcProjectId'
-> ProjectsTemplatesCreate
projectsTemplatesCreate pPtcPayload_ pPtcProjectId_ =
- ProjectsTemplatesCreate'
+ ProjectsTemplatesCreate'
{ _ptcXgafv = Nothing
, _ptcUploadProtocol = Nothing
, _ptcAccessToken = Nothing
@@ -106,6 +109,7 @@ projectsTemplatesCreate pPtcPayload_ pPtcProjectId_ =
, _ptcCallback = Nothing
}
+
-- | V1 error format.
ptcXgafv :: Lens' ProjectsTemplatesCreate (Maybe Xgafv)
ptcXgafv = lens _ptcXgafv (\ s a -> s{_ptcXgafv = a})
diff --git a/gen/Network/Google/Resource/Dataflow/Projects/Templates/Get.hs b/gen/Network/Google/Resource/Dataflow/Projects/Templates/Get.hs
index 071ce1b..2940048 100644
--- a/gen/Network/Google/Resource/Dataflow/Projects/Templates/Get.hs
+++ b/gen/Network/Google/Resource/Dataflow/Projects/Templates/Get.hs
@@ -68,7 +68,8 @@ type ProjectsTemplatesGetResource =
-- | Get the template associated with a template.
--
-- /See:/ 'projectsTemplatesGet' smart constructor.
-data ProjectsTemplatesGet = ProjectsTemplatesGet'
+data ProjectsTemplatesGet =
+ ProjectsTemplatesGet'
{ _ptgXgafv :: !(Maybe Xgafv)
, _ptgUploadProtocol :: !(Maybe Text)
, _ptgLocation :: !(Maybe Text)
@@ -78,7 +79,9 @@ data ProjectsTemplatesGet = ProjectsTemplatesGet'
, _ptgView :: !(Maybe Text)
, _ptgProjectId :: !Text
, _ptgCallback :: !(Maybe Text)
- } deriving (Eq,Show,Data,Typeable,Generic)
+ }
+ deriving (Eq, Show, Data, Typeable, Generic)
+
-- | Creates a value of 'ProjectsTemplatesGet' with the minimum fields required to make a request.
--
@@ -105,7 +108,7 @@ projectsTemplatesGet
:: Text -- ^ 'ptgProjectId'
-> ProjectsTemplatesGet
projectsTemplatesGet pPtgProjectId_ =
- ProjectsTemplatesGet'
+ ProjectsTemplatesGet'
{ _ptgXgafv = Nothing
, _ptgUploadProtocol = Nothing
, _ptgLocation = Nothing
@@ -117,6 +120,7 @@ projectsTemplatesGet pPtgProjectId_ =
, _ptgCallback = Nothing
}
+
-- | V1 error format.
ptgXgafv :: Lens' ProjectsTemplatesGet (Maybe Xgafv)
ptgXgafv = lens _ptgXgafv (\ s a -> s{_ptgXgafv = a})
@@ -127,7 +131,9 @@ ptgUploadProtocol
= lens _ptgUploadProtocol
(\ s a -> s{_ptgUploadProtocol = a})
--- | The location to which to direct the request.
+-- | The [regional endpoint]
+-- (https:\/\/cloud.google.com\/dataflow\/docs\/concepts\/regional-endpoints)
+-- to which to direct the request.
ptgLocation :: Lens' ProjectsTemplatesGet (Maybe Text)
ptgLocation
= lens _ptgLocation (\ s a -> s{_ptgLocation = a})
diff --git a/gen/Network/Google/Resource/Dataflow/Projects/Templates/Launch.hs b/gen/Network/Google/Resource/Dataflow/Projects/Templates/Launch.hs
index f0e6dcc..6081146 100644
--- a/gen/Network/Google/Resource/Dataflow/Projects/Templates/Launch.hs
+++ b/gen/Network/Google/Resource/Dataflow/Projects/Templates/Launch.hs
@@ -74,7 +74,8 @@ type ProjectsTemplatesLaunchResource =
-- | Launch a template.
--
-- /See:/ 'projectsTemplatesLaunch' smart constructor.
-data ProjectsTemplatesLaunch = ProjectsTemplatesLaunch'
+data ProjectsTemplatesLaunch =
+ ProjectsTemplatesLaunch'
{ _ptlXgafv :: !(Maybe Xgafv)
, _ptlValidateOnly :: !(Maybe Bool)
, _ptlUploadProtocol :: !(Maybe Text)
@@ -87,7 +88,9 @@ data ProjectsTemplatesLaunch = ProjectsTemplatesLaunch'
, _ptlProjectId :: !Text
, _ptlCallback :: !(Maybe Text)
, _ptlDynamicTemplateGcsPath :: !(Maybe Text)
- } deriving (Eq,Show,Data,Typeable,Generic)
+ }
+ deriving (Eq, Show, Data, Typeable, Generic)
+
-- | Creates a value of 'ProjectsTemplatesLaunch' with the minimum fields required to make a request.
--
@@ -121,7 +124,7 @@ projectsTemplatesLaunch
-> Text -- ^ 'ptlProjectId'
-> ProjectsTemplatesLaunch
projectsTemplatesLaunch pPtlPayload_ pPtlProjectId_ =
- ProjectsTemplatesLaunch'
+ ProjectsTemplatesLaunch'
{ _ptlXgafv = Nothing
, _ptlValidateOnly = Nothing
, _ptlUploadProtocol = Nothing
@@ -136,6 +139,7 @@ projectsTemplatesLaunch pPtlPayload_ pPtlProjectId_ =
, _ptlDynamicTemplateGcsPath = Nothing
}
+
-- | V1 error format.
ptlXgafv :: Lens' ProjectsTemplatesLaunch (Maybe Xgafv)
ptlXgafv = lens _ptlXgafv (\ s a -> s{_ptlXgafv = a})
@@ -153,7 +157,9 @@ ptlUploadProtocol
= lens _ptlUploadProtocol
(\ s a -> s{_ptlUploadProtocol = a})
--- | The location to which to direct the request.
+-- | The [regional endpoint]
+-- (https:\/\/cloud.google.com\/dataflow\/docs\/concepts\/regional-endpoints)
+-- to which to direct the request.
ptlLocation :: Lens' ProjectsTemplatesLaunch (Maybe Text)
ptlLocation
= lens _ptlLocation (\ s a -> s{_ptlLocation = a})
diff --git a/gen/Network/Google/Resource/Dataflow/Projects/WorkerMessages.hs b/gen/Network/Google/Resource/Dataflow/Projects/WorkerMessages.hs
index f60dac2..25102f6 100644
--- a/gen/Network/Google/Resource/Dataflow/Projects/WorkerMessages.hs
+++ b/gen/Network/Google/Resource/Dataflow/Projects/WorkerMessages.hs
@@ -64,7 +64,8 @@ type ProjectsWorkerMessagesResource =
-- | Send a worker_message to the service.
--
-- /See:/ 'projectsWorkerMessages' smart constructor.
-data ProjectsWorkerMessages = ProjectsWorkerMessages'
+data ProjectsWorkerMessages =
+ ProjectsWorkerMessages'
{ _pwmXgafv :: !(Maybe Xgafv)
, _pwmUploadProtocol :: !(Maybe Text)
, _pwmAccessToken :: !(Maybe Text)
@@ -72,7 +73,9 @@ data ProjectsWorkerMessages = ProjectsWorkerMessages'
, _pwmPayload :: !SendWorkerMessagesRequest
, _pwmProjectId :: !Text
, _pwmCallback :: !(Maybe Text)
- } deriving (Eq,Show,Data,Typeable,Generic)
+ }
+ deriving (Eq, Show, Data, Typeable, Generic)
+
-- | Creates a value of 'ProjectsWorkerMessages' with the minimum fields required to make a request.
--
@@ -96,7 +99,7 @@ projectsWorkerMessages
-> Text -- ^ 'pwmProjectId'
-> ProjectsWorkerMessages
projectsWorkerMessages pPwmPayload_ pPwmProjectId_ =
- ProjectsWorkerMessages'
+ ProjectsWorkerMessages'
{ _pwmXgafv = Nothing
, _pwmUploadProtocol = Nothing
, _pwmAccessToken = Nothing
@@ -106,6 +109,7 @@ projectsWorkerMessages pPwmPayload_ pPwmProjectId_ =
, _pwmCallback = Nothing
}
+
-- | V1 error format.
pwmXgafv :: Lens' ProjectsWorkerMessages (Maybe Xgafv)
pwmXgafv = lens _pwmXgafv (\ s a -> s{_pwmXgafv = a})
diff --git a/gogol-dataflow.cabal b/gogol-dataflow.cabal
index 4f78992..6fdfb58 100644
--- a/gogol-dataflow.cabal
+++ b/gogol-dataflow.cabal
@@ -1,5 +1,5 @@
name: gogol-dataflow
-version: 0.4.0
+version: 0.5.0
synopsis: Google Dataflow SDK.
homepage: https://github.com/brendanhay/gogol
bug-reports: https://github.com/brendanhay/gogol/issues
@@ -35,6 +35,7 @@ library
exposed-modules:
Network.Google.Dataflow
, Network.Google.Dataflow.Types
+ , Network.Google.Resource.Dataflow.Projects.DeleteSnapshots
, Network.Google.Resource.Dataflow.Projects.Jobs.Aggregated
, Network.Google.Resource.Dataflow.Projects.Jobs.Create
, Network.Google.Resource.Dataflow.Projects.Jobs.Debug.GetConfig
@@ -58,10 +59,16 @@ library
, Network.Google.Resource.Dataflow.Projects.Locations.Jobs.Update
, Network.Google.Resource.Dataflow.Projects.Locations.Jobs.WorkItems.Lease
, Network.Google.Resource.Dataflow.Projects.Locations.Jobs.WorkItems.ReportStatus
+ , Network.Google.Resource.Dataflow.Projects.Locations.SQL.Validate
+ , Network.Google.Resource.Dataflow.Projects.Locations.Snapshots.Delete
+ , Network.Google.Resource.Dataflow.Projects.Locations.Snapshots.Get
+ , Network.Google.Resource.Dataflow.Projects.Locations.Snapshots.List
, Network.Google.Resource.Dataflow.Projects.Locations.Templates.Create
, Network.Google.Resource.Dataflow.Projects.Locations.Templates.Get
, Network.Google.Resource.Dataflow.Projects.Locations.Templates.Launch
, Network.Google.Resource.Dataflow.Projects.Locations.WorkerMessages
+ , Network.Google.Resource.Dataflow.Projects.Snapshots.Get
+ , Network.Google.Resource.Dataflow.Projects.Snapshots.List
, Network.Google.Resource.Dataflow.Projects.Templates.Create
, Network.Google.Resource.Dataflow.Projects.Templates.Get
, Network.Google.Resource.Dataflow.Projects.Templates.Launch
@@ -72,5 +79,5 @@ library
, Network.Google.Dataflow.Types.Sum
build-depends:
- gogol-core == 0.4.0.*
+ gogol-core == 0.5.0.*
, base >= 4.7 && < 5