packages feed

gogol-dataflow 0.5.0 → 1.0.0

raw patch · 90 files changed

+23165/−24760 lines, 90 filesdep −basedep ~gogol-coresetup-changed

Dependencies removed: base

Dependency ranges changed: gogol-core

Files

README.md view
@@ -8,7 +8,7 @@  ## Version -`0.5.0`+`1.0.0`   ## Description
Setup.hs view
@@ -1,2 +1,3 @@-import           Distribution.Simple+import Distribution.Simple+ main = defaultMain
+ gen/Gogol/Dataflow.hs view
@@ -0,0 +1,1425 @@+{-# LANGUAGE DataKinds #-}+{-# LANGUAGE DerivingStrategies #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE ImportQualifiedPost #-}+{-# LANGUAGE LambdaCase #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TypeFamilies #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-duplicate-exports #-}+{-# OPTIONS_GHC -fno-warn-name-shadowing #-}+{-# OPTIONS_GHC -fno-warn-unused-binds #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- |+-- Module      : Gogol.Dataflow+-- Copyright   : (c) 2015-2025 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay <brendan.g.hay+gogol@gmail.com>+--               Toni Cebrián <toni@tonicebrian.com>+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Manages Google Cloud Dataflow projects on Google Cloud Platform.+--+-- /See:/ <https://cloud.google.com/dataflow Dataflow API Reference>+module Gogol.Dataflow+  ( -- * Configuration+    dataflowService,++    -- * OAuth Scopes+    CloudPlatform'FullControl,+    Compute'FullControl,++    -- * Resources++    -- ** dataflow.projects.deleteSnapshots+    DataflowProjectsDeleteSnapshotsResource,+    DataflowProjectsDeleteSnapshots (..),+    newDataflowProjectsDeleteSnapshots,++    -- ** dataflow.projects.jobs.aggregated+    DataflowProjectsJobsAggregatedResource,+    DataflowProjectsJobsAggregated (..),+    newDataflowProjectsJobsAggregated,++    -- ** dataflow.projects.jobs.create+    DataflowProjectsJobsCreateResource,+    DataflowProjectsJobsCreate (..),+    newDataflowProjectsJobsCreate,++    -- ** dataflow.projects.jobs.debug.getConfig+    DataflowProjectsJobsDebugGetConfigResource,+    DataflowProjectsJobsDebugGetConfig (..),+    newDataflowProjectsJobsDebugGetConfig,++    -- ** dataflow.projects.jobs.debug.sendCapture+    DataflowProjectsJobsDebugSendCaptureResource,+    DataflowProjectsJobsDebugSendCapture (..),+    newDataflowProjectsJobsDebugSendCapture,++    -- ** dataflow.projects.jobs.get+    DataflowProjectsJobsGetResource,+    DataflowProjectsJobsGet (..),+    newDataflowProjectsJobsGet,++    -- ** dataflow.projects.jobs.getMetrics+    DataflowProjectsJobsGetMetricsResource,+    DataflowProjectsJobsGetMetrics (..),+    newDataflowProjectsJobsGetMetrics,++    -- ** dataflow.projects.jobs.list+    DataflowProjectsJobsListResource,+    DataflowProjectsJobsList (..),+    newDataflowProjectsJobsList,++    -- ** dataflow.projects.jobs.messages.list+    DataflowProjectsJobsMessagesListResource,+    DataflowProjectsJobsMessagesList (..),+    newDataflowProjectsJobsMessagesList,++    -- ** dataflow.projects.jobs.snapshot+    DataflowProjectsJobsSnapshotResource,+    DataflowProjectsJobsSnapshot (..),+    newDataflowProjectsJobsSnapshot,++    -- ** dataflow.projects.jobs.update+    DataflowProjectsJobsUpdateResource,+    DataflowProjectsJobsUpdate (..),+    newDataflowProjectsJobsUpdate,++    -- ** dataflow.projects.jobs.workItems.lease+    DataflowProjectsJobsWorkItemsLeaseResource,+    DataflowProjectsJobsWorkItemsLease (..),+    newDataflowProjectsJobsWorkItemsLease,++    -- ** dataflow.projects.jobs.workItems.reportStatus+    DataflowProjectsJobsWorkItemsReportStatusResource,+    DataflowProjectsJobsWorkItemsReportStatus (..),+    newDataflowProjectsJobsWorkItemsReportStatus,++    -- ** dataflow.projects.locations.flexTemplates.launch+    DataflowProjectsLocationsFlexTemplatesLaunchResource,+    DataflowProjectsLocationsFlexTemplatesLaunch (..),+    newDataflowProjectsLocationsFlexTemplatesLaunch,++    -- ** dataflow.projects.locations.jobs.create+    DataflowProjectsLocationsJobsCreateResource,+    DataflowProjectsLocationsJobsCreate (..),+    newDataflowProjectsLocationsJobsCreate,++    -- ** dataflow.projects.locations.jobs.debug.getConfig+    DataflowProjectsLocationsJobsDebugGetConfigResource,+    DataflowProjectsLocationsJobsDebugGetConfig (..),+    newDataflowProjectsLocationsJobsDebugGetConfig,++    -- ** dataflow.projects.locations.jobs.debug.sendCapture+    DataflowProjectsLocationsJobsDebugSendCaptureResource,+    DataflowProjectsLocationsJobsDebugSendCapture (..),+    newDataflowProjectsLocationsJobsDebugSendCapture,++    -- ** dataflow.projects.locations.jobs.get+    DataflowProjectsLocationsJobsGetResource,+    DataflowProjectsLocationsJobsGet (..),+    newDataflowProjectsLocationsJobsGet,++    -- ** dataflow.projects.locations.jobs.getExecutionDetails+    DataflowProjectsLocationsJobsGetExecutionDetailsResource,+    DataflowProjectsLocationsJobsGetExecutionDetails (..),+    newDataflowProjectsLocationsJobsGetExecutionDetails,++    -- ** dataflow.projects.locations.jobs.getMetrics+    DataflowProjectsLocationsJobsGetMetricsResource,+    DataflowProjectsLocationsJobsGetMetrics (..),+    newDataflowProjectsLocationsJobsGetMetrics,++    -- ** dataflow.projects.locations.jobs.list+    DataflowProjectsLocationsJobsListResource,+    DataflowProjectsLocationsJobsList (..),+    newDataflowProjectsLocationsJobsList,++    -- ** dataflow.projects.locations.jobs.messages.list+    DataflowProjectsLocationsJobsMessagesListResource,+    DataflowProjectsLocationsJobsMessagesList (..),+    newDataflowProjectsLocationsJobsMessagesList,++    -- ** dataflow.projects.locations.jobs.snapshot+    DataflowProjectsLocationsJobsSnapshotResource,+    DataflowProjectsLocationsJobsSnapshot (..),+    newDataflowProjectsLocationsJobsSnapshot,++    -- ** dataflow.projects.locations.jobs.snapshots.list+    DataflowProjectsLocationsJobsSnapshotsListResource,+    DataflowProjectsLocationsJobsSnapshotsList (..),+    newDataflowProjectsLocationsJobsSnapshotsList,++    -- ** dataflow.projects.locations.jobs.stages.getExecutionDetails+    DataflowProjectsLocationsJobsStagesGetExecutionDetailsResource,+    DataflowProjectsLocationsJobsStagesGetExecutionDetails (..),+    newDataflowProjectsLocationsJobsStagesGetExecutionDetails,++    -- ** dataflow.projects.locations.jobs.update+    DataflowProjectsLocationsJobsUpdateResource,+    DataflowProjectsLocationsJobsUpdate (..),+    newDataflowProjectsLocationsJobsUpdate,++    -- ** dataflow.projects.locations.jobs.workItems.lease+    DataflowProjectsLocationsJobsWorkItemsLeaseResource,+    DataflowProjectsLocationsJobsWorkItemsLease (..),+    newDataflowProjectsLocationsJobsWorkItemsLease,++    -- ** dataflow.projects.locations.jobs.workItems.reportStatus+    DataflowProjectsLocationsJobsWorkItemsReportStatusResource,+    DataflowProjectsLocationsJobsWorkItemsReportStatus (..),+    newDataflowProjectsLocationsJobsWorkItemsReportStatus,++    -- ** dataflow.projects.locations.snapshots.delete+    DataflowProjectsLocationsSnapshotsDeleteResource,+    DataflowProjectsLocationsSnapshotsDelete (..),+    newDataflowProjectsLocationsSnapshotsDelete,++    -- ** dataflow.projects.locations.snapshots.get+    DataflowProjectsLocationsSnapshotsGetResource,+    DataflowProjectsLocationsSnapshotsGet (..),+    newDataflowProjectsLocationsSnapshotsGet,++    -- ** dataflow.projects.locations.snapshots.list+    DataflowProjectsLocationsSnapshotsListResource,+    DataflowProjectsLocationsSnapshotsList (..),+    newDataflowProjectsLocationsSnapshotsList,++    -- ** dataflow.projects.locations.templates.create+    DataflowProjectsLocationsTemplatesCreateResource,+    DataflowProjectsLocationsTemplatesCreate (..),+    newDataflowProjectsLocationsTemplatesCreate,++    -- ** dataflow.projects.locations.templates.get+    DataflowProjectsLocationsTemplatesGetResource,+    DataflowProjectsLocationsTemplatesGet (..),+    newDataflowProjectsLocationsTemplatesGet,++    -- ** dataflow.projects.locations.templates.launch+    DataflowProjectsLocationsTemplatesLaunchResource,+    DataflowProjectsLocationsTemplatesLaunch (..),+    newDataflowProjectsLocationsTemplatesLaunch,++    -- ** dataflow.projects.locations.workerMessages+    DataflowProjectsLocationsWorkerMessagesResource,+    DataflowProjectsLocationsWorkerMessages (..),+    newDataflowProjectsLocationsWorkerMessages,++    -- ** dataflow.projects.snapshots.get+    DataflowProjectsSnapshotsGetResource,+    DataflowProjectsSnapshotsGet (..),+    newDataflowProjectsSnapshotsGet,++    -- ** dataflow.projects.snapshots.list+    DataflowProjectsSnapshotsListResource,+    DataflowProjectsSnapshotsList (..),+    newDataflowProjectsSnapshotsList,++    -- ** dataflow.projects.templates.create+    DataflowProjectsTemplatesCreateResource,+    DataflowProjectsTemplatesCreate (..),+    newDataflowProjectsTemplatesCreate,++    -- ** dataflow.projects.templates.get+    DataflowProjectsTemplatesGetResource,+    DataflowProjectsTemplatesGet (..),+    newDataflowProjectsTemplatesGet,++    -- ** dataflow.projects.templates.launch+    DataflowProjectsTemplatesLaunchResource,+    DataflowProjectsTemplatesLaunch (..),+    newDataflowProjectsTemplatesLaunch,++    -- ** dataflow.projects.workerMessages+    DataflowProjectsWorkerMessagesResource,+    DataflowProjectsWorkerMessages (..),+    newDataflowProjectsWorkerMessages,++    -- * Types++    -- ** Xgafv+    Xgafv (..),++    -- ** ApproximateProgress+    ApproximateProgress (..),+    newApproximateProgress,++    -- ** ApproximateReportedProgress+    ApproximateReportedProgress (..),+    newApproximateReportedProgress,++    -- ** ApproximateSplitRequest+    ApproximateSplitRequest (..),+    newApproximateSplitRequest,++    -- ** AutoscalingEvent+    AutoscalingEvent (..),+    newAutoscalingEvent,++    -- ** AutoscalingEvent_EventType+    AutoscalingEvent_EventType (..),++    -- ** AutoscalingSettings+    AutoscalingSettings (..),+    newAutoscalingSettings,++    -- ** AutoscalingSettings_Algorithm+    AutoscalingSettings_Algorithm (..),++    -- ** Base2Exponent+    Base2Exponent (..),+    newBase2Exponent,++    -- ** BigQueryIODetails+    BigQueryIODetails (..),+    newBigQueryIODetails,++    -- ** BigTableIODetails+    BigTableIODetails (..),+    newBigTableIODetails,++    -- ** BoundedTrie+    BoundedTrie (..),+    newBoundedTrie,++    -- ** BoundedTrieNode+    BoundedTrieNode (..),+    newBoundedTrieNode,++    -- ** BoundedTrieNode_Children+    BoundedTrieNode_Children (..),+    newBoundedTrieNode_Children,++    -- ** BucketOptions+    BucketOptions (..),+    newBucketOptions,++    -- ** CPUTime+    CPUTime (..),+    newCPUTime,++    -- ** ComponentSource+    ComponentSource (..),+    newComponentSource,++    -- ** ComponentTransform+    ComponentTransform (..),+    newComponentTransform,++    -- ** ComputationTopology+    ComputationTopology (..),+    newComputationTopology,++    -- ** ConcatPosition+    ConcatPosition (..),+    newConcatPosition,++    -- ** ContainerSpec+    ContainerSpec (..),+    newContainerSpec,++    -- ** CounterMetadata+    CounterMetadata (..),+    newCounterMetadata,++    -- ** CounterMetadata_Kind+    CounterMetadata_Kind (..),++    -- ** CounterMetadata_StandardUnits+    CounterMetadata_StandardUnits (..),++    -- ** CounterStructuredName+    CounterStructuredName (..),+    newCounterStructuredName,++    -- ** CounterStructuredName_Origin+    CounterStructuredName_Origin (..),++    -- ** CounterStructuredName_Portion+    CounterStructuredName_Portion (..),++    -- ** CounterStructuredNameAndMetadata+    CounterStructuredNameAndMetadata (..),+    newCounterStructuredNameAndMetadata,++    -- ** CounterUpdate+    CounterUpdate (..),+    newCounterUpdate,++    -- ** CreateJobFromTemplateRequest+    CreateJobFromTemplateRequest (..),+    newCreateJobFromTemplateRequest,++    -- ** CreateJobFromTemplateRequest_Parameters+    CreateJobFromTemplateRequest_Parameters (..),+    newCreateJobFromTemplateRequest_Parameters,++    -- ** CustomSourceLocation+    CustomSourceLocation (..),+    newCustomSourceLocation,++    -- ** DataDiskAssignment+    DataDiskAssignment (..),+    newDataDiskAssignment,++    -- ** DataSamplingConfig+    DataSamplingConfig (..),+    newDataSamplingConfig,++    -- ** DataSamplingConfig_BehaviorsItem+    DataSamplingConfig_BehaviorsItem (..),++    -- ** DataSamplingReport+    DataSamplingReport (..),+    newDataSamplingReport,++    -- ** DataflowGaugeValue+    DataflowGaugeValue (..),+    newDataflowGaugeValue,++    -- ** DataflowHistogramValue+    DataflowHistogramValue (..),+    newDataflowHistogramValue,++    -- ** DatastoreIODetails+    DatastoreIODetails (..),+    newDatastoreIODetails,++    -- ** DebugOptions+    DebugOptions (..),+    newDebugOptions,++    -- ** DeleteSnapshotResponse+    DeleteSnapshotResponse (..),+    newDeleteSnapshotResponse,++    -- ** DerivedSource+    DerivedSource (..),+    newDerivedSource,++    -- ** DerivedSource_DerivationMode+    DerivedSource_DerivationMode (..),++    -- ** Disk+    Disk (..),+    newDisk,++    -- ** DisplayData+    DisplayData (..),+    newDisplayData,++    -- ** DistributionUpdate+    DistributionUpdate (..),+    newDistributionUpdate,++    -- ** DynamicSourceSplit+    DynamicSourceSplit (..),+    newDynamicSourceSplit,++    -- ** Environment+    Environment (..),+    newEnvironment,++    -- ** Environment_FlexResourceSchedulingGoal+    Environment_FlexResourceSchedulingGoal (..),++    -- ** Environment_InternalExperiments+    Environment_InternalExperiments (..),+    newEnvironment_InternalExperiments,++    -- ** Environment_SdkPipelineOptions+    Environment_SdkPipelineOptions (..),+    newEnvironment_SdkPipelineOptions,++    -- ** Environment_ShuffleMode+    Environment_ShuffleMode (..),++    -- ** Environment_StreamingMode+    Environment_StreamingMode (..),++    -- ** Environment_UserAgent+    Environment_UserAgent (..),+    newEnvironment_UserAgent,++    -- ** Environment_Version+    Environment_Version (..),+    newEnvironment_Version,++    -- ** ExecutionStageState+    ExecutionStageState (..),+    newExecutionStageState,++    -- ** ExecutionStageState_ExecutionStageState+    ExecutionStageState_ExecutionStageState (..),++    -- ** ExecutionStageSummary+    ExecutionStageSummary (..),+    newExecutionStageSummary,++    -- ** ExecutionStageSummary_Kind+    ExecutionStageSummary_Kind (..),++    -- ** FailedLocation+    FailedLocation (..),+    newFailedLocation,++    -- ** FileIODetails+    FileIODetails (..),+    newFileIODetails,++    -- ** FlattenInstruction+    FlattenInstruction (..),+    newFlattenInstruction,++    -- ** FlexTemplateRuntimeEnvironment+    FlexTemplateRuntimeEnvironment (..),+    newFlexTemplateRuntimeEnvironment,++    -- ** FlexTemplateRuntimeEnvironment_AdditionalUserLabels+    FlexTemplateRuntimeEnvironment_AdditionalUserLabels (..),+    newFlexTemplateRuntimeEnvironment_AdditionalUserLabels,++    -- ** FlexTemplateRuntimeEnvironment_AutoscalingAlgorithm+    FlexTemplateRuntimeEnvironment_AutoscalingAlgorithm (..),++    -- ** FlexTemplateRuntimeEnvironment_FlexrsGoal+    FlexTemplateRuntimeEnvironment_FlexrsGoal (..),++    -- ** FlexTemplateRuntimeEnvironment_IpConfiguration+    FlexTemplateRuntimeEnvironment_IpConfiguration (..),++    -- ** FlexTemplateRuntimeEnvironment_StreamingMode+    FlexTemplateRuntimeEnvironment_StreamingMode (..),++    -- ** FloatingPointList+    FloatingPointList (..),+    newFloatingPointList,++    -- ** FloatingPointMean+    FloatingPointMean (..),+    newFloatingPointMean,++    -- ** GPUUsage+    GPUUsage (..),+    newGPUUsage,++    -- ** GPUUtilization+    GPUUtilization (..),+    newGPUUtilization,++    -- ** GetDebugConfigRequest+    GetDebugConfigRequest (..),+    newGetDebugConfigRequest,++    -- ** GetDebugConfigResponse+    GetDebugConfigResponse (..),+    newGetDebugConfigResponse,++    -- ** GetTemplateResponse+    GetTemplateResponse (..),+    newGetTemplateResponse,++    -- ** GetTemplateResponse_TemplateType+    GetTemplateResponse_TemplateType (..),++    -- ** Histogram+    Histogram (..),+    newHistogram,++    -- ** HotKeyDebuggingInfo+    HotKeyDebuggingInfo (..),+    newHotKeyDebuggingInfo,++    -- ** HotKeyDebuggingInfo_DetectedHotKeys+    HotKeyDebuggingInfo_DetectedHotKeys (..),+    newHotKeyDebuggingInfo_DetectedHotKeys,++    -- ** HotKeyDetection+    HotKeyDetection (..),+    newHotKeyDetection,++    -- ** HotKeyInfo+    HotKeyInfo (..),+    newHotKeyInfo,++    -- ** InstructionInput+    InstructionInput (..),+    newInstructionInput,++    -- ** InstructionOutput+    InstructionOutput (..),+    newInstructionOutput,++    -- ** InstructionOutput_Codec+    InstructionOutput_Codec (..),+    newInstructionOutput_Codec,++    -- ** IntegerGauge+    IntegerGauge (..),+    newIntegerGauge,++    -- ** IntegerList+    IntegerList (..),+    newIntegerList,++    -- ** IntegerMean+    IntegerMean (..),+    newIntegerMean,++    -- ** Job+    Job (..),+    newJob,++    -- ** Job_CurrentState+    Job_CurrentState (..),++    -- ** Job_Labels+    Job_Labels (..),+    newJob_Labels,++    -- ** Job_RequestedState+    Job_RequestedState (..),++    -- ** Job_TransformNameMapping+    Job_TransformNameMapping (..),+    newJob_TransformNameMapping,++    -- ** Job_Type+    Job_Type (..),++    -- ** JobExecutionDetails+    JobExecutionDetails (..),+    newJobExecutionDetails,++    -- ** JobExecutionInfo+    JobExecutionInfo (..),+    newJobExecutionInfo,++    -- ** JobExecutionInfo_Stages+    JobExecutionInfo_Stages (..),+    newJobExecutionInfo_Stages,++    -- ** JobExecutionStageInfo+    JobExecutionStageInfo (..),+    newJobExecutionStageInfo,++    -- ** JobMessage+    JobMessage (..),+    newJobMessage,++    -- ** JobMessage_MessageImportance+    JobMessage_MessageImportance (..),++    -- ** JobMetadata+    JobMetadata (..),+    newJobMetadata,++    -- ** JobMetadata_UserDisplayProperties+    JobMetadata_UserDisplayProperties (..),+    newJobMetadata_UserDisplayProperties,++    -- ** JobMetrics+    JobMetrics (..),+    newJobMetrics,++    -- ** KeyRangeDataDiskAssignment+    KeyRangeDataDiskAssignment (..),+    newKeyRangeDataDiskAssignment,++    -- ** KeyRangeLocation+    KeyRangeLocation (..),+    newKeyRangeLocation,++    -- ** LaunchFlexTemplateParameter+    LaunchFlexTemplateParameter (..),+    newLaunchFlexTemplateParameter,++    -- ** LaunchFlexTemplateParameter_LaunchOptions+    LaunchFlexTemplateParameter_LaunchOptions (..),+    newLaunchFlexTemplateParameter_LaunchOptions,++    -- ** LaunchFlexTemplateParameter_Parameters+    LaunchFlexTemplateParameter_Parameters (..),+    newLaunchFlexTemplateParameter_Parameters,++    -- ** LaunchFlexTemplateParameter_TransformNameMappings+    LaunchFlexTemplateParameter_TransformNameMappings (..),+    newLaunchFlexTemplateParameter_TransformNameMappings,++    -- ** LaunchFlexTemplateRequest+    LaunchFlexTemplateRequest (..),+    newLaunchFlexTemplateRequest,++    -- ** LaunchFlexTemplateResponse+    LaunchFlexTemplateResponse (..),+    newLaunchFlexTemplateResponse,++    -- ** LaunchTemplateParameters+    LaunchTemplateParameters (..),+    newLaunchTemplateParameters,++    -- ** LaunchTemplateParameters_Parameters+    LaunchTemplateParameters_Parameters (..),+    newLaunchTemplateParameters_Parameters,++    -- ** LaunchTemplateParameters_TransformNameMapping+    LaunchTemplateParameters_TransformNameMapping (..),+    newLaunchTemplateParameters_TransformNameMapping,++    -- ** LaunchTemplateResponse+    LaunchTemplateResponse (..),+    newLaunchTemplateResponse,++    -- ** LeaseWorkItemRequest+    LeaseWorkItemRequest (..),+    newLeaseWorkItemRequest,++    -- ** LeaseWorkItemRequest_UnifiedWorkerRequest+    LeaseWorkItemRequest_UnifiedWorkerRequest (..),+    newLeaseWorkItemRequest_UnifiedWorkerRequest,++    -- ** LeaseWorkItemResponse+    LeaseWorkItemResponse (..),+    newLeaseWorkItemResponse,++    -- ** LeaseWorkItemResponse_UnifiedWorkerResponse+    LeaseWorkItemResponse_UnifiedWorkerResponse (..),+    newLeaseWorkItemResponse_UnifiedWorkerResponse,++    -- ** Linear+    Linear (..),+    newLinear,++    -- ** ListJobMessagesResponse+    ListJobMessagesResponse (..),+    newListJobMessagesResponse,++    -- ** ListJobsResponse+    ListJobsResponse (..),+    newListJobsResponse,++    -- ** ListSnapshotsResponse+    ListSnapshotsResponse (..),+    newListSnapshotsResponse,++    -- ** MapTask+    MapTask (..),+    newMapTask,++    -- ** MemInfo+    MemInfo (..),+    newMemInfo,++    -- ** MetricShortId+    MetricShortId (..),+    newMetricShortId,++    -- ** MetricStructuredName+    MetricStructuredName (..),+    newMetricStructuredName,++    -- ** MetricStructuredName_Context+    MetricStructuredName_Context (..),+    newMetricStructuredName_Context,++    -- ** MetricUpdate+    MetricUpdate (..),+    newMetricUpdate,++    -- ** MetricValue+    MetricValue (..),+    newMetricValue,++    -- ** MetricValue_MetricLabels+    MetricValue_MetricLabels (..),+    newMetricValue_MetricLabels,++    -- ** MountedDataDisk+    MountedDataDisk (..),+    newMountedDataDisk,++    -- ** MultiOutputInfo+    MultiOutputInfo (..),+    newMultiOutputInfo,++    -- ** NameAndKind+    NameAndKind (..),+    newNameAndKind,++    -- ** NameAndKind_Kind+    NameAndKind_Kind (..),++    -- ** OutlierStats+    OutlierStats (..),+    newOutlierStats,++    -- ** Package+    Package (..),+    newPackage,++    -- ** ParDoInstruction+    ParDoInstruction (..),+    newParDoInstruction,++    -- ** ParDoInstruction_UserFn+    ParDoInstruction_UserFn (..),+    newParDoInstruction_UserFn,++    -- ** ParallelInstruction+    ParallelInstruction (..),+    newParallelInstruction,++    -- ** Parameter+    Parameter (..),+    newParameter,++    -- ** ParameterMetadata+    ParameterMetadata (..),+    newParameterMetadata,++    -- ** ParameterMetadata_CustomMetadata+    ParameterMetadata_CustomMetadata (..),+    newParameterMetadata_CustomMetadata,++    -- ** ParameterMetadata_ParamType+    ParameterMetadata_ParamType (..),++    -- ** ParameterMetadataEnumOption+    ParameterMetadataEnumOption (..),+    newParameterMetadataEnumOption,++    -- ** PartialGroupByKeyInstruction+    PartialGroupByKeyInstruction (..),+    newPartialGroupByKeyInstruction,++    -- ** PartialGroupByKeyInstruction_InputElementCodec+    PartialGroupByKeyInstruction_InputElementCodec (..),+    newPartialGroupByKeyInstruction_InputElementCodec,++    -- ** PartialGroupByKeyInstruction_ValueCombiningFn+    PartialGroupByKeyInstruction_ValueCombiningFn (..),+    newPartialGroupByKeyInstruction_ValueCombiningFn,++    -- ** PerStepNamespaceMetrics+    PerStepNamespaceMetrics (..),+    newPerStepNamespaceMetrics,++    -- ** PerWorkerMetrics+    PerWorkerMetrics (..),+    newPerWorkerMetrics,++    -- ** PipelineDescription+    PipelineDescription (..),+    newPipelineDescription,++    -- ** Point+    Point (..),+    newPoint,++    -- ** Position+    Position (..),+    newPosition,++    -- ** ProgressTimeseries+    ProgressTimeseries (..),+    newProgressTimeseries,++    -- ** PubSubIODetails+    PubSubIODetails (..),+    newPubSubIODetails,++    -- ** PubsubLocation+    PubsubLocation (..),+    newPubsubLocation,++    -- ** PubsubSnapshotMetadata+    PubsubSnapshotMetadata (..),+    newPubsubSnapshotMetadata,++    -- ** ReadInstruction+    ReadInstruction (..),+    newReadInstruction,++    -- ** ReportWorkItemStatusRequest+    ReportWorkItemStatusRequest (..),+    newReportWorkItemStatusRequest,++    -- ** ReportWorkItemStatusRequest_UnifiedWorkerRequest+    ReportWorkItemStatusRequest_UnifiedWorkerRequest (..),+    newReportWorkItemStatusRequest_UnifiedWorkerRequest,++    -- ** ReportWorkItemStatusResponse+    ReportWorkItemStatusResponse (..),+    newReportWorkItemStatusResponse,++    -- ** ReportWorkItemStatusResponse_UnifiedWorkerResponse+    ReportWorkItemStatusResponse_UnifiedWorkerResponse (..),+    newReportWorkItemStatusResponse_UnifiedWorkerResponse,++    -- ** ReportedParallelism+    ReportedParallelism (..),+    newReportedParallelism,++    -- ** ResourceUtilizationReport+    ResourceUtilizationReport (..),+    newResourceUtilizationReport,++    -- ** ResourceUtilizationReport_Containers+    ResourceUtilizationReport_Containers (..),+    newResourceUtilizationReport_Containers,++    -- ** ResourceUtilizationReportResponse+    ResourceUtilizationReportResponse (..),+    newResourceUtilizationReportResponse,++    -- ** RuntimeEnvironment+    RuntimeEnvironment (..),+    newRuntimeEnvironment,++    -- ** RuntimeEnvironment_AdditionalUserLabels+    RuntimeEnvironment_AdditionalUserLabels (..),+    newRuntimeEnvironment_AdditionalUserLabels,++    -- ** RuntimeEnvironment_IpConfiguration+    RuntimeEnvironment_IpConfiguration (..),++    -- ** RuntimeEnvironment_StreamingMode+    RuntimeEnvironment_StreamingMode (..),++    -- ** RuntimeMetadata+    RuntimeMetadata (..),+    newRuntimeMetadata,++    -- ** RuntimeUpdatableParams+    RuntimeUpdatableParams (..),+    newRuntimeUpdatableParams,++    -- ** SDKInfo+    SDKInfo (..),+    newSDKInfo,++    -- ** SDKInfo_Language+    SDKInfo_Language (..),++    -- ** SdkBug+    SdkBug (..),+    newSdkBug,++    -- ** SdkBug_Severity+    SdkBug_Severity (..),++    -- ** SdkBug_Type+    SdkBug_Type (..),++    -- ** SdkHarnessContainerImage+    SdkHarnessContainerImage (..),+    newSdkHarnessContainerImage,++    -- ** SdkVersion+    SdkVersion (..),+    newSdkVersion,++    -- ** SdkVersion_SdkSupportStatus+    SdkVersion_SdkSupportStatus (..),++    -- ** SendDebugCaptureRequest+    SendDebugCaptureRequest (..),+    newSendDebugCaptureRequest,++    -- ** SendDebugCaptureRequest_DataFormat+    SendDebugCaptureRequest_DataFormat (..),++    -- ** SendDebugCaptureResponse+    SendDebugCaptureResponse (..),+    newSendDebugCaptureResponse,++    -- ** SendWorkerMessagesRequest+    SendWorkerMessagesRequest (..),+    newSendWorkerMessagesRequest,++    -- ** SendWorkerMessagesResponse+    SendWorkerMessagesResponse (..),+    newSendWorkerMessagesResponse,++    -- ** SeqMapTask+    SeqMapTask (..),+    newSeqMapTask,++    -- ** SeqMapTask_UserFn+    SeqMapTask_UserFn (..),+    newSeqMapTask_UserFn,++    -- ** SeqMapTaskOutputInfo+    SeqMapTaskOutputInfo (..),+    newSeqMapTaskOutputInfo,++    -- ** ServiceResources+    ServiceResources (..),+    newServiceResources,++    -- ** ShellTask+    ShellTask (..),+    newShellTask,++    -- ** SideInputInfo+    SideInputInfo (..),+    newSideInputInfo,++    -- ** SideInputInfo_Kind+    SideInputInfo_Kind (..),+    newSideInputInfo_Kind,++    -- ** Sink+    Sink (..),+    newSink,++    -- ** Sink_Codec+    Sink_Codec (..),+    newSink_Codec,++    -- ** Sink_Spec+    Sink_Spec (..),+    newSink_Spec,++    -- ** Snapshot+    Snapshot (..),+    newSnapshot,++    -- ** Snapshot_State+    Snapshot_State (..),++    -- ** SnapshotJobRequest+    SnapshotJobRequest (..),+    newSnapshotJobRequest,++    -- ** Source+    Source (..),+    newSource,++    -- ** Source_BaseSpecsItem+    Source_BaseSpecsItem (..),+    newSource_BaseSpecsItem,++    -- ** Source_Codec+    Source_Codec (..),+    newSource_Codec,++    -- ** Source_Spec+    Source_Spec (..),+    newSource_Spec,++    -- ** SourceFork+    SourceFork (..),+    newSourceFork,++    -- ** SourceGetMetadataRequest+    SourceGetMetadataRequest (..),+    newSourceGetMetadataRequest,++    -- ** SourceGetMetadataResponse+    SourceGetMetadataResponse (..),+    newSourceGetMetadataResponse,++    -- ** SourceMetadata+    SourceMetadata (..),+    newSourceMetadata,++    -- ** SourceOperationRequest+    SourceOperationRequest (..),+    newSourceOperationRequest,++    -- ** SourceOperationResponse+    SourceOperationResponse (..),+    newSourceOperationResponse,++    -- ** SourceSplitOptions+    SourceSplitOptions (..),+    newSourceSplitOptions,++    -- ** SourceSplitRequest+    SourceSplitRequest (..),+    newSourceSplitRequest,++    -- ** SourceSplitResponse+    SourceSplitResponse (..),+    newSourceSplitResponse,++    -- ** SourceSplitResponse_Outcome+    SourceSplitResponse_Outcome (..),++    -- ** SourceSplitShard+    SourceSplitShard (..),+    newSourceSplitShard,++    -- ** SourceSplitShard_DerivationMode+    SourceSplitShard_DerivationMode (..),++    -- ** SpannerIODetails+    SpannerIODetails (..),+    newSpannerIODetails,++    -- ** SplitInt64+    SplitInt64 (..),+    newSplitInt64,++    -- ** StageExecutionDetails+    StageExecutionDetails (..),+    newStageExecutionDetails,++    -- ** StageSource+    StageSource (..),+    newStageSource,++    -- ** StageSummary+    StageSummary (..),+    newStageSummary,++    -- ** StageSummary_State+    StageSummary_State (..),++    -- ** StateFamilyConfig+    StateFamilyConfig (..),+    newStateFamilyConfig,++    -- ** Status+    Status (..),+    newStatus,++    -- ** Status_DetailsItem+    Status_DetailsItem (..),+    newStatus_DetailsItem,++    -- ** Step+    Step (..),+    newStep,++    -- ** Step_Properties+    Step_Properties (..),+    newStep_Properties,++    -- ** Straggler+    Straggler (..),+    newStraggler,++    -- ** StragglerDebuggingInfo+    StragglerDebuggingInfo (..),+    newStragglerDebuggingInfo,++    -- ** StragglerInfo+    StragglerInfo (..),+    newStragglerInfo,++    -- ** StragglerInfo_Causes+    StragglerInfo_Causes (..),+    newStragglerInfo_Causes,++    -- ** StragglerSummary+    StragglerSummary (..),+    newStragglerSummary,++    -- ** StragglerSummary_StragglerCauseCount+    StragglerSummary_StragglerCauseCount (..),+    newStragglerSummary_StragglerCauseCount,++    -- ** StreamLocation+    StreamLocation (..),+    newStreamLocation,++    -- ** StreamingApplianceSnapshotConfig+    StreamingApplianceSnapshotConfig (..),+    newStreamingApplianceSnapshotConfig,++    -- ** StreamingComputationConfig+    StreamingComputationConfig (..),+    newStreamingComputationConfig,++    -- ** StreamingComputationConfig_TransformUserNameToStateFamily+    StreamingComputationConfig_TransformUserNameToStateFamily (..),+    newStreamingComputationConfig_TransformUserNameToStateFamily,++    -- ** StreamingComputationRanges+    StreamingComputationRanges (..),+    newStreamingComputationRanges,++    -- ** StreamingComputationTask+    StreamingComputationTask (..),+    newStreamingComputationTask,++    -- ** StreamingComputationTask_TaskType+    StreamingComputationTask_TaskType (..),++    -- ** StreamingConfigTask+    StreamingConfigTask (..),+    newStreamingConfigTask,++    -- ** StreamingConfigTask_UserStepToStateFamilyNameMap+    StreamingConfigTask_UserStepToStateFamilyNameMap (..),+    newStreamingConfigTask_UserStepToStateFamilyNameMap,++    -- ** StreamingOperationalLimits+    StreamingOperationalLimits (..),+    newStreamingOperationalLimits,++    -- ** StreamingScalingReport+    StreamingScalingReport (..),+    newStreamingScalingReport,++    -- ** StreamingScalingReportResponse+    StreamingScalingReportResponse (..),+    newStreamingScalingReportResponse,++    -- ** StreamingSetupTask+    StreamingSetupTask (..),+    newStreamingSetupTask,++    -- ** StreamingSideInputLocation+    StreamingSideInputLocation (..),+    newStreamingSideInputLocation,++    -- ** StreamingStageLocation+    StreamingStageLocation (..),+    newStreamingStageLocation,++    -- ** StreamingStragglerInfo+    StreamingStragglerInfo (..),+    newStreamingStragglerInfo,++    -- ** StringList+    StringList (..),+    newStringList,++    -- ** StructuredMessage+    StructuredMessage (..),+    newStructuredMessage,++    -- ** TaskRunnerSettings+    TaskRunnerSettings (..),+    newTaskRunnerSettings,++    -- ** TemplateMetadata+    TemplateMetadata (..),+    newTemplateMetadata,++    -- ** TopologyConfig+    TopologyConfig (..),+    newTopologyConfig,++    -- ** TopologyConfig_UserStageToComputationNameMap+    TopologyConfig_UserStageToComputationNameMap (..),+    newTopologyConfig_UserStageToComputationNameMap,++    -- ** TransformSummary+    TransformSummary (..),+    newTransformSummary,++    -- ** TransformSummary_Kind+    TransformSummary_Kind (..),++    -- ** WorkItem+    WorkItem (..),+    newWorkItem,++    -- ** WorkItemDetails+    WorkItemDetails (..),+    newWorkItemDetails,++    -- ** WorkItemDetails_State+    WorkItemDetails_State (..),++    -- ** WorkItemServiceState+    WorkItemServiceState (..),+    newWorkItemServiceState,++    -- ** WorkItemServiceState_HarnessData+    WorkItemServiceState_HarnessData (..),+    newWorkItemServiceState_HarnessData,++    -- ** WorkItemStatus+    WorkItemStatus (..),+    newWorkItemStatus,++    -- ** WorkerDetails+    WorkerDetails (..),+    newWorkerDetails,++    -- ** WorkerHealthReport+    WorkerHealthReport (..),+    newWorkerHealthReport,++    -- ** WorkerHealthReport_PodsItem+    WorkerHealthReport_PodsItem (..),+    newWorkerHealthReport_PodsItem,++    -- ** WorkerHealthReportResponse+    WorkerHealthReportResponse (..),+    newWorkerHealthReportResponse,++    -- ** WorkerLifecycleEvent+    WorkerLifecycleEvent (..),+    newWorkerLifecycleEvent,++    -- ** WorkerLifecycleEvent_Event+    WorkerLifecycleEvent_Event (..),++    -- ** WorkerLifecycleEvent_Metadata+    WorkerLifecycleEvent_Metadata (..),+    newWorkerLifecycleEvent_Metadata,++    -- ** WorkerMessage+    WorkerMessage (..),+    newWorkerMessage,++    -- ** WorkerMessage_Labels+    WorkerMessage_Labels (..),+    newWorkerMessage_Labels,++    -- ** WorkerMessageCode+    WorkerMessageCode (..),+    newWorkerMessageCode,++    -- ** WorkerMessageCode_Parameters+    WorkerMessageCode_Parameters (..),+    newWorkerMessageCode_Parameters,++    -- ** WorkerMessageResponse+    WorkerMessageResponse (..),+    newWorkerMessageResponse,++    -- ** WorkerPool+    WorkerPool (..),+    newWorkerPool,++    -- ** WorkerPool_DefaultPackageSet+    WorkerPool_DefaultPackageSet (..),++    -- ** WorkerPool_IpConfiguration+    WorkerPool_IpConfiguration (..),++    -- ** WorkerPool_Metadata+    WorkerPool_Metadata (..),+    newWorkerPool_Metadata,++    -- ** WorkerPool_PoolArgs+    WorkerPool_PoolArgs (..),+    newWorkerPool_PoolArgs,++    -- ** WorkerPool_TeardownPolicy+    WorkerPool_TeardownPolicy (..),++    -- ** WorkerSettings+    WorkerSettings (..),+    newWorkerSettings,++    -- ** WorkerShutdownNotice+    WorkerShutdownNotice (..),+    newWorkerShutdownNotice,++    -- ** WorkerShutdownNoticeResponse+    WorkerShutdownNoticeResponse (..),+    newWorkerShutdownNoticeResponse,++    -- ** WorkerThreadScalingReport+    WorkerThreadScalingReport (..),+    newWorkerThreadScalingReport,++    -- ** WorkerThreadScalingReportResponse+    WorkerThreadScalingReportResponse (..),+    newWorkerThreadScalingReportResponse,++    -- ** WriteInstruction+    WriteInstruction (..),+    newWriteInstruction,++    -- ** ProjectsJobsAggregatedFilter+    ProjectsJobsAggregatedFilter (..),++    -- ** ProjectsJobsAggregatedView+    ProjectsJobsAggregatedView (..),++    -- ** ProjectsJobsCreateView+    ProjectsJobsCreateView (..),++    -- ** ProjectsJobsGetView+    ProjectsJobsGetView (..),++    -- ** ProjectsJobsListFilter+    ProjectsJobsListFilter (..),++    -- ** ProjectsJobsListView+    ProjectsJobsListView (..),++    -- ** ProjectsJobsMessagesListMinimumImportance+    ProjectsJobsMessagesListMinimumImportance (..),++    -- ** ProjectsLocationsJobsCreateView+    ProjectsLocationsJobsCreateView (..),++    -- ** ProjectsLocationsJobsGetView+    ProjectsLocationsJobsGetView (..),++    -- ** ProjectsLocationsJobsListFilter+    ProjectsLocationsJobsListFilter (..),++    -- ** ProjectsLocationsJobsListView+    ProjectsLocationsJobsListView (..),++    -- ** ProjectsLocationsJobsMessagesListMinimumImportance+    ProjectsLocationsJobsMessagesListMinimumImportance (..),++    -- ** ProjectsLocationsTemplatesGetView+    ProjectsLocationsTemplatesGetView (..),++    -- ** ProjectsTemplatesGetView+    ProjectsTemplatesGetView (..),+  )+where++import Gogol.Dataflow.Projects.DeleteSnapshots+import Gogol.Dataflow.Projects.Jobs.Aggregated+import Gogol.Dataflow.Projects.Jobs.Create+import Gogol.Dataflow.Projects.Jobs.Debug.GetConfig+import Gogol.Dataflow.Projects.Jobs.Debug.SendCapture+import Gogol.Dataflow.Projects.Jobs.Get+import Gogol.Dataflow.Projects.Jobs.GetMetrics+import Gogol.Dataflow.Projects.Jobs.List+import Gogol.Dataflow.Projects.Jobs.Messages.List+import Gogol.Dataflow.Projects.Jobs.Snapshot+import Gogol.Dataflow.Projects.Jobs.Update+import Gogol.Dataflow.Projects.Jobs.WorkItems.Lease+import Gogol.Dataflow.Projects.Jobs.WorkItems.ReportStatus+import Gogol.Dataflow.Projects.Locations.FlexTemplates.Launch+import Gogol.Dataflow.Projects.Locations.Jobs.Create+import Gogol.Dataflow.Projects.Locations.Jobs.Debug.GetConfig+import Gogol.Dataflow.Projects.Locations.Jobs.Debug.SendCapture+import Gogol.Dataflow.Projects.Locations.Jobs.Get+import Gogol.Dataflow.Projects.Locations.Jobs.GetExecutionDetails+import Gogol.Dataflow.Projects.Locations.Jobs.GetMetrics+import Gogol.Dataflow.Projects.Locations.Jobs.List+import Gogol.Dataflow.Projects.Locations.Jobs.Messages.List+import Gogol.Dataflow.Projects.Locations.Jobs.Snapshot+import Gogol.Dataflow.Projects.Locations.Jobs.Snapshots.List+import Gogol.Dataflow.Projects.Locations.Jobs.Stages.GetExecutionDetails+import Gogol.Dataflow.Projects.Locations.Jobs.Update+import Gogol.Dataflow.Projects.Locations.Jobs.WorkItems.Lease+import Gogol.Dataflow.Projects.Locations.Jobs.WorkItems.ReportStatus+import Gogol.Dataflow.Projects.Locations.Snapshots.Delete+import Gogol.Dataflow.Projects.Locations.Snapshots.Get+import Gogol.Dataflow.Projects.Locations.Snapshots.List+import Gogol.Dataflow.Projects.Locations.Templates.Create+import Gogol.Dataflow.Projects.Locations.Templates.Get+import Gogol.Dataflow.Projects.Locations.Templates.Launch+import Gogol.Dataflow.Projects.Locations.WorkerMessages+import Gogol.Dataflow.Projects.Snapshots.Get+import Gogol.Dataflow.Projects.Snapshots.List+import Gogol.Dataflow.Projects.Templates.Create+import Gogol.Dataflow.Projects.Templates.Get+import Gogol.Dataflow.Projects.Templates.Launch+import Gogol.Dataflow.Projects.WorkerMessages+import Gogol.Dataflow.Types
+ gen/Gogol/Dataflow/Internal/Product.hs view
@@ -0,0 +1,11810 @@+{-# LANGUAGE DataKinds #-}+{-# LANGUAGE DerivingStrategies #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE ImportQualifiedPost #-}+{-# LANGUAGE LambdaCase #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TypeFamilies #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-duplicate-exports #-}+{-# OPTIONS_GHC -fno-warn-name-shadowing #-}+{-# OPTIONS_GHC -fno-warn-unused-binds #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- |+-- Module      : Gogol.Dataflow.Internal.Product+-- Copyright   : (c) 2015-2025 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay <brendan.g.hay+gogol@gmail.com>+--               Toni Cebrián <toni@tonicebrian.com>+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+module Gogol.Dataflow.Internal.Product+  ( -- * ApproximateProgress+    ApproximateProgress (..),+    newApproximateProgress,++    -- * ApproximateReportedProgress+    ApproximateReportedProgress (..),+    newApproximateReportedProgress,++    -- * ApproximateSplitRequest+    ApproximateSplitRequest (..),+    newApproximateSplitRequest,++    -- * AutoscalingEvent+    AutoscalingEvent (..),+    newAutoscalingEvent,++    -- * AutoscalingSettings+    AutoscalingSettings (..),+    newAutoscalingSettings,++    -- * Base2Exponent+    Base2Exponent (..),+    newBase2Exponent,++    -- * BigQueryIODetails+    BigQueryIODetails (..),+    newBigQueryIODetails,++    -- * BigTableIODetails+    BigTableIODetails (..),+    newBigTableIODetails,++    -- * BoundedTrie+    BoundedTrie (..),+    newBoundedTrie,++    -- * BoundedTrieNode+    BoundedTrieNode (..),+    newBoundedTrieNode,++    -- * BoundedTrieNode_Children+    BoundedTrieNode_Children (..),+    newBoundedTrieNode_Children,++    -- * BucketOptions+    BucketOptions (..),+    newBucketOptions,++    -- * CPUTime+    CPUTime (..),+    newCPUTime,++    -- * ComponentSource+    ComponentSource (..),+    newComponentSource,++    -- * ComponentTransform+    ComponentTransform (..),+    newComponentTransform,++    -- * ComputationTopology+    ComputationTopology (..),+    newComputationTopology,++    -- * ConcatPosition+    ConcatPosition (..),+    newConcatPosition,++    -- * ContainerSpec+    ContainerSpec (..),+    newContainerSpec,++    -- * CounterMetadata+    CounterMetadata (..),+    newCounterMetadata,++    -- * CounterStructuredName+    CounterStructuredName (..),+    newCounterStructuredName,++    -- * CounterStructuredNameAndMetadata+    CounterStructuredNameAndMetadata (..),+    newCounterStructuredNameAndMetadata,++    -- * CounterUpdate+    CounterUpdate (..),+    newCounterUpdate,++    -- * CreateJobFromTemplateRequest+    CreateJobFromTemplateRequest (..),+    newCreateJobFromTemplateRequest,++    -- * CreateJobFromTemplateRequest_Parameters+    CreateJobFromTemplateRequest_Parameters (..),+    newCreateJobFromTemplateRequest_Parameters,++    -- * CustomSourceLocation+    CustomSourceLocation (..),+    newCustomSourceLocation,++    -- * DataDiskAssignment+    DataDiskAssignment (..),+    newDataDiskAssignment,++    -- * DataSamplingConfig+    DataSamplingConfig (..),+    newDataSamplingConfig,++    -- * DataSamplingReport+    DataSamplingReport (..),+    newDataSamplingReport,++    -- * DataflowGaugeValue+    DataflowGaugeValue (..),+    newDataflowGaugeValue,++    -- * DataflowHistogramValue+    DataflowHistogramValue (..),+    newDataflowHistogramValue,++    -- * DatastoreIODetails+    DatastoreIODetails (..),+    newDatastoreIODetails,++    -- * DebugOptions+    DebugOptions (..),+    newDebugOptions,++    -- * DeleteSnapshotResponse+    DeleteSnapshotResponse (..),+    newDeleteSnapshotResponse,++    -- * DerivedSource+    DerivedSource (..),+    newDerivedSource,++    -- * Disk+    Disk (..),+    newDisk,++    -- * DisplayData+    DisplayData (..),+    newDisplayData,++    -- * DistributionUpdate+    DistributionUpdate (..),+    newDistributionUpdate,++    -- * DynamicSourceSplit+    DynamicSourceSplit (..),+    newDynamicSourceSplit,++    -- * Environment+    Environment (..),+    newEnvironment,++    -- * Environment_InternalExperiments+    Environment_InternalExperiments (..),+    newEnvironment_InternalExperiments,++    -- * Environment_SdkPipelineOptions+    Environment_SdkPipelineOptions (..),+    newEnvironment_SdkPipelineOptions,++    -- * Environment_UserAgent+    Environment_UserAgent (..),+    newEnvironment_UserAgent,++    -- * Environment_Version+    Environment_Version (..),+    newEnvironment_Version,++    -- * ExecutionStageState+    ExecutionStageState (..),+    newExecutionStageState,++    -- * ExecutionStageSummary+    ExecutionStageSummary (..),+    newExecutionStageSummary,++    -- * FailedLocation+    FailedLocation (..),+    newFailedLocation,++    -- * FileIODetails+    FileIODetails (..),+    newFileIODetails,++    -- * FlattenInstruction+    FlattenInstruction (..),+    newFlattenInstruction,++    -- * FlexTemplateRuntimeEnvironment+    FlexTemplateRuntimeEnvironment (..),+    newFlexTemplateRuntimeEnvironment,++    -- * FlexTemplateRuntimeEnvironment_AdditionalUserLabels+    FlexTemplateRuntimeEnvironment_AdditionalUserLabels (..),+    newFlexTemplateRuntimeEnvironment_AdditionalUserLabels,++    -- * FloatingPointList+    FloatingPointList (..),+    newFloatingPointList,++    -- * FloatingPointMean+    FloatingPointMean (..),+    newFloatingPointMean,++    -- * GPUUsage+    GPUUsage (..),+    newGPUUsage,++    -- * GPUUtilization+    GPUUtilization (..),+    newGPUUtilization,++    -- * GetDebugConfigRequest+    GetDebugConfigRequest (..),+    newGetDebugConfigRequest,++    -- * GetDebugConfigResponse+    GetDebugConfigResponse (..),+    newGetDebugConfigResponse,++    -- * GetTemplateResponse+    GetTemplateResponse (..),+    newGetTemplateResponse,++    -- * Histogram+    Histogram (..),+    newHistogram,++    -- * HotKeyDebuggingInfo+    HotKeyDebuggingInfo (..),+    newHotKeyDebuggingInfo,++    -- * HotKeyDebuggingInfo_DetectedHotKeys+    HotKeyDebuggingInfo_DetectedHotKeys (..),+    newHotKeyDebuggingInfo_DetectedHotKeys,++    -- * HotKeyDetection+    HotKeyDetection (..),+    newHotKeyDetection,++    -- * HotKeyInfo+    HotKeyInfo (..),+    newHotKeyInfo,++    -- * InstructionInput+    InstructionInput (..),+    newInstructionInput,++    -- * InstructionOutput+    InstructionOutput (..),+    newInstructionOutput,++    -- * InstructionOutput_Codec+    InstructionOutput_Codec (..),+    newInstructionOutput_Codec,++    -- * IntegerGauge+    IntegerGauge (..),+    newIntegerGauge,++    -- * IntegerList+    IntegerList (..),+    newIntegerList,++    -- * IntegerMean+    IntegerMean (..),+    newIntegerMean,++    -- * Job+    Job (..),+    newJob,++    -- * Job_Labels+    Job_Labels (..),+    newJob_Labels,++    -- * Job_TransformNameMapping+    Job_TransformNameMapping (..),+    newJob_TransformNameMapping,++    -- * JobExecutionDetails+    JobExecutionDetails (..),+    newJobExecutionDetails,++    -- * JobExecutionInfo+    JobExecutionInfo (..),+    newJobExecutionInfo,++    -- * JobExecutionInfo_Stages+    JobExecutionInfo_Stages (..),+    newJobExecutionInfo_Stages,++    -- * JobExecutionStageInfo+    JobExecutionStageInfo (..),+    newJobExecutionStageInfo,++    -- * JobMessage+    JobMessage (..),+    newJobMessage,++    -- * JobMetadata+    JobMetadata (..),+    newJobMetadata,++    -- * JobMetadata_UserDisplayProperties+    JobMetadata_UserDisplayProperties (..),+    newJobMetadata_UserDisplayProperties,++    -- * JobMetrics+    JobMetrics (..),+    newJobMetrics,++    -- * KeyRangeDataDiskAssignment+    KeyRangeDataDiskAssignment (..),+    newKeyRangeDataDiskAssignment,++    -- * KeyRangeLocation+    KeyRangeLocation (..),+    newKeyRangeLocation,++    -- * LaunchFlexTemplateParameter+    LaunchFlexTemplateParameter (..),+    newLaunchFlexTemplateParameter,++    -- * LaunchFlexTemplateParameter_LaunchOptions+    LaunchFlexTemplateParameter_LaunchOptions (..),+    newLaunchFlexTemplateParameter_LaunchOptions,++    -- * LaunchFlexTemplateParameter_Parameters+    LaunchFlexTemplateParameter_Parameters (..),+    newLaunchFlexTemplateParameter_Parameters,++    -- * LaunchFlexTemplateParameter_TransformNameMappings+    LaunchFlexTemplateParameter_TransformNameMappings (..),+    newLaunchFlexTemplateParameter_TransformNameMappings,++    -- * LaunchFlexTemplateRequest+    LaunchFlexTemplateRequest (..),+    newLaunchFlexTemplateRequest,++    -- * LaunchFlexTemplateResponse+    LaunchFlexTemplateResponse (..),+    newLaunchFlexTemplateResponse,++    -- * LaunchTemplateParameters+    LaunchTemplateParameters (..),+    newLaunchTemplateParameters,++    -- * LaunchTemplateParameters_Parameters+    LaunchTemplateParameters_Parameters (..),+    newLaunchTemplateParameters_Parameters,++    -- * LaunchTemplateParameters_TransformNameMapping+    LaunchTemplateParameters_TransformNameMapping (..),+    newLaunchTemplateParameters_TransformNameMapping,++    -- * LaunchTemplateResponse+    LaunchTemplateResponse (..),+    newLaunchTemplateResponse,++    -- * LeaseWorkItemRequest+    LeaseWorkItemRequest (..),+    newLeaseWorkItemRequest,++    -- * LeaseWorkItemRequest_UnifiedWorkerRequest+    LeaseWorkItemRequest_UnifiedWorkerRequest (..),+    newLeaseWorkItemRequest_UnifiedWorkerRequest,++    -- * LeaseWorkItemResponse+    LeaseWorkItemResponse (..),+    newLeaseWorkItemResponse,++    -- * LeaseWorkItemResponse_UnifiedWorkerResponse+    LeaseWorkItemResponse_UnifiedWorkerResponse (..),+    newLeaseWorkItemResponse_UnifiedWorkerResponse,++    -- * Linear+    Linear (..),+    newLinear,++    -- * ListJobMessagesResponse+    ListJobMessagesResponse (..),+    newListJobMessagesResponse,++    -- * ListJobsResponse+    ListJobsResponse (..),+    newListJobsResponse,++    -- * ListSnapshotsResponse+    ListSnapshotsResponse (..),+    newListSnapshotsResponse,++    -- * MapTask+    MapTask (..),+    newMapTask,++    -- * MemInfo+    MemInfo (..),+    newMemInfo,++    -- * MetricShortId+    MetricShortId (..),+    newMetricShortId,++    -- * MetricStructuredName+    MetricStructuredName (..),+    newMetricStructuredName,++    -- * MetricStructuredName_Context+    MetricStructuredName_Context (..),+    newMetricStructuredName_Context,++    -- * MetricUpdate+    MetricUpdate (..),+    newMetricUpdate,++    -- * MetricValue+    MetricValue (..),+    newMetricValue,++    -- * MetricValue_MetricLabels+    MetricValue_MetricLabels (..),+    newMetricValue_MetricLabels,++    -- * MountedDataDisk+    MountedDataDisk (..),+    newMountedDataDisk,++    -- * MultiOutputInfo+    MultiOutputInfo (..),+    newMultiOutputInfo,++    -- * NameAndKind+    NameAndKind (..),+    newNameAndKind,++    -- * OutlierStats+    OutlierStats (..),+    newOutlierStats,++    -- * Package+    Package (..),+    newPackage,++    -- * ParDoInstruction+    ParDoInstruction (..),+    newParDoInstruction,++    -- * ParDoInstruction_UserFn+    ParDoInstruction_UserFn (..),+    newParDoInstruction_UserFn,++    -- * ParallelInstruction+    ParallelInstruction (..),+    newParallelInstruction,++    -- * Parameter+    Parameter (..),+    newParameter,++    -- * ParameterMetadata+    ParameterMetadata (..),+    newParameterMetadata,++    -- * ParameterMetadata_CustomMetadata+    ParameterMetadata_CustomMetadata (..),+    newParameterMetadata_CustomMetadata,++    -- * ParameterMetadataEnumOption+    ParameterMetadataEnumOption (..),+    newParameterMetadataEnumOption,++    -- * PartialGroupByKeyInstruction+    PartialGroupByKeyInstruction (..),+    newPartialGroupByKeyInstruction,++    -- * PartialGroupByKeyInstruction_InputElementCodec+    PartialGroupByKeyInstruction_InputElementCodec (..),+    newPartialGroupByKeyInstruction_InputElementCodec,++    -- * PartialGroupByKeyInstruction_ValueCombiningFn+    PartialGroupByKeyInstruction_ValueCombiningFn (..),+    newPartialGroupByKeyInstruction_ValueCombiningFn,++    -- * PerStepNamespaceMetrics+    PerStepNamespaceMetrics (..),+    newPerStepNamespaceMetrics,++    -- * PerWorkerMetrics+    PerWorkerMetrics (..),+    newPerWorkerMetrics,++    -- * PipelineDescription+    PipelineDescription (..),+    newPipelineDescription,++    -- * Point+    Point (..),+    newPoint,++    -- * Position+    Position (..),+    newPosition,++    -- * ProgressTimeseries+    ProgressTimeseries (..),+    newProgressTimeseries,++    -- * PubSubIODetails+    PubSubIODetails (..),+    newPubSubIODetails,++    -- * PubsubLocation+    PubsubLocation (..),+    newPubsubLocation,++    -- * PubsubSnapshotMetadata+    PubsubSnapshotMetadata (..),+    newPubsubSnapshotMetadata,++    -- * ReadInstruction+    ReadInstruction (..),+    newReadInstruction,++    -- * ReportWorkItemStatusRequest+    ReportWorkItemStatusRequest (..),+    newReportWorkItemStatusRequest,++    -- * ReportWorkItemStatusRequest_UnifiedWorkerRequest+    ReportWorkItemStatusRequest_UnifiedWorkerRequest (..),+    newReportWorkItemStatusRequest_UnifiedWorkerRequest,++    -- * ReportWorkItemStatusResponse+    ReportWorkItemStatusResponse (..),+    newReportWorkItemStatusResponse,++    -- * ReportWorkItemStatusResponse_UnifiedWorkerResponse+    ReportWorkItemStatusResponse_UnifiedWorkerResponse (..),+    newReportWorkItemStatusResponse_UnifiedWorkerResponse,++    -- * ReportedParallelism+    ReportedParallelism (..),+    newReportedParallelism,++    -- * ResourceUtilizationReport+    ResourceUtilizationReport (..),+    newResourceUtilizationReport,++    -- * ResourceUtilizationReport_Containers+    ResourceUtilizationReport_Containers (..),+    newResourceUtilizationReport_Containers,++    -- * ResourceUtilizationReportResponse+    ResourceUtilizationReportResponse (..),+    newResourceUtilizationReportResponse,++    -- * RuntimeEnvironment+    RuntimeEnvironment (..),+    newRuntimeEnvironment,++    -- * RuntimeEnvironment_AdditionalUserLabels+    RuntimeEnvironment_AdditionalUserLabels (..),+    newRuntimeEnvironment_AdditionalUserLabels,++    -- * RuntimeMetadata+    RuntimeMetadata (..),+    newRuntimeMetadata,++    -- * RuntimeUpdatableParams+    RuntimeUpdatableParams (..),+    newRuntimeUpdatableParams,++    -- * SDKInfo+    SDKInfo (..),+    newSDKInfo,++    -- * SdkBug+    SdkBug (..),+    newSdkBug,++    -- * SdkHarnessContainerImage+    SdkHarnessContainerImage (..),+    newSdkHarnessContainerImage,++    -- * SdkVersion+    SdkVersion (..),+    newSdkVersion,++    -- * SendDebugCaptureRequest+    SendDebugCaptureRequest (..),+    newSendDebugCaptureRequest,++    -- * SendDebugCaptureResponse+    SendDebugCaptureResponse (..),+    newSendDebugCaptureResponse,++    -- * SendWorkerMessagesRequest+    SendWorkerMessagesRequest (..),+    newSendWorkerMessagesRequest,++    -- * SendWorkerMessagesResponse+    SendWorkerMessagesResponse (..),+    newSendWorkerMessagesResponse,++    -- * SeqMapTask+    SeqMapTask (..),+    newSeqMapTask,++    -- * SeqMapTask_UserFn+    SeqMapTask_UserFn (..),+    newSeqMapTask_UserFn,++    -- * SeqMapTaskOutputInfo+    SeqMapTaskOutputInfo (..),+    newSeqMapTaskOutputInfo,++    -- * ServiceResources+    ServiceResources (..),+    newServiceResources,++    -- * ShellTask+    ShellTask (..),+    newShellTask,++    -- * SideInputInfo+    SideInputInfo (..),+    newSideInputInfo,++    -- * SideInputInfo_Kind+    SideInputInfo_Kind (..),+    newSideInputInfo_Kind,++    -- * Sink+    Sink (..),+    newSink,++    -- * Sink_Codec+    Sink_Codec (..),+    newSink_Codec,++    -- * Sink_Spec+    Sink_Spec (..),+    newSink_Spec,++    -- * Snapshot+    Snapshot (..),+    newSnapshot,++    -- * SnapshotJobRequest+    SnapshotJobRequest (..),+    newSnapshotJobRequest,++    -- * Source+    Source (..),+    newSource,++    -- * Source_BaseSpecsItem+    Source_BaseSpecsItem (..),+    newSource_BaseSpecsItem,++    -- * Source_Codec+    Source_Codec (..),+    newSource_Codec,++    -- * Source_Spec+    Source_Spec (..),+    newSource_Spec,++    -- * SourceFork+    SourceFork (..),+    newSourceFork,++    -- * SourceGetMetadataRequest+    SourceGetMetadataRequest (..),+    newSourceGetMetadataRequest,++    -- * SourceGetMetadataResponse+    SourceGetMetadataResponse (..),+    newSourceGetMetadataResponse,++    -- * SourceMetadata+    SourceMetadata (..),+    newSourceMetadata,++    -- * SourceOperationRequest+    SourceOperationRequest (..),+    newSourceOperationRequest,++    -- * SourceOperationResponse+    SourceOperationResponse (..),+    newSourceOperationResponse,++    -- * SourceSplitOptions+    SourceSplitOptions (..),+    newSourceSplitOptions,++    -- * SourceSplitRequest+    SourceSplitRequest (..),+    newSourceSplitRequest,++    -- * SourceSplitResponse+    SourceSplitResponse (..),+    newSourceSplitResponse,++    -- * SourceSplitShard+    SourceSplitShard (..),+    newSourceSplitShard,++    -- * SpannerIODetails+    SpannerIODetails (..),+    newSpannerIODetails,++    -- * SplitInt64+    SplitInt64 (..),+    newSplitInt64,++    -- * StageExecutionDetails+    StageExecutionDetails (..),+    newStageExecutionDetails,++    -- * StageSource+    StageSource (..),+    newStageSource,++    -- * StageSummary+    StageSummary (..),+    newStageSummary,++    -- * StateFamilyConfig+    StateFamilyConfig (..),+    newStateFamilyConfig,++    -- * Status+    Status (..),+    newStatus,++    -- * Status_DetailsItem+    Status_DetailsItem (..),+    newStatus_DetailsItem,++    -- * Step+    Step (..),+    newStep,++    -- * Step_Properties+    Step_Properties (..),+    newStep_Properties,++    -- * Straggler+    Straggler (..),+    newStraggler,++    -- * StragglerDebuggingInfo+    StragglerDebuggingInfo (..),+    newStragglerDebuggingInfo,++    -- * StragglerInfo+    StragglerInfo (..),+    newStragglerInfo,++    -- * StragglerInfo_Causes+    StragglerInfo_Causes (..),+    newStragglerInfo_Causes,++    -- * StragglerSummary+    StragglerSummary (..),+    newStragglerSummary,++    -- * StragglerSummary_StragglerCauseCount+    StragglerSummary_StragglerCauseCount (..),+    newStragglerSummary_StragglerCauseCount,++    -- * StreamLocation+    StreamLocation (..),+    newStreamLocation,++    -- * StreamingApplianceSnapshotConfig+    StreamingApplianceSnapshotConfig (..),+    newStreamingApplianceSnapshotConfig,++    -- * StreamingComputationConfig+    StreamingComputationConfig (..),+    newStreamingComputationConfig,++    -- * StreamingComputationConfig_TransformUserNameToStateFamily+    StreamingComputationConfig_TransformUserNameToStateFamily (..),+    newStreamingComputationConfig_TransformUserNameToStateFamily,++    -- * StreamingComputationRanges+    StreamingComputationRanges (..),+    newStreamingComputationRanges,++    -- * StreamingComputationTask+    StreamingComputationTask (..),+    newStreamingComputationTask,++    -- * StreamingConfigTask+    StreamingConfigTask (..),+    newStreamingConfigTask,++    -- * StreamingConfigTask_UserStepToStateFamilyNameMap+    StreamingConfigTask_UserStepToStateFamilyNameMap (..),+    newStreamingConfigTask_UserStepToStateFamilyNameMap,++    -- * StreamingOperationalLimits+    StreamingOperationalLimits (..),+    newStreamingOperationalLimits,++    -- * StreamingScalingReport+    StreamingScalingReport (..),+    newStreamingScalingReport,++    -- * StreamingScalingReportResponse+    StreamingScalingReportResponse (..),+    newStreamingScalingReportResponse,++    -- * StreamingSetupTask+    StreamingSetupTask (..),+    newStreamingSetupTask,++    -- * StreamingSideInputLocation+    StreamingSideInputLocation (..),+    newStreamingSideInputLocation,++    -- * StreamingStageLocation+    StreamingStageLocation (..),+    newStreamingStageLocation,++    -- * StreamingStragglerInfo+    StreamingStragglerInfo (..),+    newStreamingStragglerInfo,++    -- * StringList+    StringList (..),+    newStringList,++    -- * StructuredMessage+    StructuredMessage (..),+    newStructuredMessage,++    -- * TaskRunnerSettings+    TaskRunnerSettings (..),+    newTaskRunnerSettings,++    -- * TemplateMetadata+    TemplateMetadata (..),+    newTemplateMetadata,++    -- * TopologyConfig+    TopologyConfig (..),+    newTopologyConfig,++    -- * TopologyConfig_UserStageToComputationNameMap+    TopologyConfig_UserStageToComputationNameMap (..),+    newTopologyConfig_UserStageToComputationNameMap,++    -- * TransformSummary+    TransformSummary (..),+    newTransformSummary,++    -- * WorkItem+    WorkItem (..),+    newWorkItem,++    -- * WorkItemDetails+    WorkItemDetails (..),+    newWorkItemDetails,++    -- * WorkItemServiceState+    WorkItemServiceState (..),+    newWorkItemServiceState,++    -- * WorkItemServiceState_HarnessData+    WorkItemServiceState_HarnessData (..),+    newWorkItemServiceState_HarnessData,++    -- * WorkItemStatus+    WorkItemStatus (..),+    newWorkItemStatus,++    -- * WorkerDetails+    WorkerDetails (..),+    newWorkerDetails,++    -- * WorkerHealthReport+    WorkerHealthReport (..),+    newWorkerHealthReport,++    -- * WorkerHealthReport_PodsItem+    WorkerHealthReport_PodsItem (..),+    newWorkerHealthReport_PodsItem,++    -- * WorkerHealthReportResponse+    WorkerHealthReportResponse (..),+    newWorkerHealthReportResponse,++    -- * WorkerLifecycleEvent+    WorkerLifecycleEvent (..),+    newWorkerLifecycleEvent,++    -- * WorkerLifecycleEvent_Metadata+    WorkerLifecycleEvent_Metadata (..),+    newWorkerLifecycleEvent_Metadata,++    -- * WorkerMessage+    WorkerMessage (..),+    newWorkerMessage,++    -- * WorkerMessage_Labels+    WorkerMessage_Labels (..),+    newWorkerMessage_Labels,++    -- * WorkerMessageCode+    WorkerMessageCode (..),+    newWorkerMessageCode,++    -- * WorkerMessageCode_Parameters+    WorkerMessageCode_Parameters (..),+    newWorkerMessageCode_Parameters,++    -- * WorkerMessageResponse+    WorkerMessageResponse (..),+    newWorkerMessageResponse,++    -- * WorkerPool+    WorkerPool (..),+    newWorkerPool,++    -- * WorkerPool_Metadata+    WorkerPool_Metadata (..),+    newWorkerPool_Metadata,++    -- * WorkerPool_PoolArgs+    WorkerPool_PoolArgs (..),+    newWorkerPool_PoolArgs,++    -- * WorkerSettings+    WorkerSettings (..),+    newWorkerSettings,++    -- * WorkerShutdownNotice+    WorkerShutdownNotice (..),+    newWorkerShutdownNotice,++    -- * WorkerShutdownNoticeResponse+    WorkerShutdownNoticeResponse (..),+    newWorkerShutdownNoticeResponse,++    -- * WorkerThreadScalingReport+    WorkerThreadScalingReport (..),+    newWorkerThreadScalingReport,++    -- * WorkerThreadScalingReportResponse+    WorkerThreadScalingReportResponse (..),+    newWorkerThreadScalingReportResponse,++    -- * WriteInstruction+    WriteInstruction (..),+    newWriteInstruction,+  )+where++import Gogol.Dataflow.Internal.Sum+import Gogol.Prelude qualified as Core++-- | Obsolete in favor of ApproximateReportedProgress and ApproximateSplitRequest.+--+-- /See:/ 'newApproximateProgress' smart constructor.+data ApproximateProgress = ApproximateProgress+  { -- | Obsolete.+    percentComplete :: (Core.Maybe Core.Double),+    -- | Obsolete.+    position :: (Core.Maybe Position),+    -- | Obsolete.+    remainingTime :: (Core.Maybe Core.Duration)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'ApproximateProgress' with the minimum fields required to make a request.+newApproximateProgress ::+  ApproximateProgress+newApproximateProgress =+  ApproximateProgress+    { percentComplete = Core.Nothing,+      position = Core.Nothing,+      remainingTime = Core.Nothing+    }++instance Core.FromJSON ApproximateProgress where+  parseJSON =+    Core.withObject+      "ApproximateProgress"+      ( \o ->+          ApproximateProgress+            Core.<$> (o Core..:? "percentComplete")+            Core.<*> (o Core..:? "position")+            Core.<*> (o Core..:? "remainingTime")+      )++instance Core.ToJSON ApproximateProgress where+  toJSON ApproximateProgress {..} =+    Core.object+      ( Core.catMaybes+          [ ("percentComplete" Core..=) Core.<$> percentComplete,+            ("position" Core..=) Core.<$> position,+            ("remainingTime" Core..=) Core.<$> remainingTime+          ]+      )++-- | A progress measurement of a WorkItem by a worker.+--+-- /See:/ 'newApproximateReportedProgress' smart constructor.+data ApproximateReportedProgress = ApproximateReportedProgress+  { -- | Total amount of parallelism in the portion of input of this task that has already been consumed and is no longer active. In the first two examples above (see remaining/parallelism), the value should be 29 or 2 respectively. The sum of remaining/parallelism and consumed_parallelism should equal the total amount of parallelism in this work item. If specified, must be finite.+    consumedParallelism :: (Core.Maybe ReportedParallelism),+    -- | Completion as fraction of the input consumed, from 0.0 (beginning, nothing consumed), to 1.0 (end of the input, entire input consumed).+    fractionConsumed :: (Core.Maybe Core.Double),+    -- | A Position within the work to represent a progress.+    position :: (Core.Maybe Position),+    -- | Total amount of parallelism in the input of this task that remains, (i.e. can be delegated to this task and any new tasks via dynamic splitting). Always at least 1 for non-finished work items and 0 for finished. \"Amount of parallelism\" refers to how many non-empty parts of the input can be read in parallel. This does not necessarily equal number of records. An input that can be read in parallel down to the individual records is called \"perfectly splittable\". An example of non-perfectly parallelizable input is a block-compressed file format where a block of records has to be read as a whole, but different blocks can be read in parallel. Examples: * If we are processing record #30 (starting at 1) out of 50 in a perfectly splittable 50-record input, this value should be 21 (20 remaining + 1 current). * If we are reading through block 3 in a block-compressed file consisting of 5 blocks, this value should be 3 (since blocks 4 and 5 can be processed in parallel by new tasks via dynamic splitting and the current+    -- task remains processing block 3). * If we are reading through the last block in a block-compressed file, or reading or processing the last record in a perfectly splittable input, this value should be 1, because apart from the current task, no additional remainder can be split off.+    remainingParallelism :: (Core.Maybe ReportedParallelism)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'ApproximateReportedProgress' with the minimum fields required to make a request.+newApproximateReportedProgress ::+  ApproximateReportedProgress+newApproximateReportedProgress =+  ApproximateReportedProgress+    { consumedParallelism = Core.Nothing,+      fractionConsumed = Core.Nothing,+      position = Core.Nothing,+      remainingParallelism = Core.Nothing+    }++instance Core.FromJSON ApproximateReportedProgress where+  parseJSON =+    Core.withObject+      "ApproximateReportedProgress"+      ( \o ->+          ApproximateReportedProgress+            Core.<$> (o Core..:? "consumedParallelism")+            Core.<*> (o Core..:? "fractionConsumed")+            Core.<*> (o Core..:? "position")+            Core.<*> (o Core..:? "remainingParallelism")+      )++instance Core.ToJSON ApproximateReportedProgress where+  toJSON ApproximateReportedProgress {..} =+    Core.object+      ( Core.catMaybes+          [ ("consumedParallelism" Core..=) Core.<$> consumedParallelism,+            ("fractionConsumed" Core..=) Core.<$> fractionConsumed,+            ("position" Core..=) Core.<$> position,+            ("remainingParallelism" Core..=) Core.<$> remainingParallelism+          ]+      )++-- | A suggestion by the service to the worker to dynamically split the WorkItem.+--+-- /See:/ 'newApproximateSplitRequest' smart constructor.+data ApproximateSplitRequest = ApproximateSplitRequest+  { -- | A fraction at which to split the work item, from 0.0 (beginning of the input) to 1.0 (end of the input).+    fractionConsumed :: (Core.Maybe Core.Double),+    -- | The fraction of the remainder of work to split the work item at, from 0.0 (split at the current position) to 1.0 (end of the input).+    fractionOfRemainder :: (Core.Maybe Core.Double),+    -- | A Position at which to split the work item.+    position :: (Core.Maybe Position)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'ApproximateSplitRequest' with the minimum fields required to make a request.+newApproximateSplitRequest ::+  ApproximateSplitRequest+newApproximateSplitRequest =+  ApproximateSplitRequest+    { fractionConsumed = Core.Nothing,+      fractionOfRemainder = Core.Nothing,+      position = Core.Nothing+    }++instance Core.FromJSON ApproximateSplitRequest where+  parseJSON =+    Core.withObject+      "ApproximateSplitRequest"+      ( \o ->+          ApproximateSplitRequest+            Core.<$> (o Core..:? "fractionConsumed")+            Core.<*> (o Core..:? "fractionOfRemainder")+            Core.<*> (o Core..:? "position")+      )++instance Core.ToJSON ApproximateSplitRequest where+  toJSON ApproximateSplitRequest {..} =+    Core.object+      ( Core.catMaybes+          [ ("fractionConsumed" Core..=) Core.<$> fractionConsumed,+            ("fractionOfRemainder" Core..=) Core.<$> fractionOfRemainder,+            ("position" Core..=) Core.<$> position+          ]+      )++-- | A structured message reporting an autoscaling decision made by the Dataflow service.+--+-- /See:/ 'newAutoscalingEvent' smart constructor.+data AutoscalingEvent = AutoscalingEvent+  { -- | The current number of workers the job has.+    currentNumWorkers :: (Core.Maybe Core.Int64),+    -- | A message describing why the system decided to adjust the current number of workers, why it failed, or why the system decided to not make any changes to the number of workers.+    description :: (Core.Maybe StructuredMessage),+    -- | The type of autoscaling event to report.+    eventType :: (Core.Maybe AutoscalingEvent_EventType),+    -- | The target number of workers the worker pool wants to resize to use.+    targetNumWorkers :: (Core.Maybe Core.Int64),+    -- | The time this event was emitted to indicate a new target or current num_workers value.+    time :: (Core.Maybe Core.DateTime),+    -- | A short and friendly name for the worker pool this event refers to.+    workerPool :: (Core.Maybe Core.Text)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'AutoscalingEvent' with the minimum fields required to make a request.+newAutoscalingEvent ::+  AutoscalingEvent+newAutoscalingEvent =+  AutoscalingEvent+    { currentNumWorkers = Core.Nothing,+      description = Core.Nothing,+      eventType = Core.Nothing,+      targetNumWorkers = Core.Nothing,+      time = Core.Nothing,+      workerPool = Core.Nothing+    }++instance Core.FromJSON AutoscalingEvent where+  parseJSON =+    Core.withObject+      "AutoscalingEvent"+      ( \o ->+          AutoscalingEvent+            Core.<$> (o Core..:? "currentNumWorkers" Core.<&> Core.fmap Core.fromAsText)+            Core.<*> (o Core..:? "description")+            Core.<*> (o Core..:? "eventType")+            Core.<*> (o Core..:? "targetNumWorkers" Core.<&> Core.fmap Core.fromAsText)+            Core.<*> (o Core..:? "time")+            Core.<*> (o Core..:? "workerPool")+      )++instance Core.ToJSON AutoscalingEvent where+  toJSON AutoscalingEvent {..} =+    Core.object+      ( Core.catMaybes+          [ ("currentNumWorkers" Core..=)+              Core.. Core.AsText+              Core.<$> currentNumWorkers,+            ("description" Core..=) Core.<$> description,+            ("eventType" Core..=) Core.<$> eventType,+            ("targetNumWorkers" Core..=)+              Core.. Core.AsText+              Core.<$> targetNumWorkers,+            ("time" Core..=) Core.<$> time,+            ("workerPool" Core..=) Core.<$> workerPool+          ]+      )++-- | Settings for WorkerPool autoscaling.+--+-- /See:/ 'newAutoscalingSettings' smart constructor.+data AutoscalingSettings = AutoscalingSettings+  { -- | The algorithm to use for autoscaling.+    algorithm :: (Core.Maybe AutoscalingSettings_Algorithm),+    -- | The maximum number of workers to cap scaling at.+    maxNumWorkers :: (Core.Maybe Core.Int32)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'AutoscalingSettings' with the minimum fields required to make a request.+newAutoscalingSettings ::+  AutoscalingSettings+newAutoscalingSettings =+  AutoscalingSettings+    { algorithm = Core.Nothing,+      maxNumWorkers = Core.Nothing+    }++instance Core.FromJSON AutoscalingSettings where+  parseJSON =+    Core.withObject+      "AutoscalingSettings"+      ( \o ->+          AutoscalingSettings+            Core.<$> (o Core..:? "algorithm")+            Core.<*> (o Core..:? "maxNumWorkers")+      )++instance Core.ToJSON AutoscalingSettings where+  toJSON AutoscalingSettings {..} =+    Core.object+      ( Core.catMaybes+          [ ("algorithm" Core..=) Core.<$> algorithm,+            ("maxNumWorkers" Core..=) Core.<$> maxNumWorkers+          ]+      )++-- | Exponential buckets where the growth factor between buckets is @2**(2**-scale)@. e.g. for @scale=1@ growth factor is @2**(2**(-1))=sqrt(2)@. @n@ buckets will have the following boundaries. - 0th: [0, gf) - i in [1, n-1]: [gf^(i), gf^(i+1))+--+-- /See:/ 'newBase2Exponent' smart constructor.+data Base2Exponent = Base2Exponent+  { -- | Must be greater than 0.+    numberOfBuckets :: (Core.Maybe Core.Int32),+    -- | Must be between -3 and 3. This forces the growth factor of the bucket boundaries to be between @2^(1\/8)@ and @256@.+    scale :: (Core.Maybe Core.Int32)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'Base2Exponent' with the minimum fields required to make a request.+newBase2Exponent ::+  Base2Exponent+newBase2Exponent =+  Base2Exponent+    { numberOfBuckets = Core.Nothing,+      scale = Core.Nothing+    }++instance Core.FromJSON Base2Exponent where+  parseJSON =+    Core.withObject+      "Base2Exponent"+      ( \o ->+          Base2Exponent+            Core.<$> (o Core..:? "numberOfBuckets")+            Core.<*> (o Core..:? "scale")+      )++instance Core.ToJSON Base2Exponent where+  toJSON Base2Exponent {..} =+    Core.object+      ( Core.catMaybes+          [ ("numberOfBuckets" Core..=) Core.<$> numberOfBuckets,+            ("scale" Core..=) Core.<$> scale+          ]+      )++-- | Metadata for a BigQuery connector used by the job.+--+-- /See:/ 'newBigQueryIODetails' smart constructor.+data BigQueryIODetails = BigQueryIODetails+  { -- | Dataset accessed in the connection.+    dataset :: (Core.Maybe Core.Text),+    -- | Project accessed in the connection.+    projectId :: (Core.Maybe Core.Text),+    -- | Query used to access data in the connection.+    query :: (Core.Maybe Core.Text),+    -- | Table accessed in the connection.+    table :: (Core.Maybe Core.Text)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'BigQueryIODetails' with the minimum fields required to make a request.+newBigQueryIODetails ::+  BigQueryIODetails+newBigQueryIODetails =+  BigQueryIODetails+    { dataset = Core.Nothing,+      projectId = Core.Nothing,+      query = Core.Nothing,+      table = Core.Nothing+    }++instance Core.FromJSON BigQueryIODetails where+  parseJSON =+    Core.withObject+      "BigQueryIODetails"+      ( \o ->+          BigQueryIODetails+            Core.<$> (o Core..:? "dataset")+            Core.<*> (o Core..:? "projectId")+            Core.<*> (o Core..:? "query")+            Core.<*> (o Core..:? "table")+      )++instance Core.ToJSON BigQueryIODetails where+  toJSON BigQueryIODetails {..} =+    Core.object+      ( Core.catMaybes+          [ ("dataset" Core..=) Core.<$> dataset,+            ("projectId" Core..=) Core.<$> projectId,+            ("query" Core..=) Core.<$> query,+            ("table" Core..=) Core.<$> table+          ]+      )++-- | Metadata for a Cloud Bigtable connector used by the job.+--+-- /See:/ 'newBigTableIODetails' smart constructor.+data BigTableIODetails = BigTableIODetails+  { -- | InstanceId accessed in the connection.+    instanceId :: (Core.Maybe Core.Text),+    -- | ProjectId accessed in the connection.+    projectId :: (Core.Maybe Core.Text),+    -- | TableId accessed in the connection.+    tableId :: (Core.Maybe Core.Text)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'BigTableIODetails' with the minimum fields required to make a request.+newBigTableIODetails ::+  BigTableIODetails+newBigTableIODetails =+  BigTableIODetails+    { instanceId = Core.Nothing,+      projectId = Core.Nothing,+      tableId = Core.Nothing+    }++instance Core.FromJSON BigTableIODetails where+  parseJSON =+    Core.withObject+      "BigTableIODetails"+      ( \o ->+          BigTableIODetails+            Core.<$> (o Core..:? "instanceId")+            Core.<*> (o Core..:? "projectId")+            Core.<*> (o Core..:? "tableId")+      )++instance Core.ToJSON BigTableIODetails where+  toJSON BigTableIODetails {..} =+    Core.object+      ( Core.catMaybes+          [ ("instanceId" Core..=) Core.<$> instanceId,+            ("projectId" Core..=) Core.<$> projectId,+            ("tableId" Core..=) Core.<$> tableId+          ]+      )++-- | The message type used for encoding metrics of type bounded trie.+--+-- /See:/ 'newBoundedTrie' smart constructor.+data BoundedTrie = BoundedTrie+  { -- | The maximum number of elements to store before truncation.+    bound :: (Core.Maybe Core.Int32),+    -- | A compact representation of all the elements in this trie.+    root :: (Core.Maybe BoundedTrieNode),+    -- | A more efficient representation for metrics consisting of a single value.+    singleton :: (Core.Maybe [Core.Text])+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'BoundedTrie' with the minimum fields required to make a request.+newBoundedTrie ::+  BoundedTrie+newBoundedTrie =+  BoundedTrie+    { bound = Core.Nothing,+      root = Core.Nothing,+      singleton = Core.Nothing+    }++instance Core.FromJSON BoundedTrie where+  parseJSON =+    Core.withObject+      "BoundedTrie"+      ( \o ->+          BoundedTrie+            Core.<$> (o Core..:? "bound")+            Core.<*> (o Core..:? "root")+            Core.<*> (o Core..:? "singleton")+      )++instance Core.ToJSON BoundedTrie where+  toJSON BoundedTrie {..} =+    Core.object+      ( Core.catMaybes+          [ ("bound" Core..=) Core.<$> bound,+            ("root" Core..=) Core.<$> root,+            ("singleton" Core..=) Core.<$> singleton+          ]+      )++-- | A single node in a BoundedTrie.+--+-- /See:/ 'newBoundedTrieNode' smart constructor.+data BoundedTrieNode = BoundedTrieNode+  { -- | Children of this node. Must be empty if truncated is true.+    children :: (Core.Maybe BoundedTrieNode_Children),+    -- | Whether this node has been truncated. A truncated leaf represents possibly many children with the same prefix.+    truncated :: (Core.Maybe Core.Bool)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'BoundedTrieNode' with the minimum fields required to make a request.+newBoundedTrieNode ::+  BoundedTrieNode+newBoundedTrieNode =+  BoundedTrieNode+    { children = Core.Nothing,+      truncated = Core.Nothing+    }++instance Core.FromJSON BoundedTrieNode where+  parseJSON =+    Core.withObject+      "BoundedTrieNode"+      ( \o ->+          BoundedTrieNode+            Core.<$> (o Core..:? "children")+            Core.<*> (o Core..:? "truncated")+      )++instance Core.ToJSON BoundedTrieNode where+  toJSON BoundedTrieNode {..} =+    Core.object+      ( Core.catMaybes+          [ ("children" Core..=) Core.<$> children,+            ("truncated" Core..=) Core.<$> truncated+          ]+      )++-- | Children of this node. Must be empty if truncated is true.+--+-- /See:/ 'newBoundedTrieNode_Children' smart constructor.+newtype BoundedTrieNode_Children = BoundedTrieNode_Children+  { additional :: (Core.HashMap Core.Text BoundedTrieNode)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'BoundedTrieNode_Children' with the minimum fields required to make a request.+newBoundedTrieNode_Children ::+  -- |  See 'additional'.+  Core.HashMap Core.Text BoundedTrieNode ->+  BoundedTrieNode_Children+newBoundedTrieNode_Children additional =+  BoundedTrieNode_Children {additional = additional}++instance Core.FromJSON BoundedTrieNode_Children where+  parseJSON =+    Core.withObject+      "BoundedTrieNode_Children"+      (\o -> BoundedTrieNode_Children Core.<$> (Core.parseJSONObject o))++instance Core.ToJSON BoundedTrieNode_Children where+  toJSON BoundedTrieNode_Children {..} = Core.toJSON additional++-- | @BucketOptions@ describes the bucket boundaries used in the histogram.+--+-- /See:/ 'newBucketOptions' smart constructor.+data BucketOptions = BucketOptions+  { -- | Bucket boundaries grow exponentially.+    exponential :: (Core.Maybe Base2Exponent),+    -- | Bucket boundaries grow linearly.+    linear :: (Core.Maybe Linear)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'BucketOptions' with the minimum fields required to make a request.+newBucketOptions ::+  BucketOptions+newBucketOptions =+  BucketOptions {exponential = Core.Nothing, linear = Core.Nothing}++instance Core.FromJSON BucketOptions where+  parseJSON =+    Core.withObject+      "BucketOptions"+      ( \o ->+          BucketOptions+            Core.<$> (o Core..:? "exponential")+            Core.<*> (o Core..:? "linear")+      )++instance Core.ToJSON BucketOptions where+  toJSON BucketOptions {..} =+    Core.object+      ( Core.catMaybes+          [ ("exponential" Core..=) Core.<$> exponential,+            ("linear" Core..=) Core.<$> linear+          ]+      )++-- | Modeled after information exposed by \/proc\/stat.+--+-- /See:/ 'newCPUTime' smart constructor.+data CPUTime = CPUTime+  { -- | Average CPU utilization rate (% non-idle cpu \/ second) since previous sample.+    rate :: (Core.Maybe Core.Double),+    -- | Timestamp of the measurement.+    timestamp :: (Core.Maybe Core.DateTime),+    -- | Total active CPU time across all cores (ie., non-idle) in milliseconds since start-up.+    totalMs :: (Core.Maybe Core.Word64)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'CPUTime' with the minimum fields required to make a request.+newCPUTime ::+  CPUTime+newCPUTime =+  CPUTime+    { rate = Core.Nothing,+      timestamp = Core.Nothing,+      totalMs = Core.Nothing+    }++instance Core.FromJSON CPUTime where+  parseJSON =+    Core.withObject+      "CPUTime"+      ( \o ->+          CPUTime+            Core.<$> (o Core..:? "rate")+            Core.<*> (o Core..:? "timestamp")+            Core.<*> (o Core..:? "totalMs" Core.<&> Core.fmap Core.fromAsText)+      )++instance Core.ToJSON CPUTime where+  toJSON CPUTime {..} =+    Core.object+      ( Core.catMaybes+          [ ("rate" Core..=) Core.<$> rate,+            ("timestamp" Core..=) Core.<$> timestamp,+            ("totalMs" Core..=) Core.. Core.AsText Core.<$> totalMs+          ]+      )++-- | Description of an interstitial value between transforms in an execution stage.+--+-- /See:/ 'newComponentSource' smart constructor.+data ComponentSource = ComponentSource+  { -- | Dataflow service generated name for this source.+    name :: (Core.Maybe Core.Text),+    -- | User name for the original user transform or collection with which this source is most closely associated.+    originalTransformOrCollection :: (Core.Maybe Core.Text),+    -- | Human-readable name for this transform; may be user or system generated.+    userName :: (Core.Maybe Core.Text)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'ComponentSource' with the minimum fields required to make a request.+newComponentSource ::+  ComponentSource+newComponentSource =+  ComponentSource+    { name = Core.Nothing,+      originalTransformOrCollection = Core.Nothing,+      userName = Core.Nothing+    }++instance Core.FromJSON ComponentSource where+  parseJSON =+    Core.withObject+      "ComponentSource"+      ( \o ->+          ComponentSource+            Core.<$> (o Core..:? "name")+            Core.<*> (o Core..:? "originalTransformOrCollection")+            Core.<*> (o Core..:? "userName")+      )++instance Core.ToJSON ComponentSource where+  toJSON ComponentSource {..} =+    Core.object+      ( Core.catMaybes+          [ ("name" Core..=) Core.<$> name,+            ("originalTransformOrCollection" Core..=)+              Core.<$> originalTransformOrCollection,+            ("userName" Core..=) Core.<$> userName+          ]+      )++-- | Description of a transform executed as part of an execution stage.+--+-- /See:/ 'newComponentTransform' smart constructor.+data ComponentTransform = ComponentTransform+  { -- | Dataflow service generated name for this source.+    name :: (Core.Maybe Core.Text),+    -- | User name for the original user transform with which this transform is most closely associated.+    originalTransform :: (Core.Maybe Core.Text),+    -- | Human-readable name for this transform; may be user or system generated.+    userName :: (Core.Maybe Core.Text)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'ComponentTransform' with the minimum fields required to make a request.+newComponentTransform ::+  ComponentTransform+newComponentTransform =+  ComponentTransform+    { name = Core.Nothing,+      originalTransform = Core.Nothing,+      userName = Core.Nothing+    }++instance Core.FromJSON ComponentTransform where+  parseJSON =+    Core.withObject+      "ComponentTransform"+      ( \o ->+          ComponentTransform+            Core.<$> (o Core..:? "name")+            Core.<*> (o Core..:? "originalTransform")+            Core.<*> (o Core..:? "userName")+      )++instance Core.ToJSON ComponentTransform where+  toJSON ComponentTransform {..} =+    Core.object+      ( Core.catMaybes+          [ ("name" Core..=) Core.<$> name,+            ("originalTransform" Core..=) Core.<$> originalTransform,+            ("userName" Core..=) Core.<$> userName+          ]+      )++-- | All configuration data for a particular Computation.+--+-- /See:/ 'newComputationTopology' smart constructor.+data ComputationTopology = ComputationTopology+  { -- | The ID of the computation.+    computationId :: (Core.Maybe Core.Text),+    -- | The inputs to the computation.+    inputs :: (Core.Maybe [StreamLocation]),+    -- | The key ranges processed by the computation.+    keyRanges :: (Core.Maybe [KeyRangeLocation]),+    -- | The outputs from the computation.+    outputs :: (Core.Maybe [StreamLocation]),+    -- | The state family values.+    stateFamilies :: (Core.Maybe [StateFamilyConfig]),+    -- | The system stage name.+    systemStageName :: (Core.Maybe Core.Text)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'ComputationTopology' with the minimum fields required to make a request.+newComputationTopology ::+  ComputationTopology+newComputationTopology =+  ComputationTopology+    { computationId = Core.Nothing,+      inputs = Core.Nothing,+      keyRanges = Core.Nothing,+      outputs = Core.Nothing,+      stateFamilies = Core.Nothing,+      systemStageName = Core.Nothing+    }++instance Core.FromJSON ComputationTopology where+  parseJSON =+    Core.withObject+      "ComputationTopology"+      ( \o ->+          ComputationTopology+            Core.<$> (o Core..:? "computationId")+            Core.<*> (o Core..:? "inputs")+            Core.<*> (o Core..:? "keyRanges")+            Core.<*> (o Core..:? "outputs")+            Core.<*> (o Core..:? "stateFamilies")+            Core.<*> (o Core..:? "systemStageName")+      )++instance Core.ToJSON ComputationTopology where+  toJSON ComputationTopology {..} =+    Core.object+      ( Core.catMaybes+          [ ("computationId" Core..=) Core.<$> computationId,+            ("inputs" Core..=) Core.<$> inputs,+            ("keyRanges" Core..=) Core.<$> keyRanges,+            ("outputs" Core..=) Core.<$> outputs,+            ("stateFamilies" Core..=) Core.<$> stateFamilies,+            ("systemStageName" Core..=) Core.<$> systemStageName+          ]+      )++-- | A position that encapsulates an inner position and an index for the inner position. A ConcatPosition can be used by a reader of a source that encapsulates a set of other sources.+--+-- /See:/ 'newConcatPosition' smart constructor.+data ConcatPosition = ConcatPosition+  { -- | Index of the inner source.+    index :: (Core.Maybe Core.Int32),+    -- | Position within the inner source.+    position :: (Core.Maybe Position)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'ConcatPosition' with the minimum fields required to make a request.+newConcatPosition ::+  ConcatPosition+newConcatPosition =+  ConcatPosition {index = Core.Nothing, position = Core.Nothing}++instance Core.FromJSON ConcatPosition where+  parseJSON =+    Core.withObject+      "ConcatPosition"+      ( \o ->+          ConcatPosition+            Core.<$> (o Core..:? "index")+            Core.<*> (o Core..:? "position")+      )++instance Core.ToJSON ConcatPosition where+  toJSON ConcatPosition {..} =+    Core.object+      ( Core.catMaybes+          [ ("index" Core..=) Core.<$> index,+            ("position" Core..=) Core.<$> position+          ]+      )++-- | Container Spec.+--+-- /See:/ 'newContainerSpec' smart constructor.+data ContainerSpec = ContainerSpec+  { -- | Default runtime environment for the job.+    defaultEnvironment :: (Core.Maybe FlexTemplateRuntimeEnvironment),+    -- | Name of the docker container image. E.g., gcr.io\/project\/some-image+    image :: (Core.Maybe Core.Text),+    -- | Cloud Storage path to self-signed certificate of private registry.+    imageRepositoryCertPath :: (Core.Maybe Core.Text),+    -- | Secret Manager secret id for password to authenticate to private registry.+    imageRepositoryPasswordSecretId :: (Core.Maybe Core.Text),+    -- | Secret Manager secret id for username to authenticate to private registry.+    imageRepositoryUsernameSecretId :: (Core.Maybe Core.Text),+    -- | Metadata describing a template including description and validation rules.+    metadata :: (Core.Maybe TemplateMetadata),+    -- | Required. SDK info of the Flex Template.+    sdkInfo :: (Core.Maybe SDKInfo)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'ContainerSpec' with the minimum fields required to make a request.+newContainerSpec ::+  ContainerSpec+newContainerSpec =+  ContainerSpec+    { defaultEnvironment = Core.Nothing,+      image = Core.Nothing,+      imageRepositoryCertPath = Core.Nothing,+      imageRepositoryPasswordSecretId = Core.Nothing,+      imageRepositoryUsernameSecretId = Core.Nothing,+      metadata = Core.Nothing,+      sdkInfo = Core.Nothing+    }++instance Core.FromJSON ContainerSpec where+  parseJSON =+    Core.withObject+      "ContainerSpec"+      ( \o ->+          ContainerSpec+            Core.<$> (o Core..:? "defaultEnvironment")+            Core.<*> (o Core..:? "image")+            Core.<*> (o Core..:? "imageRepositoryCertPath")+            Core.<*> (o Core..:? "imageRepositoryPasswordSecretId")+            Core.<*> (o Core..:? "imageRepositoryUsernameSecretId")+            Core.<*> (o Core..:? "metadata")+            Core.<*> (o Core..:? "sdkInfo")+      )++instance Core.ToJSON ContainerSpec where+  toJSON ContainerSpec {..} =+    Core.object+      ( Core.catMaybes+          [ ("defaultEnvironment" Core..=) Core.<$> defaultEnvironment,+            ("image" Core..=) Core.<$> image,+            ("imageRepositoryCertPath" Core..=)+              Core.<$> imageRepositoryCertPath,+            ("imageRepositoryPasswordSecretId" Core..=)+              Core.<$> imageRepositoryPasswordSecretId,+            ("imageRepositoryUsernameSecretId" Core..=)+              Core.<$> imageRepositoryUsernameSecretId,+            ("metadata" Core..=) Core.<$> metadata,+            ("sdkInfo" Core..=) Core.<$> sdkInfo+          ]+      )++-- | CounterMetadata includes all static non-name non-value counter attributes.+--+-- /See:/ 'newCounterMetadata' smart constructor.+data CounterMetadata = CounterMetadata+  { -- | Human-readable description of the counter semantics.+    description :: (Core.Maybe Core.Text),+    -- | Counter aggregation kind.+    kind :: (Core.Maybe CounterMetadata_Kind),+    -- | A string referring to the unit type.+    otherUnits :: (Core.Maybe Core.Text),+    -- | System defined Units, see above enum.+    standardUnits :: (Core.Maybe CounterMetadata_StandardUnits)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'CounterMetadata' with the minimum fields required to make a request.+newCounterMetadata ::+  CounterMetadata+newCounterMetadata =+  CounterMetadata+    { description = Core.Nothing,+      kind = Core.Nothing,+      otherUnits = Core.Nothing,+      standardUnits = Core.Nothing+    }++instance Core.FromJSON CounterMetadata where+  parseJSON =+    Core.withObject+      "CounterMetadata"+      ( \o ->+          CounterMetadata+            Core.<$> (o Core..:? "description")+            Core.<*> (o Core..:? "kind")+            Core.<*> (o Core..:? "otherUnits")+            Core.<*> (o Core..:? "standardUnits")+      )++instance Core.ToJSON CounterMetadata where+  toJSON CounterMetadata {..} =+    Core.object+      ( Core.catMaybes+          [ ("description" Core..=) Core.<$> description,+            ("kind" Core..=) Core.<$> kind,+            ("otherUnits" Core..=) Core.<$> otherUnits,+            ("standardUnits" Core..=) Core.<$> standardUnits+          ]+      )++-- | Identifies a counter within a per-job namespace. Counters whose structured names are the same get merged into a single value for the job.+--+-- /See:/ 'newCounterStructuredName' smart constructor.+data CounterStructuredName = CounterStructuredName+  { -- | Name of the optimized step being executed by the workers.+    componentStepName :: (Core.Maybe Core.Text),+    -- | Name of the stage. An execution step contains multiple component steps.+    executionStepName :: (Core.Maybe Core.Text),+    -- | Index of an input collection that\'s being read from\/written to as a side input. The index identifies a step\'s side inputs starting by 1 (e.g. the first side input has input/index 1, the third has input/index 3). Side inputs are identified by a pair of (original/step/name, input_index). This field helps uniquely identify them.+    inputIndex :: (Core.Maybe Core.Int32),+    -- | Counter name. Not necessarily globally-unique, but unique within the context of the other fields. Required.+    name :: (Core.Maybe Core.Text),+    -- | One of the standard Origins defined above.+    origin :: (Core.Maybe CounterStructuredName_Origin),+    -- | A string containing a more specific namespace of the counter\'s origin.+    originNamespace :: (Core.Maybe Core.Text),+    -- | The step name requesting an operation, such as GBK. I.e. the ParDo causing a read\/write from shuffle to occur, or a read from side inputs.+    originalRequestingStepName :: (Core.Maybe Core.Text),+    -- | System generated name of the original step in the user\'s graph, before optimization.+    originalStepName :: (Core.Maybe Core.Text),+    -- | Portion of this counter, either key or value.+    portion :: (Core.Maybe CounterStructuredName_Portion),+    -- | ID of a particular worker.+    workerId :: (Core.Maybe Core.Text)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'CounterStructuredName' with the minimum fields required to make a request.+newCounterStructuredName ::+  CounterStructuredName+newCounterStructuredName =+  CounterStructuredName+    { componentStepName = Core.Nothing,+      executionStepName = Core.Nothing,+      inputIndex = Core.Nothing,+      name = Core.Nothing,+      origin = Core.Nothing,+      originNamespace = Core.Nothing,+      originalRequestingStepName = Core.Nothing,+      originalStepName = Core.Nothing,+      portion = Core.Nothing,+      workerId = Core.Nothing+    }++instance Core.FromJSON CounterStructuredName where+  parseJSON =+    Core.withObject+      "CounterStructuredName"+      ( \o ->+          CounterStructuredName+            Core.<$> (o Core..:? "componentStepName")+            Core.<*> (o Core..:? "executionStepName")+            Core.<*> (o Core..:? "inputIndex")+            Core.<*> (o Core..:? "name")+            Core.<*> (o Core..:? "origin")+            Core.<*> (o Core..:? "originNamespace")+            Core.<*> (o Core..:? "originalRequestingStepName")+            Core.<*> (o Core..:? "originalStepName")+            Core.<*> (o Core..:? "portion")+            Core.<*> (o Core..:? "workerId")+      )++instance Core.ToJSON CounterStructuredName where+  toJSON CounterStructuredName {..} =+    Core.object+      ( Core.catMaybes+          [ ("componentStepName" Core..=) Core.<$> componentStepName,+            ("executionStepName" Core..=) Core.<$> executionStepName,+            ("inputIndex" Core..=) Core.<$> inputIndex,+            ("name" Core..=) Core.<$> name,+            ("origin" Core..=) Core.<$> origin,+            ("originNamespace" Core..=) Core.<$> originNamespace,+            ("originalRequestingStepName" Core..=)+              Core.<$> originalRequestingStepName,+            ("originalStepName" Core..=) Core.<$> originalStepName,+            ("portion" Core..=) Core.<$> portion,+            ("workerId" Core..=) Core.<$> workerId+          ]+      )++-- | A single message which encapsulates structured name and metadata for a given counter.+--+-- /See:/ 'newCounterStructuredNameAndMetadata' smart constructor.+data CounterStructuredNameAndMetadata = CounterStructuredNameAndMetadata+  { -- | Metadata associated with a counter+    metadata :: (Core.Maybe CounterMetadata),+    -- | Structured name of the counter.+    name :: (Core.Maybe CounterStructuredName)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'CounterStructuredNameAndMetadata' with the minimum fields required to make a request.+newCounterStructuredNameAndMetadata ::+  CounterStructuredNameAndMetadata+newCounterStructuredNameAndMetadata =+  CounterStructuredNameAndMetadata+    { metadata = Core.Nothing,+      name = Core.Nothing+    }++instance Core.FromJSON CounterStructuredNameAndMetadata where+  parseJSON =+    Core.withObject+      "CounterStructuredNameAndMetadata"+      ( \o ->+          CounterStructuredNameAndMetadata+            Core.<$> (o Core..:? "metadata")+            Core.<*> (o Core..:? "name")+      )++instance Core.ToJSON CounterStructuredNameAndMetadata where+  toJSON CounterStructuredNameAndMetadata {..} =+    Core.object+      ( Core.catMaybes+          [ ("metadata" Core..=) Core.<$> metadata,+            ("name" Core..=) Core.<$> name+          ]+      )++-- | An update to a Counter sent from a worker. Next ID: 17+--+-- /See:/ 'newCounterUpdate' smart constructor.+data CounterUpdate = CounterUpdate+  { -- | Boolean value for And, Or.+    boolean :: (Core.Maybe Core.Bool),+    -- | Bounded trie data+    boundedTrie :: (Core.Maybe BoundedTrie),+    -- | True if this counter is reported as the total cumulative aggregate value accumulated since the worker started working on this WorkItem. By default this is false, indicating that this counter is reported as a delta.+    cumulative :: (Core.Maybe Core.Bool),+    -- | Distribution data+    distribution :: (Core.Maybe DistributionUpdate),+    -- | Floating point value for Sum, Max, Min.+    floatingPoint :: (Core.Maybe Core.Double),+    -- | List of floating point numbers, for Set.+    floatingPointList :: (Core.Maybe FloatingPointList),+    -- | Floating point mean aggregation value for Mean.+    floatingPointMean :: (Core.Maybe FloatingPointMean),+    -- | Integer value for Sum, Max, Min.+    integer :: (Core.Maybe SplitInt64),+    -- | Gauge data+    integerGauge :: (Core.Maybe IntegerGauge),+    -- | List of integers, for Set.+    integerList :: (Core.Maybe IntegerList),+    -- | Integer mean aggregation value for Mean.+    integerMean :: (Core.Maybe IntegerMean),+    -- | Value for internally-defined counters used by the Dataflow service.+    internal :: (Core.Maybe Core.Value),+    -- | Counter name and aggregation type.+    nameAndKind :: (Core.Maybe NameAndKind),+    -- | The service-generated short identifier for this counter. The short_id -> (name, metadata) mapping is constant for the lifetime of a job.+    shortId :: (Core.Maybe Core.Int64),+    -- | List of strings, for Set.+    stringList :: (Core.Maybe StringList),+    -- | Counter structured name and metadata.+    structuredNameAndMetadata :: (Core.Maybe CounterStructuredNameAndMetadata)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'CounterUpdate' with the minimum fields required to make a request.+newCounterUpdate ::+  CounterUpdate+newCounterUpdate =+  CounterUpdate+    { boolean = Core.Nothing,+      boundedTrie = Core.Nothing,+      cumulative = Core.Nothing,+      distribution = Core.Nothing,+      floatingPoint = Core.Nothing,+      floatingPointList = Core.Nothing,+      floatingPointMean = Core.Nothing,+      integer = Core.Nothing,+      integerGauge = Core.Nothing,+      integerList = Core.Nothing,+      integerMean = Core.Nothing,+      internal = Core.Nothing,+      nameAndKind = Core.Nothing,+      shortId = Core.Nothing,+      stringList = Core.Nothing,+      structuredNameAndMetadata = Core.Nothing+    }++instance Core.FromJSON CounterUpdate where+  parseJSON =+    Core.withObject+      "CounterUpdate"+      ( \o ->+          CounterUpdate+            Core.<$> (o Core..:? "boolean")+            Core.<*> (o Core..:? "boundedTrie")+            Core.<*> (o Core..:? "cumulative")+            Core.<*> (o Core..:? "distribution")+            Core.<*> (o Core..:? "floatingPoint")+            Core.<*> (o Core..:? "floatingPointList")+            Core.<*> (o Core..:? "floatingPointMean")+            Core.<*> (o Core..:? "integer")+            Core.<*> (o Core..:? "integerGauge")+            Core.<*> (o Core..:? "integerList")+            Core.<*> (o Core..:? "integerMean")+            Core.<*> (o Core..:? "internal")+            Core.<*> (o Core..:? "nameAndKind")+            Core.<*> (o Core..:? "shortId" Core.<&> Core.fmap Core.fromAsText)+            Core.<*> (o Core..:? "stringList")+            Core.<*> (o Core..:? "structuredNameAndMetadata")+      )++instance Core.ToJSON CounterUpdate where+  toJSON CounterUpdate {..} =+    Core.object+      ( Core.catMaybes+          [ ("boolean" Core..=) Core.<$> boolean,+            ("boundedTrie" Core..=) Core.<$> boundedTrie,+            ("cumulative" Core..=) Core.<$> cumulative,+            ("distribution" Core..=) Core.<$> distribution,+            ("floatingPoint" Core..=) Core.<$> floatingPoint,+            ("floatingPointList" Core..=) Core.<$> floatingPointList,+            ("floatingPointMean" Core..=) Core.<$> floatingPointMean,+            ("integer" Core..=) Core.<$> integer,+            ("integerGauge" Core..=) Core.<$> integerGauge,+            ("integerList" Core..=) Core.<$> integerList,+            ("integerMean" Core..=) Core.<$> integerMean,+            ("internal" Core..=) Core.<$> internal,+            ("nameAndKind" Core..=) Core.<$> nameAndKind,+            ("shortId" Core..=) Core.. Core.AsText Core.<$> shortId,+            ("stringList" Core..=) Core.<$> stringList,+            ("structuredNameAndMetadata" Core..=)+              Core.<$> structuredNameAndMetadata+          ]+      )++-- | A request to create a Cloud Dataflow job from a template.+--+-- /See:/ 'newCreateJobFromTemplateRequest' smart constructor.+data CreateJobFromTemplateRequest = CreateJobFromTemplateRequest+  { -- | The runtime environment for the job.+    environment :: (Core.Maybe RuntimeEnvironment),+    -- | Required. A Cloud Storage path to the template from which to create the job. Must be a valid Cloud Storage URL, beginning with @gs:\/\/@.+    gcsPath :: (Core.Maybe Core.Text),+    -- | Required. The job name to use for the created job.+    jobName :: (Core.Maybe Core.Text),+    -- | The [regional endpoint] (https:\/\/cloud.google.com\/dataflow\/docs\/concepts\/regional-endpoints) to which to direct the request.+    location :: (Core.Maybe Core.Text),+    -- | The runtime parameters to pass to the job.+    parameters :: (Core.Maybe CreateJobFromTemplateRequest_Parameters)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'CreateJobFromTemplateRequest' with the minimum fields required to make a request.+newCreateJobFromTemplateRequest ::+  CreateJobFromTemplateRequest+newCreateJobFromTemplateRequest =+  CreateJobFromTemplateRequest+    { environment = Core.Nothing,+      gcsPath = Core.Nothing,+      jobName = Core.Nothing,+      location = Core.Nothing,+      parameters = Core.Nothing+    }++instance Core.FromJSON CreateJobFromTemplateRequest where+  parseJSON =+    Core.withObject+      "CreateJobFromTemplateRequest"+      ( \o ->+          CreateJobFromTemplateRequest+            Core.<$> (o Core..:? "environment")+            Core.<*> (o Core..:? "gcsPath")+            Core.<*> (o Core..:? "jobName")+            Core.<*> (o Core..:? "location")+            Core.<*> (o Core..:? "parameters")+      )++instance Core.ToJSON CreateJobFromTemplateRequest where+  toJSON CreateJobFromTemplateRequest {..} =+    Core.object+      ( Core.catMaybes+          [ ("environment" Core..=) Core.<$> environment,+            ("gcsPath" Core..=) Core.<$> gcsPath,+            ("jobName" Core..=) Core.<$> jobName,+            ("location" Core..=) Core.<$> location,+            ("parameters" Core..=) Core.<$> parameters+          ]+      )++-- | The runtime parameters to pass to the job.+--+-- /See:/ 'newCreateJobFromTemplateRequest_Parameters' smart constructor.+newtype CreateJobFromTemplateRequest_Parameters = CreateJobFromTemplateRequest_Parameters+  { additional :: (Core.HashMap Core.Text Core.Text)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'CreateJobFromTemplateRequest_Parameters' with the minimum fields required to make a request.+newCreateJobFromTemplateRequest_Parameters ::+  -- |  See 'additional'.+  Core.HashMap Core.Text Core.Text ->+  CreateJobFromTemplateRequest_Parameters+newCreateJobFromTemplateRequest_Parameters additional =+  CreateJobFromTemplateRequest_Parameters {additional = additional}++instance Core.FromJSON CreateJobFromTemplateRequest_Parameters where+  parseJSON =+    Core.withObject+      "CreateJobFromTemplateRequest_Parameters"+      ( \o ->+          CreateJobFromTemplateRequest_Parameters+            Core.<$> (Core.parseJSONObject o)+      )++instance Core.ToJSON CreateJobFromTemplateRequest_Parameters where+  toJSON CreateJobFromTemplateRequest_Parameters {..} =+    Core.toJSON additional++-- | Identifies the location of a custom souce.+--+-- /See:/ 'newCustomSourceLocation' smart constructor.+newtype CustomSourceLocation = CustomSourceLocation+  { -- | Whether this source is stateful.+    stateful :: (Core.Maybe Core.Bool)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'CustomSourceLocation' with the minimum fields required to make a request.+newCustomSourceLocation ::+  CustomSourceLocation+newCustomSourceLocation =+  CustomSourceLocation {stateful = Core.Nothing}++instance Core.FromJSON CustomSourceLocation where+  parseJSON =+    Core.withObject+      "CustomSourceLocation"+      (\o -> CustomSourceLocation Core.<$> (o Core..:? "stateful"))++instance Core.ToJSON CustomSourceLocation where+  toJSON CustomSourceLocation {..} =+    Core.object+      (Core.catMaybes [("stateful" Core..=) Core.<$> stateful])++-- | Data disk assignment for a given VM instance.+--+-- /See:/ 'newDataDiskAssignment' smart constructor.+data DataDiskAssignment = DataDiskAssignment+  { -- | Mounted data disks. The order is important a data disk\'s 0-based index in this list defines which persistent directory the disk is mounted to, for example the list of { \"myproject-1014-104817-4c2-harness-0-disk-0\" }, { \"myproject-1014-104817-4c2-harness-0-disk-1\" }.+    dataDisks :: (Core.Maybe [Core.Text]),+    -- | VM instance name the data disks mounted to, for example \"myproject-1014-104817-4c2-harness-0\".+    vmInstance :: (Core.Maybe Core.Text)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'DataDiskAssignment' with the minimum fields required to make a request.+newDataDiskAssignment ::+  DataDiskAssignment+newDataDiskAssignment =+  DataDiskAssignment+    { dataDisks = Core.Nothing,+      vmInstance = Core.Nothing+    }++instance Core.FromJSON DataDiskAssignment where+  parseJSON =+    Core.withObject+      "DataDiskAssignment"+      ( \o ->+          DataDiskAssignment+            Core.<$> (o Core..:? "dataDisks")+            Core.<*> (o Core..:? "vmInstance")+      )++instance Core.ToJSON DataDiskAssignment where+  toJSON DataDiskAssignment {..} =+    Core.object+      ( Core.catMaybes+          [ ("dataDisks" Core..=) Core.<$> dataDisks,+            ("vmInstance" Core..=) Core.<$> vmInstance+          ]+      )++-- | Configuration options for sampling elements.+--+-- /See:/ 'newDataSamplingConfig' smart constructor.+newtype DataSamplingConfig = DataSamplingConfig+  { -- | List of given sampling behaviors to enable. For example, specifying behaviors = [ALWAYS/ON] samples in-flight elements but does not sample exceptions. Can be used to specify multiple behaviors like, behaviors = [ALWAYS/ON, EXCEPTIONS] for specifying periodic sampling and exception sampling. If DISABLED is in the list, then sampling will be disabled and ignore the other given behaviors. Ordering does not matter.+    behaviors :: (Core.Maybe [DataSamplingConfig_BehaviorsItem])+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'DataSamplingConfig' with the minimum fields required to make a request.+newDataSamplingConfig ::+  DataSamplingConfig+newDataSamplingConfig =+  DataSamplingConfig {behaviors = Core.Nothing}++instance Core.FromJSON DataSamplingConfig where+  parseJSON =+    Core.withObject+      "DataSamplingConfig"+      (\o -> DataSamplingConfig Core.<$> (o Core..:? "behaviors"))++instance Core.ToJSON DataSamplingConfig where+  toJSON DataSamplingConfig {..} =+    Core.object+      (Core.catMaybes [("behaviors" Core..=) Core.<$> behaviors])++-- | Contains per-worker telemetry about the data sampling feature.+--+-- /See:/ 'newDataSamplingReport' smart constructor.+data DataSamplingReport = DataSamplingReport+  { -- | Optional. Delta of bytes written to file from previous report.+    bytesWrittenDelta :: (Core.Maybe Core.Int64),+    -- | Optional. Delta of bytes sampled from previous report.+    elementsSampledBytes :: (Core.Maybe Core.Int64),+    -- | Optional. Delta of number of elements sampled from previous report.+    elementsSampledCount :: (Core.Maybe Core.Int64),+    -- | Optional. Delta of number of samples taken from user code exceptions from previous report.+    exceptionsSampledCount :: (Core.Maybe Core.Int64),+    -- | Optional. Delta of number of PCollections sampled from previous report.+    pcollectionsSampledCount :: (Core.Maybe Core.Int64),+    -- | Optional. Delta of errors counts from persisting the samples from previous report.+    persistenceErrorsCount :: (Core.Maybe Core.Int64),+    -- | Optional. Delta of errors counts from retrieving, or translating the samples from previous report.+    translationErrorsCount :: (Core.Maybe Core.Int64)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'DataSamplingReport' with the minimum fields required to make a request.+newDataSamplingReport ::+  DataSamplingReport+newDataSamplingReport =+  DataSamplingReport+    { bytesWrittenDelta = Core.Nothing,+      elementsSampledBytes = Core.Nothing,+      elementsSampledCount = Core.Nothing,+      exceptionsSampledCount = Core.Nothing,+      pcollectionsSampledCount = Core.Nothing,+      persistenceErrorsCount = Core.Nothing,+      translationErrorsCount = Core.Nothing+    }++instance Core.FromJSON DataSamplingReport where+  parseJSON =+    Core.withObject+      "DataSamplingReport"+      ( \o ->+          DataSamplingReport+            Core.<$> (o Core..:? "bytesWrittenDelta" Core.<&> Core.fmap Core.fromAsText)+            Core.<*> ( o+                         Core..:? "elementsSampledBytes"+                         Core.<&> Core.fmap Core.fromAsText+                     )+            Core.<*> ( o+                         Core..:? "elementsSampledCount"+                         Core.<&> Core.fmap Core.fromAsText+                     )+            Core.<*> ( o+                         Core..:? "exceptionsSampledCount"+                         Core.<&> Core.fmap Core.fromAsText+                     )+            Core.<*> ( o+                         Core..:? "pcollectionsSampledCount"+                         Core.<&> Core.fmap Core.fromAsText+                     )+            Core.<*> ( o+                         Core..:? "persistenceErrorsCount"+                         Core.<&> Core.fmap Core.fromAsText+                     )+            Core.<*> ( o+                         Core..:? "translationErrorsCount"+                         Core.<&> Core.fmap Core.fromAsText+                     )+      )++instance Core.ToJSON DataSamplingReport where+  toJSON DataSamplingReport {..} =+    Core.object+      ( Core.catMaybes+          [ ("bytesWrittenDelta" Core..=)+              Core.. Core.AsText+              Core.<$> bytesWrittenDelta,+            ("elementsSampledBytes" Core..=)+              Core.. Core.AsText+              Core.<$> elementsSampledBytes,+            ("elementsSampledCount" Core..=)+              Core.. Core.AsText+              Core.<$> elementsSampledCount,+            ("exceptionsSampledCount" Core..=)+              Core.. Core.AsText+              Core.<$> exceptionsSampledCount,+            ("pcollectionsSampledCount" Core..=)+              Core.. Core.AsText+              Core.<$> pcollectionsSampledCount,+            ("persistenceErrorsCount" Core..=)+              Core.. Core.AsText+              Core.<$> persistenceErrorsCount,+            ("translationErrorsCount" Core..=)+              Core.. Core.AsText+              Core.<$> translationErrorsCount+          ]+      )++-- | The gauge value of a metric.+--+-- /See:/ 'newDataflowGaugeValue' smart constructor.+data DataflowGaugeValue = DataflowGaugeValue+  { -- | The timestamp when the gauge was recorded.+    measuredTime :: (Core.Maybe Core.DateTime),+    -- | The value of the gauge.+    value :: (Core.Maybe Core.Int64)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'DataflowGaugeValue' with the minimum fields required to make a request.+newDataflowGaugeValue ::+  DataflowGaugeValue+newDataflowGaugeValue =+  DataflowGaugeValue+    { measuredTime = Core.Nothing,+      value = Core.Nothing+    }++instance Core.FromJSON DataflowGaugeValue where+  parseJSON =+    Core.withObject+      "DataflowGaugeValue"+      ( \o ->+          DataflowGaugeValue+            Core.<$> (o Core..:? "measuredTime")+            Core.<*> (o Core..:? "value" Core.<&> Core.fmap Core.fromAsText)+      )++instance Core.ToJSON DataflowGaugeValue where+  toJSON DataflowGaugeValue {..} =+    Core.object+      ( Core.catMaybes+          [ ("measuredTime" Core..=) Core.<$> measuredTime,+            ("value" Core..=) Core.. Core.AsText Core.<$> value+          ]+      )++-- | Summary statistics for a population of values. HistogramValue contains a sequence of buckets and gives a count of values that fall into each bucket. Bucket boundares are defined by a formula and bucket widths are either fixed or exponentially increasing.+--+-- /See:/ 'newDataflowHistogramValue' smart constructor.+data DataflowHistogramValue = DataflowHistogramValue+  { -- | Optional. The number of values in each bucket of the histogram, as described in @bucket_options@. @bucket_counts@ should contain N values, where N is the number of buckets specified in @bucket_options@. If @bucket_counts@ has fewer than N values, the remaining values are assumed to be 0.+    bucketCounts :: (Core.Maybe [Core.Int64]),+    -- | Describes the bucket boundaries used in the histogram.+    bucketOptions :: (Core.Maybe BucketOptions),+    -- | Number of values recorded in this histogram.+    count :: (Core.Maybe Core.Int64),+    -- | Statistics on the values recorded in the histogram that fall out of the bucket boundaries.+    outlierStats :: (Core.Maybe OutlierStats)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'DataflowHistogramValue' with the minimum fields required to make a request.+newDataflowHistogramValue ::+  DataflowHistogramValue+newDataflowHistogramValue =+  DataflowHistogramValue+    { bucketCounts = Core.Nothing,+      bucketOptions = Core.Nothing,+      count = Core.Nothing,+      outlierStats = Core.Nothing+    }++instance Core.FromJSON DataflowHistogramValue where+  parseJSON =+    Core.withObject+      "DataflowHistogramValue"+      ( \o ->+          DataflowHistogramValue+            Core.<$> ( o+                         Core..:? "bucketCounts"+                         Core.<&> Core.fmap (Core.fmap Core.fromAsText)+                     )+            Core.<*> (o Core..:? "bucketOptions")+            Core.<*> (o Core..:? "count" Core.<&> Core.fmap Core.fromAsText)+            Core.<*> (o Core..:? "outlierStats")+      )++instance Core.ToJSON DataflowHistogramValue where+  toJSON DataflowHistogramValue {..} =+    Core.object+      ( Core.catMaybes+          [ ("bucketCounts" Core..=)+              Core.. Core.fmap Core.AsText+              Core.<$> bucketCounts,+            ("bucketOptions" Core..=) Core.<$> bucketOptions,+            ("count" Core..=) Core.. Core.AsText Core.<$> count,+            ("outlierStats" Core..=) Core.<$> outlierStats+          ]+      )++-- | Metadata for a Datastore connector used by the job.+--+-- /See:/ 'newDatastoreIODetails' smart constructor.+data DatastoreIODetails = DatastoreIODetails+  { -- | Namespace used in the connection.+    namespace :: (Core.Maybe Core.Text),+    -- | ProjectId accessed in the connection.+    projectId :: (Core.Maybe Core.Text)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'DatastoreIODetails' with the minimum fields required to make a request.+newDatastoreIODetails ::+  DatastoreIODetails+newDatastoreIODetails =+  DatastoreIODetails+    { namespace = Core.Nothing,+      projectId = Core.Nothing+    }++instance Core.FromJSON DatastoreIODetails where+  parseJSON =+    Core.withObject+      "DatastoreIODetails"+      ( \o ->+          DatastoreIODetails+            Core.<$> (o Core..:? "namespace")+            Core.<*> (o Core..:? "projectId")+      )++instance Core.ToJSON DatastoreIODetails where+  toJSON DatastoreIODetails {..} =+    Core.object+      ( Core.catMaybes+          [ ("namespace" Core..=) Core.<$> namespace,+            ("projectId" Core..=) Core.<$> projectId+          ]+      )++-- | Describes any options that have an effect on the debugging of pipelines.+--+-- /See:/ 'newDebugOptions' smart constructor.+data DebugOptions = DebugOptions+  { -- | Configuration options for sampling elements from a running pipeline.+    dataSampling :: (Core.Maybe DataSamplingConfig),+    -- | Optional. When true, enables the logging of the literal hot key to the user\'s Cloud Logging.+    enableHotKeyLogging :: (Core.Maybe Core.Bool)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'DebugOptions' with the minimum fields required to make a request.+newDebugOptions ::+  DebugOptions+newDebugOptions =+  DebugOptions+    { dataSampling = Core.Nothing,+      enableHotKeyLogging = Core.Nothing+    }++instance Core.FromJSON DebugOptions where+  parseJSON =+    Core.withObject+      "DebugOptions"+      ( \o ->+          DebugOptions+            Core.<$> (o Core..:? "dataSampling")+            Core.<*> (o Core..:? "enableHotKeyLogging")+      )++instance Core.ToJSON DebugOptions where+  toJSON DebugOptions {..} =+    Core.object+      ( Core.catMaybes+          [ ("dataSampling" Core..=) Core.<$> dataSampling,+            ("enableHotKeyLogging" Core..=) Core.<$> enableHotKeyLogging+          ]+      )++-- | Response from deleting a snapshot.+--+-- /See:/ 'newDeleteSnapshotResponse' smart constructor.+data DeleteSnapshotResponse = DeleteSnapshotResponse+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'DeleteSnapshotResponse' with the minimum fields required to make a request.+newDeleteSnapshotResponse ::+  DeleteSnapshotResponse+newDeleteSnapshotResponse = DeleteSnapshotResponse++instance Core.FromJSON DeleteSnapshotResponse where+  parseJSON =+    Core.withObject+      "DeleteSnapshotResponse"+      (\o -> Core.pure DeleteSnapshotResponse)++instance Core.ToJSON DeleteSnapshotResponse where+  toJSON = Core.const Core.emptyObject++-- | 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:/ 'newDerivedSource' smart constructor.+data DerivedSource = DerivedSource+  { -- | What source to base the produced source on (if any).+    derivationMode :: (Core.Maybe DerivedSource_DerivationMode),+    -- | Specification of the source.+    source :: (Core.Maybe Source)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'DerivedSource' with the minimum fields required to make a request.+newDerivedSource ::+  DerivedSource+newDerivedSource =+  DerivedSource+    { derivationMode = Core.Nothing,+      source = Core.Nothing+    }++instance Core.FromJSON DerivedSource where+  parseJSON =+    Core.withObject+      "DerivedSource"+      ( \o ->+          DerivedSource+            Core.<$> (o Core..:? "derivationMode")+            Core.<*> (o Core..:? "source")+      )++instance Core.ToJSON DerivedSource where+  toJSON DerivedSource {..} =+    Core.object+      ( Core.catMaybes+          [ ("derivationMode" Core..=) Core.<$> derivationMode,+            ("source" Core..=) Core.<$> source+          ]+      )++-- | Describes the data disk used by a workflow job.+--+-- /See:/ 'newDisk' smart constructor.+data Disk = Disk+  { -- | Disk storage type, as defined by Google Compute Engine. This must be a disk type appropriate to the project and zone in which the workers will run. If unknown or unspecified, the service will attempt to choose a reasonable default. For example, the standard persistent disk type is a resource name typically ending in \"pd-standard\". If SSD persistent disks are available, the resource name typically ends with \"pd-ssd\". The actual valid values are defined the Google Compute Engine API, not by the Cloud Dataflow API; consult the Google Compute Engine documentation for more information about determining the set of available disk types for a particular project and zone. Google Compute Engine Disk types are local to a particular project in a particular zone, and so the resource name will typically look something like this: compute.googleapis.com\/projects\/project-id\/zones\/zone\/diskTypes\/pd-standard+    diskType :: (Core.Maybe Core.Text),+    -- | Directory in a VM where disk is mounted.+    mountPoint :: (Core.Maybe Core.Text),+    -- | Size of disk in GB. If zero or unspecified, the service will attempt to choose a reasonable default.+    sizeGb :: (Core.Maybe Core.Int32)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'Disk' with the minimum fields required to make a request.+newDisk ::+  Disk+newDisk =+  Disk+    { diskType = Core.Nothing,+      mountPoint = Core.Nothing,+      sizeGb = Core.Nothing+    }++instance Core.FromJSON Disk where+  parseJSON =+    Core.withObject+      "Disk"+      ( \o ->+          Disk+            Core.<$> (o Core..:? "diskType")+            Core.<*> (o Core..:? "mountPoint")+            Core.<*> (o Core..:? "sizeGb")+      )++instance Core.ToJSON Disk where+  toJSON Disk {..} =+    Core.object+      ( Core.catMaybes+          [ ("diskType" Core..=) Core.<$> diskType,+            ("mountPoint" Core..=) Core.<$> mountPoint,+            ("sizeGb" Core..=) Core.<$> sizeGb+          ]+      )++-- | Data provided with a pipeline or transform to provide descriptive info.+--+-- /See:/ 'newDisplayData' smart constructor.+data DisplayData = DisplayData+  { -- | Contains value if the data is of a boolean type.+    boolValue :: (Core.Maybe Core.Bool),+    -- | Contains value if the data is of duration type.+    durationValue :: (Core.Maybe Core.Duration),+    -- | Contains value if the data is of float type.+    floatValue :: (Core.Maybe Core.Double),+    -- | Contains value if the data is of int64 type.+    int64Value :: (Core.Maybe Core.Int64),+    -- | Contains value if the data is of java class type.+    javaClassValue :: (Core.Maybe Core.Text),+    -- | The key identifying the display data. This is intended to be used as a label for the display data when viewed in a dax monitoring system.+    key :: (Core.Maybe Core.Text),+    -- | An optional label to display in a dax UI for the element.+    label :: (Core.Maybe Core.Text),+    -- | The namespace for the key. This is usually a class name or programming language namespace (i.e. python module) which defines the display data. This allows a dax monitoring system to specially handle the data and perform custom rendering.+    namespace :: (Core.Maybe Core.Text),+    -- | A possible additional shorter value to display. For example a java/class/name/value of com.mypackage.MyDoFn will be stored with MyDoFn as the short/str/value and com.mypackage.MyDoFn as the java/class/name value. short/str/value can be displayed and java/class/name/value will be displayed as a tooltip.+    shortStrValue :: (Core.Maybe Core.Text),+    -- | Contains value if the data is of string type.+    strValue :: (Core.Maybe Core.Text),+    -- | Contains value if the data is of timestamp type.+    timestampValue :: (Core.Maybe Core.DateTime),+    -- | An optional full URL.+    url :: (Core.Maybe Core.Text)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'DisplayData' with the minimum fields required to make a request.+newDisplayData ::+  DisplayData+newDisplayData =+  DisplayData+    { boolValue = Core.Nothing,+      durationValue = Core.Nothing,+      floatValue = Core.Nothing,+      int64Value = Core.Nothing,+      javaClassValue = Core.Nothing,+      key = Core.Nothing,+      label = Core.Nothing,+      namespace = Core.Nothing,+      shortStrValue = Core.Nothing,+      strValue = Core.Nothing,+      timestampValue = Core.Nothing,+      url = Core.Nothing+    }++instance Core.FromJSON DisplayData where+  parseJSON =+    Core.withObject+      "DisplayData"+      ( \o ->+          DisplayData+            Core.<$> (o Core..:? "boolValue")+            Core.<*> (o Core..:? "durationValue")+            Core.<*> (o Core..:? "floatValue")+            Core.<*> (o Core..:? "int64Value" Core.<&> Core.fmap Core.fromAsText)+            Core.<*> (o Core..:? "javaClassValue")+            Core.<*> (o Core..:? "key")+            Core.<*> (o Core..:? "label")+            Core.<*> (o Core..:? "namespace")+            Core.<*> (o Core..:? "shortStrValue")+            Core.<*> (o Core..:? "strValue")+            Core.<*> (o Core..:? "timestampValue")+            Core.<*> (o Core..:? "url")+      )++instance Core.ToJSON DisplayData where+  toJSON DisplayData {..} =+    Core.object+      ( Core.catMaybes+          [ ("boolValue" Core..=) Core.<$> boolValue,+            ("durationValue" Core..=) Core.<$> durationValue,+            ("floatValue" Core..=) Core.<$> floatValue,+            ("int64Value" Core..=) Core.. Core.AsText Core.<$> int64Value,+            ("javaClassValue" Core..=) Core.<$> javaClassValue,+            ("key" Core..=) Core.<$> key,+            ("label" Core..=) Core.<$> label,+            ("namespace" Core..=) Core.<$> namespace,+            ("shortStrValue" Core..=) Core.<$> shortStrValue,+            ("strValue" Core..=) Core.<$> strValue,+            ("timestampValue" Core..=) Core.<$> timestampValue,+            ("url" Core..=) Core.<$> url+          ]+      )++-- | A metric value representing a distribution.+--+-- /See:/ 'newDistributionUpdate' smart constructor.+data DistributionUpdate = DistributionUpdate+  { -- | The count of the number of elements present in the distribution.+    count :: (Core.Maybe SplitInt64),+    -- | (Optional) Histogram of value counts for the distribution.+    histogram :: (Core.Maybe Histogram),+    -- | The maximum value present in the distribution.+    max :: (Core.Maybe SplitInt64),+    -- | The minimum value present in the distribution.+    min :: (Core.Maybe SplitInt64),+    -- | Use an int64 since we\'d prefer the added precision. If overflow is a common problem we can detect it and use an additional int64 or a double.+    sum :: (Core.Maybe SplitInt64),+    -- | Use a double since the sum of squares is likely to overflow int64.+    sumOfSquares :: (Core.Maybe Core.Double)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'DistributionUpdate' with the minimum fields required to make a request.+newDistributionUpdate ::+  DistributionUpdate+newDistributionUpdate =+  DistributionUpdate+    { count = Core.Nothing,+      histogram = Core.Nothing,+      max = Core.Nothing,+      min = Core.Nothing,+      sum = Core.Nothing,+      sumOfSquares = Core.Nothing+    }++instance Core.FromJSON DistributionUpdate where+  parseJSON =+    Core.withObject+      "DistributionUpdate"+      ( \o ->+          DistributionUpdate+            Core.<$> (o Core..:? "count")+            Core.<*> (o Core..:? "histogram")+            Core.<*> (o Core..:? "max")+            Core.<*> (o Core..:? "min")+            Core.<*> (o Core..:? "sum")+            Core.<*> (o Core..:? "sumOfSquares")+      )++instance Core.ToJSON DistributionUpdate where+  toJSON DistributionUpdate {..} =+    Core.object+      ( Core.catMaybes+          [ ("count" Core..=) Core.<$> count,+            ("histogram" Core..=) Core.<$> histogram,+            ("max" Core..=) Core.<$> max,+            ("min" Core..=) Core.<$> min,+            ("sum" Core..=) Core.<$> sum,+            ("sumOfSquares" Core..=) Core.<$> sumOfSquares+          ]+      )++-- | When a task splits using WorkItemStatus.dynamic/source/split, this message describes the two parts of the split relative to the description of the current task\'s input.+--+-- /See:/ 'newDynamicSourceSplit' smart constructor.+data DynamicSourceSplit = DynamicSourceSplit+  { -- | Primary part (continued to be processed by worker). Specified relative to the previously-current source. Becomes current.+    primary :: (Core.Maybe DerivedSource),+    -- | Residual part (returned to the pool of work). Specified relative to the previously-current source.+    residual :: (Core.Maybe DerivedSource)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'DynamicSourceSplit' with the minimum fields required to make a request.+newDynamicSourceSplit ::+  DynamicSourceSplit+newDynamicSourceSplit =+  DynamicSourceSplit+    { primary = Core.Nothing,+      residual = Core.Nothing+    }++instance Core.FromJSON DynamicSourceSplit where+  parseJSON =+    Core.withObject+      "DynamicSourceSplit"+      ( \o ->+          DynamicSourceSplit+            Core.<$> (o Core..:? "primary")+            Core.<*> (o Core..:? "residual")+      )++instance Core.ToJSON DynamicSourceSplit where+  toJSON DynamicSourceSplit {..} =+    Core.object+      ( Core.catMaybes+          [ ("primary" Core..=) Core.<$> primary,+            ("residual" Core..=) Core.<$> residual+          ]+      )++-- | Describes the environment in which a Dataflow Job runs.+--+-- /See:/ 'newEnvironment' smart constructor.+data Environment = Environment+  { -- | The type of cluster manager API to use. If unknown or unspecified, the service will attempt to choose a reasonable default. This should be in the form of the API service name, e.g. \"compute.googleapis.com\".+    clusterManagerApiService :: (Core.Maybe Core.Text),+    -- | Optional. The dataset for the current project where various workflow related tables are stored. The supported resource type is: Google BigQuery: bigquery.googleapis.com\/{dataset}+    dataset :: (Core.Maybe Core.Text),+    -- | Optional. Any debugging options to be supplied to the job.+    debugOptions :: (Core.Maybe DebugOptions),+    -- | The list of experiments to enable. This field should be used for SDK related experiments and not for service related experiments. The proper field for service related experiments is service_options.+    experiments :: (Core.Maybe [Core.Text]),+    -- | Optional. Which Flexible Resource Scheduling mode to run in.+    flexResourceSchedulingGoal :: (Core.Maybe Environment_FlexResourceSchedulingGoal),+    -- | Experimental settings.+    internalExperiments :: (Core.Maybe Environment_InternalExperiments),+    -- | 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 independent way.+    sdkPipelineOptions :: (Core.Maybe Environment_SdkPipelineOptions),+    -- | Optional. Identity to run virtual machines as. Defaults to the default account.+    serviceAccountEmail :: (Core.Maybe Core.Text),+    -- | Optional. 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+    serviceKmsKeyName :: (Core.Maybe Core.Text),+    -- | Optional. The list of service options to enable. This field should be used for service related experiments only. These experiments, when graduating to GA, should be replaced by dedicated fields or become default (i.e. always on).+    serviceOptions :: (Core.Maybe [Core.Text]),+    -- | Output only. The shuffle mode used for the job.+    shuffleMode :: (Core.Maybe Environment_ShuffleMode),+    -- | Optional. Specifies the Streaming Engine message processing guarantees. Reduces cost and latency but might result in duplicate messages committed to storage. Designed to run simple mapping streaming ETL jobs at the lowest cost. For example, Change Data Capture (CDC) to BigQuery is a canonical use case. For more information, see <https://cloud.google.com/dataflow/docs/guides/streaming-modes Set the pipeline streaming mode>.+    streamingMode :: (Core.Maybe Environment_StreamingMode),+    -- | The prefix of the resources the system should use for temporary storage. The system will append the suffix \"\/temp-{JOBNAME} to this resource prefix, where {JOBNAME} is the value of the job/name field. The resulting bucket and object prefix is used as the prefix of the resources used to store temporary data needed during the job execution. NOTE: This will override the value in taskrunner/settings. The supported resource type is: Google Cloud Storage: storage.googleapis.com\/{bucket}\/{object} bucket.storage.googleapis.com\/{object}+    tempStoragePrefix :: (Core.Maybe Core.Text),+    -- | Output only. Whether the job uses the Streaming Engine resource-based billing model.+    useStreamingEngineResourceBasedBilling :: (Core.Maybe Core.Bool),+    -- | A description of the process that generated the request.+    userAgent :: (Core.Maybe Environment_UserAgent),+    -- | A structure describing which components and their versions of the service are required in order to run the job.+    version :: (Core.Maybe Environment_Version),+    -- | The worker pools. At least one \"harness\" worker pool must be specified in order for the job to have workers.+    workerPools :: (Core.Maybe [WorkerPool]),+    -- | Optional. The Compute Engine region (https:\/\/cloud.google.com\/compute\/docs\/regions-zones\/regions-zones) in which worker processing should occur, e.g. \"us-west1\". Mutually exclusive with worker/zone. If neither worker/region nor worker_zone is specified, default to the control plane\'s region.+    workerRegion :: (Core.Maybe Core.Text),+    -- | Optional. The Compute Engine zone (https:\/\/cloud.google.com\/compute\/docs\/regions-zones\/regions-zones) in which worker processing should occur, e.g. \"us-west1-a\". Mutually exclusive with worker/region. If neither worker/region nor worker_zone is specified, a zone in the control plane\'s region is chosen based on available capacity.+    workerZone :: (Core.Maybe Core.Text)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'Environment' with the minimum fields required to make a request.+newEnvironment ::+  Environment+newEnvironment =+  Environment+    { clusterManagerApiService = Core.Nothing,+      dataset = Core.Nothing,+      debugOptions = Core.Nothing,+      experiments = Core.Nothing,+      flexResourceSchedulingGoal = Core.Nothing,+      internalExperiments = Core.Nothing,+      sdkPipelineOptions = Core.Nothing,+      serviceAccountEmail = Core.Nothing,+      serviceKmsKeyName = Core.Nothing,+      serviceOptions = Core.Nothing,+      shuffleMode = Core.Nothing,+      streamingMode = Core.Nothing,+      tempStoragePrefix = Core.Nothing,+      useStreamingEngineResourceBasedBilling = Core.Nothing,+      userAgent = Core.Nothing,+      version = Core.Nothing,+      workerPools = Core.Nothing,+      workerRegion = Core.Nothing,+      workerZone = Core.Nothing+    }++instance Core.FromJSON Environment where+  parseJSON =+    Core.withObject+      "Environment"+      ( \o ->+          Environment+            Core.<$> (o Core..:? "clusterManagerApiService")+            Core.<*> (o Core..:? "dataset")+            Core.<*> (o Core..:? "debugOptions")+            Core.<*> (o Core..:? "experiments")+            Core.<*> (o Core..:? "flexResourceSchedulingGoal")+            Core.<*> (o Core..:? "internalExperiments")+            Core.<*> (o Core..:? "sdkPipelineOptions")+            Core.<*> (o Core..:? "serviceAccountEmail")+            Core.<*> (o Core..:? "serviceKmsKeyName")+            Core.<*> (o Core..:? "serviceOptions")+            Core.<*> (o Core..:? "shuffleMode")+            Core.<*> (o Core..:? "streamingMode")+            Core.<*> (o Core..:? "tempStoragePrefix")+            Core.<*> (o Core..:? "useStreamingEngineResourceBasedBilling")+            Core.<*> (o Core..:? "userAgent")+            Core.<*> (o Core..:? "version")+            Core.<*> (o Core..:? "workerPools")+            Core.<*> (o Core..:? "workerRegion")+            Core.<*> (o Core..:? "workerZone")+      )++instance Core.ToJSON Environment where+  toJSON Environment {..} =+    Core.object+      ( Core.catMaybes+          [ ("clusterManagerApiService" Core..=)+              Core.<$> clusterManagerApiService,+            ("dataset" Core..=) Core.<$> dataset,+            ("debugOptions" Core..=) Core.<$> debugOptions,+            ("experiments" Core..=) Core.<$> experiments,+            ("flexResourceSchedulingGoal" Core..=)+              Core.<$> flexResourceSchedulingGoal,+            ("internalExperiments" Core..=) Core.<$> internalExperiments,+            ("sdkPipelineOptions" Core..=) Core.<$> sdkPipelineOptions,+            ("serviceAccountEmail" Core..=) Core.<$> serviceAccountEmail,+            ("serviceKmsKeyName" Core..=) Core.<$> serviceKmsKeyName,+            ("serviceOptions" Core..=) Core.<$> serviceOptions,+            ("shuffleMode" Core..=) Core.<$> shuffleMode,+            ("streamingMode" Core..=) Core.<$> streamingMode,+            ("tempStoragePrefix" Core..=) Core.<$> tempStoragePrefix,+            ("useStreamingEngineResourceBasedBilling" Core..=)+              Core.<$> useStreamingEngineResourceBasedBilling,+            ("userAgent" Core..=) Core.<$> userAgent,+            ("version" Core..=) Core.<$> version,+            ("workerPools" Core..=) Core.<$> workerPools,+            ("workerRegion" Core..=) Core.<$> workerRegion,+            ("workerZone" Core..=) Core.<$> workerZone+          ]+      )++-- | Experimental settings.+--+-- /See:/ 'newEnvironment_InternalExperiments' smart constructor.+newtype Environment_InternalExperiments = Environment_InternalExperiments+  { -- | Properties of the object. Contains field \@type with type URL.+    additional :: (Core.HashMap Core.Text Core.Value)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'Environment_InternalExperiments' with the minimum fields required to make a request.+newEnvironment_InternalExperiments ::+  -- |  Properties of the object. Contains field \@type with type URL. See 'additional'.+  Core.HashMap Core.Text Core.Value ->+  Environment_InternalExperiments+newEnvironment_InternalExperiments additional =+  Environment_InternalExperiments {additional = additional}++instance Core.FromJSON Environment_InternalExperiments where+  parseJSON =+    Core.withObject+      "Environment_InternalExperiments"+      ( \o ->+          Environment_InternalExperiments Core.<$> (Core.parseJSONObject o)+      )++instance Core.ToJSON Environment_InternalExperiments where+  toJSON Environment_InternalExperiments {..} = Core.toJSON additional++-- | 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 independent way.+--+-- /See:/ 'newEnvironment_SdkPipelineOptions' smart constructor.+newtype Environment_SdkPipelineOptions = Environment_SdkPipelineOptions+  { -- | Properties of the object.+    additional :: (Core.HashMap Core.Text Core.Value)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'Environment_SdkPipelineOptions' with the minimum fields required to make a request.+newEnvironment_SdkPipelineOptions ::+  -- |  Properties of the object. See 'additional'.+  Core.HashMap Core.Text Core.Value ->+  Environment_SdkPipelineOptions+newEnvironment_SdkPipelineOptions additional =+  Environment_SdkPipelineOptions {additional = additional}++instance Core.FromJSON Environment_SdkPipelineOptions where+  parseJSON =+    Core.withObject+      "Environment_SdkPipelineOptions"+      ( \o ->+          Environment_SdkPipelineOptions Core.<$> (Core.parseJSONObject o)+      )++instance Core.ToJSON Environment_SdkPipelineOptions where+  toJSON Environment_SdkPipelineOptions {..} = Core.toJSON additional++-- | A description of the process that generated the request.+--+-- /See:/ 'newEnvironment_UserAgent' smart constructor.+newtype Environment_UserAgent = Environment_UserAgent+  { -- | Properties of the object.+    additional :: (Core.HashMap Core.Text Core.Value)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'Environment_UserAgent' with the minimum fields required to make a request.+newEnvironment_UserAgent ::+  -- |  Properties of the object. See 'additional'.+  Core.HashMap Core.Text Core.Value ->+  Environment_UserAgent+newEnvironment_UserAgent additional =+  Environment_UserAgent {additional = additional}++instance Core.FromJSON Environment_UserAgent where+  parseJSON =+    Core.withObject+      "Environment_UserAgent"+      (\o -> Environment_UserAgent Core.<$> (Core.parseJSONObject o))++instance Core.ToJSON Environment_UserAgent where+  toJSON Environment_UserAgent {..} = Core.toJSON additional++-- | A structure describing which components and their versions of the service are required in order to run the job.+--+-- /See:/ 'newEnvironment_Version' smart constructor.+newtype Environment_Version = Environment_Version+  { -- | Properties of the object.+    additional :: (Core.HashMap Core.Text Core.Value)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'Environment_Version' with the minimum fields required to make a request.+newEnvironment_Version ::+  -- |  Properties of the object. See 'additional'.+  Core.HashMap Core.Text Core.Value ->+  Environment_Version+newEnvironment_Version additional =+  Environment_Version {additional = additional}++instance Core.FromJSON Environment_Version where+  parseJSON =+    Core.withObject+      "Environment_Version"+      (\o -> Environment_Version Core.<$> (Core.parseJSONObject o))++instance Core.ToJSON Environment_Version where+  toJSON Environment_Version {..} = Core.toJSON additional++-- | A message describing the state of a particular execution stage.+--+-- /See:/ 'newExecutionStageState' smart constructor.+data ExecutionStageState = ExecutionStageState+  { -- | The time at which the stage transitioned to this state.+    currentStateTime :: (Core.Maybe Core.DateTime),+    -- | The name of the execution stage.+    executionStageName :: (Core.Maybe Core.Text),+    -- | Executions stage states allow the same set of values as JobState.+    executionStageState :: (Core.Maybe ExecutionStageState_ExecutionStageState)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'ExecutionStageState' with the minimum fields required to make a request.+newExecutionStageState ::+  ExecutionStageState+newExecutionStageState =+  ExecutionStageState+    { currentStateTime = Core.Nothing,+      executionStageName = Core.Nothing,+      executionStageState = Core.Nothing+    }++instance Core.FromJSON ExecutionStageState where+  parseJSON =+    Core.withObject+      "ExecutionStageState"+      ( \o ->+          ExecutionStageState+            Core.<$> (o Core..:? "currentStateTime")+            Core.<*> (o Core..:? "executionStageName")+            Core.<*> (o Core..:? "executionStageState")+      )++instance Core.ToJSON ExecutionStageState where+  toJSON ExecutionStageState {..} =+    Core.object+      ( Core.catMaybes+          [ ("currentStateTime" Core..=) Core.<$> currentStateTime,+            ("executionStageName" Core..=) Core.<$> executionStageName,+            ("executionStageState" Core..=) Core.<$> executionStageState+          ]+      )++-- | Description of the composing transforms, names\/ids, and input\/outputs of a stage of execution. Some composing transforms and sources may have been generated by the Dataflow service during execution planning.+--+-- /See:/ 'newExecutionStageSummary' smart constructor.+data ExecutionStageSummary = ExecutionStageSummary+  { -- | Collections produced and consumed by component transforms of this stage.+    componentSource :: (Core.Maybe [ComponentSource]),+    -- | Transforms that comprise this execution stage.+    componentTransform :: (Core.Maybe [ComponentTransform]),+    -- | Dataflow service generated id for this stage.+    id :: (Core.Maybe Core.Text),+    -- | Input sources for this stage.+    inputSource :: (Core.Maybe [StageSource]),+    -- | Type of transform this stage is executing.+    kind :: (Core.Maybe ExecutionStageSummary_Kind),+    -- | Dataflow service generated name for this stage.+    name :: (Core.Maybe Core.Text),+    -- | Output sources for this stage.+    outputSource :: (Core.Maybe [StageSource]),+    -- | Other stages that must complete before this stage can run.+    prerequisiteStage :: (Core.Maybe [Core.Text])+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'ExecutionStageSummary' with the minimum fields required to make a request.+newExecutionStageSummary ::+  ExecutionStageSummary+newExecutionStageSummary =+  ExecutionStageSummary+    { componentSource = Core.Nothing,+      componentTransform = Core.Nothing,+      id = Core.Nothing,+      inputSource = Core.Nothing,+      kind = Core.Nothing,+      name = Core.Nothing,+      outputSource = Core.Nothing,+      prerequisiteStage = Core.Nothing+    }++instance Core.FromJSON ExecutionStageSummary where+  parseJSON =+    Core.withObject+      "ExecutionStageSummary"+      ( \o ->+          ExecutionStageSummary+            Core.<$> (o Core..:? "componentSource")+            Core.<*> (o Core..:? "componentTransform")+            Core.<*> (o Core..:? "id")+            Core.<*> (o Core..:? "inputSource")+            Core.<*> (o Core..:? "kind")+            Core.<*> (o Core..:? "name")+            Core.<*> (o Core..:? "outputSource")+            Core.<*> (o Core..:? "prerequisiteStage")+      )++instance Core.ToJSON ExecutionStageSummary where+  toJSON ExecutionStageSummary {..} =+    Core.object+      ( Core.catMaybes+          [ ("componentSource" Core..=) Core.<$> componentSource,+            ("componentTransform" Core..=) Core.<$> componentTransform,+            ("id" Core..=) Core.<$> id,+            ("inputSource" Core..=) Core.<$> inputSource,+            ("kind" Core..=) Core.<$> kind,+            ("name" Core..=) Core.<$> name,+            ("outputSource" Core..=) Core.<$> outputSource,+            ("prerequisiteStage" Core..=) Core.<$> prerequisiteStage+          ]+      )++-- | Indicates which [regional endpoint] (https:\/\/cloud.google.com\/dataflow\/docs\/concepts\/regional-endpoints) failed to respond to a request for data.+--+-- /See:/ 'newFailedLocation' smart constructor.+newtype FailedLocation = FailedLocation+  { -- | The name of the [regional endpoint] (https:\/\/cloud.google.com\/dataflow\/docs\/concepts\/regional-endpoints) that failed to respond.+    name :: (Core.Maybe Core.Text)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'FailedLocation' with the minimum fields required to make a request.+newFailedLocation ::+  FailedLocation+newFailedLocation = FailedLocation {name = Core.Nothing}++instance Core.FromJSON FailedLocation where+  parseJSON =+    Core.withObject+      "FailedLocation"+      (\o -> FailedLocation Core.<$> (o Core..:? "name"))++instance Core.ToJSON FailedLocation where+  toJSON FailedLocation {..} =+    Core.object (Core.catMaybes [("name" Core..=) Core.<$> name])++-- | Metadata for a File connector used by the job.+--+-- /See:/ 'newFileIODetails' smart constructor.+newtype FileIODetails = FileIODetails+  { -- | File Pattern used to access files by the connector.+    filePattern :: (Core.Maybe Core.Text)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'FileIODetails' with the minimum fields required to make a request.+newFileIODetails ::+  FileIODetails+newFileIODetails = FileIODetails {filePattern = Core.Nothing}++instance Core.FromJSON FileIODetails where+  parseJSON =+    Core.withObject+      "FileIODetails"+      (\o -> FileIODetails Core.<$> (o Core..:? "filePattern"))++instance Core.ToJSON FileIODetails where+  toJSON FileIODetails {..} =+    Core.object+      (Core.catMaybes [("filePattern" Core..=) Core.<$> filePattern])++-- | An instruction that copies its inputs (zero or more) to its (single) output.+--+-- /See:/ 'newFlattenInstruction' smart constructor.+newtype FlattenInstruction = FlattenInstruction+  { -- | Describes the inputs to the flatten instruction.+    inputs :: (Core.Maybe [InstructionInput])+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'FlattenInstruction' with the minimum fields required to make a request.+newFlattenInstruction ::+  FlattenInstruction+newFlattenInstruction = FlattenInstruction {inputs = Core.Nothing}++instance Core.FromJSON FlattenInstruction where+  parseJSON =+    Core.withObject+      "FlattenInstruction"+      (\o -> FlattenInstruction Core.<$> (o Core..:? "inputs"))++instance Core.ToJSON FlattenInstruction where+  toJSON FlattenInstruction {..} =+    Core.object (Core.catMaybes [("inputs" Core..=) Core.<$> inputs])++-- | The environment values to be set at runtime for flex template.+--+-- /See:/ 'newFlexTemplateRuntimeEnvironment' smart constructor.+data FlexTemplateRuntimeEnvironment = FlexTemplateRuntimeEnvironment+  { -- | Additional experiment flags for the job.+    additionalExperiments :: (Core.Maybe [Core.Text]),+    -- | Additional user labels to be specified for the job. Keys and values must follow the restrictions specified in the <https://cloud.google.com/compute/docs/labeling-resources#restrictions labeling restrictions> page. An object containing a list of \"key\": value pairs. Example: { \"name\": \"wrench\", \"mass\": \"1kg\", \"count\": \"3\" }.+    additionalUserLabels :: (Core.Maybe FlexTemplateRuntimeEnvironment_AdditionalUserLabels),+    -- | The algorithm to use for autoscaling+    autoscalingAlgorithm :: (Core.Maybe FlexTemplateRuntimeEnvironment_AutoscalingAlgorithm),+    -- | Worker disk size, in gigabytes.+    diskSizeGb :: (Core.Maybe Core.Int32),+    -- | If true, when processing time is spent almost entirely on garbage collection (GC), saves a heap dump before ending the thread or process. If false, ends the thread or process without saving a heap dump. Does not save a heap dump when the Java Virtual Machine (JVM) has an out of memory error during processing. The location of the heap file is either echoed back to the user, or the user is given the opportunity to download the heap file.+    dumpHeapOnOom :: (Core.Maybe Core.Bool),+    -- | If true serial port logging will be enabled for the launcher VM.+    enableLauncherVmSerialPortLogging :: (Core.Maybe Core.Bool),+    -- | Whether to enable Streaming Engine for the job.+    enableStreamingEngine :: (Core.Maybe Core.Bool),+    -- | Set FlexRS goal for the job. https:\/\/cloud.google.com\/dataflow\/docs\/guides\/flexrs+    flexrsGoal :: (Core.Maybe FlexTemplateRuntimeEnvironment_FlexrsGoal),+    -- | Configuration for VM IPs.+    ipConfiguration :: (Core.Maybe FlexTemplateRuntimeEnvironment_IpConfiguration),+    -- | Name for the Cloud KMS key for the job. Key format is: projects\/\/locations\/\/keyRings\/\/cryptoKeys\/+    kmsKeyName :: (Core.Maybe Core.Text),+    -- | The machine type to use for launching the job. The default is n1-standard-1.+    launcherMachineType :: (Core.Maybe Core.Text),+    -- | The machine type to use for the job. Defaults to the value from the template if not specified.+    machineType :: (Core.Maybe Core.Text),+    -- | The maximum number of Google Compute Engine instances to be made available to your pipeline during execution, from 1 to 1000.+    maxWorkers :: (Core.Maybe Core.Int32),+    -- | Network to which VMs will be assigned. If empty or unspecified, the service will use the network \"default\".+    network :: (Core.Maybe Core.Text),+    -- | The initial number of Google Compute Engine instances for the job.+    numWorkers :: (Core.Maybe Core.Int32),+    -- | Cloud Storage bucket (directory) to upload heap dumps to. Enabling this field implies that @dump_heap_on_oom@ is set to true.+    saveHeapDumpsToGcsPath :: (Core.Maybe Core.Text),+    -- | Docker registry location of container image to use for the \'worker harness. Default is the container for the version of the SDK. Note this field is only valid for portable pipelines.+    sdkContainerImage :: (Core.Maybe Core.Text),+    -- | The email address of the service account to run the job as.+    serviceAccountEmail :: (Core.Maybe Core.Text),+    -- | The Cloud Storage path for staging local files. Must be a valid Cloud Storage URL, beginning with @gs:\/\/@.+    stagingLocation :: (Core.Maybe Core.Text),+    -- | Optional. Specifies the Streaming Engine message processing guarantees. Reduces cost and latency but might result in duplicate messages committed to storage. Designed to run simple mapping streaming ETL jobs at the lowest cost. For example, Change Data Capture (CDC) to BigQuery is a canonical use case. For more information, see <https://cloud.google.com/dataflow/docs/guides/streaming-modes Set the pipeline streaming mode>.+    streamingMode :: (Core.Maybe FlexTemplateRuntimeEnvironment_StreamingMode),+    -- | Subnetwork to which VMs will be assigned, if desired. You can specify a subnetwork using either a complete URL or an abbreviated path. Expected to be of the form \"https:\/\/www.googleapis.com\/compute\/v1\/projects\/HOST/PROJECT/ID\/regions\/REGION\/subnetworks\/SUBNETWORK\" or \"regions\/REGION\/subnetworks\/SUBNETWORK\". If the subnetwork is located in a Shared VPC network, you must use the complete URL.+    subnetwork :: (Core.Maybe Core.Text),+    -- | The Cloud Storage path to use for temporary files. Must be a valid Cloud Storage URL, beginning with @gs:\/\/@.+    tempLocation :: (Core.Maybe Core.Text),+    -- | The Compute Engine region (https:\/\/cloud.google.com\/compute\/docs\/regions-zones\/regions-zones) in which worker processing should occur, e.g. \"us-west1\". Mutually exclusive with worker/zone. If neither worker/region nor worker_zone is specified, default to the control plane\'s region.+    workerRegion :: (Core.Maybe Core.Text),+    -- | The Compute Engine zone (https:\/\/cloud.google.com\/compute\/docs\/regions-zones\/regions-zones) in which worker processing should occur, e.g. \"us-west1-a\". Mutually exclusive with worker/region. If neither worker/region nor worker_zone is specified, a zone in the control plane\'s region is chosen based on available capacity. If both @worker_zone@ and @zone@ are set, @worker_zone@ takes precedence.+    workerZone :: (Core.Maybe Core.Text),+    -- | The Compute Engine <https://cloud.google.com/compute/docs/regions-zones/regions-zones availability zone> for launching worker instances to run your pipeline. In the future, worker_zone will take precedence.+    zone :: (Core.Maybe Core.Text)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'FlexTemplateRuntimeEnvironment' with the minimum fields required to make a request.+newFlexTemplateRuntimeEnvironment ::+  FlexTemplateRuntimeEnvironment+newFlexTemplateRuntimeEnvironment =+  FlexTemplateRuntimeEnvironment+    { additionalExperiments =+        Core.Nothing,+      additionalUserLabels = Core.Nothing,+      autoscalingAlgorithm = Core.Nothing,+      diskSizeGb = Core.Nothing,+      dumpHeapOnOom = Core.Nothing,+      enableLauncherVmSerialPortLogging = Core.Nothing,+      enableStreamingEngine = Core.Nothing,+      flexrsGoal = Core.Nothing,+      ipConfiguration = Core.Nothing,+      kmsKeyName = Core.Nothing,+      launcherMachineType = Core.Nothing,+      machineType = Core.Nothing,+      maxWorkers = Core.Nothing,+      network = Core.Nothing,+      numWorkers = Core.Nothing,+      saveHeapDumpsToGcsPath = Core.Nothing,+      sdkContainerImage = Core.Nothing,+      serviceAccountEmail = Core.Nothing,+      stagingLocation = Core.Nothing,+      streamingMode = Core.Nothing,+      subnetwork = Core.Nothing,+      tempLocation = Core.Nothing,+      workerRegion = Core.Nothing,+      workerZone = Core.Nothing,+      zone = Core.Nothing+    }++instance Core.FromJSON FlexTemplateRuntimeEnvironment where+  parseJSON =+    Core.withObject+      "FlexTemplateRuntimeEnvironment"+      ( \o ->+          FlexTemplateRuntimeEnvironment+            Core.<$> (o Core..:? "additionalExperiments")+            Core.<*> (o Core..:? "additionalUserLabels")+            Core.<*> (o Core..:? "autoscalingAlgorithm")+            Core.<*> (o Core..:? "diskSizeGb")+            Core.<*> (o Core..:? "dumpHeapOnOom")+            Core.<*> (o Core..:? "enableLauncherVmSerialPortLogging")+            Core.<*> (o Core..:? "enableStreamingEngine")+            Core.<*> (o Core..:? "flexrsGoal")+            Core.<*> (o Core..:? "ipConfiguration")+            Core.<*> (o Core..:? "kmsKeyName")+            Core.<*> (o Core..:? "launcherMachineType")+            Core.<*> (o Core..:? "machineType")+            Core.<*> (o Core..:? "maxWorkers")+            Core.<*> (o Core..:? "network")+            Core.<*> (o Core..:? "numWorkers")+            Core.<*> (o Core..:? "saveHeapDumpsToGcsPath")+            Core.<*> (o Core..:? "sdkContainerImage")+            Core.<*> (o Core..:? "serviceAccountEmail")+            Core.<*> (o Core..:? "stagingLocation")+            Core.<*> (o Core..:? "streamingMode")+            Core.<*> (o Core..:? "subnetwork")+            Core.<*> (o Core..:? "tempLocation")+            Core.<*> (o Core..:? "workerRegion")+            Core.<*> (o Core..:? "workerZone")+            Core.<*> (o Core..:? "zone")+      )++instance Core.ToJSON FlexTemplateRuntimeEnvironment where+  toJSON FlexTemplateRuntimeEnvironment {..} =+    Core.object+      ( Core.catMaybes+          [ ("additionalExperiments" Core..=) Core.<$> additionalExperiments,+            ("additionalUserLabels" Core..=) Core.<$> additionalUserLabels,+            ("autoscalingAlgorithm" Core..=) Core.<$> autoscalingAlgorithm,+            ("diskSizeGb" Core..=) Core.<$> diskSizeGb,+            ("dumpHeapOnOom" Core..=) Core.<$> dumpHeapOnOom,+            ("enableLauncherVmSerialPortLogging" Core..=)+              Core.<$> enableLauncherVmSerialPortLogging,+            ("enableStreamingEngine" Core..=) Core.<$> enableStreamingEngine,+            ("flexrsGoal" Core..=) Core.<$> flexrsGoal,+            ("ipConfiguration" Core..=) Core.<$> ipConfiguration,+            ("kmsKeyName" Core..=) Core.<$> kmsKeyName,+            ("launcherMachineType" Core..=) Core.<$> launcherMachineType,+            ("machineType" Core..=) Core.<$> machineType,+            ("maxWorkers" Core..=) Core.<$> maxWorkers,+            ("network" Core..=) Core.<$> network,+            ("numWorkers" Core..=) Core.<$> numWorkers,+            ("saveHeapDumpsToGcsPath" Core..=) Core.<$> saveHeapDumpsToGcsPath,+            ("sdkContainerImage" Core..=) Core.<$> sdkContainerImage,+            ("serviceAccountEmail" Core..=) Core.<$> serviceAccountEmail,+            ("stagingLocation" Core..=) Core.<$> stagingLocation,+            ("streamingMode" Core..=) Core.<$> streamingMode,+            ("subnetwork" Core..=) Core.<$> subnetwork,+            ("tempLocation" Core..=) Core.<$> tempLocation,+            ("workerRegion" Core..=) Core.<$> workerRegion,+            ("workerZone" Core..=) Core.<$> workerZone,+            ("zone" Core..=) Core.<$> zone+          ]+      )++-- | Additional user labels to be specified for the job. Keys and values must follow the restrictions specified in the <https://cloud.google.com/compute/docs/labeling-resources#restrictions labeling restrictions> page. An object containing a list of \"key\": value pairs. Example: { \"name\": \"wrench\", \"mass\": \"1kg\", \"count\": \"3\" }.+--+-- /See:/ 'newFlexTemplateRuntimeEnvironment_AdditionalUserLabels' smart constructor.+newtype FlexTemplateRuntimeEnvironment_AdditionalUserLabels = FlexTemplateRuntimeEnvironment_AdditionalUserLabels+  { additional :: (Core.HashMap Core.Text Core.Text)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'FlexTemplateRuntimeEnvironment_AdditionalUserLabels' with the minimum fields required to make a request.+newFlexTemplateRuntimeEnvironment_AdditionalUserLabels ::+  -- |  See 'additional'.+  Core.HashMap Core.Text Core.Text ->+  FlexTemplateRuntimeEnvironment_AdditionalUserLabels+newFlexTemplateRuntimeEnvironment_AdditionalUserLabels additional =+  FlexTemplateRuntimeEnvironment_AdditionalUserLabels+    { additional =+        additional+    }++instance+  Core.FromJSON+    FlexTemplateRuntimeEnvironment_AdditionalUserLabels+  where+  parseJSON =+    Core.withObject+      "FlexTemplateRuntimeEnvironment_AdditionalUserLabels"+      ( \o ->+          FlexTemplateRuntimeEnvironment_AdditionalUserLabels+            Core.<$> (Core.parseJSONObject o)+      )++instance+  Core.ToJSON+    FlexTemplateRuntimeEnvironment_AdditionalUserLabels+  where+  toJSON FlexTemplateRuntimeEnvironment_AdditionalUserLabels {..} =+    Core.toJSON additional++-- | A metric value representing a list of floating point numbers.+--+-- /See:/ 'newFloatingPointList' smart constructor.+newtype FloatingPointList = FloatingPointList+  { -- | Elements of the list.+    elements :: (Core.Maybe [Core.Double])+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'FloatingPointList' with the minimum fields required to make a request.+newFloatingPointList ::+  FloatingPointList+newFloatingPointList = FloatingPointList {elements = Core.Nothing}++instance Core.FromJSON FloatingPointList where+  parseJSON =+    Core.withObject+      "FloatingPointList"+      (\o -> FloatingPointList Core.<$> (o Core..:? "elements"))++instance Core.ToJSON FloatingPointList where+  toJSON FloatingPointList {..} =+    Core.object+      (Core.catMaybes [("elements" Core..=) Core.<$> elements])++-- | A representation of a floating point mean metric contribution.+--+-- /See:/ 'newFloatingPointMean' smart constructor.+data FloatingPointMean = FloatingPointMean+  { -- | The number of values being aggregated.+    count :: (Core.Maybe SplitInt64),+    -- | The sum of all values being aggregated.+    sum :: (Core.Maybe Core.Double)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'FloatingPointMean' with the minimum fields required to make a request.+newFloatingPointMean ::+  FloatingPointMean+newFloatingPointMean =+  FloatingPointMean {count = Core.Nothing, sum = Core.Nothing}++instance Core.FromJSON FloatingPointMean where+  parseJSON =+    Core.withObject+      "FloatingPointMean"+      ( \o ->+          FloatingPointMean+            Core.<$> (o Core..:? "count")+            Core.<*> (o Core..:? "sum")+      )++instance Core.ToJSON FloatingPointMean where+  toJSON FloatingPointMean {..} =+    Core.object+      ( Core.catMaybes+          [("count" Core..=) Core.<$> count, ("sum" Core..=) Core.<$> sum]+      )++-- | Information about the GPU usage on the worker.+--+-- /See:/ 'newGPUUsage' smart constructor.+data GPUUsage = GPUUsage+  { -- | Required. Timestamp of the measurement.+    timestamp :: (Core.Maybe Core.DateTime),+    -- | Required. Utilization info about the GPU.+    utilization :: (Core.Maybe GPUUtilization)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'GPUUsage' with the minimum fields required to make a request.+newGPUUsage ::+  GPUUsage+newGPUUsage =+  GPUUsage {timestamp = Core.Nothing, utilization = Core.Nothing}++instance Core.FromJSON GPUUsage where+  parseJSON =+    Core.withObject+      "GPUUsage"+      ( \o ->+          GPUUsage+            Core.<$> (o Core..:? "timestamp")+            Core.<*> (o Core..:? "utilization")+      )++instance Core.ToJSON GPUUsage where+  toJSON GPUUsage {..} =+    Core.object+      ( Core.catMaybes+          [ ("timestamp" Core..=) Core.<$> timestamp,+            ("utilization" Core..=) Core.<$> utilization+          ]+      )++-- | Utilization details about the GPU.+--+-- /See:/ 'newGPUUtilization' smart constructor.+newtype GPUUtilization = GPUUtilization+  { -- | Required. GPU utilization rate of any kernel over the last sample period in the range of [0, 1].+    rate :: (Core.Maybe Core.Double)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'GPUUtilization' with the minimum fields required to make a request.+newGPUUtilization ::+  GPUUtilization+newGPUUtilization = GPUUtilization {rate = Core.Nothing}++instance Core.FromJSON GPUUtilization where+  parseJSON =+    Core.withObject+      "GPUUtilization"+      (\o -> GPUUtilization Core.<$> (o Core..:? "rate"))++instance Core.ToJSON GPUUtilization where+  toJSON GPUUtilization {..} =+    Core.object (Core.catMaybes [("rate" Core..=) Core.<$> rate])++-- | Request to get updated debug configuration for component.+--+-- /See:/ 'newGetDebugConfigRequest' smart constructor.+data GetDebugConfigRequest = GetDebugConfigRequest+  { -- | The internal component id for which debug configuration is requested.+    componentId :: (Core.Maybe Core.Text),+    -- | The [regional endpoint] (https:\/\/cloud.google.com\/dataflow\/docs\/concepts\/regional-endpoints) that contains the job specified by job_id.+    location :: (Core.Maybe Core.Text),+    -- | The worker id, i.e., VM hostname.+    workerId :: (Core.Maybe Core.Text)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'GetDebugConfigRequest' with the minimum fields required to make a request.+newGetDebugConfigRequest ::+  GetDebugConfigRequest+newGetDebugConfigRequest =+  GetDebugConfigRequest+    { componentId = Core.Nothing,+      location = Core.Nothing,+      workerId = Core.Nothing+    }++instance Core.FromJSON GetDebugConfigRequest where+  parseJSON =+    Core.withObject+      "GetDebugConfigRequest"+      ( \o ->+          GetDebugConfigRequest+            Core.<$> (o Core..:? "componentId")+            Core.<*> (o Core..:? "location")+            Core.<*> (o Core..:? "workerId")+      )++instance Core.ToJSON GetDebugConfigRequest where+  toJSON GetDebugConfigRequest {..} =+    Core.object+      ( Core.catMaybes+          [ ("componentId" Core..=) Core.<$> componentId,+            ("location" Core..=) Core.<$> location,+            ("workerId" Core..=) Core.<$> workerId+          ]+      )++-- | Response to a get debug configuration request.+--+-- /See:/ 'newGetDebugConfigResponse' smart constructor.+newtype GetDebugConfigResponse = GetDebugConfigResponse+  { -- | The encoded debug configuration for the requested component.+    config :: (Core.Maybe Core.Text)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'GetDebugConfigResponse' with the minimum fields required to make a request.+newGetDebugConfigResponse ::+  GetDebugConfigResponse+newGetDebugConfigResponse =+  GetDebugConfigResponse {config = Core.Nothing}++instance Core.FromJSON GetDebugConfigResponse where+  parseJSON =+    Core.withObject+      "GetDebugConfigResponse"+      (\o -> GetDebugConfigResponse Core.<$> (o Core..:? "config"))++instance Core.ToJSON GetDebugConfigResponse where+  toJSON GetDebugConfigResponse {..} =+    Core.object (Core.catMaybes [("config" Core..=) Core.<$> config])++-- | The response to a GetTemplate request.+--+-- /See:/ 'newGetTemplateResponse' smart constructor.+data GetTemplateResponse = GetTemplateResponse+  { -- | The template metadata describing the template name, available parameters, etc.+    metadata :: (Core.Maybe TemplateMetadata),+    -- | Describes the runtime metadata with SDKInfo and available parameters.+    runtimeMetadata :: (Core.Maybe RuntimeMetadata),+    -- | The status of the get template request. Any problems with the request will be indicated in the error_details.+    status :: (Core.Maybe Status),+    -- | Template Type.+    templateType :: (Core.Maybe GetTemplateResponse_TemplateType)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'GetTemplateResponse' with the minimum fields required to make a request.+newGetTemplateResponse ::+  GetTemplateResponse+newGetTemplateResponse =+  GetTemplateResponse+    { metadata = Core.Nothing,+      runtimeMetadata = Core.Nothing,+      status = Core.Nothing,+      templateType = Core.Nothing+    }++instance Core.FromJSON GetTemplateResponse where+  parseJSON =+    Core.withObject+      "GetTemplateResponse"+      ( \o ->+          GetTemplateResponse+            Core.<$> (o Core..:? "metadata")+            Core.<*> (o Core..:? "runtimeMetadata")+            Core.<*> (o Core..:? "status")+            Core.<*> (o Core..:? "templateType")+      )++instance Core.ToJSON GetTemplateResponse where+  toJSON GetTemplateResponse {..} =+    Core.object+      ( Core.catMaybes+          [ ("metadata" Core..=) Core.<$> metadata,+            ("runtimeMetadata" Core..=) Core.<$> runtimeMetadata,+            ("status" Core..=) Core.<$> status,+            ("templateType" Core..=) Core.<$> templateType+          ]+      )++-- | Histogram of value counts for a distribution. Buckets have an inclusive lower bound and exclusive upper bound and use \"1,2,5 bucketing\": The first bucket range is from [0,1) and all subsequent bucket boundaries are powers of ten multiplied by 1, 2, or 5. Thus, bucket boundaries are 0, 1, 2, 5, 10, 20, 50, 100, 200, 500, 1000, ... Negative values are not supported.+--+-- /See:/ 'newHistogram' smart constructor.+data Histogram = Histogram+  { -- | Counts of values in each bucket. For efficiency, prefix and trailing buckets with count = 0 are elided. Buckets can store the full range of values of an unsigned long, with ULLONG_MAX falling into the 59th bucket with range [1e19, 2e19).+    bucketCounts :: (Core.Maybe [Core.Int64]),+    -- | Starting index of first stored bucket. The non-inclusive upper-bound of the ith bucket is given by: pow(10,(i-first/bucket/offset)\/3) * (1,2,5)[(i-first/bucket/offset)%3]+    firstBucketOffset :: (Core.Maybe Core.Int32)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'Histogram' with the minimum fields required to make a request.+newHistogram ::+  Histogram+newHistogram =+  Histogram+    { bucketCounts = Core.Nothing,+      firstBucketOffset = Core.Nothing+    }++instance Core.FromJSON Histogram where+  parseJSON =+    Core.withObject+      "Histogram"+      ( \o ->+          Histogram+            Core.<$> ( o+                         Core..:? "bucketCounts"+                         Core.<&> Core.fmap (Core.fmap Core.fromAsText)+                     )+            Core.<*> (o Core..:? "firstBucketOffset")+      )++instance Core.ToJSON Histogram where+  toJSON Histogram {..} =+    Core.object+      ( Core.catMaybes+          [ ("bucketCounts" Core..=)+              Core.. Core.fmap Core.AsText+              Core.<$> bucketCounts,+            ("firstBucketOffset" Core..=) Core.<$> firstBucketOffset+          ]+      )++-- | Information useful for debugging a hot key detection.+--+-- /See:/ 'newHotKeyDebuggingInfo' smart constructor.+newtype HotKeyDebuggingInfo = HotKeyDebuggingInfo+  { -- | Debugging information for each detected hot key. Keyed by a hash of the key.+    detectedHotKeys :: (Core.Maybe HotKeyDebuggingInfo_DetectedHotKeys)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'HotKeyDebuggingInfo' with the minimum fields required to make a request.+newHotKeyDebuggingInfo ::+  HotKeyDebuggingInfo+newHotKeyDebuggingInfo =+  HotKeyDebuggingInfo {detectedHotKeys = Core.Nothing}++instance Core.FromJSON HotKeyDebuggingInfo where+  parseJSON =+    Core.withObject+      "HotKeyDebuggingInfo"+      ( \o ->+          HotKeyDebuggingInfo Core.<$> (o Core..:? "detectedHotKeys")+      )++instance Core.ToJSON HotKeyDebuggingInfo where+  toJSON HotKeyDebuggingInfo {..} =+    Core.object+      ( Core.catMaybes+          [("detectedHotKeys" Core..=) Core.<$> detectedHotKeys]+      )++-- | Debugging information for each detected hot key. Keyed by a hash of the key.+--+-- /See:/ 'newHotKeyDebuggingInfo_DetectedHotKeys' smart constructor.+newtype HotKeyDebuggingInfo_DetectedHotKeys = HotKeyDebuggingInfo_DetectedHotKeys+  { additional :: (Core.HashMap Core.Text HotKeyInfo)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'HotKeyDebuggingInfo_DetectedHotKeys' with the minimum fields required to make a request.+newHotKeyDebuggingInfo_DetectedHotKeys ::+  -- |  See 'additional'.+  Core.HashMap Core.Text HotKeyInfo ->+  HotKeyDebuggingInfo_DetectedHotKeys+newHotKeyDebuggingInfo_DetectedHotKeys additional =+  HotKeyDebuggingInfo_DetectedHotKeys {additional = additional}++instance Core.FromJSON HotKeyDebuggingInfo_DetectedHotKeys where+  parseJSON =+    Core.withObject+      "HotKeyDebuggingInfo_DetectedHotKeys"+      ( \o ->+          HotKeyDebuggingInfo_DetectedHotKeys+            Core.<$> (Core.parseJSONObject o)+      )++instance Core.ToJSON HotKeyDebuggingInfo_DetectedHotKeys where+  toJSON HotKeyDebuggingInfo_DetectedHotKeys {..} =+    Core.toJSON additional++-- | Proto describing a hot key detected on a given WorkItem.+--+-- /See:/ 'newHotKeyDetection' smart constructor.+data HotKeyDetection = HotKeyDetection+  { -- | The age of the hot key measured from when it was first detected.+    hotKeyAge :: (Core.Maybe Core.Duration),+    -- | System-defined name of the step containing this hot key. Unique across the workflow.+    systemName :: (Core.Maybe Core.Text),+    -- | User-provided name of the step that contains this hot key.+    userStepName :: (Core.Maybe Core.Text)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'HotKeyDetection' with the minimum fields required to make a request.+newHotKeyDetection ::+  HotKeyDetection+newHotKeyDetection =+  HotKeyDetection+    { hotKeyAge = Core.Nothing,+      systemName = Core.Nothing,+      userStepName = Core.Nothing+    }++instance Core.FromJSON HotKeyDetection where+  parseJSON =+    Core.withObject+      "HotKeyDetection"+      ( \o ->+          HotKeyDetection+            Core.<$> (o Core..:? "hotKeyAge")+            Core.<*> (o Core..:? "systemName")+            Core.<*> (o Core..:? "userStepName")+      )++instance Core.ToJSON HotKeyDetection where+  toJSON HotKeyDetection {..} =+    Core.object+      ( Core.catMaybes+          [ ("hotKeyAge" Core..=) Core.<$> hotKeyAge,+            ("systemName" Core..=) Core.<$> systemName,+            ("userStepName" Core..=) Core.<$> userStepName+          ]+      )++-- | Information about a hot key.+--+-- /See:/ 'newHotKeyInfo' smart constructor.+data HotKeyInfo = HotKeyInfo+  { -- | The age of the hot key measured from when it was first detected.+    hotKeyAge :: (Core.Maybe Core.Duration),+    -- | A detected hot key that is causing limited parallelism. This field will be populated only if the following flag is set to true: \"--enable/hot/key_logging\".+    key :: (Core.Maybe Core.Text),+    -- | If true, then the above key is truncated and cannot be deserialized. This occurs if the key above is populated and the key size is >5MB.+    keyTruncated :: (Core.Maybe Core.Bool)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'HotKeyInfo' with the minimum fields required to make a request.+newHotKeyInfo ::+  HotKeyInfo+newHotKeyInfo =+  HotKeyInfo+    { hotKeyAge = Core.Nothing,+      key = Core.Nothing,+      keyTruncated = Core.Nothing+    }++instance Core.FromJSON HotKeyInfo where+  parseJSON =+    Core.withObject+      "HotKeyInfo"+      ( \o ->+          HotKeyInfo+            Core.<$> (o Core..:? "hotKeyAge")+            Core.<*> (o Core..:? "key")+            Core.<*> (o Core..:? "keyTruncated")+      )++instance Core.ToJSON HotKeyInfo where+  toJSON HotKeyInfo {..} =+    Core.object+      ( Core.catMaybes+          [ ("hotKeyAge" Core..=) Core.<$> hotKeyAge,+            ("key" Core..=) Core.<$> key,+            ("keyTruncated" Core..=) Core.<$> keyTruncated+          ]+      )++-- | An input of an instruction, as a reference to an output of a producer instruction.+--+-- /See:/ 'newInstructionInput' smart constructor.+data InstructionInput = InstructionInput+  { -- | The output index (origin zero) within the producer.+    outputNum :: (Core.Maybe Core.Int32),+    -- | 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 of instructions in this input\'s instruction\'s containing MapTask.+    producerInstructionIndex :: (Core.Maybe Core.Int32)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'InstructionInput' with the minimum fields required to make a request.+newInstructionInput ::+  InstructionInput+newInstructionInput =+  InstructionInput+    { outputNum = Core.Nothing,+      producerInstructionIndex = Core.Nothing+    }++instance Core.FromJSON InstructionInput where+  parseJSON =+    Core.withObject+      "InstructionInput"+      ( \o ->+          InstructionInput+            Core.<$> (o Core..:? "outputNum")+            Core.<*> (o Core..:? "producerInstructionIndex")+      )++instance Core.ToJSON InstructionInput where+  toJSON InstructionInput {..} =+    Core.object+      ( Core.catMaybes+          [ ("outputNum" Core..=) Core.<$> outputNum,+            ("producerInstructionIndex" Core..=)+              Core.<$> producerInstructionIndex+          ]+      )++-- | An output of an instruction.+--+-- /See:/ 'newInstructionOutput' smart constructor.+data InstructionOutput = InstructionOutput+  { -- | The codec to use to encode data being written via this output.+    codec :: (Core.Maybe InstructionOutput_Codec),+    -- | The user-provided name of this output.+    name :: (Core.Maybe Core.Text),+    -- | For system-generated byte and mean byte metrics, certain instructions should only report the key size.+    onlyCountKeyBytes :: (Core.Maybe Core.Bool),+    -- | For system-generated byte and mean byte metrics, certain instructions should only report the value size.+    onlyCountValueBytes :: (Core.Maybe Core.Bool),+    -- | System-defined name for this output in the original workflow graph. Outputs that do not contribute to an original instruction do not set this.+    originalName :: (Core.Maybe Core.Text),+    -- | System-defined name of this output. Unique across the workflow.+    systemName :: (Core.Maybe Core.Text)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'InstructionOutput' with the minimum fields required to make a request.+newInstructionOutput ::+  InstructionOutput+newInstructionOutput =+  InstructionOutput+    { codec = Core.Nothing,+      name = Core.Nothing,+      onlyCountKeyBytes = Core.Nothing,+      onlyCountValueBytes = Core.Nothing,+      originalName = Core.Nothing,+      systemName = Core.Nothing+    }++instance Core.FromJSON InstructionOutput where+  parseJSON =+    Core.withObject+      "InstructionOutput"+      ( \o ->+          InstructionOutput+            Core.<$> (o Core..:? "codec")+            Core.<*> (o Core..:? "name")+            Core.<*> (o Core..:? "onlyCountKeyBytes")+            Core.<*> (o Core..:? "onlyCountValueBytes")+            Core.<*> (o Core..:? "originalName")+            Core.<*> (o Core..:? "systemName")+      )++instance Core.ToJSON InstructionOutput where+  toJSON InstructionOutput {..} =+    Core.object+      ( Core.catMaybes+          [ ("codec" Core..=) Core.<$> codec,+            ("name" Core..=) Core.<$> name,+            ("onlyCountKeyBytes" Core..=) Core.<$> onlyCountKeyBytes,+            ("onlyCountValueBytes" Core..=) Core.<$> onlyCountValueBytes,+            ("originalName" Core..=) Core.<$> originalName,+            ("systemName" Core..=) Core.<$> systemName+          ]+      )++-- | The codec to use to encode data being written via this output.+--+-- /See:/ 'newInstructionOutput_Codec' smart constructor.+newtype InstructionOutput_Codec = InstructionOutput_Codec+  { -- | Properties of the object.+    additional :: (Core.HashMap Core.Text Core.Value)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'InstructionOutput_Codec' with the minimum fields required to make a request.+newInstructionOutput_Codec ::+  -- |  Properties of the object. See 'additional'.+  Core.HashMap Core.Text Core.Value ->+  InstructionOutput_Codec+newInstructionOutput_Codec additional =+  InstructionOutput_Codec {additional = additional}++instance Core.FromJSON InstructionOutput_Codec where+  parseJSON =+    Core.withObject+      "InstructionOutput_Codec"+      (\o -> InstructionOutput_Codec Core.<$> (Core.parseJSONObject o))++instance Core.ToJSON InstructionOutput_Codec where+  toJSON InstructionOutput_Codec {..} = Core.toJSON additional++-- | A metric value representing temporal values of a variable.+--+-- /See:/ 'newIntegerGauge' smart constructor.+data IntegerGauge = IntegerGauge+  { -- | The time at which this value was measured. Measured as msecs from epoch.+    timestamp :: (Core.Maybe Core.DateTime),+    -- | The value of the variable represented by this gauge.+    value :: (Core.Maybe SplitInt64)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'IntegerGauge' with the minimum fields required to make a request.+newIntegerGauge ::+  IntegerGauge+newIntegerGauge =+  IntegerGauge {timestamp = Core.Nothing, value = Core.Nothing}++instance Core.FromJSON IntegerGauge where+  parseJSON =+    Core.withObject+      "IntegerGauge"+      ( \o ->+          IntegerGauge+            Core.<$> (o Core..:? "timestamp")+            Core.<*> (o Core..:? "value")+      )++instance Core.ToJSON IntegerGauge where+  toJSON IntegerGauge {..} =+    Core.object+      ( Core.catMaybes+          [ ("timestamp" Core..=) Core.<$> timestamp,+            ("value" Core..=) Core.<$> value+          ]+      )++-- | A metric value representing a list of integers.+--+-- /See:/ 'newIntegerList' smart constructor.+newtype IntegerList = IntegerList+  { -- | Elements of the list.+    elements :: (Core.Maybe [SplitInt64])+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'IntegerList' with the minimum fields required to make a request.+newIntegerList ::+  IntegerList+newIntegerList = IntegerList {elements = Core.Nothing}++instance Core.FromJSON IntegerList where+  parseJSON =+    Core.withObject+      "IntegerList"+      (\o -> IntegerList Core.<$> (o Core..:? "elements"))++instance Core.ToJSON IntegerList where+  toJSON IntegerList {..} =+    Core.object+      (Core.catMaybes [("elements" Core..=) Core.<$> elements])++-- | A representation of an integer mean metric contribution.+--+-- /See:/ 'newIntegerMean' smart constructor.+data IntegerMean = IntegerMean+  { -- | The number of values being aggregated.+    count :: (Core.Maybe SplitInt64),+    -- | The sum of all values being aggregated.+    sum :: (Core.Maybe SplitInt64)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'IntegerMean' with the minimum fields required to make a request.+newIntegerMean ::+  IntegerMean+newIntegerMean =+  IntegerMean {count = Core.Nothing, sum = Core.Nothing}++instance Core.FromJSON IntegerMean where+  parseJSON =+    Core.withObject+      "IntegerMean"+      ( \o ->+          IntegerMean+            Core.<$> (o Core..:? "count")+            Core.<*> (o Core..:? "sum")+      )++instance Core.ToJSON IntegerMean where+  toJSON IntegerMean {..} =+    Core.object+      ( Core.catMaybes+          [("count" Core..=) Core.<$> count, ("sum" Core..=) Core.<$> sum]+      )++-- | Defines a job to be run by the Cloud Dataflow service. Do not enter confidential information when you supply string values using the API.+--+-- /See:/ 'newJob' smart constructor.+data Job = Job+  { -- | The client\'s unique identifier of the job, re-used across retried attempts. If this field is set, the service will ensure its uniqueness. The request to create a job will fail if the service has knowledge of a previously submitted job with the same client\'s ID and job name. The caller may use this field to ensure idempotence of job creation across retried attempts to create a job. By default, the field is empty and, in that case, the service ignores it.+    clientRequestId :: (Core.Maybe Core.Text),+    -- | The timestamp when the job was initially created. Immutable and set by the Cloud Dataflow service.+    createTime :: (Core.Maybe Core.DateTime),+    -- | If this is specified, the job\'s initial state is populated from the given snapshot.+    createdFromSnapshotId :: (Core.Maybe Core.Text),+    -- | The current state of the job. Jobs are created in the @JOB_STATE_STOPPED@ state unless otherwise specified. A job in the @JOB_STATE_RUNNING@ state may asynchronously enter a terminal state. After a job has reached a terminal state, no further state updates may be made. This field might be mutated by the Dataflow service; callers cannot mutate it.+    currentState :: (Core.Maybe Job_CurrentState),+    -- | The timestamp associated with the current state.+    currentStateTime :: (Core.Maybe Core.DateTime),+    -- | Optional. The environment for the job.+    environment :: (Core.Maybe Environment),+    -- | Deprecated.+    executionInfo :: (Core.Maybe JobExecutionInfo),+    -- | The unique ID of this job. This field is set by the Dataflow service when the job is created, and is immutable for the life of the job.+    id :: (Core.Maybe Core.Text),+    -- | This field is populated by the Dataflow service to support filtering jobs by the metadata values provided here. Populated for ListJobs and all GetJob views SUMMARY and higher.+    jobMetadata :: (Core.Maybe JobMetadata),+    -- | User-defined labels for this job. The labels map can contain no more than 64 entries. Entries of the labels map are UTF8 strings that comply with the following restrictions: * Keys must conform to regexp: \\p{Ll}\\p{Lo}{0,62} * Values must conform to regexp: [\\p{Ll}\\p{Lo}\\p{N}_-]{0,63} * Both keys and values are additionally constrained to be \<= 128 bytes in size.+    labels :: (Core.Maybe Job_Labels),+    -- | Optional. The [regional endpoint] (https:\/\/cloud.google.com\/dataflow\/docs\/concepts\/regional-endpoints) that contains this job.+    location :: (Core.Maybe Core.Text),+    -- | Optional. The user-specified Dataflow job name. Only one active job with a given name can exist in a project within one region at any given time. Jobs in different regions can have the same name. If a caller attempts to create a job with the same name as an active job that already exists, the attempt returns the existing job. The name must match the regular expression @[a-z]([-a-z0-9]{0,1022}[a-z0-9])?@+    name :: (Core.Maybe Core.Text),+    -- | Preliminary field: The format of this data may change at any time. A description of the user pipeline and stages through which it is executed. Created by Cloud Dataflow service. Only retrieved with JOB/VIEW/DESCRIPTION or JOB/VIEW/ALL.+    pipelineDescription :: (Core.Maybe PipelineDescription),+    -- | The ID of the Google Cloud project that the job belongs to.+    projectId :: (Core.Maybe Core.Text),+    -- | If this job is an update of an existing job, this field is the job ID of the job it replaced. When sending a @CreateJobRequest@, you can update a job by specifying it here. The job named here is stopped, and its intermediate state is transferred to this job.+    replaceJobId :: (Core.Maybe Core.Text),+    -- | If another job is an update of this job (and thus, this job is in @JOB_STATE_UPDATED@), this field contains the ID of that job.+    replacedByJobId :: (Core.Maybe Core.Text),+    -- | The job\'s requested state. Applies to @UpdateJob@ requests. Set @requested_state@ with @UpdateJob@ requests to switch between the states @JOB_STATE_STOPPED@ and @JOB_STATE_RUNNING@. You can also use @UpdateJob@ requests to change a job\'s state from @JOB_STATE_RUNNING@ to @JOB_STATE_CANCELLED@, @JOB_STATE_DONE@, or @JOB_STATE_DRAINED@. These states irrevocably terminate the job if it hasn\'t already reached a terminal state. This field has no effect on @CreateJob@ requests.+    requestedState :: (Core.Maybe Job_RequestedState),+    -- | This field may ONLY be modified at runtime using the projects.jobs.update method to adjust job behavior. This field has no effect when specified at job creation.+    runtimeUpdatableParams :: (Core.Maybe RuntimeUpdatableParams),+    -- | Output only. Reserved for future use. This field is set only in responses from the server; it is ignored if it is set in any requests.+    satisfiesPzi :: (Core.Maybe Core.Bool),+    -- | Reserved for future use. This field is set only in responses from the server; it is ignored if it is set in any requests.+    satisfiesPzs :: (Core.Maybe Core.Bool),+    -- | Output only. Resources used by the Dataflow Service to run the job.+    serviceResources :: (Core.Maybe ServiceResources),+    -- | This field may be mutated by the Cloud Dataflow service; callers cannot mutate it.+    stageStates :: (Core.Maybe [ExecutionStageState]),+    -- | The timestamp when the job was started (transitioned to JOB/STATE/PENDING). Flexible resource scheduling jobs are started with some delay after job creation, so start/time is unset before start and is updated when the job is started by the Cloud Dataflow service. For other jobs, start/time always equals to create_time and is immutable and set by the Cloud Dataflow service.+    startTime :: (Core.Maybe Core.DateTime),+    -- | Exactly one of step or steps/location should be specified. The top-level steps that constitute the entire job. Only retrieved with JOB/VIEW_ALL.+    steps :: (Core.Maybe [Step]),+    -- | The Cloud Storage location where the steps are stored.+    stepsLocation :: (Core.Maybe Core.Text),+    -- | A set of files the system should be aware of that are used for temporary storage. These temporary files will be removed on job completion. No duplicates are allowed. No file patterns are supported. The supported files are: Google Cloud Storage: storage.googleapis.com\/{bucket}\/{object} bucket.storage.googleapis.com\/{object}+    tempFiles :: (Core.Maybe [Core.Text]),+    -- | Optional. The map of transform name prefixes of the job to be replaced to the corresponding name prefixes of the new job.+    transformNameMapping :: (Core.Maybe Job_TransformNameMapping),+    -- | Optional. The type of Dataflow job.+    type' :: (Core.Maybe Job_Type)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'Job' with the minimum fields required to make a request.+newJob ::+  Job+newJob =+  Job+    { clientRequestId = Core.Nothing,+      createTime = Core.Nothing,+      createdFromSnapshotId = Core.Nothing,+      currentState = Core.Nothing,+      currentStateTime = Core.Nothing,+      environment = Core.Nothing,+      executionInfo = Core.Nothing,+      id = Core.Nothing,+      jobMetadata = Core.Nothing,+      labels = Core.Nothing,+      location = Core.Nothing,+      name = Core.Nothing,+      pipelineDescription = Core.Nothing,+      projectId = Core.Nothing,+      replaceJobId = Core.Nothing,+      replacedByJobId = Core.Nothing,+      requestedState = Core.Nothing,+      runtimeUpdatableParams = Core.Nothing,+      satisfiesPzi = Core.Nothing,+      satisfiesPzs = Core.Nothing,+      serviceResources = Core.Nothing,+      stageStates = Core.Nothing,+      startTime = Core.Nothing,+      steps = Core.Nothing,+      stepsLocation = Core.Nothing,+      tempFiles = Core.Nothing,+      transformNameMapping = Core.Nothing,+      type' = Core.Nothing+    }++instance Core.FromJSON Job where+  parseJSON =+    Core.withObject+      "Job"+      ( \o ->+          Job+            Core.<$> (o Core..:? "clientRequestId")+            Core.<*> (o Core..:? "createTime")+            Core.<*> (o Core..:? "createdFromSnapshotId")+            Core.<*> (o Core..:? "currentState")+            Core.<*> (o Core..:? "currentStateTime")+            Core.<*> (o Core..:? "environment")+            Core.<*> (o Core..:? "executionInfo")+            Core.<*> (o Core..:? "id")+            Core.<*> (o Core..:? "jobMetadata")+            Core.<*> (o Core..:? "labels")+            Core.<*> (o Core..:? "location")+            Core.<*> (o Core..:? "name")+            Core.<*> (o Core..:? "pipelineDescription")+            Core.<*> (o Core..:? "projectId")+            Core.<*> (o Core..:? "replaceJobId")+            Core.<*> (o Core..:? "replacedByJobId")+            Core.<*> (o Core..:? "requestedState")+            Core.<*> (o Core..:? "runtimeUpdatableParams")+            Core.<*> (o Core..:? "satisfiesPzi")+            Core.<*> (o Core..:? "satisfiesPzs")+            Core.<*> (o Core..:? "serviceResources")+            Core.<*> (o Core..:? "stageStates")+            Core.<*> (o Core..:? "startTime")+            Core.<*> (o Core..:? "steps")+            Core.<*> (o Core..:? "stepsLocation")+            Core.<*> (o Core..:? "tempFiles")+            Core.<*> (o Core..:? "transformNameMapping")+            Core.<*> (o Core..:? "type")+      )++instance Core.ToJSON Job where+  toJSON Job {..} =+    Core.object+      ( Core.catMaybes+          [ ("clientRequestId" Core..=) Core.<$> clientRequestId,+            ("createTime" Core..=) Core.<$> createTime,+            ("createdFromSnapshotId" Core..=) Core.<$> createdFromSnapshotId,+            ("currentState" Core..=) Core.<$> currentState,+            ("currentStateTime" Core..=) Core.<$> currentStateTime,+            ("environment" Core..=) Core.<$> environment,+            ("executionInfo" Core..=) Core.<$> executionInfo,+            ("id" Core..=) Core.<$> id,+            ("jobMetadata" Core..=) Core.<$> jobMetadata,+            ("labels" Core..=) Core.<$> labels,+            ("location" Core..=) Core.<$> location,+            ("name" Core..=) Core.<$> name,+            ("pipelineDescription" Core..=) Core.<$> pipelineDescription,+            ("projectId" Core..=) Core.<$> projectId,+            ("replaceJobId" Core..=) Core.<$> replaceJobId,+            ("replacedByJobId" Core..=) Core.<$> replacedByJobId,+            ("requestedState" Core..=) Core.<$> requestedState,+            ("runtimeUpdatableParams" Core..=) Core.<$> runtimeUpdatableParams,+            ("satisfiesPzi" Core..=) Core.<$> satisfiesPzi,+            ("satisfiesPzs" Core..=) Core.<$> satisfiesPzs,+            ("serviceResources" Core..=) Core.<$> serviceResources,+            ("stageStates" Core..=) Core.<$> stageStates,+            ("startTime" Core..=) Core.<$> startTime,+            ("steps" Core..=) Core.<$> steps,+            ("stepsLocation" Core..=) Core.<$> stepsLocation,+            ("tempFiles" Core..=) Core.<$> tempFiles,+            ("transformNameMapping" Core..=) Core.<$> transformNameMapping,+            ("type" Core..=) Core.<$> type'+          ]+      )++-- | User-defined labels for this job. The labels map can contain no more than 64 entries. Entries of the labels map are UTF8 strings that comply with the following restrictions: * Keys must conform to regexp: \\p{Ll}\\p{Lo}{0,62} * Values must conform to regexp: [\\p{Ll}\\p{Lo}\\p{N}_-]{0,63} * Both keys and values are additionally constrained to be \<= 128 bytes in size.+--+-- /See:/ 'newJob_Labels' smart constructor.+newtype Job_Labels = Job_Labels+  { additional :: (Core.HashMap Core.Text Core.Text)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'Job_Labels' with the minimum fields required to make a request.+newJob_Labels ::+  -- |  See 'additional'.+  Core.HashMap Core.Text Core.Text ->+  Job_Labels+newJob_Labels additional = Job_Labels {additional = additional}++instance Core.FromJSON Job_Labels where+  parseJSON =+    Core.withObject+      "Job_Labels"+      (\o -> Job_Labels Core.<$> (Core.parseJSONObject o))++instance Core.ToJSON Job_Labels where+  toJSON Job_Labels {..} = Core.toJSON additional++-- | Optional. The map of transform name prefixes of the job to be replaced to the corresponding name prefixes of the new job.+--+-- /See:/ 'newJob_TransformNameMapping' smart constructor.+newtype Job_TransformNameMapping = Job_TransformNameMapping+  { additional :: (Core.HashMap Core.Text Core.Text)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'Job_TransformNameMapping' with the minimum fields required to make a request.+newJob_TransformNameMapping ::+  -- |  See 'additional'.+  Core.HashMap Core.Text Core.Text ->+  Job_TransformNameMapping+newJob_TransformNameMapping additional =+  Job_TransformNameMapping {additional = additional}++instance Core.FromJSON Job_TransformNameMapping where+  parseJSON =+    Core.withObject+      "Job_TransformNameMapping"+      (\o -> Job_TransformNameMapping Core.<$> (Core.parseJSONObject o))++instance Core.ToJSON Job_TransformNameMapping where+  toJSON Job_TransformNameMapping {..} = Core.toJSON additional++-- | Information about the execution of a job.+--+-- /See:/ 'newJobExecutionDetails' smart constructor.+data JobExecutionDetails = JobExecutionDetails+  { -- | If present, this response does not contain all requested tasks. To obtain the next page of results, repeat the request with page_token set to this value.+    nextPageToken :: (Core.Maybe Core.Text),+    -- | The stages of the job execution.+    stages :: (Core.Maybe [StageSummary])+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'JobExecutionDetails' with the minimum fields required to make a request.+newJobExecutionDetails ::+  JobExecutionDetails+newJobExecutionDetails =+  JobExecutionDetails+    { nextPageToken = Core.Nothing,+      stages = Core.Nothing+    }++instance Core.FromJSON JobExecutionDetails where+  parseJSON =+    Core.withObject+      "JobExecutionDetails"+      ( \o ->+          JobExecutionDetails+            Core.<$> (o Core..:? "nextPageToken")+            Core.<*> (o Core..:? "stages")+      )++instance Core.ToJSON JobExecutionDetails where+  toJSON JobExecutionDetails {..} =+    Core.object+      ( Core.catMaybes+          [ ("nextPageToken" Core..=) Core.<$> nextPageToken,+            ("stages" Core..=) Core.<$> stages+          ]+      )++-- | Additional information about how a Cloud Dataflow job will be executed that isn\'t contained in the submitted job.+--+-- /See:/ 'newJobExecutionInfo' smart constructor.+newtype JobExecutionInfo = JobExecutionInfo+  { -- | A mapping from each stage to the information about that stage.+    stages :: (Core.Maybe JobExecutionInfo_Stages)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'JobExecutionInfo' with the minimum fields required to make a request.+newJobExecutionInfo ::+  JobExecutionInfo+newJobExecutionInfo = JobExecutionInfo {stages = Core.Nothing}++instance Core.FromJSON JobExecutionInfo where+  parseJSON =+    Core.withObject+      "JobExecutionInfo"+      (\o -> JobExecutionInfo Core.<$> (o Core..:? "stages"))++instance Core.ToJSON JobExecutionInfo where+  toJSON JobExecutionInfo {..} =+    Core.object (Core.catMaybes [("stages" Core..=) Core.<$> stages])++-- | A mapping from each stage to the information about that stage.+--+-- /See:/ 'newJobExecutionInfo_Stages' smart constructor.+newtype JobExecutionInfo_Stages = JobExecutionInfo_Stages+  { additional :: (Core.HashMap Core.Text JobExecutionStageInfo)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'JobExecutionInfo_Stages' with the minimum fields required to make a request.+newJobExecutionInfo_Stages ::+  -- |  See 'additional'.+  Core.HashMap Core.Text JobExecutionStageInfo ->+  JobExecutionInfo_Stages+newJobExecutionInfo_Stages additional =+  JobExecutionInfo_Stages {additional = additional}++instance Core.FromJSON JobExecutionInfo_Stages where+  parseJSON =+    Core.withObject+      "JobExecutionInfo_Stages"+      (\o -> JobExecutionInfo_Stages Core.<$> (Core.parseJSONObject o))++instance Core.ToJSON JobExecutionInfo_Stages where+  toJSON JobExecutionInfo_Stages {..} = Core.toJSON additional++-- | Contains information about how a particular google.dataflow.v1beta3.Step will be executed.+--+-- /See:/ 'newJobExecutionStageInfo' smart constructor.+newtype JobExecutionStageInfo = JobExecutionStageInfo+  { -- | 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 stage.+    stepName :: (Core.Maybe [Core.Text])+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'JobExecutionStageInfo' with the minimum fields required to make a request.+newJobExecutionStageInfo ::+  JobExecutionStageInfo+newJobExecutionStageInfo =+  JobExecutionStageInfo {stepName = Core.Nothing}++instance Core.FromJSON JobExecutionStageInfo where+  parseJSON =+    Core.withObject+      "JobExecutionStageInfo"+      (\o -> JobExecutionStageInfo Core.<$> (o Core..:? "stepName"))++instance Core.ToJSON JobExecutionStageInfo where+  toJSON JobExecutionStageInfo {..} =+    Core.object+      (Core.catMaybes [("stepName" Core..=) Core.<$> stepName])++-- | A particular message pertaining to a Dataflow job.+--+-- /See:/ 'newJobMessage' smart constructor.+data JobMessage = JobMessage+  { -- | Deprecated.+    id :: (Core.Maybe Core.Text),+    -- | Importance level of the message.+    messageImportance :: (Core.Maybe JobMessage_MessageImportance),+    -- | The text of the message.+    messageText :: (Core.Maybe Core.Text),+    -- | The timestamp of the message.+    time :: (Core.Maybe Core.DateTime)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'JobMessage' with the minimum fields required to make a request.+newJobMessage ::+  JobMessage+newJobMessage =+  JobMessage+    { id = Core.Nothing,+      messageImportance = Core.Nothing,+      messageText = Core.Nothing,+      time = Core.Nothing+    }++instance Core.FromJSON JobMessage where+  parseJSON =+    Core.withObject+      "JobMessage"+      ( \o ->+          JobMessage+            Core.<$> (o Core..:? "id")+            Core.<*> (o Core..:? "messageImportance")+            Core.<*> (o Core..:? "messageText")+            Core.<*> (o Core..:? "time")+      )++instance Core.ToJSON JobMessage where+  toJSON JobMessage {..} =+    Core.object+      ( Core.catMaybes+          [ ("id" Core..=) Core.<$> id,+            ("messageImportance" Core..=) Core.<$> messageImportance,+            ("messageText" Core..=) Core.<$> messageText,+            ("time" Core..=) Core.<$> time+          ]+      )++-- | Metadata available primarily for filtering jobs. Will be included in the ListJob response and Job SUMMARY view.+--+-- /See:/ 'newJobMetadata' smart constructor.+data JobMetadata = JobMetadata+  { -- | Identification of a Cloud Bigtable source used in the Dataflow job.+    bigTableDetails :: (Core.Maybe [BigTableIODetails]),+    -- | Identification of a BigQuery source used in the Dataflow job.+    bigqueryDetails :: (Core.Maybe [BigQueryIODetails]),+    -- | Identification of a Datastore source used in the Dataflow job.+    datastoreDetails :: (Core.Maybe [DatastoreIODetails]),+    -- | Identification of a File source used in the Dataflow job.+    fileDetails :: (Core.Maybe [FileIODetails]),+    -- | Identification of a Pub\/Sub source used in the Dataflow job.+    pubsubDetails :: (Core.Maybe [PubSubIODetails]),+    -- | The SDK version used to run the job.+    sdkVersion :: (Core.Maybe SdkVersion),+    -- | Identification of a Spanner source used in the Dataflow job.+    spannerDetails :: (Core.Maybe [SpannerIODetails]),+    -- | List of display properties to help UI filter jobs.+    userDisplayProperties :: (Core.Maybe JobMetadata_UserDisplayProperties)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'JobMetadata' with the minimum fields required to make a request.+newJobMetadata ::+  JobMetadata+newJobMetadata =+  JobMetadata+    { bigTableDetails = Core.Nothing,+      bigqueryDetails = Core.Nothing,+      datastoreDetails = Core.Nothing,+      fileDetails = Core.Nothing,+      pubsubDetails = Core.Nothing,+      sdkVersion = Core.Nothing,+      spannerDetails = Core.Nothing,+      userDisplayProperties = Core.Nothing+    }++instance Core.FromJSON JobMetadata where+  parseJSON =+    Core.withObject+      "JobMetadata"+      ( \o ->+          JobMetadata+            Core.<$> (o Core..:? "bigTableDetails")+            Core.<*> (o Core..:? "bigqueryDetails")+            Core.<*> (o Core..:? "datastoreDetails")+            Core.<*> (o Core..:? "fileDetails")+            Core.<*> (o Core..:? "pubsubDetails")+            Core.<*> (o Core..:? "sdkVersion")+            Core.<*> (o Core..:? "spannerDetails")+            Core.<*> (o Core..:? "userDisplayProperties")+      )++instance Core.ToJSON JobMetadata where+  toJSON JobMetadata {..} =+    Core.object+      ( Core.catMaybes+          [ ("bigTableDetails" Core..=) Core.<$> bigTableDetails,+            ("bigqueryDetails" Core..=) Core.<$> bigqueryDetails,+            ("datastoreDetails" Core..=) Core.<$> datastoreDetails,+            ("fileDetails" Core..=) Core.<$> fileDetails,+            ("pubsubDetails" Core..=) Core.<$> pubsubDetails,+            ("sdkVersion" Core..=) Core.<$> sdkVersion,+            ("spannerDetails" Core..=) Core.<$> spannerDetails,+            ("userDisplayProperties" Core..=) Core.<$> userDisplayProperties+          ]+      )++-- | List of display properties to help UI filter jobs.+--+-- /See:/ 'newJobMetadata_UserDisplayProperties' smart constructor.+newtype JobMetadata_UserDisplayProperties = JobMetadata_UserDisplayProperties+  { additional :: (Core.HashMap Core.Text Core.Text)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'JobMetadata_UserDisplayProperties' with the minimum fields required to make a request.+newJobMetadata_UserDisplayProperties ::+  -- |  See 'additional'.+  Core.HashMap Core.Text Core.Text ->+  JobMetadata_UserDisplayProperties+newJobMetadata_UserDisplayProperties additional =+  JobMetadata_UserDisplayProperties {additional = additional}++instance Core.FromJSON JobMetadata_UserDisplayProperties where+  parseJSON =+    Core.withObject+      "JobMetadata_UserDisplayProperties"+      ( \o ->+          JobMetadata_UserDisplayProperties+            Core.<$> (Core.parseJSONObject o)+      )++instance Core.ToJSON JobMetadata_UserDisplayProperties where+  toJSON JobMetadata_UserDisplayProperties {..} =+    Core.toJSON additional++-- | 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. For more information, see [Dataflow job metrics] (https:\/\/cloud.google.com\/dataflow\/docs\/guides\/using-monitoring-intf). 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:/ 'newJobMetrics' smart constructor.+data JobMetrics = JobMetrics+  { -- | Timestamp as of which metric values are current.+    metricTime :: (Core.Maybe Core.DateTime),+    -- | All metrics for this job.+    metrics :: (Core.Maybe [MetricUpdate])+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'JobMetrics' with the minimum fields required to make a request.+newJobMetrics ::+  JobMetrics+newJobMetrics =+  JobMetrics {metricTime = Core.Nothing, metrics = Core.Nothing}++instance Core.FromJSON JobMetrics where+  parseJSON =+    Core.withObject+      "JobMetrics"+      ( \o ->+          JobMetrics+            Core.<$> (o Core..:? "metricTime")+            Core.<*> (o Core..:? "metrics")+      )++instance Core.ToJSON JobMetrics where+  toJSON JobMetrics {..} =+    Core.object+      ( Core.catMaybes+          [ ("metricTime" Core..=) Core.<$> metricTime,+            ("metrics" Core..=) Core.<$> metrics+          ]+      )++-- | Data disk assignment information for a specific key-range of a sharded computation. Currently we only support UTF-8 character splits to simplify encoding into JSON.+--+-- /See:/ 'newKeyRangeDataDiskAssignment' smart constructor.+data KeyRangeDataDiskAssignment = KeyRangeDataDiskAssignment+  { -- | 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 \"myproject-1014-104817-4c2-harness-0-disk-1\".+    dataDisk :: (Core.Maybe Core.Text),+    -- | The end (exclusive) of the key range.+    end :: (Core.Maybe Core.Text),+    -- | The start (inclusive) of the key range.+    start :: (Core.Maybe Core.Text)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'KeyRangeDataDiskAssignment' with the minimum fields required to make a request.+newKeyRangeDataDiskAssignment ::+  KeyRangeDataDiskAssignment+newKeyRangeDataDiskAssignment =+  KeyRangeDataDiskAssignment+    { dataDisk = Core.Nothing,+      end = Core.Nothing,+      start = Core.Nothing+    }++instance Core.FromJSON KeyRangeDataDiskAssignment where+  parseJSON =+    Core.withObject+      "KeyRangeDataDiskAssignment"+      ( \o ->+          KeyRangeDataDiskAssignment+            Core.<$> (o Core..:? "dataDisk")+            Core.<*> (o Core..:? "end")+            Core.<*> (o Core..:? "start")+      )++instance Core.ToJSON KeyRangeDataDiskAssignment where+  toJSON KeyRangeDataDiskAssignment {..} =+    Core.object+      ( Core.catMaybes+          [ ("dataDisk" Core..=) Core.<$> dataDisk,+            ("end" Core..=) Core.<$> end,+            ("start" Core..=) Core.<$> start+          ]+      )++-- | Location information for a specific key-range of a sharded computation. Currently we only support UTF-8 character splits to simplify encoding into JSON.+--+-- /See:/ 'newKeyRangeLocation' smart constructor.+data KeyRangeLocation = KeyRangeLocation+  { -- | 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 \"myproject-1014-104817-4c2-harness-0-disk-1\".+    dataDisk :: (Core.Maybe Core.Text),+    -- | The physical location of this range assignment to be used for streaming computation cross-worker message delivery.+    deliveryEndpoint :: (Core.Maybe Core.Text),+    -- | DEPRECATED. The location of the persistent state for this range, as a persistent directory in the worker local filesystem.+    deprecatedPersistentDirectory :: (Core.Maybe Core.Text),+    -- | The end (exclusive) of the key range.+    end :: (Core.Maybe Core.Text),+    -- | The start (inclusive) of the key range.+    start :: (Core.Maybe Core.Text)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'KeyRangeLocation' with the minimum fields required to make a request.+newKeyRangeLocation ::+  KeyRangeLocation+newKeyRangeLocation =+  KeyRangeLocation+    { dataDisk = Core.Nothing,+      deliveryEndpoint = Core.Nothing,+      deprecatedPersistentDirectory = Core.Nothing,+      end = Core.Nothing,+      start = Core.Nothing+    }++instance Core.FromJSON KeyRangeLocation where+  parseJSON =+    Core.withObject+      "KeyRangeLocation"+      ( \o ->+          KeyRangeLocation+            Core.<$> (o Core..:? "dataDisk")+            Core.<*> (o Core..:? "deliveryEndpoint")+            Core.<*> (o Core..:? "deprecatedPersistentDirectory")+            Core.<*> (o Core..:? "end")+            Core.<*> (o Core..:? "start")+      )++instance Core.ToJSON KeyRangeLocation where+  toJSON KeyRangeLocation {..} =+    Core.object+      ( Core.catMaybes+          [ ("dataDisk" Core..=) Core.<$> dataDisk,+            ("deliveryEndpoint" Core..=) Core.<$> deliveryEndpoint,+            ("deprecatedPersistentDirectory" Core..=)+              Core.<$> deprecatedPersistentDirectory,+            ("end" Core..=) Core.<$> end,+            ("start" Core..=) Core.<$> start+          ]+      )++-- | Launch FlexTemplate Parameter.+--+-- /See:/ 'newLaunchFlexTemplateParameter' smart constructor.+data LaunchFlexTemplateParameter = LaunchFlexTemplateParameter+  { -- | Spec about the container image to launch.+    containerSpec :: (Core.Maybe ContainerSpec),+    -- | Cloud Storage path to a file with json serialized ContainerSpec as content.+    containerSpecGcsPath :: (Core.Maybe Core.Text),+    -- | The runtime environment for the FlexTemplate job+    environment :: (Core.Maybe FlexTemplateRuntimeEnvironment),+    -- | Required. The job name to use for the created job. For update job request, job name should be same as the existing running job.+    jobName :: (Core.Maybe Core.Text),+    -- | Launch options for this flex template job. This is a common set of options across languages and templates. This should not be used to pass job parameters.+    launchOptions :: (Core.Maybe LaunchFlexTemplateParameter_LaunchOptions),+    -- | The parameters for FlexTemplate. Ex. {\"num_workers\":\"5\"}+    parameters :: (Core.Maybe LaunchFlexTemplateParameter_Parameters),+    -- | Use this to pass transform/name/mappings for streaming update jobs. Ex:{\"oldTransformName\":\"newTransformName\",...}\'+    transformNameMappings :: (Core.Maybe LaunchFlexTemplateParameter_TransformNameMappings),+    -- | Set this to true if you are sending a request to update a running streaming job. When set, the job name should be the same as the running job.+    update :: (Core.Maybe Core.Bool)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'LaunchFlexTemplateParameter' with the minimum fields required to make a request.+newLaunchFlexTemplateParameter ::+  LaunchFlexTemplateParameter+newLaunchFlexTemplateParameter =+  LaunchFlexTemplateParameter+    { containerSpec = Core.Nothing,+      containerSpecGcsPath = Core.Nothing,+      environment = Core.Nothing,+      jobName = Core.Nothing,+      launchOptions = Core.Nothing,+      parameters = Core.Nothing,+      transformNameMappings = Core.Nothing,+      update = Core.Nothing+    }++instance Core.FromJSON LaunchFlexTemplateParameter where+  parseJSON =+    Core.withObject+      "LaunchFlexTemplateParameter"+      ( \o ->+          LaunchFlexTemplateParameter+            Core.<$> (o Core..:? "containerSpec")+            Core.<*> (o Core..:? "containerSpecGcsPath")+            Core.<*> (o Core..:? "environment")+            Core.<*> (o Core..:? "jobName")+            Core.<*> (o Core..:? "launchOptions")+            Core.<*> (o Core..:? "parameters")+            Core.<*> (o Core..:? "transformNameMappings")+            Core.<*> (o Core..:? "update")+      )++instance Core.ToJSON LaunchFlexTemplateParameter where+  toJSON LaunchFlexTemplateParameter {..} =+    Core.object+      ( Core.catMaybes+          [ ("containerSpec" Core..=) Core.<$> containerSpec,+            ("containerSpecGcsPath" Core..=) Core.<$> containerSpecGcsPath,+            ("environment" Core..=) Core.<$> environment,+            ("jobName" Core..=) Core.<$> jobName,+            ("launchOptions" Core..=) Core.<$> launchOptions,+            ("parameters" Core..=) Core.<$> parameters,+            ("transformNameMappings" Core..=) Core.<$> transformNameMappings,+            ("update" Core..=) Core.<$> update+          ]+      )++-- | Launch options for this flex template job. This is a common set of options across languages and templates. This should not be used to pass job parameters.+--+-- /See:/ 'newLaunchFlexTemplateParameter_LaunchOptions' smart constructor.+newtype LaunchFlexTemplateParameter_LaunchOptions = LaunchFlexTemplateParameter_LaunchOptions+  { additional :: (Core.HashMap Core.Text Core.Text)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'LaunchFlexTemplateParameter_LaunchOptions' with the minimum fields required to make a request.+newLaunchFlexTemplateParameter_LaunchOptions ::+  -- |  See 'additional'.+  Core.HashMap Core.Text Core.Text ->+  LaunchFlexTemplateParameter_LaunchOptions+newLaunchFlexTemplateParameter_LaunchOptions additional =+  LaunchFlexTemplateParameter_LaunchOptions+    { additional =+        additional+    }++instance Core.FromJSON LaunchFlexTemplateParameter_LaunchOptions where+  parseJSON =+    Core.withObject+      "LaunchFlexTemplateParameter_LaunchOptions"+      ( \o ->+          LaunchFlexTemplateParameter_LaunchOptions+            Core.<$> (Core.parseJSONObject o)+      )++instance Core.ToJSON LaunchFlexTemplateParameter_LaunchOptions where+  toJSON LaunchFlexTemplateParameter_LaunchOptions {..} =+    Core.toJSON additional++-- | The parameters for FlexTemplate. Ex. {\"num_workers\":\"5\"}+--+-- /See:/ 'newLaunchFlexTemplateParameter_Parameters' smart constructor.+newtype LaunchFlexTemplateParameter_Parameters = LaunchFlexTemplateParameter_Parameters+  { additional :: (Core.HashMap Core.Text Core.Text)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'LaunchFlexTemplateParameter_Parameters' with the minimum fields required to make a request.+newLaunchFlexTemplateParameter_Parameters ::+  -- |  See 'additional'.+  Core.HashMap Core.Text Core.Text ->+  LaunchFlexTemplateParameter_Parameters+newLaunchFlexTemplateParameter_Parameters additional =+  LaunchFlexTemplateParameter_Parameters {additional = additional}++instance Core.FromJSON LaunchFlexTemplateParameter_Parameters where+  parseJSON =+    Core.withObject+      "LaunchFlexTemplateParameter_Parameters"+      ( \o ->+          LaunchFlexTemplateParameter_Parameters+            Core.<$> (Core.parseJSONObject o)+      )++instance Core.ToJSON LaunchFlexTemplateParameter_Parameters where+  toJSON LaunchFlexTemplateParameter_Parameters {..} =+    Core.toJSON additional++-- | Use this to pass transform/name/mappings for streaming update jobs. Ex:{\"oldTransformName\":\"newTransformName\",...}\'+--+-- /See:/ 'newLaunchFlexTemplateParameter_TransformNameMappings' smart constructor.+newtype LaunchFlexTemplateParameter_TransformNameMappings = LaunchFlexTemplateParameter_TransformNameMappings+  { additional :: (Core.HashMap Core.Text Core.Text)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'LaunchFlexTemplateParameter_TransformNameMappings' with the minimum fields required to make a request.+newLaunchFlexTemplateParameter_TransformNameMappings ::+  -- |  See 'additional'.+  Core.HashMap Core.Text Core.Text ->+  LaunchFlexTemplateParameter_TransformNameMappings+newLaunchFlexTemplateParameter_TransformNameMappings additional =+  LaunchFlexTemplateParameter_TransformNameMappings+    { additional =+        additional+    }++instance+  Core.FromJSON+    LaunchFlexTemplateParameter_TransformNameMappings+  where+  parseJSON =+    Core.withObject+      "LaunchFlexTemplateParameter_TransformNameMappings"+      ( \o ->+          LaunchFlexTemplateParameter_TransformNameMappings+            Core.<$> (Core.parseJSONObject o)+      )++instance+  Core.ToJSON+    LaunchFlexTemplateParameter_TransformNameMappings+  where+  toJSON LaunchFlexTemplateParameter_TransformNameMappings {..} =+    Core.toJSON additional++-- | A request to launch a Cloud Dataflow job from a FlexTemplate.+--+-- /See:/ 'newLaunchFlexTemplateRequest' smart constructor.+data LaunchFlexTemplateRequest = LaunchFlexTemplateRequest+  { -- | Required. Parameter to launch a job form Flex Template.+    launchParameter :: (Core.Maybe LaunchFlexTemplateParameter),+    -- | If true, the request is validated but not actually executed. Defaults to false.+    validateOnly :: (Core.Maybe Core.Bool)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'LaunchFlexTemplateRequest' with the minimum fields required to make a request.+newLaunchFlexTemplateRequest ::+  LaunchFlexTemplateRequest+newLaunchFlexTemplateRequest =+  LaunchFlexTemplateRequest+    { launchParameter = Core.Nothing,+      validateOnly = Core.Nothing+    }++instance Core.FromJSON LaunchFlexTemplateRequest where+  parseJSON =+    Core.withObject+      "LaunchFlexTemplateRequest"+      ( \o ->+          LaunchFlexTemplateRequest+            Core.<$> (o Core..:? "launchParameter")+            Core.<*> (o Core..:? "validateOnly")+      )++instance Core.ToJSON LaunchFlexTemplateRequest where+  toJSON LaunchFlexTemplateRequest {..} =+    Core.object+      ( Core.catMaybes+          [ ("launchParameter" Core..=) Core.<$> launchParameter,+            ("validateOnly" Core..=) Core.<$> validateOnly+          ]+      )++-- | Response to the request to launch a job from Flex Template.+--+-- /See:/ 'newLaunchFlexTemplateResponse' smart constructor.+newtype LaunchFlexTemplateResponse = LaunchFlexTemplateResponse+  { -- | The job that was launched, if the request was not a dry run and the job was successfully launched.+    job :: (Core.Maybe Job)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'LaunchFlexTemplateResponse' with the minimum fields required to make a request.+newLaunchFlexTemplateResponse ::+  LaunchFlexTemplateResponse+newLaunchFlexTemplateResponse =+  LaunchFlexTemplateResponse {job = Core.Nothing}++instance Core.FromJSON LaunchFlexTemplateResponse where+  parseJSON =+    Core.withObject+      "LaunchFlexTemplateResponse"+      (\o -> LaunchFlexTemplateResponse Core.<$> (o Core..:? "job"))++instance Core.ToJSON LaunchFlexTemplateResponse where+  toJSON LaunchFlexTemplateResponse {..} =+    Core.object (Core.catMaybes [("job" Core..=) Core.<$> job])++-- | Parameters to provide to the template being launched. Note that the [metadata in the pipeline code] (https:\/\/cloud.google.com\/dataflow\/docs\/guides\/templates\/creating-templates#metadata) determines which runtime parameters are valid.+--+-- /See:/ 'newLaunchTemplateParameters' smart constructor.+data LaunchTemplateParameters = LaunchTemplateParameters+  { -- | The runtime environment for the job.+    environment :: (Core.Maybe RuntimeEnvironment),+    -- | Required. The job name to use for the created job. The name must match the regular expression @[a-z]([-a-z0-9]{0,1022}[a-z0-9])?@+    jobName :: (Core.Maybe Core.Text),+    -- | The runtime parameters to pass to the job.+    parameters :: (Core.Maybe LaunchTemplateParameters_Parameters),+    -- | Only applicable when updating a pipeline. Map of transform name prefixes of the job to be replaced to the corresponding name prefixes of the new job.+    transformNameMapping :: (Core.Maybe LaunchTemplateParameters_TransformNameMapping),+    -- | If set, replace the existing pipeline with the name specified by jobName with this pipeline, preserving state.+    update :: (Core.Maybe Core.Bool)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'LaunchTemplateParameters' with the minimum fields required to make a request.+newLaunchTemplateParameters ::+  LaunchTemplateParameters+newLaunchTemplateParameters =+  LaunchTemplateParameters+    { environment = Core.Nothing,+      jobName = Core.Nothing,+      parameters = Core.Nothing,+      transformNameMapping = Core.Nothing,+      update = Core.Nothing+    }++instance Core.FromJSON LaunchTemplateParameters where+  parseJSON =+    Core.withObject+      "LaunchTemplateParameters"+      ( \o ->+          LaunchTemplateParameters+            Core.<$> (o Core..:? "environment")+            Core.<*> (o Core..:? "jobName")+            Core.<*> (o Core..:? "parameters")+            Core.<*> (o Core..:? "transformNameMapping")+            Core.<*> (o Core..:? "update")+      )++instance Core.ToJSON LaunchTemplateParameters where+  toJSON LaunchTemplateParameters {..} =+    Core.object+      ( Core.catMaybes+          [ ("environment" Core..=) Core.<$> environment,+            ("jobName" Core..=) Core.<$> jobName,+            ("parameters" Core..=) Core.<$> parameters,+            ("transformNameMapping" Core..=) Core.<$> transformNameMapping,+            ("update" Core..=) Core.<$> update+          ]+      )++-- | The runtime parameters to pass to the job.+--+-- /See:/ 'newLaunchTemplateParameters_Parameters' smart constructor.+newtype LaunchTemplateParameters_Parameters = LaunchTemplateParameters_Parameters+  { additional :: (Core.HashMap Core.Text Core.Text)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'LaunchTemplateParameters_Parameters' with the minimum fields required to make a request.+newLaunchTemplateParameters_Parameters ::+  -- |  See 'additional'.+  Core.HashMap Core.Text Core.Text ->+  LaunchTemplateParameters_Parameters+newLaunchTemplateParameters_Parameters additional =+  LaunchTemplateParameters_Parameters {additional = additional}++instance Core.FromJSON LaunchTemplateParameters_Parameters where+  parseJSON =+    Core.withObject+      "LaunchTemplateParameters_Parameters"+      ( \o ->+          LaunchTemplateParameters_Parameters+            Core.<$> (Core.parseJSONObject o)+      )++instance Core.ToJSON LaunchTemplateParameters_Parameters where+  toJSON LaunchTemplateParameters_Parameters {..} =+    Core.toJSON additional++-- | Only applicable when updating a pipeline. Map of transform name prefixes of the job to be replaced to the corresponding name prefixes of the new job.+--+-- /See:/ 'newLaunchTemplateParameters_TransformNameMapping' smart constructor.+newtype LaunchTemplateParameters_TransformNameMapping = LaunchTemplateParameters_TransformNameMapping+  { additional :: (Core.HashMap Core.Text Core.Text)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'LaunchTemplateParameters_TransformNameMapping' with the minimum fields required to make a request.+newLaunchTemplateParameters_TransformNameMapping ::+  -- |  See 'additional'.+  Core.HashMap Core.Text Core.Text ->+  LaunchTemplateParameters_TransformNameMapping+newLaunchTemplateParameters_TransformNameMapping additional =+  LaunchTemplateParameters_TransformNameMapping+    { additional =+        additional+    }++instance+  Core.FromJSON+    LaunchTemplateParameters_TransformNameMapping+  where+  parseJSON =+    Core.withObject+      "LaunchTemplateParameters_TransformNameMapping"+      ( \o ->+          LaunchTemplateParameters_TransformNameMapping+            Core.<$> (Core.parseJSONObject o)+      )++instance Core.ToJSON LaunchTemplateParameters_TransformNameMapping where+  toJSON LaunchTemplateParameters_TransformNameMapping {..} =+    Core.toJSON additional++-- | Response to the request to launch a template.+--+-- /See:/ 'newLaunchTemplateResponse' smart constructor.+newtype LaunchTemplateResponse = LaunchTemplateResponse+  { -- | The job that was launched, if the request was not a dry run and the job was successfully launched.+    job :: (Core.Maybe Job)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'LaunchTemplateResponse' with the minimum fields required to make a request.+newLaunchTemplateResponse ::+  LaunchTemplateResponse+newLaunchTemplateResponse =+  LaunchTemplateResponse {job = Core.Nothing}++instance Core.FromJSON LaunchTemplateResponse where+  parseJSON =+    Core.withObject+      "LaunchTemplateResponse"+      (\o -> LaunchTemplateResponse Core.<$> (o Core..:? "job"))++instance Core.ToJSON LaunchTemplateResponse where+  toJSON LaunchTemplateResponse {..} =+    Core.object (Core.catMaybes [("job" Core..=) Core.<$> job])++-- | Request to lease WorkItems.+--+-- /See:/ 'newLeaseWorkItemRequest' smart constructor.+data LeaseWorkItemRequest = LeaseWorkItemRequest+  { -- | The current timestamp at the worker.+    currentWorkerTime :: (Core.Maybe Core.DateTime),+    -- | The [regional endpoint] (https:\/\/cloud.google.com\/dataflow\/docs\/concepts\/regional-endpoints) that contains the WorkItem\'s job.+    location :: (Core.Maybe Core.Text),+    -- | Optional. The project number of the project this worker belongs to.+    projectNumber :: (Core.Maybe Core.Int64),+    -- | The initial lease period.+    requestedLeaseDuration :: (Core.Maybe Core.Duration),+    -- | Untranslated bag-of-bytes WorkRequest from UnifiedWorker.+    unifiedWorkerRequest :: (Core.Maybe LeaseWorkItemRequest_UnifiedWorkerRequest),+    -- | Filter for WorkItem type.+    workItemTypes :: (Core.Maybe [Core.Text]),+    -- | Worker capabilities. WorkItems might be limited to workers with specific capabilities.+    workerCapabilities :: (Core.Maybe [Core.Text]),+    -- | Identifies the worker leasing work -- typically the ID of the virtual machine running the worker.+    workerId :: (Core.Maybe Core.Text)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'LeaseWorkItemRequest' with the minimum fields required to make a request.+newLeaseWorkItemRequest ::+  LeaseWorkItemRequest+newLeaseWorkItemRequest =+  LeaseWorkItemRequest+    { currentWorkerTime = Core.Nothing,+      location = Core.Nothing,+      projectNumber = Core.Nothing,+      requestedLeaseDuration = Core.Nothing,+      unifiedWorkerRequest = Core.Nothing,+      workItemTypes = Core.Nothing,+      workerCapabilities = Core.Nothing,+      workerId = Core.Nothing+    }++instance Core.FromJSON LeaseWorkItemRequest where+  parseJSON =+    Core.withObject+      "LeaseWorkItemRequest"+      ( \o ->+          LeaseWorkItemRequest+            Core.<$> (o Core..:? "currentWorkerTime")+            Core.<*> (o Core..:? "location")+            Core.<*> (o Core..:? "projectNumber" Core.<&> Core.fmap Core.fromAsText)+            Core.<*> (o Core..:? "requestedLeaseDuration")+            Core.<*> (o Core..:? "unifiedWorkerRequest")+            Core.<*> (o Core..:? "workItemTypes")+            Core.<*> (o Core..:? "workerCapabilities")+            Core.<*> (o Core..:? "workerId")+      )++instance Core.ToJSON LeaseWorkItemRequest where+  toJSON LeaseWorkItemRequest {..} =+    Core.object+      ( Core.catMaybes+          [ ("currentWorkerTime" Core..=) Core.<$> currentWorkerTime,+            ("location" Core..=) Core.<$> location,+            ("projectNumber" Core..=)+              Core.. Core.AsText+              Core.<$> projectNumber,+            ("requestedLeaseDuration" Core..=) Core.<$> requestedLeaseDuration,+            ("unifiedWorkerRequest" Core..=) Core.<$> unifiedWorkerRequest,+            ("workItemTypes" Core..=) Core.<$> workItemTypes,+            ("workerCapabilities" Core..=) Core.<$> workerCapabilities,+            ("workerId" Core..=) Core.<$> workerId+          ]+      )++-- | Untranslated bag-of-bytes WorkRequest from UnifiedWorker.+--+-- /See:/ 'newLeaseWorkItemRequest_UnifiedWorkerRequest' smart constructor.+newtype LeaseWorkItemRequest_UnifiedWorkerRequest = LeaseWorkItemRequest_UnifiedWorkerRequest+  { -- | Properties of the object. Contains field \@type with type URL.+    additional :: (Core.HashMap Core.Text Core.Value)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'LeaseWorkItemRequest_UnifiedWorkerRequest' with the minimum fields required to make a request.+newLeaseWorkItemRequest_UnifiedWorkerRequest ::+  -- |  Properties of the object. Contains field \@type with type URL. See 'additional'.+  Core.HashMap Core.Text Core.Value ->+  LeaseWorkItemRequest_UnifiedWorkerRequest+newLeaseWorkItemRequest_UnifiedWorkerRequest additional =+  LeaseWorkItemRequest_UnifiedWorkerRequest+    { additional =+        additional+    }++instance Core.FromJSON LeaseWorkItemRequest_UnifiedWorkerRequest where+  parseJSON =+    Core.withObject+      "LeaseWorkItemRequest_UnifiedWorkerRequest"+      ( \o ->+          LeaseWorkItemRequest_UnifiedWorkerRequest+            Core.<$> (Core.parseJSONObject o)+      )++instance Core.ToJSON LeaseWorkItemRequest_UnifiedWorkerRequest where+  toJSON LeaseWorkItemRequest_UnifiedWorkerRequest {..} =+    Core.toJSON additional++-- | Response to a request to lease WorkItems.+--+-- /See:/ 'newLeaseWorkItemResponse' smart constructor.+data LeaseWorkItemResponse = LeaseWorkItemResponse+  { -- | Untranslated bag-of-bytes WorkResponse for UnifiedWorker.+    unifiedWorkerResponse :: (Core.Maybe LeaseWorkItemResponse_UnifiedWorkerResponse),+    -- | A list of the leased WorkItems.+    workItems :: (Core.Maybe [WorkItem])+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'LeaseWorkItemResponse' with the minimum fields required to make a request.+newLeaseWorkItemResponse ::+  LeaseWorkItemResponse+newLeaseWorkItemResponse =+  LeaseWorkItemResponse+    { unifiedWorkerResponse = Core.Nothing,+      workItems = Core.Nothing+    }++instance Core.FromJSON LeaseWorkItemResponse where+  parseJSON =+    Core.withObject+      "LeaseWorkItemResponse"+      ( \o ->+          LeaseWorkItemResponse+            Core.<$> (o Core..:? "unifiedWorkerResponse")+            Core.<*> (o Core..:? "workItems")+      )++instance Core.ToJSON LeaseWorkItemResponse where+  toJSON LeaseWorkItemResponse {..} =+    Core.object+      ( Core.catMaybes+          [ ("unifiedWorkerResponse" Core..=) Core.<$> unifiedWorkerResponse,+            ("workItems" Core..=) Core.<$> workItems+          ]+      )++-- | Untranslated bag-of-bytes WorkResponse for UnifiedWorker.+--+-- /See:/ 'newLeaseWorkItemResponse_UnifiedWorkerResponse' smart constructor.+newtype LeaseWorkItemResponse_UnifiedWorkerResponse = LeaseWorkItemResponse_UnifiedWorkerResponse+  { -- | Properties of the object. Contains field \@type with type URL.+    additional :: (Core.HashMap Core.Text Core.Value)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'LeaseWorkItemResponse_UnifiedWorkerResponse' with the minimum fields required to make a request.+newLeaseWorkItemResponse_UnifiedWorkerResponse ::+  -- |  Properties of the object. Contains field \@type with type URL. See 'additional'.+  Core.HashMap Core.Text Core.Value ->+  LeaseWorkItemResponse_UnifiedWorkerResponse+newLeaseWorkItemResponse_UnifiedWorkerResponse additional =+  LeaseWorkItemResponse_UnifiedWorkerResponse+    { additional =+        additional+    }++instance Core.FromJSON LeaseWorkItemResponse_UnifiedWorkerResponse where+  parseJSON =+    Core.withObject+      "LeaseWorkItemResponse_UnifiedWorkerResponse"+      ( \o ->+          LeaseWorkItemResponse_UnifiedWorkerResponse+            Core.<$> (Core.parseJSONObject o)+      )++instance Core.ToJSON LeaseWorkItemResponse_UnifiedWorkerResponse where+  toJSON LeaseWorkItemResponse_UnifiedWorkerResponse {..} =+    Core.toJSON additional++-- | Linear buckets with the following boundaries for indices in 0 to n-1. - i in [0, n-1]: [start + (i)/width, start + (i+1)/width)+--+-- /See:/ 'newLinear' smart constructor.+data Linear = Linear+  { -- | Must be greater than 0.+    numberOfBuckets :: (Core.Maybe Core.Int32),+    -- | Lower bound of the first bucket.+    start :: (Core.Maybe Core.Double),+    -- | Distance between bucket boundaries. Must be greater than 0.+    width :: (Core.Maybe Core.Double)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'Linear' with the minimum fields required to make a request.+newLinear ::+  Linear+newLinear =+  Linear+    { numberOfBuckets = Core.Nothing,+      start = Core.Nothing,+      width = Core.Nothing+    }++instance Core.FromJSON Linear where+  parseJSON =+    Core.withObject+      "Linear"+      ( \o ->+          Linear+            Core.<$> (o Core..:? "numberOfBuckets")+            Core.<*> (o Core..:? "start")+            Core.<*> (o Core..:? "width")+      )++instance Core.ToJSON Linear where+  toJSON Linear {..} =+    Core.object+      ( Core.catMaybes+          [ ("numberOfBuckets" Core..=) Core.<$> numberOfBuckets,+            ("start" Core..=) Core.<$> start,+            ("width" Core..=) Core.<$> width+          ]+      )++-- | Response to a request to list job messages.+--+-- /See:/ 'newListJobMessagesResponse' smart constructor.+data ListJobMessagesResponse = ListJobMessagesResponse+  { -- | Autoscaling events in ascending timestamp order.+    autoscalingEvents :: (Core.Maybe [AutoscalingEvent]),+    -- | Messages in ascending timestamp order.+    jobMessages :: (Core.Maybe [JobMessage]),+    -- | The token to obtain the next page of results if there are more.+    nextPageToken :: (Core.Maybe Core.Text)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'ListJobMessagesResponse' with the minimum fields required to make a request.+newListJobMessagesResponse ::+  ListJobMessagesResponse+newListJobMessagesResponse =+  ListJobMessagesResponse+    { autoscalingEvents = Core.Nothing,+      jobMessages = Core.Nothing,+      nextPageToken = Core.Nothing+    }++instance Core.FromJSON ListJobMessagesResponse where+  parseJSON =+    Core.withObject+      "ListJobMessagesResponse"+      ( \o ->+          ListJobMessagesResponse+            Core.<$> (o Core..:? "autoscalingEvents")+            Core.<*> (o Core..:? "jobMessages")+            Core.<*> (o Core..:? "nextPageToken")+      )++instance Core.ToJSON ListJobMessagesResponse where+  toJSON ListJobMessagesResponse {..} =+    Core.object+      ( Core.catMaybes+          [ ("autoscalingEvents" Core..=) Core.<$> autoscalingEvents,+            ("jobMessages" Core..=) Core.<$> jobMessages,+            ("nextPageToken" Core..=) Core.<$> nextPageToken+          ]+      )++-- | Response to a request to list Cloud Dataflow jobs in a project. This might be a partial response, depending on the page size in the ListJobsRequest. However, if the project does not have any jobs, an instance of ListJobsResponse is not returned and the requests\'s response body is empty {}.+--+-- /See:/ 'newListJobsResponse' smart constructor.+data ListJobsResponse = ListJobsResponse+  { -- | Zero or more messages describing the [regional endpoints] (https:\/\/cloud.google.com\/dataflow\/docs\/concepts\/regional-endpoints) that failed to respond.+    failedLocation :: (Core.Maybe [FailedLocation]),+    -- | A subset of the requested job information.+    jobs :: (Core.Maybe [Job]),+    -- | Set if there may be more results than fit in this response.+    nextPageToken :: (Core.Maybe Core.Text)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'ListJobsResponse' with the minimum fields required to make a request.+newListJobsResponse ::+  ListJobsResponse+newListJobsResponse =+  ListJobsResponse+    { failedLocation = Core.Nothing,+      jobs = Core.Nothing,+      nextPageToken = Core.Nothing+    }++instance Core.FromJSON ListJobsResponse where+  parseJSON =+    Core.withObject+      "ListJobsResponse"+      ( \o ->+          ListJobsResponse+            Core.<$> (o Core..:? "failedLocation")+            Core.<*> (o Core..:? "jobs")+            Core.<*> (o Core..:? "nextPageToken")+      )++instance Core.ToJSON ListJobsResponse where+  toJSON ListJobsResponse {..} =+    Core.object+      ( Core.catMaybes+          [ ("failedLocation" Core..=) Core.<$> failedLocation,+            ("jobs" Core..=) Core.<$> jobs,+            ("nextPageToken" Core..=) Core.<$> nextPageToken+          ]+      )++-- | List of snapshots.+--+-- /See:/ 'newListSnapshotsResponse' smart constructor.+newtype ListSnapshotsResponse = ListSnapshotsResponse+  { -- | Returned snapshots.+    snapshots :: (Core.Maybe [Snapshot])+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'ListSnapshotsResponse' with the minimum fields required to make a request.+newListSnapshotsResponse ::+  ListSnapshotsResponse+newListSnapshotsResponse =+  ListSnapshotsResponse {snapshots = Core.Nothing}++instance Core.FromJSON ListSnapshotsResponse where+  parseJSON =+    Core.withObject+      "ListSnapshotsResponse"+      (\o -> ListSnapshotsResponse Core.<$> (o Core..:? "snapshots"))++instance Core.ToJSON ListSnapshotsResponse where+  toJSON ListSnapshotsResponse {..} =+    Core.object+      (Core.catMaybes [("snapshots" Core..=) Core.<$> snapshots])++-- | MapTask consists of an ordered set of instructions, each of which describes one particular low-level operation for the worker to perform in order to accomplish the MapTask\'s WorkItem. Each instruction must appear in the list before any instructions which depends on its output.+--+-- /See:/ 'newMapTask' smart constructor.+data MapTask = MapTask+  { -- | Counter prefix that can be used to prefix counters. Not currently used in Dataflow.+    counterPrefix :: (Core.Maybe Core.Text),+    -- | The instructions in the MapTask.+    instructions :: (Core.Maybe [ParallelInstruction]),+    -- | System-defined name of the stage containing this MapTask. Unique across the workflow.+    stageName :: (Core.Maybe Core.Text),+    -- | System-defined name of this MapTask. Unique across the workflow.+    systemName :: (Core.Maybe Core.Text)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'MapTask' with the minimum fields required to make a request.+newMapTask ::+  MapTask+newMapTask =+  MapTask+    { counterPrefix = Core.Nothing,+      instructions = Core.Nothing,+      stageName = Core.Nothing,+      systemName = Core.Nothing+    }++instance Core.FromJSON MapTask where+  parseJSON =+    Core.withObject+      "MapTask"+      ( \o ->+          MapTask+            Core.<$> (o Core..:? "counterPrefix")+            Core.<*> (o Core..:? "instructions")+            Core.<*> (o Core..:? "stageName")+            Core.<*> (o Core..:? "systemName")+      )++instance Core.ToJSON MapTask where+  toJSON MapTask {..} =+    Core.object+      ( Core.catMaybes+          [ ("counterPrefix" Core..=) Core.<$> counterPrefix,+            ("instructions" Core..=) Core.<$> instructions,+            ("stageName" Core..=) Core.<$> stageName,+            ("systemName" Core..=) Core.<$> systemName+          ]+      )++-- | Information about the memory usage of a worker or a container within a worker.+--+-- /See:/ 'newMemInfo' smart constructor.+data MemInfo = MemInfo+  { -- | Instantenous memory limit in bytes.+    currentLimitBytes :: (Core.Maybe Core.Word64),+    -- | Number of Out of Memory (OOM) events recorded since the previous measurement.+    currentOoms :: (Core.Maybe Core.Int64),+    -- | Instantenous memory (RSS) size in bytes.+    currentRssBytes :: (Core.Maybe Core.Word64),+    -- | Timestamp of the measurement.+    timestamp :: (Core.Maybe Core.DateTime),+    -- | Total memory (RSS) usage since start up in GB * ms.+    totalGbMs :: (Core.Maybe Core.Word64)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'MemInfo' with the minimum fields required to make a request.+newMemInfo ::+  MemInfo+newMemInfo =+  MemInfo+    { currentLimitBytes = Core.Nothing,+      currentOoms = Core.Nothing,+      currentRssBytes = Core.Nothing,+      timestamp = Core.Nothing,+      totalGbMs = Core.Nothing+    }++instance Core.FromJSON MemInfo where+  parseJSON =+    Core.withObject+      "MemInfo"+      ( \o ->+          MemInfo+            Core.<$> (o Core..:? "currentLimitBytes" Core.<&> Core.fmap Core.fromAsText)+            Core.<*> (o Core..:? "currentOoms" Core.<&> Core.fmap Core.fromAsText)+            Core.<*> (o Core..:? "currentRssBytes" Core.<&> Core.fmap Core.fromAsText)+            Core.<*> (o Core..:? "timestamp")+            Core.<*> (o Core..:? "totalGbMs" Core.<&> Core.fmap Core.fromAsText)+      )++instance Core.ToJSON MemInfo where+  toJSON MemInfo {..} =+    Core.object+      ( Core.catMaybes+          [ ("currentLimitBytes" Core..=)+              Core.. Core.AsText+              Core.<$> currentLimitBytes,+            ("currentOoms" Core..=) Core.. Core.AsText Core.<$> currentOoms,+            ("currentRssBytes" Core..=)+              Core.. Core.AsText+              Core.<$> currentRssBytes,+            ("timestamp" Core..=) Core.<$> timestamp,+            ("totalGbMs" Core..=) Core.. Core.AsText Core.<$> totalGbMs+          ]+      )++-- | The metric short id is returned to the user alongside an offset into ReportWorkItemStatusRequest+--+-- /See:/ 'newMetricShortId' smart constructor.+data MetricShortId = MetricShortId+  { -- | The index of the corresponding metric in the ReportWorkItemStatusRequest. Required.+    metricIndex :: (Core.Maybe Core.Int32),+    -- | The service-generated short identifier for the metric.+    shortId :: (Core.Maybe Core.Int64)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'MetricShortId' with the minimum fields required to make a request.+newMetricShortId ::+  MetricShortId+newMetricShortId =+  MetricShortId {metricIndex = Core.Nothing, shortId = Core.Nothing}++instance Core.FromJSON MetricShortId where+  parseJSON =+    Core.withObject+      "MetricShortId"+      ( \o ->+          MetricShortId+            Core.<$> (o Core..:? "metricIndex")+            Core.<*> (o Core..:? "shortId" Core.<&> Core.fmap Core.fromAsText)+      )++instance Core.ToJSON MetricShortId where+  toJSON MetricShortId {..} =+    Core.object+      ( Core.catMaybes+          [ ("metricIndex" Core..=) Core.<$> metricIndex,+            ("shortId" Core..=) Core.. Core.AsText Core.<$> shortId+          ]+      )++-- | Identifies a metric, by describing the source which generated the metric.+--+-- /See:/ 'newMetricStructuredName' smart constructor.+data MetricStructuredName = MetricStructuredName+  { -- | Zero or more labeled fields which identify the part of the job this metric is associated with, such as the name of a step or collection. For example, built-in counters associated with steps will have context[\'step\'] = . Counters associated with PCollections in the SDK will have context[\'pcollection\'] = .+    context :: (Core.Maybe MetricStructuredName_Context),+    -- | Worker-defined metric name.+    name :: (Core.Maybe Core.Text),+    -- | Origin (namespace) of metric name. May be blank for user-define metrics; will be \"dataflow\" for metrics defined by the Dataflow service or SDK.+    origin :: (Core.Maybe Core.Text)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'MetricStructuredName' with the minimum fields required to make a request.+newMetricStructuredName ::+  MetricStructuredName+newMetricStructuredName =+  MetricStructuredName+    { context = Core.Nothing,+      name = Core.Nothing,+      origin = Core.Nothing+    }++instance Core.FromJSON MetricStructuredName where+  parseJSON =+    Core.withObject+      "MetricStructuredName"+      ( \o ->+          MetricStructuredName+            Core.<$> (o Core..:? "context")+            Core.<*> (o Core..:? "name")+            Core.<*> (o Core..:? "origin")+      )++instance Core.ToJSON MetricStructuredName where+  toJSON MetricStructuredName {..} =+    Core.object+      ( Core.catMaybes+          [ ("context" Core..=) Core.<$> context,+            ("name" Core..=) Core.<$> name,+            ("origin" Core..=) Core.<$> origin+          ]+      )++-- | Zero or more labeled fields which identify the part of the job this metric is associated with, such as the name of a step or collection. For example, built-in counters associated with steps will have context[\'step\'] = . Counters associated with PCollections in the SDK will have context[\'pcollection\'] = .+--+-- /See:/ 'newMetricStructuredName_Context' smart constructor.+newtype MetricStructuredName_Context = MetricStructuredName_Context+  { additional :: (Core.HashMap Core.Text Core.Text)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'MetricStructuredName_Context' with the minimum fields required to make a request.+newMetricStructuredName_Context ::+  -- |  See 'additional'.+  Core.HashMap Core.Text Core.Text ->+  MetricStructuredName_Context+newMetricStructuredName_Context additional =+  MetricStructuredName_Context {additional = additional}++instance Core.FromJSON MetricStructuredName_Context where+  parseJSON =+    Core.withObject+      "MetricStructuredName_Context"+      ( \o ->+          MetricStructuredName_Context Core.<$> (Core.parseJSONObject o)+      )++instance Core.ToJSON MetricStructuredName_Context where+  toJSON MetricStructuredName_Context {..} = Core.toJSON additional++-- | Describes the state of a metric. Next ID: 14+--+-- /See:/ 'newMetricUpdate' smart constructor.+data MetricUpdate = MetricUpdate+  { -- | True if this metric is reported as the total cumulative aggregate value accumulated since the worker started working on this WorkItem. By default this is false, indicating that this metric is reported as a delta that is not associated with any WorkItem.+    cumulative :: (Core.Maybe Core.Bool),+    -- | A struct value describing properties of a distribution of numeric values.+    distribution :: (Core.Maybe Core.Value),+    -- | A struct value describing properties of a Gauge. Metrics of gauge type show the value of a metric across time, and is aggregated based on the newest value.+    gauge :: (Core.Maybe Core.Value),+    -- | Worker-computed aggregate value for internal use by the Dataflow service.+    internal :: (Core.Maybe Core.Value),+    -- | Metric aggregation kind. The possible metric aggregation kinds are \"Sum\", \"Max\", \"Min\", \"Mean\", \"Set\", \"And\", \"Or\", and \"Distribution\". The specified aggregation kind is case-insensitive. If omitted, this is not an aggregated value but instead a single metric sample value.+    kind :: (Core.Maybe Core.Text),+    -- | Worker-computed aggregate value for the \"Mean\" aggregation kind. This holds the count of the aggregated values and is used in combination with mean_sum above to obtain the actual mean aggregate value. The only possible value type is Long.+    meanCount :: (Core.Maybe Core.Value),+    -- | 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 possible value types are Long and Double.+    meanSum :: (Core.Maybe Core.Value),+    -- | Name of the metric.+    name :: (Core.Maybe MetricStructuredName),+    -- | Worker-computed aggregate value for aggregation kinds \"Sum\", \"Max\", \"Min\", \"And\", and \"Or\". The possible value types are Long, Double, and Boolean.+    scalar :: (Core.Maybe Core.Value),+    -- | Worker-computed aggregate value for the \"Set\" aggregation kind. The only possible value type is a list of Values whose type can be Long, Double, String, or BoundedTrie according to the metric\'s type. All Values in the list must be of the same type.+    set :: (Core.Maybe Core.Value),+    -- | Worker-computed aggregate value for the \"Trie\" aggregation kind. The only possible value type is a BoundedTrieNode.+    trie :: (Core.Maybe Core.Value),+    -- | Timestamp associated with the metric value. Optional when workers are reporting work progress; it will be filled in responses from the metrics API.+    updateTime :: (Core.Maybe Core.DateTime)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'MetricUpdate' with the minimum fields required to make a request.+newMetricUpdate ::+  MetricUpdate+newMetricUpdate =+  MetricUpdate+    { cumulative = Core.Nothing,+      distribution = Core.Nothing,+      gauge = Core.Nothing,+      internal = Core.Nothing,+      kind = Core.Nothing,+      meanCount = Core.Nothing,+      meanSum = Core.Nothing,+      name = Core.Nothing,+      scalar = Core.Nothing,+      set = Core.Nothing,+      trie = Core.Nothing,+      updateTime = Core.Nothing+    }++instance Core.FromJSON MetricUpdate where+  parseJSON =+    Core.withObject+      "MetricUpdate"+      ( \o ->+          MetricUpdate+            Core.<$> (o Core..:? "cumulative")+            Core.<*> (o Core..:? "distribution")+            Core.<*> (o Core..:? "gauge")+            Core.<*> (o Core..:? "internal")+            Core.<*> (o Core..:? "kind")+            Core.<*> (o Core..:? "meanCount")+            Core.<*> (o Core..:? "meanSum")+            Core.<*> (o Core..:? "name")+            Core.<*> (o Core..:? "scalar")+            Core.<*> (o Core..:? "set")+            Core.<*> (o Core..:? "trie")+            Core.<*> (o Core..:? "updateTime")+      )++instance Core.ToJSON MetricUpdate where+  toJSON MetricUpdate {..} =+    Core.object+      ( Core.catMaybes+          [ ("cumulative" Core..=) Core.<$> cumulative,+            ("distribution" Core..=) Core.<$> distribution,+            ("gauge" Core..=) Core.<$> gauge,+            ("internal" Core..=) Core.<$> internal,+            ("kind" Core..=) Core.<$> kind,+            ("meanCount" Core..=) Core.<$> meanCount,+            ("meanSum" Core..=) Core.<$> meanSum,+            ("name" Core..=) Core.<$> name,+            ("scalar" Core..=) Core.<$> scalar,+            ("set" Core..=) Core.<$> set,+            ("trie" Core..=) Core.<$> trie,+            ("updateTime" Core..=) Core.<$> updateTime+          ]+      )++-- | The value of a metric along with its name and labels.+--+-- /See:/ 'newMetricValue' smart constructor.+data MetricValue = MetricValue+  { -- | Base name for this metric.+    metric :: (Core.Maybe Core.Text),+    -- | Optional. Set of metric labels for this metric.+    metricLabels :: (Core.Maybe MetricValue_MetricLabels),+    -- | Non-cumulative int64 value of this metric.+    valueGauge64 :: (Core.Maybe DataflowGaugeValue),+    -- | Histogram value of this metric.+    valueHistogram :: (Core.Maybe DataflowHistogramValue),+    -- | Integer value of this metric.+    valueInt64 :: (Core.Maybe Core.Int64)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'MetricValue' with the minimum fields required to make a request.+newMetricValue ::+  MetricValue+newMetricValue =+  MetricValue+    { metric = Core.Nothing,+      metricLabels = Core.Nothing,+      valueGauge64 = Core.Nothing,+      valueHistogram = Core.Nothing,+      valueInt64 = Core.Nothing+    }++instance Core.FromJSON MetricValue where+  parseJSON =+    Core.withObject+      "MetricValue"+      ( \o ->+          MetricValue+            Core.<$> (o Core..:? "metric")+            Core.<*> (o Core..:? "metricLabels")+            Core.<*> (o Core..:? "valueGauge64")+            Core.<*> (o Core..:? "valueHistogram")+            Core.<*> (o Core..:? "valueInt64" Core.<&> Core.fmap Core.fromAsText)+      )++instance Core.ToJSON MetricValue where+  toJSON MetricValue {..} =+    Core.object+      ( Core.catMaybes+          [ ("metric" Core..=) Core.<$> metric,+            ("metricLabels" Core..=) Core.<$> metricLabels,+            ("valueGauge64" Core..=) Core.<$> valueGauge64,+            ("valueHistogram" Core..=) Core.<$> valueHistogram,+            ("valueInt64" Core..=) Core.. Core.AsText Core.<$> valueInt64+          ]+      )++-- | Optional. Set of metric labels for this metric.+--+-- /See:/ 'newMetricValue_MetricLabels' smart constructor.+newtype MetricValue_MetricLabels = MetricValue_MetricLabels+  { additional :: (Core.HashMap Core.Text Core.Text)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'MetricValue_MetricLabels' with the minimum fields required to make a request.+newMetricValue_MetricLabels ::+  -- |  See 'additional'.+  Core.HashMap Core.Text Core.Text ->+  MetricValue_MetricLabels+newMetricValue_MetricLabels additional =+  MetricValue_MetricLabels {additional = additional}++instance Core.FromJSON MetricValue_MetricLabels where+  parseJSON =+    Core.withObject+      "MetricValue_MetricLabels"+      (\o -> MetricValue_MetricLabels Core.<$> (Core.parseJSONObject o))++instance Core.ToJSON MetricValue_MetricLabels where+  toJSON MetricValue_MetricLabels {..} = Core.toJSON additional++-- | Describes mounted data disk.+--+-- /See:/ 'newMountedDataDisk' smart constructor.+newtype MountedDataDisk = MountedDataDisk+  { -- | The name of the data disk. This name is local to the Google Cloud Platform project and uniquely identifies the disk within that project, for example \"myproject-1014-104817-4c2-harness-0-disk-1\".+    dataDisk :: (Core.Maybe Core.Text)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'MountedDataDisk' with the minimum fields required to make a request.+newMountedDataDisk ::+  MountedDataDisk+newMountedDataDisk = MountedDataDisk {dataDisk = Core.Nothing}++instance Core.FromJSON MountedDataDisk where+  parseJSON =+    Core.withObject+      "MountedDataDisk"+      (\o -> MountedDataDisk Core.<$> (o Core..:? "dataDisk"))++instance Core.ToJSON MountedDataDisk where+  toJSON MountedDataDisk {..} =+    Core.object+      (Core.catMaybes [("dataDisk" Core..=) Core.<$> dataDisk])++-- | Information about an output of a multi-output DoFn.+--+-- /See:/ 'newMultiOutputInfo' smart constructor.+newtype MultiOutputInfo = MultiOutputInfo+  { -- | The id of the tag the user code will emit to this output by; this should correspond to the tag of some SideInputInfo.+    tag :: (Core.Maybe Core.Text)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'MultiOutputInfo' with the minimum fields required to make a request.+newMultiOutputInfo ::+  MultiOutputInfo+newMultiOutputInfo = MultiOutputInfo {tag = Core.Nothing}++instance Core.FromJSON MultiOutputInfo where+  parseJSON =+    Core.withObject+      "MultiOutputInfo"+      (\o -> MultiOutputInfo Core.<$> (o Core..:? "tag"))++instance Core.ToJSON MultiOutputInfo where+  toJSON MultiOutputInfo {..} =+    Core.object (Core.catMaybes [("tag" Core..=) Core.<$> tag])++-- | Basic metadata about a counter.+--+-- /See:/ 'newNameAndKind' smart constructor.+data NameAndKind = NameAndKind+  { -- | Counter aggregation kind.+    kind :: (Core.Maybe NameAndKind_Kind),+    -- | Name of the counter.+    name :: (Core.Maybe Core.Text)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'NameAndKind' with the minimum fields required to make a request.+newNameAndKind ::+  NameAndKind+newNameAndKind =+  NameAndKind {kind = Core.Nothing, name = Core.Nothing}++instance Core.FromJSON NameAndKind where+  parseJSON =+    Core.withObject+      "NameAndKind"+      ( \o ->+          NameAndKind+            Core.<$> (o Core..:? "kind")+            Core.<*> (o Core..:? "name")+      )++instance Core.ToJSON NameAndKind where+  toJSON NameAndKind {..} =+    Core.object+      ( Core.catMaybes+          [("kind" Core..=) Core.<$> kind, ("name" Core..=) Core.<$> name]+      )++-- | Statistics for the underflow and overflow bucket.+--+-- /See:/ 'newOutlierStats' smart constructor.+data OutlierStats = OutlierStats+  { -- | Number of values that are larger than the upper bound of the largest bucket.+    overflowCount :: (Core.Maybe Core.Int64),+    -- | Mean of values in the overflow bucket.+    overflowMean :: (Core.Maybe Core.Double),+    -- | Number of values that are smaller than the lower bound of the smallest bucket.+    underflowCount :: (Core.Maybe Core.Int64),+    -- | Mean of values in the undeflow bucket.+    underflowMean :: (Core.Maybe Core.Double)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'OutlierStats' with the minimum fields required to make a request.+newOutlierStats ::+  OutlierStats+newOutlierStats =+  OutlierStats+    { overflowCount = Core.Nothing,+      overflowMean = Core.Nothing,+      underflowCount = Core.Nothing,+      underflowMean = Core.Nothing+    }++instance Core.FromJSON OutlierStats where+  parseJSON =+    Core.withObject+      "OutlierStats"+      ( \o ->+          OutlierStats+            Core.<$> (o Core..:? "overflowCount" Core.<&> Core.fmap Core.fromAsText)+            Core.<*> (o Core..:? "overflowMean")+            Core.<*> (o Core..:? "underflowCount" Core.<&> Core.fmap Core.fromAsText)+            Core.<*> (o Core..:? "underflowMean")+      )++instance Core.ToJSON OutlierStats where+  toJSON OutlierStats {..} =+    Core.object+      ( Core.catMaybes+          [ ("overflowCount" Core..=)+              Core.. Core.AsText+              Core.<$> overflowCount,+            ("overflowMean" Core..=) Core.<$> overflowMean,+            ("underflowCount" Core..=)+              Core.. Core.AsText+              Core.<$> underflowCount,+            ("underflowMean" Core..=) Core.<$> underflowMean+          ]+      )++-- | The packages that must be installed in order for a worker to run the steps of the Cloud Dataflow job that will be assigned to its worker pool. This is the mechanism by which the Cloud Dataflow SDK causes code to be loaded onto the workers. For example, the Cloud Dataflow Java SDK might use this to install jars containing the user\'s code and all of the various dependencies (libraries, data files, etc.) required in order for that code to run.+--+-- /See:/ 'newPackage' smart constructor.+data Package = Package+  { -- | The resource to read the package from. The supported resource type is: Google Cloud Storage: storage.googleapis.com\/{bucket} bucket.storage.googleapis.com\/+    location :: (Core.Maybe Core.Text),+    -- | The name of the package.+    name :: (Core.Maybe Core.Text)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'Package' with the minimum fields required to make a request.+newPackage ::+  Package+newPackage = Package {location = Core.Nothing, name = Core.Nothing}++instance Core.FromJSON Package where+  parseJSON =+    Core.withObject+      "Package"+      ( \o ->+          Package+            Core.<$> (o Core..:? "location")+            Core.<*> (o Core..:? "name")+      )++instance Core.ToJSON Package where+  toJSON Package {..} =+    Core.object+      ( Core.catMaybes+          [ ("location" Core..=) Core.<$> location,+            ("name" Core..=) Core.<$> name+          ]+      )++-- | 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:/ 'newParDoInstruction' smart constructor.+data ParDoInstruction = ParDoInstruction+  { -- | The input.+    input :: (Core.Maybe InstructionInput),+    -- | Information about each of the outputs, if user_fn is a MultiDoFn.+    multiOutputInfos :: (Core.Maybe [MultiOutputInfo]),+    -- | The number of outputs.+    numOutputs :: (Core.Maybe Core.Int32),+    -- | Zero or more side inputs.+    sideInputs :: (Core.Maybe [SideInputInfo]),+    -- | The user function to invoke.+    userFn :: (Core.Maybe ParDoInstruction_UserFn)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'ParDoInstruction' with the minimum fields required to make a request.+newParDoInstruction ::+  ParDoInstruction+newParDoInstruction =+  ParDoInstruction+    { input = Core.Nothing,+      multiOutputInfos = Core.Nothing,+      numOutputs = Core.Nothing,+      sideInputs = Core.Nothing,+      userFn = Core.Nothing+    }++instance Core.FromJSON ParDoInstruction where+  parseJSON =+    Core.withObject+      "ParDoInstruction"+      ( \o ->+          ParDoInstruction+            Core.<$> (o Core..:? "input")+            Core.<*> (o Core..:? "multiOutputInfos")+            Core.<*> (o Core..:? "numOutputs")+            Core.<*> (o Core..:? "sideInputs")+            Core.<*> (o Core..:? "userFn")+      )++instance Core.ToJSON ParDoInstruction where+  toJSON ParDoInstruction {..} =+    Core.object+      ( Core.catMaybes+          [ ("input" Core..=) Core.<$> input,+            ("multiOutputInfos" Core..=) Core.<$> multiOutputInfos,+            ("numOutputs" Core..=) Core.<$> numOutputs,+            ("sideInputs" Core..=) Core.<$> sideInputs,+            ("userFn" Core..=) Core.<$> userFn+          ]+      )++-- | The user function to invoke.+--+-- /See:/ 'newParDoInstruction_UserFn' smart constructor.+newtype ParDoInstruction_UserFn = ParDoInstruction_UserFn+  { -- | Properties of the object.+    additional :: (Core.HashMap Core.Text Core.Value)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'ParDoInstruction_UserFn' with the minimum fields required to make a request.+newParDoInstruction_UserFn ::+  -- |  Properties of the object. See 'additional'.+  Core.HashMap Core.Text Core.Value ->+  ParDoInstruction_UserFn+newParDoInstruction_UserFn additional =+  ParDoInstruction_UserFn {additional = additional}++instance Core.FromJSON ParDoInstruction_UserFn where+  parseJSON =+    Core.withObject+      "ParDoInstruction_UserFn"+      (\o -> ParDoInstruction_UserFn Core.<$> (Core.parseJSONObject o))++instance Core.ToJSON ParDoInstruction_UserFn where+  toJSON ParDoInstruction_UserFn {..} = Core.toJSON additional++-- | Describes a particular operation comprising a MapTask.+--+-- /See:/ 'newParallelInstruction' smart constructor.+data ParallelInstruction = ParallelInstruction+  { -- | Additional information for Flatten instructions.+    flatten :: (Core.Maybe FlattenInstruction),+    -- | User-provided name of this operation.+    name :: (Core.Maybe Core.Text),+    -- | System-defined name for the operation in the original workflow graph.+    originalName :: (Core.Maybe Core.Text),+    -- | Describes the outputs of the instruction.+    outputs :: (Core.Maybe [InstructionOutput]),+    -- | Additional information for ParDo instructions.+    parDo :: (Core.Maybe ParDoInstruction),+    -- | Additional information for PartialGroupByKey instructions.+    partialGroupByKey :: (Core.Maybe PartialGroupByKeyInstruction),+    -- | Additional information for Read instructions.+    read :: (Core.Maybe ReadInstruction),+    -- | System-defined name of this operation. Unique across the workflow.+    systemName :: (Core.Maybe Core.Text),+    -- | Additional information for Write instructions.+    write :: (Core.Maybe WriteInstruction)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'ParallelInstruction' with the minimum fields required to make a request.+newParallelInstruction ::+  ParallelInstruction+newParallelInstruction =+  ParallelInstruction+    { flatten = Core.Nothing,+      name = Core.Nothing,+      originalName = Core.Nothing,+      outputs = Core.Nothing,+      parDo = Core.Nothing,+      partialGroupByKey = Core.Nothing,+      read = Core.Nothing,+      systemName = Core.Nothing,+      write = Core.Nothing+    }++instance Core.FromJSON ParallelInstruction where+  parseJSON =+    Core.withObject+      "ParallelInstruction"+      ( \o ->+          ParallelInstruction+            Core.<$> (o Core..:? "flatten")+            Core.<*> (o Core..:? "name")+            Core.<*> (o Core..:? "originalName")+            Core.<*> (o Core..:? "outputs")+            Core.<*> (o Core..:? "parDo")+            Core.<*> (o Core..:? "partialGroupByKey")+            Core.<*> (o Core..:? "read")+            Core.<*> (o Core..:? "systemName")+            Core.<*> (o Core..:? "write")+      )++instance Core.ToJSON ParallelInstruction where+  toJSON ParallelInstruction {..} =+    Core.object+      ( Core.catMaybes+          [ ("flatten" Core..=) Core.<$> flatten,+            ("name" Core..=) Core.<$> name,+            ("originalName" Core..=) Core.<$> originalName,+            ("outputs" Core..=) Core.<$> outputs,+            ("parDo" Core..=) Core.<$> parDo,+            ("partialGroupByKey" Core..=) Core.<$> partialGroupByKey,+            ("read" Core..=) Core.<$> read,+            ("systemName" Core..=) Core.<$> systemName,+            ("write" Core..=) Core.<$> write+          ]+      )++-- | Structured data associated with this message.+--+-- /See:/ 'newParameter' smart constructor.+data Parameter = Parameter+  { -- | Key or name for this parameter.+    key :: (Core.Maybe Core.Text),+    -- | Value for this parameter.+    value :: (Core.Maybe Core.Value)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'Parameter' with the minimum fields required to make a request.+newParameter ::+  Parameter+newParameter = Parameter {key = Core.Nothing, value = Core.Nothing}++instance Core.FromJSON Parameter where+  parseJSON =+    Core.withObject+      "Parameter"+      ( \o ->+          Parameter+            Core.<$> (o Core..:? "key")+            Core.<*> (o Core..:? "value")+      )++instance Core.ToJSON Parameter where+  toJSON Parameter {..} =+    Core.object+      ( Core.catMaybes+          [("key" Core..=) Core.<$> key, ("value" Core..=) Core.<$> value]+      )++-- | Metadata for a specific parameter.+--+-- /See:/ 'newParameterMetadata' smart constructor.+data ParameterMetadata = ParameterMetadata+  { -- | Optional. Additional metadata for describing this parameter.+    customMetadata :: (Core.Maybe ParameterMetadata_CustomMetadata),+    -- | Optional. The default values will pre-populate the parameter with the given value from the proto. If default_value is left empty, the parameter will be populated with a default of the relevant type, e.g. false for a boolean.+    defaultValue :: (Core.Maybe Core.Text),+    -- | Optional. The options shown when ENUM ParameterType is specified.+    enumOptions :: (Core.Maybe [ParameterMetadataEnumOption]),+    -- | Optional. Specifies a group name for this parameter to be rendered under. Group header text will be rendered exactly as specified in this field. Only considered when parent_name is NOT provided.+    groupName :: (Core.Maybe Core.Text),+    -- | Required. The help text to display for the parameter.+    helpText :: (Core.Maybe Core.Text),+    -- | Optional. Whether the parameter should be hidden in the UI.+    hiddenUi :: (Core.Maybe Core.Bool),+    -- | Optional. Whether the parameter is optional. Defaults to false.+    isOptional :: (Core.Maybe Core.Bool),+    -- | Required. The label to display for the parameter.+    label :: (Core.Maybe Core.Text),+    -- | Required. The name of the parameter.+    name :: (Core.Maybe Core.Text),+    -- | Optional. The type of the parameter. Used for selecting input picker.+    paramType :: (Core.Maybe ParameterMetadata_ParamType),+    -- | Optional. Specifies the name of the parent parameter. Used in conjunction with \'parent/trigger/values\' to make this parameter conditional (will only be rendered conditionally). Should be mappable to a ParameterMetadata.name field.+    parentName :: (Core.Maybe Core.Text),+    -- | Optional. The value(s) of the \'parent/name\' parameter which will trigger this parameter to be shown. If left empty, ANY non-empty value in parent/name will trigger this parameter to be shown. Only considered when this parameter is conditional (when \'parent_name\' has been provided).+    parentTriggerValues :: (Core.Maybe [Core.Text]),+    -- | Optional. Regexes that the parameter must match.+    regexes :: (Core.Maybe [Core.Text])+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'ParameterMetadata' with the minimum fields required to make a request.+newParameterMetadata ::+  ParameterMetadata+newParameterMetadata =+  ParameterMetadata+    { customMetadata = Core.Nothing,+      defaultValue = Core.Nothing,+      enumOptions = Core.Nothing,+      groupName = Core.Nothing,+      helpText = Core.Nothing,+      hiddenUi = Core.Nothing,+      isOptional = Core.Nothing,+      label = Core.Nothing,+      name = Core.Nothing,+      paramType = Core.Nothing,+      parentName = Core.Nothing,+      parentTriggerValues = Core.Nothing,+      regexes = Core.Nothing+    }++instance Core.FromJSON ParameterMetadata where+  parseJSON =+    Core.withObject+      "ParameterMetadata"+      ( \o ->+          ParameterMetadata+            Core.<$> (o Core..:? "customMetadata")+            Core.<*> (o Core..:? "defaultValue")+            Core.<*> (o Core..:? "enumOptions")+            Core.<*> (o Core..:? "groupName")+            Core.<*> (o Core..:? "helpText")+            Core.<*> (o Core..:? "hiddenUi")+            Core.<*> (o Core..:? "isOptional")+            Core.<*> (o Core..:? "label")+            Core.<*> (o Core..:? "name")+            Core.<*> (o Core..:? "paramType")+            Core.<*> (o Core..:? "parentName")+            Core.<*> (o Core..:? "parentTriggerValues")+            Core.<*> (o Core..:? "regexes")+      )++instance Core.ToJSON ParameterMetadata where+  toJSON ParameterMetadata {..} =+    Core.object+      ( Core.catMaybes+          [ ("customMetadata" Core..=) Core.<$> customMetadata,+            ("defaultValue" Core..=) Core.<$> defaultValue,+            ("enumOptions" Core..=) Core.<$> enumOptions,+            ("groupName" Core..=) Core.<$> groupName,+            ("helpText" Core..=) Core.<$> helpText,+            ("hiddenUi" Core..=) Core.<$> hiddenUi,+            ("isOptional" Core..=) Core.<$> isOptional,+            ("label" Core..=) Core.<$> label,+            ("name" Core..=) Core.<$> name,+            ("paramType" Core..=) Core.<$> paramType,+            ("parentName" Core..=) Core.<$> parentName,+            ("parentTriggerValues" Core..=) Core.<$> parentTriggerValues,+            ("regexes" Core..=) Core.<$> regexes+          ]+      )++-- | Optional. Additional metadata for describing this parameter.+--+-- /See:/ 'newParameterMetadata_CustomMetadata' smart constructor.+newtype ParameterMetadata_CustomMetadata = ParameterMetadata_CustomMetadata+  { additional :: (Core.HashMap Core.Text Core.Text)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'ParameterMetadata_CustomMetadata' with the minimum fields required to make a request.+newParameterMetadata_CustomMetadata ::+  -- |  See 'additional'.+  Core.HashMap Core.Text Core.Text ->+  ParameterMetadata_CustomMetadata+newParameterMetadata_CustomMetadata additional =+  ParameterMetadata_CustomMetadata {additional = additional}++instance Core.FromJSON ParameterMetadata_CustomMetadata where+  parseJSON =+    Core.withObject+      "ParameterMetadata_CustomMetadata"+      ( \o ->+          ParameterMetadata_CustomMetadata Core.<$> (Core.parseJSONObject o)+      )++instance Core.ToJSON ParameterMetadata_CustomMetadata where+  toJSON ParameterMetadata_CustomMetadata {..} =+    Core.toJSON additional++-- | ParameterMetadataEnumOption specifies the option shown in the enum form.+--+-- /See:/ 'newParameterMetadataEnumOption' smart constructor.+data ParameterMetadataEnumOption = ParameterMetadataEnumOption+  { -- | Optional. The description to display for the enum option.+    description :: (Core.Maybe Core.Text),+    -- | Optional. The label to display for the enum option.+    label :: (Core.Maybe Core.Text),+    -- | Required. The value of the enum option.+    value :: (Core.Maybe Core.Text)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'ParameterMetadataEnumOption' with the minimum fields required to make a request.+newParameterMetadataEnumOption ::+  ParameterMetadataEnumOption+newParameterMetadataEnumOption =+  ParameterMetadataEnumOption+    { description = Core.Nothing,+      label = Core.Nothing,+      value = Core.Nothing+    }++instance Core.FromJSON ParameterMetadataEnumOption where+  parseJSON =+    Core.withObject+      "ParameterMetadataEnumOption"+      ( \o ->+          ParameterMetadataEnumOption+            Core.<$> (o Core..:? "description")+            Core.<*> (o Core..:? "label")+            Core.<*> (o Core..:? "value")+      )++instance Core.ToJSON ParameterMetadataEnumOption where+  toJSON ParameterMetadataEnumOption {..} =+    Core.object+      ( Core.catMaybes+          [ ("description" Core..=) Core.<$> description,+            ("label" Core..=) Core.<$> label,+            ("value" Core..=) Core.<$> value+          ]+      )++-- | An instruction that does a partial group-by-key. One input and one output.+--+-- /See:/ 'newPartialGroupByKeyInstruction' smart constructor.+data PartialGroupByKeyInstruction = PartialGroupByKeyInstruction+  { -- | Describes the input to the partial group-by-key instruction.+    input :: (Core.Maybe InstructionInput),+    -- | The codec to use for interpreting an element in the input PTable.+    inputElementCodec :: (Core.Maybe PartialGroupByKeyInstruction_InputElementCodec),+    -- | If this instruction includes a combining function this is the name of the intermediate store between the GBK and the CombineValues.+    originalCombineValuesInputStoreName :: (Core.Maybe Core.Text),+    -- | If this instruction includes a combining function, this is the name of the CombineValues instruction lifted into this instruction.+    originalCombineValuesStepName :: (Core.Maybe Core.Text),+    -- | Zero or more side inputs.+    sideInputs :: (Core.Maybe [SideInputInfo]),+    -- | The value combining function to invoke.+    valueCombiningFn :: (Core.Maybe PartialGroupByKeyInstruction_ValueCombiningFn)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'PartialGroupByKeyInstruction' with the minimum fields required to make a request.+newPartialGroupByKeyInstruction ::+  PartialGroupByKeyInstruction+newPartialGroupByKeyInstruction =+  PartialGroupByKeyInstruction+    { input = Core.Nothing,+      inputElementCodec = Core.Nothing,+      originalCombineValuesInputStoreName = Core.Nothing,+      originalCombineValuesStepName = Core.Nothing,+      sideInputs = Core.Nothing,+      valueCombiningFn = Core.Nothing+    }++instance Core.FromJSON PartialGroupByKeyInstruction where+  parseJSON =+    Core.withObject+      "PartialGroupByKeyInstruction"+      ( \o ->+          PartialGroupByKeyInstruction+            Core.<$> (o Core..:? "input")+            Core.<*> (o Core..:? "inputElementCodec")+            Core.<*> (o Core..:? "originalCombineValuesInputStoreName")+            Core.<*> (o Core..:? "originalCombineValuesStepName")+            Core.<*> (o Core..:? "sideInputs")+            Core.<*> (o Core..:? "valueCombiningFn")+      )++instance Core.ToJSON PartialGroupByKeyInstruction where+  toJSON PartialGroupByKeyInstruction {..} =+    Core.object+      ( Core.catMaybes+          [ ("input" Core..=) Core.<$> input,+            ("inputElementCodec" Core..=) Core.<$> inputElementCodec,+            ("originalCombineValuesInputStoreName" Core..=)+              Core.<$> originalCombineValuesInputStoreName,+            ("originalCombineValuesStepName" Core..=)+              Core.<$> originalCombineValuesStepName,+            ("sideInputs" Core..=) Core.<$> sideInputs,+            ("valueCombiningFn" Core..=) Core.<$> valueCombiningFn+          ]+      )++-- | The codec to use for interpreting an element in the input PTable.+--+-- /See:/ 'newPartialGroupByKeyInstruction_InputElementCodec' smart constructor.+newtype PartialGroupByKeyInstruction_InputElementCodec = PartialGroupByKeyInstruction_InputElementCodec+  { -- | Properties of the object.+    additional :: (Core.HashMap Core.Text Core.Value)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'PartialGroupByKeyInstruction_InputElementCodec' with the minimum fields required to make a request.+newPartialGroupByKeyInstruction_InputElementCodec ::+  -- |  Properties of the object. See 'additional'.+  Core.HashMap Core.Text Core.Value ->+  PartialGroupByKeyInstruction_InputElementCodec+newPartialGroupByKeyInstruction_InputElementCodec additional =+  PartialGroupByKeyInstruction_InputElementCodec+    { additional =+        additional+    }++instance+  Core.FromJSON+    PartialGroupByKeyInstruction_InputElementCodec+  where+  parseJSON =+    Core.withObject+      "PartialGroupByKeyInstruction_InputElementCodec"+      ( \o ->+          PartialGroupByKeyInstruction_InputElementCodec+            Core.<$> (Core.parseJSONObject o)+      )++instance Core.ToJSON PartialGroupByKeyInstruction_InputElementCodec where+  toJSON PartialGroupByKeyInstruction_InputElementCodec {..} =+    Core.toJSON additional++-- | The value combining function to invoke.+--+-- /See:/ 'newPartialGroupByKeyInstruction_ValueCombiningFn' smart constructor.+newtype PartialGroupByKeyInstruction_ValueCombiningFn = PartialGroupByKeyInstruction_ValueCombiningFn+  { -- | Properties of the object.+    additional :: (Core.HashMap Core.Text Core.Value)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'PartialGroupByKeyInstruction_ValueCombiningFn' with the minimum fields required to make a request.+newPartialGroupByKeyInstruction_ValueCombiningFn ::+  -- |  Properties of the object. See 'additional'.+  Core.HashMap Core.Text Core.Value ->+  PartialGroupByKeyInstruction_ValueCombiningFn+newPartialGroupByKeyInstruction_ValueCombiningFn additional =+  PartialGroupByKeyInstruction_ValueCombiningFn+    { additional =+        additional+    }++instance+  Core.FromJSON+    PartialGroupByKeyInstruction_ValueCombiningFn+  where+  parseJSON =+    Core.withObject+      "PartialGroupByKeyInstruction_ValueCombiningFn"+      ( \o ->+          PartialGroupByKeyInstruction_ValueCombiningFn+            Core.<$> (Core.parseJSONObject o)+      )++instance Core.ToJSON PartialGroupByKeyInstruction_ValueCombiningFn where+  toJSON PartialGroupByKeyInstruction_ValueCombiningFn {..} =+    Core.toJSON additional++-- | Metrics for a particular unfused step and namespace. A metric is uniquely identified by the @metrics_namespace@, @original_step@, @metric name@ and @metric_labels@.+--+-- /See:/ 'newPerStepNamespaceMetrics' smart constructor.+data PerStepNamespaceMetrics = PerStepNamespaceMetrics+  { -- | Optional. Metrics that are recorded for this namespace and unfused step.+    metricValues :: (Core.Maybe [MetricValue]),+    -- | The namespace of these metrics on the worker.+    metricsNamespace :: (Core.Maybe Core.Text),+    -- | The original system name of the unfused step that these metrics are reported from.+    originalStep :: (Core.Maybe Core.Text)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'PerStepNamespaceMetrics' with the minimum fields required to make a request.+newPerStepNamespaceMetrics ::+  PerStepNamespaceMetrics+newPerStepNamespaceMetrics =+  PerStepNamespaceMetrics+    { metricValues = Core.Nothing,+      metricsNamespace = Core.Nothing,+      originalStep = Core.Nothing+    }++instance Core.FromJSON PerStepNamespaceMetrics where+  parseJSON =+    Core.withObject+      "PerStepNamespaceMetrics"+      ( \o ->+          PerStepNamespaceMetrics+            Core.<$> (o Core..:? "metricValues")+            Core.<*> (o Core..:? "metricsNamespace")+            Core.<*> (o Core..:? "originalStep")+      )++instance Core.ToJSON PerStepNamespaceMetrics where+  toJSON PerStepNamespaceMetrics {..} =+    Core.object+      ( Core.catMaybes+          [ ("metricValues" Core..=) Core.<$> metricValues,+            ("metricsNamespace" Core..=) Core.<$> metricsNamespace,+            ("originalStep" Core..=) Core.<$> originalStep+          ]+      )++-- | Per worker metrics.+--+-- /See:/ 'newPerWorkerMetrics' smart constructor.+newtype PerWorkerMetrics = PerWorkerMetrics+  { -- | Optional. Metrics for a particular unfused step and namespace.+    perStepNamespaceMetrics :: (Core.Maybe [PerStepNamespaceMetrics])+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'PerWorkerMetrics' with the minimum fields required to make a request.+newPerWorkerMetrics ::+  PerWorkerMetrics+newPerWorkerMetrics =+  PerWorkerMetrics {perStepNamespaceMetrics = Core.Nothing}++instance Core.FromJSON PerWorkerMetrics where+  parseJSON =+    Core.withObject+      "PerWorkerMetrics"+      ( \o ->+          PerWorkerMetrics Core.<$> (o Core..:? "perStepNamespaceMetrics")+      )++instance Core.ToJSON PerWorkerMetrics where+  toJSON PerWorkerMetrics {..} =+    Core.object+      ( Core.catMaybes+          [ ("perStepNamespaceMetrics" Core..=)+              Core.<$> perStepNamespaceMetrics+          ]+      )++-- | 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 interpreting Dataflow provided metrics.+--+-- /See:/ 'newPipelineDescription' smart constructor.+data PipelineDescription = PipelineDescription+  { -- | Pipeline level display data.+    displayData :: (Core.Maybe [DisplayData]),+    -- | Description of each stage of execution of the pipeline.+    executionPipelineStage :: (Core.Maybe [ExecutionStageSummary]),+    -- | Description of each transform in the pipeline and collections between them.+    originalPipelineTransform :: (Core.Maybe [TransformSummary]),+    -- | A hash value of the submitted pipeline portable graph step names if exists.+    stepNamesHash :: (Core.Maybe Core.Text)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'PipelineDescription' with the minimum fields required to make a request.+newPipelineDescription ::+  PipelineDescription+newPipelineDescription =+  PipelineDescription+    { displayData = Core.Nothing,+      executionPipelineStage = Core.Nothing,+      originalPipelineTransform = Core.Nothing,+      stepNamesHash = Core.Nothing+    }++instance Core.FromJSON PipelineDescription where+  parseJSON =+    Core.withObject+      "PipelineDescription"+      ( \o ->+          PipelineDescription+            Core.<$> (o Core..:? "displayData")+            Core.<*> (o Core..:? "executionPipelineStage")+            Core.<*> (o Core..:? "originalPipelineTransform")+            Core.<*> (o Core..:? "stepNamesHash")+      )++instance Core.ToJSON PipelineDescription where+  toJSON PipelineDescription {..} =+    Core.object+      ( Core.catMaybes+          [ ("displayData" Core..=) Core.<$> displayData,+            ("executionPipelineStage" Core..=) Core.<$> executionPipelineStage,+            ("originalPipelineTransform" Core..=)+              Core.<$> originalPipelineTransform,+            ("stepNamesHash" Core..=) Core.<$> stepNamesHash+          ]+      )++-- | A point in the timeseries.+--+-- /See:/ 'newPoint' smart constructor.+data Point = Point+  { -- | The timestamp of the point.+    time :: (Core.Maybe Core.DateTime),+    -- | The value of the point.+    value :: (Core.Maybe Core.Double)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'Point' with the minimum fields required to make a request.+newPoint ::+  Point+newPoint = Point {time = Core.Nothing, value = Core.Nothing}++instance Core.FromJSON Point where+  parseJSON =+    Core.withObject+      "Point"+      ( \o ->+          Point Core.<$> (o Core..:? "time") Core.<*> (o Core..:? "value")+      )++instance Core.ToJSON Point where+  toJSON Point {..} =+    Core.object+      ( Core.catMaybes+          [("time" Core..=) Core.<$> time, ("value" Core..=) Core.<$> value]+      )++-- | 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:/ 'newPosition' smart constructor.+data Position = Position+  { -- | Position is a byte offset.+    byteOffset :: (Core.Maybe Core.Int64),+    -- | CloudPosition is a concat position.+    concatPosition :: (Core.Maybe ConcatPosition),+    -- | Position is past all other positions. Also useful for the end position of an unbounded range.+    end :: (Core.Maybe Core.Bool),+    -- | Position is a string key, ordered lexicographically.+    key :: (Core.Maybe Core.Text),+    -- | Position is a record index.+    recordIndex :: (Core.Maybe Core.Int64),+    -- | CloudPosition is a base64 encoded BatchShufflePosition (with FIXED sharding).+    shufflePosition :: (Core.Maybe Core.Text)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'Position' with the minimum fields required to make a request.+newPosition ::+  Position+newPosition =+  Position+    { byteOffset = Core.Nothing,+      concatPosition = Core.Nothing,+      end = Core.Nothing,+      key = Core.Nothing,+      recordIndex = Core.Nothing,+      shufflePosition = Core.Nothing+    }++instance Core.FromJSON Position where+  parseJSON =+    Core.withObject+      "Position"+      ( \o ->+          Position+            Core.<$> (o Core..:? "byteOffset" Core.<&> Core.fmap Core.fromAsText)+            Core.<*> (o Core..:? "concatPosition")+            Core.<*> (o Core..:? "end")+            Core.<*> (o Core..:? "key")+            Core.<*> (o Core..:? "recordIndex" Core.<&> Core.fmap Core.fromAsText)+            Core.<*> (o Core..:? "shufflePosition")+      )++instance Core.ToJSON Position where+  toJSON Position {..} =+    Core.object+      ( Core.catMaybes+          [ ("byteOffset" Core..=) Core.. Core.AsText Core.<$> byteOffset,+            ("concatPosition" Core..=) Core.<$> concatPosition,+            ("end" Core..=) Core.<$> end,+            ("key" Core..=) Core.<$> key,+            ("recordIndex" Core..=) Core.. Core.AsText Core.<$> recordIndex,+            ("shufflePosition" Core..=) Core.<$> shufflePosition+          ]+      )++-- | Information about the progress of some component of job execution.+--+-- /See:/ 'newProgressTimeseries' smart constructor.+data ProgressTimeseries = ProgressTimeseries+  { -- | The current progress of the component, in the range [0,1].+    currentProgress :: (Core.Maybe Core.Double),+    -- | History of progress for the component. Points are sorted by time.+    dataPoints :: (Core.Maybe [Point])+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'ProgressTimeseries' with the minimum fields required to make a request.+newProgressTimeseries ::+  ProgressTimeseries+newProgressTimeseries =+  ProgressTimeseries+    { currentProgress = Core.Nothing,+      dataPoints = Core.Nothing+    }++instance Core.FromJSON ProgressTimeseries where+  parseJSON =+    Core.withObject+      "ProgressTimeseries"+      ( \o ->+          ProgressTimeseries+            Core.<$> (o Core..:? "currentProgress")+            Core.<*> (o Core..:? "dataPoints")+      )++instance Core.ToJSON ProgressTimeseries where+  toJSON ProgressTimeseries {..} =+    Core.object+      ( Core.catMaybes+          [ ("currentProgress" Core..=) Core.<$> currentProgress,+            ("dataPoints" Core..=) Core.<$> dataPoints+          ]+      )++-- | Metadata for a Pub\/Sub connector used by the job.+--+-- /See:/ 'newPubSubIODetails' smart constructor.+data PubSubIODetails = PubSubIODetails+  { -- | Subscription used in the connection.+    subscription :: (Core.Maybe Core.Text),+    -- | Topic accessed in the connection.+    topic :: (Core.Maybe Core.Text)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'PubSubIODetails' with the minimum fields required to make a request.+newPubSubIODetails ::+  PubSubIODetails+newPubSubIODetails =+  PubSubIODetails+    { subscription = Core.Nothing,+      topic = Core.Nothing+    }++instance Core.FromJSON PubSubIODetails where+  parseJSON =+    Core.withObject+      "PubSubIODetails"+      ( \o ->+          PubSubIODetails+            Core.<$> (o Core..:? "subscription")+            Core.<*> (o Core..:? "topic")+      )++instance Core.ToJSON PubSubIODetails where+  toJSON PubSubIODetails {..} =+    Core.object+      ( Core.catMaybes+          [ ("subscription" Core..=) Core.<$> subscription,+            ("topic" Core..=) Core.<$> topic+          ]+      )++-- | Identifies a pubsub location to use for transferring data into or out of a streaming Dataflow job.+--+-- /See:/ 'newPubsubLocation' smart constructor.+data PubsubLocation = PubsubLocation+  { -- | Indicates whether the pipeline allows late-arriving data.+    dropLateData :: (Core.Maybe Core.Bool),+    -- | If true, then this location represents dynamic topics.+    dynamicDestinations :: (Core.Maybe Core.Bool),+    -- | If set, contains a pubsub label from which to extract record ids. If left empty, record deduplication will be strictly best effort.+    idLabel :: (Core.Maybe Core.Text),+    -- | A pubsub subscription, in the form of \"pubsub.googleapis.com\/subscriptions\/\/\"+    subscription :: (Core.Maybe Core.Text),+    -- | If set, contains a pubsub label from which to extract record timestamps. If left empty, record timestamps will be generated upon arrival.+    timestampLabel :: (Core.Maybe Core.Text),+    -- | A pubsub topic, in the form of \"pubsub.googleapis.com\/topics\/\/\"+    topic :: (Core.Maybe Core.Text),+    -- | If set, specifies the pubsub subscription that will be used for tracking custom time timestamps for watermark estimation.+    trackingSubscription :: (Core.Maybe Core.Text),+    -- | If true, then the client has requested to get pubsub attributes.+    withAttributes :: (Core.Maybe Core.Bool)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'PubsubLocation' with the minimum fields required to make a request.+newPubsubLocation ::+  PubsubLocation+newPubsubLocation =+  PubsubLocation+    { dropLateData = Core.Nothing,+      dynamicDestinations = Core.Nothing,+      idLabel = Core.Nothing,+      subscription = Core.Nothing,+      timestampLabel = Core.Nothing,+      topic = Core.Nothing,+      trackingSubscription = Core.Nothing,+      withAttributes = Core.Nothing+    }++instance Core.FromJSON PubsubLocation where+  parseJSON =+    Core.withObject+      "PubsubLocation"+      ( \o ->+          PubsubLocation+            Core.<$> (o Core..:? "dropLateData")+            Core.<*> (o Core..:? "dynamicDestinations")+            Core.<*> (o Core..:? "idLabel")+            Core.<*> (o Core..:? "subscription")+            Core.<*> (o Core..:? "timestampLabel")+            Core.<*> (o Core..:? "topic")+            Core.<*> (o Core..:? "trackingSubscription")+            Core.<*> (o Core..:? "withAttributes")+      )++instance Core.ToJSON PubsubLocation where+  toJSON PubsubLocation {..} =+    Core.object+      ( Core.catMaybes+          [ ("dropLateData" Core..=) Core.<$> dropLateData,+            ("dynamicDestinations" Core..=) Core.<$> dynamicDestinations,+            ("idLabel" Core..=) Core.<$> idLabel,+            ("subscription" Core..=) Core.<$> subscription,+            ("timestampLabel" Core..=) Core.<$> timestampLabel,+            ("topic" Core..=) Core.<$> topic,+            ("trackingSubscription" Core..=) Core.<$> trackingSubscription,+            ("withAttributes" Core..=) Core.<$> withAttributes+          ]+      )++-- | Represents a Pubsub snapshot.+--+-- /See:/ 'newPubsubSnapshotMetadata' smart constructor.+data PubsubSnapshotMetadata = PubsubSnapshotMetadata+  { -- | The expire time of the Pubsub snapshot.+    expireTime :: (Core.Maybe Core.DateTime),+    -- | The name of the Pubsub snapshot.+    snapshotName :: (Core.Maybe Core.Text),+    -- | The name of the Pubsub topic.+    topicName :: (Core.Maybe Core.Text)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'PubsubSnapshotMetadata' with the minimum fields required to make a request.+newPubsubSnapshotMetadata ::+  PubsubSnapshotMetadata+newPubsubSnapshotMetadata =+  PubsubSnapshotMetadata+    { expireTime = Core.Nothing,+      snapshotName = Core.Nothing,+      topicName = Core.Nothing+    }++instance Core.FromJSON PubsubSnapshotMetadata where+  parseJSON =+    Core.withObject+      "PubsubSnapshotMetadata"+      ( \o ->+          PubsubSnapshotMetadata+            Core.<$> (o Core..:? "expireTime")+            Core.<*> (o Core..:? "snapshotName")+            Core.<*> (o Core..:? "topicName")+      )++instance Core.ToJSON PubsubSnapshotMetadata where+  toJSON PubsubSnapshotMetadata {..} =+    Core.object+      ( Core.catMaybes+          [ ("expireTime" Core..=) Core.<$> expireTime,+            ("snapshotName" Core..=) Core.<$> snapshotName,+            ("topicName" Core..=) Core.<$> topicName+          ]+      )++-- | An instruction that reads records. Takes no inputs, produces one output.+--+-- /See:/ 'newReadInstruction' smart constructor.+newtype ReadInstruction = ReadInstruction+  { -- | The source to read from.+    source :: (Core.Maybe Source)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'ReadInstruction' with the minimum fields required to make a request.+newReadInstruction ::+  ReadInstruction+newReadInstruction = ReadInstruction {source = Core.Nothing}++instance Core.FromJSON ReadInstruction where+  parseJSON =+    Core.withObject+      "ReadInstruction"+      (\o -> ReadInstruction Core.<$> (o Core..:? "source"))++instance Core.ToJSON ReadInstruction where+  toJSON ReadInstruction {..} =+    Core.object (Core.catMaybes [("source" Core..=) Core.<$> source])++-- | Request to report the status of WorkItems.+--+-- /See:/ 'newReportWorkItemStatusRequest' smart constructor.+data ReportWorkItemStatusRequest = ReportWorkItemStatusRequest+  { -- | The current timestamp at the worker.+    currentWorkerTime :: (Core.Maybe Core.DateTime),+    -- | The [regional endpoint] (https:\/\/cloud.google.com\/dataflow\/docs\/concepts\/regional-endpoints) that contains the WorkItem\'s job.+    location :: (Core.Maybe Core.Text),+    -- | Optional. The project number of the project which owns the WorkItem\'s job.+    projectNumber :: (Core.Maybe Core.Int64),+    -- | Untranslated bag-of-bytes WorkProgressUpdateRequest from UnifiedWorker.+    unifiedWorkerRequest :: (Core.Maybe ReportWorkItemStatusRequest_UnifiedWorkerRequest),+    -- | The order is unimportant, except that the order of the WorkItemServiceState messages in the ReportWorkItemStatusResponse corresponds to the order of WorkItemStatus messages here.+    workItemStatuses :: (Core.Maybe [WorkItemStatus]),+    -- | The ID of the worker reporting the WorkItem status. If this does not match the ID of the worker which the Dataflow service believes currently has the lease on the WorkItem, the report will be dropped (with an error response).+    workerId :: (Core.Maybe Core.Text)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'ReportWorkItemStatusRequest' with the minimum fields required to make a request.+newReportWorkItemStatusRequest ::+  ReportWorkItemStatusRequest+newReportWorkItemStatusRequest =+  ReportWorkItemStatusRequest+    { currentWorkerTime = Core.Nothing,+      location = Core.Nothing,+      projectNumber = Core.Nothing,+      unifiedWorkerRequest = Core.Nothing,+      workItemStatuses = Core.Nothing,+      workerId = Core.Nothing+    }++instance Core.FromJSON ReportWorkItemStatusRequest where+  parseJSON =+    Core.withObject+      "ReportWorkItemStatusRequest"+      ( \o ->+          ReportWorkItemStatusRequest+            Core.<$> (o Core..:? "currentWorkerTime")+            Core.<*> (o Core..:? "location")+            Core.<*> (o Core..:? "projectNumber" Core.<&> Core.fmap Core.fromAsText)+            Core.<*> (o Core..:? "unifiedWorkerRequest")+            Core.<*> (o Core..:? "workItemStatuses")+            Core.<*> (o Core..:? "workerId")+      )++instance Core.ToJSON ReportWorkItemStatusRequest where+  toJSON ReportWorkItemStatusRequest {..} =+    Core.object+      ( Core.catMaybes+          [ ("currentWorkerTime" Core..=) Core.<$> currentWorkerTime,+            ("location" Core..=) Core.<$> location,+            ("projectNumber" Core..=)+              Core.. Core.AsText+              Core.<$> projectNumber,+            ("unifiedWorkerRequest" Core..=) Core.<$> unifiedWorkerRequest,+            ("workItemStatuses" Core..=) Core.<$> workItemStatuses,+            ("workerId" Core..=) Core.<$> workerId+          ]+      )++-- | Untranslated bag-of-bytes WorkProgressUpdateRequest from UnifiedWorker.+--+-- /See:/ 'newReportWorkItemStatusRequest_UnifiedWorkerRequest' smart constructor.+newtype ReportWorkItemStatusRequest_UnifiedWorkerRequest = ReportWorkItemStatusRequest_UnifiedWorkerRequest+  { -- | Properties of the object. Contains field \@type with type URL.+    additional :: (Core.HashMap Core.Text Core.Value)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'ReportWorkItemStatusRequest_UnifiedWorkerRequest' with the minimum fields required to make a request.+newReportWorkItemStatusRequest_UnifiedWorkerRequest ::+  -- |  Properties of the object. Contains field \@type with type URL. See 'additional'.+  Core.HashMap Core.Text Core.Value ->+  ReportWorkItemStatusRequest_UnifiedWorkerRequest+newReportWorkItemStatusRequest_UnifiedWorkerRequest additional =+  ReportWorkItemStatusRequest_UnifiedWorkerRequest+    { additional =+        additional+    }++instance+  Core.FromJSON+    ReportWorkItemStatusRequest_UnifiedWorkerRequest+  where+  parseJSON =+    Core.withObject+      "ReportWorkItemStatusRequest_UnifiedWorkerRequest"+      ( \o ->+          ReportWorkItemStatusRequest_UnifiedWorkerRequest+            Core.<$> (Core.parseJSONObject o)+      )++instance+  Core.ToJSON+    ReportWorkItemStatusRequest_UnifiedWorkerRequest+  where+  toJSON ReportWorkItemStatusRequest_UnifiedWorkerRequest {..} =+    Core.toJSON additional++-- | Response from a request to report the status of WorkItems.+--+-- /See:/ 'newReportWorkItemStatusResponse' smart constructor.+data ReportWorkItemStatusResponse = ReportWorkItemStatusResponse+  { -- | Untranslated bag-of-bytes WorkProgressUpdateResponse for UnifiedWorker.+    unifiedWorkerResponse :: (Core.Maybe ReportWorkItemStatusResponse_UnifiedWorkerResponse),+    -- | 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 response.+    workItemServiceStates :: (Core.Maybe [WorkItemServiceState])+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'ReportWorkItemStatusResponse' with the minimum fields required to make a request.+newReportWorkItemStatusResponse ::+  ReportWorkItemStatusResponse+newReportWorkItemStatusResponse =+  ReportWorkItemStatusResponse+    { unifiedWorkerResponse =+        Core.Nothing,+      workItemServiceStates = Core.Nothing+    }++instance Core.FromJSON ReportWorkItemStatusResponse where+  parseJSON =+    Core.withObject+      "ReportWorkItemStatusResponse"+      ( \o ->+          ReportWorkItemStatusResponse+            Core.<$> (o Core..:? "unifiedWorkerResponse")+            Core.<*> (o Core..:? "workItemServiceStates")+      )++instance Core.ToJSON ReportWorkItemStatusResponse where+  toJSON ReportWorkItemStatusResponse {..} =+    Core.object+      ( Core.catMaybes+          [ ("unifiedWorkerResponse" Core..=) Core.<$> unifiedWorkerResponse,+            ("workItemServiceStates" Core..=) Core.<$> workItemServiceStates+          ]+      )++-- | Untranslated bag-of-bytes WorkProgressUpdateResponse for UnifiedWorker.+--+-- /See:/ 'newReportWorkItemStatusResponse_UnifiedWorkerResponse' smart constructor.+newtype ReportWorkItemStatusResponse_UnifiedWorkerResponse = ReportWorkItemStatusResponse_UnifiedWorkerResponse+  { -- | Properties of the object. Contains field \@type with type URL.+    additional :: (Core.HashMap Core.Text Core.Value)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'ReportWorkItemStatusResponse_UnifiedWorkerResponse' with the minimum fields required to make a request.+newReportWorkItemStatusResponse_UnifiedWorkerResponse ::+  -- |  Properties of the object. Contains field \@type with type URL. See 'additional'.+  Core.HashMap Core.Text Core.Value ->+  ReportWorkItemStatusResponse_UnifiedWorkerResponse+newReportWorkItemStatusResponse_UnifiedWorkerResponse additional =+  ReportWorkItemStatusResponse_UnifiedWorkerResponse+    { additional =+        additional+    }++instance+  Core.FromJSON+    ReportWorkItemStatusResponse_UnifiedWorkerResponse+  where+  parseJSON =+    Core.withObject+      "ReportWorkItemStatusResponse_UnifiedWorkerResponse"+      ( \o ->+          ReportWorkItemStatusResponse_UnifiedWorkerResponse+            Core.<$> (Core.parseJSONObject o)+      )++instance+  Core.ToJSON+    ReportWorkItemStatusResponse_UnifiedWorkerResponse+  where+  toJSON ReportWorkItemStatusResponse_UnifiedWorkerResponse {..} =+    Core.toJSON additional++-- | Represents the level of parallelism in a WorkItem\'s input, reported by the worker.+--+-- /See:/ 'newReportedParallelism' smart constructor.+data ReportedParallelism = ReportedParallelism+  { -- | Specifies whether the parallelism is infinite. If true, \"value\" is ignored. Infinite parallelism means the service will assume that the work item can always be split into more non-empty work items by dynamic splitting. This is a work-around for lack of support for infinity by the current JSON-based Java RPC stack.+    isInfinite :: (Core.Maybe Core.Bool),+    -- | Specifies the level of parallelism in case it is finite.+    value :: (Core.Maybe Core.Double)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'ReportedParallelism' with the minimum fields required to make a request.+newReportedParallelism ::+  ReportedParallelism+newReportedParallelism =+  ReportedParallelism+    { isInfinite = Core.Nothing,+      value = Core.Nothing+    }++instance Core.FromJSON ReportedParallelism where+  parseJSON =+    Core.withObject+      "ReportedParallelism"+      ( \o ->+          ReportedParallelism+            Core.<$> (o Core..:? "isInfinite")+            Core.<*> (o Core..:? "value")+      )++instance Core.ToJSON ReportedParallelism where+  toJSON ReportedParallelism {..} =+    Core.object+      ( Core.catMaybes+          [ ("isInfinite" Core..=) Core.<$> isInfinite,+            ("value" Core..=) Core.<$> value+          ]+      )++-- | Worker metrics exported from workers. This contains resource utilization metrics accumulated from a variety of sources. For more information, see go\/df-resource-signals.+--+-- /See:/ 'newResourceUtilizationReport' smart constructor.+data ResourceUtilizationReport = ResourceUtilizationReport+  { -- | Per container information. Key: container name.+    containers :: (Core.Maybe ResourceUtilizationReport_Containers),+    -- | CPU utilization samples.+    cpuTime :: (Core.Maybe [CPUTime]),+    -- | Optional. GPU usage samples.+    gpuUsage :: (Core.Maybe [GPUUsage]),+    -- | Memory utilization samples.+    memoryInfo :: (Core.Maybe [MemInfo])+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'ResourceUtilizationReport' with the minimum fields required to make a request.+newResourceUtilizationReport ::+  ResourceUtilizationReport+newResourceUtilizationReport =+  ResourceUtilizationReport+    { containers = Core.Nothing,+      cpuTime = Core.Nothing,+      gpuUsage = Core.Nothing,+      memoryInfo = Core.Nothing+    }++instance Core.FromJSON ResourceUtilizationReport where+  parseJSON =+    Core.withObject+      "ResourceUtilizationReport"+      ( \o ->+          ResourceUtilizationReport+            Core.<$> (o Core..:? "containers")+            Core.<*> (o Core..:? "cpuTime")+            Core.<*> (o Core..:? "gpuUsage")+            Core.<*> (o Core..:? "memoryInfo")+      )++instance Core.ToJSON ResourceUtilizationReport where+  toJSON ResourceUtilizationReport {..} =+    Core.object+      ( Core.catMaybes+          [ ("containers" Core..=) Core.<$> containers,+            ("cpuTime" Core..=) Core.<$> cpuTime,+            ("gpuUsage" Core..=) Core.<$> gpuUsage,+            ("memoryInfo" Core..=) Core.<$> memoryInfo+          ]+      )++-- | Per container information. Key: container name.+--+-- /See:/ 'newResourceUtilizationReport_Containers' smart constructor.+newtype ResourceUtilizationReport_Containers = ResourceUtilizationReport_Containers+  { additional :: (Core.HashMap Core.Text ResourceUtilizationReport)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'ResourceUtilizationReport_Containers' with the minimum fields required to make a request.+newResourceUtilizationReport_Containers ::+  -- |  See 'additional'.+  Core.HashMap Core.Text ResourceUtilizationReport ->+  ResourceUtilizationReport_Containers+newResourceUtilizationReport_Containers additional =+  ResourceUtilizationReport_Containers {additional = additional}++instance Core.FromJSON ResourceUtilizationReport_Containers where+  parseJSON =+    Core.withObject+      "ResourceUtilizationReport_Containers"+      ( \o ->+          ResourceUtilizationReport_Containers+            Core.<$> (Core.parseJSONObject o)+      )++instance Core.ToJSON ResourceUtilizationReport_Containers where+  toJSON ResourceUtilizationReport_Containers {..} =+    Core.toJSON additional++-- | Service-side response to WorkerMessage reporting resource utilization.+--+-- /See:/ 'newResourceUtilizationReportResponse' smart constructor.+data ResourceUtilizationReportResponse = ResourceUtilizationReportResponse+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'ResourceUtilizationReportResponse' with the minimum fields required to make a request.+newResourceUtilizationReportResponse ::+  ResourceUtilizationReportResponse+newResourceUtilizationReportResponse =+  ResourceUtilizationReportResponse++instance Core.FromJSON ResourceUtilizationReportResponse where+  parseJSON =+    Core.withObject+      "ResourceUtilizationReportResponse"+      (\o -> Core.pure ResourceUtilizationReportResponse)++instance Core.ToJSON ResourceUtilizationReportResponse where+  toJSON = Core.const Core.emptyObject++-- | The environment values to set at runtime.+--+-- /See:/ 'newRuntimeEnvironment' smart constructor.+data RuntimeEnvironment = RuntimeEnvironment+  { -- | Optional. Additional experiment flags for the job, specified with the @--experiments@ option.+    additionalExperiments :: (Core.Maybe [Core.Text]),+    -- | Optional. Additional user labels to be specified for the job. Keys and values should follow the restrictions specified in the <https://cloud.google.com/compute/docs/labeling-resources#restrictions labeling restrictions> page. An object containing a list of \"key\": value pairs. Example: { \"name\": \"wrench\", \"mass\": \"1kg\", \"count\": \"3\" }.+    additionalUserLabels :: (Core.Maybe RuntimeEnvironment_AdditionalUserLabels),+    -- | Optional. Whether to bypass the safety checks for the job\'s temporary directory. Use with caution.+    bypassTempDirValidation :: (Core.Maybe Core.Bool),+    -- | Optional. The disk size, in gigabytes, to use on each remote Compute Engine worker instance.+    diskSizeGb :: (Core.Maybe Core.Int32),+    -- | Optional. Whether to enable Streaming Engine for the job.+    enableStreamingEngine :: (Core.Maybe Core.Bool),+    -- | Optional. Configuration for VM IPs.+    ipConfiguration :: (Core.Maybe RuntimeEnvironment_IpConfiguration),+    -- | Optional. Name for the Cloud KMS key for the job. Key format is: projects\/\/locations\/\/keyRings\/\/cryptoKeys\/+    kmsKeyName :: (Core.Maybe Core.Text),+    -- | Optional. The machine type to use for the job. Defaults to the value from the template if not specified.+    machineType :: (Core.Maybe Core.Text),+    -- | Optional. The maximum number of Google Compute Engine instances to be made available to your pipeline during execution, from 1 to 1000. The default value is 1.+    maxWorkers :: (Core.Maybe Core.Int32),+    -- | Optional. Network to which VMs will be assigned. If empty or unspecified, the service will use the network \"default\".+    network :: (Core.Maybe Core.Text),+    -- | Optional. The initial number of Google Compute Engine instances for the job. The default value is 11.+    numWorkers :: (Core.Maybe Core.Int32),+    -- | Optional. The email address of the service account to run the job as.+    serviceAccountEmail :: (Core.Maybe Core.Text),+    -- | Optional. Specifies the Streaming Engine message processing guarantees. Reduces cost and latency but might result in duplicate messages committed to storage. Designed to run simple mapping streaming ETL jobs at the lowest cost. For example, Change Data Capture (CDC) to BigQuery is a canonical use case. For more information, see <https://cloud.google.com/dataflow/docs/guides/streaming-modes Set the pipeline streaming mode>.+    streamingMode :: (Core.Maybe RuntimeEnvironment_StreamingMode),+    -- | Optional. Subnetwork to which VMs will be assigned, if desired. You can specify a subnetwork using either a complete URL or an abbreviated path. Expected to be of the form \"https:\/\/www.googleapis.com\/compute\/v1\/projects\/HOST/PROJECT/ID\/regions\/REGION\/subnetworks\/SUBNETWORK\" or \"regions\/REGION\/subnetworks\/SUBNETWORK\". If the subnetwork is located in a Shared VPC network, you must use the complete URL.+    subnetwork :: (Core.Maybe Core.Text),+    -- | Required. The Cloud Storage path to use for temporary files. Must be a valid Cloud Storage URL, beginning with @gs:\/\/@.+    tempLocation :: (Core.Maybe Core.Text),+    -- | Required. The Compute Engine region (https:\/\/cloud.google.com\/compute\/docs\/regions-zones\/regions-zones) in which worker processing should occur, e.g. \"us-west1\". Mutually exclusive with worker/zone. If neither worker/region nor worker_zone is specified, default to the control plane\'s region.+    workerRegion :: (Core.Maybe Core.Text),+    -- | Optional. The Compute Engine zone (https:\/\/cloud.google.com\/compute\/docs\/regions-zones\/regions-zones) in which worker processing should occur, e.g. \"us-west1-a\". Mutually exclusive with worker/region. If neither worker/region nor worker_zone is specified, a zone in the control plane\'s region is chosen based on available capacity. If both @worker_zone@ and @zone@ are set, @worker_zone@ takes precedence.+    workerZone :: (Core.Maybe Core.Text),+    -- | Optional. The Compute Engine <https://cloud.google.com/compute/docs/regions-zones/regions-zones availability zone> for launching worker instances to run your pipeline. In the future, worker_zone will take precedence.+    zone :: (Core.Maybe Core.Text)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'RuntimeEnvironment' with the minimum fields required to make a request.+newRuntimeEnvironment ::+  RuntimeEnvironment+newRuntimeEnvironment =+  RuntimeEnvironment+    { additionalExperiments = Core.Nothing,+      additionalUserLabels = Core.Nothing,+      bypassTempDirValidation = Core.Nothing,+      diskSizeGb = Core.Nothing,+      enableStreamingEngine = Core.Nothing,+      ipConfiguration = Core.Nothing,+      kmsKeyName = Core.Nothing,+      machineType = Core.Nothing,+      maxWorkers = Core.Nothing,+      network = Core.Nothing,+      numWorkers = Core.Nothing,+      serviceAccountEmail = Core.Nothing,+      streamingMode = Core.Nothing,+      subnetwork = Core.Nothing,+      tempLocation = Core.Nothing,+      workerRegion = Core.Nothing,+      workerZone = Core.Nothing,+      zone = Core.Nothing+    }++instance Core.FromJSON RuntimeEnvironment where+  parseJSON =+    Core.withObject+      "RuntimeEnvironment"+      ( \o ->+          RuntimeEnvironment+            Core.<$> (o Core..:? "additionalExperiments")+            Core.<*> (o Core..:? "additionalUserLabels")+            Core.<*> (o Core..:? "bypassTempDirValidation")+            Core.<*> (o Core..:? "diskSizeGb")+            Core.<*> (o Core..:? "enableStreamingEngine")+            Core.<*> (o Core..:? "ipConfiguration")+            Core.<*> (o Core..:? "kmsKeyName")+            Core.<*> (o Core..:? "machineType")+            Core.<*> (o Core..:? "maxWorkers")+            Core.<*> (o Core..:? "network")+            Core.<*> (o Core..:? "numWorkers")+            Core.<*> (o Core..:? "serviceAccountEmail")+            Core.<*> (o Core..:? "streamingMode")+            Core.<*> (o Core..:? "subnetwork")+            Core.<*> (o Core..:? "tempLocation")+            Core.<*> (o Core..:? "workerRegion")+            Core.<*> (o Core..:? "workerZone")+            Core.<*> (o Core..:? "zone")+      )++instance Core.ToJSON RuntimeEnvironment where+  toJSON RuntimeEnvironment {..} =+    Core.object+      ( Core.catMaybes+          [ ("additionalExperiments" Core..=) Core.<$> additionalExperiments,+            ("additionalUserLabels" Core..=) Core.<$> additionalUserLabels,+            ("bypassTempDirValidation" Core..=)+              Core.<$> bypassTempDirValidation,+            ("diskSizeGb" Core..=) Core.<$> diskSizeGb,+            ("enableStreamingEngine" Core..=) Core.<$> enableStreamingEngine,+            ("ipConfiguration" Core..=) Core.<$> ipConfiguration,+            ("kmsKeyName" Core..=) Core.<$> kmsKeyName,+            ("machineType" Core..=) Core.<$> machineType,+            ("maxWorkers" Core..=) Core.<$> maxWorkers,+            ("network" Core..=) Core.<$> network,+            ("numWorkers" Core..=) Core.<$> numWorkers,+            ("serviceAccountEmail" Core..=) Core.<$> serviceAccountEmail,+            ("streamingMode" Core..=) Core.<$> streamingMode,+            ("subnetwork" Core..=) Core.<$> subnetwork,+            ("tempLocation" Core..=) Core.<$> tempLocation,+            ("workerRegion" Core..=) Core.<$> workerRegion,+            ("workerZone" Core..=) Core.<$> workerZone,+            ("zone" Core..=) Core.<$> zone+          ]+      )++-- | Optional. Additional user labels to be specified for the job. Keys and values should follow the restrictions specified in the <https://cloud.google.com/compute/docs/labeling-resources#restrictions labeling restrictions> page. An object containing a list of \"key\": value pairs. Example: { \"name\": \"wrench\", \"mass\": \"1kg\", \"count\": \"3\" }.+--+-- /See:/ 'newRuntimeEnvironment_AdditionalUserLabels' smart constructor.+newtype RuntimeEnvironment_AdditionalUserLabels = RuntimeEnvironment_AdditionalUserLabels+  { additional :: (Core.HashMap Core.Text Core.Text)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'RuntimeEnvironment_AdditionalUserLabels' with the minimum fields required to make a request.+newRuntimeEnvironment_AdditionalUserLabels ::+  -- |  See 'additional'.+  Core.HashMap Core.Text Core.Text ->+  RuntimeEnvironment_AdditionalUserLabels+newRuntimeEnvironment_AdditionalUserLabels additional =+  RuntimeEnvironment_AdditionalUserLabels {additional = additional}++instance Core.FromJSON RuntimeEnvironment_AdditionalUserLabels where+  parseJSON =+    Core.withObject+      "RuntimeEnvironment_AdditionalUserLabels"+      ( \o ->+          RuntimeEnvironment_AdditionalUserLabels+            Core.<$> (Core.parseJSONObject o)+      )++instance Core.ToJSON RuntimeEnvironment_AdditionalUserLabels where+  toJSON RuntimeEnvironment_AdditionalUserLabels {..} =+    Core.toJSON additional++-- | RuntimeMetadata describing a runtime environment.+--+-- /See:/ 'newRuntimeMetadata' smart constructor.+data RuntimeMetadata = RuntimeMetadata+  { -- | The parameters for the template.+    parameters :: (Core.Maybe [ParameterMetadata]),+    -- | SDK Info for the template.+    sdkInfo :: (Core.Maybe SDKInfo)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'RuntimeMetadata' with the minimum fields required to make a request.+newRuntimeMetadata ::+  RuntimeMetadata+newRuntimeMetadata =+  RuntimeMetadata+    { parameters = Core.Nothing,+      sdkInfo = Core.Nothing+    }++instance Core.FromJSON RuntimeMetadata where+  parseJSON =+    Core.withObject+      "RuntimeMetadata"+      ( \o ->+          RuntimeMetadata+            Core.<$> (o Core..:? "parameters")+            Core.<*> (o Core..:? "sdkInfo")+      )++instance Core.ToJSON RuntimeMetadata where+  toJSON RuntimeMetadata {..} =+    Core.object+      ( Core.catMaybes+          [ ("parameters" Core..=) Core.<$> parameters,+            ("sdkInfo" Core..=) Core.<$> sdkInfo+          ]+      )++-- | Additional job parameters that can only be updated during runtime using the projects.jobs.update method. These fields have no effect when specified during job creation.+--+-- /See:/ 'newRuntimeUpdatableParams' smart constructor.+data RuntimeUpdatableParams = RuntimeUpdatableParams+  { -- | The maximum number of workers to cap autoscaling at. This field is currently only supported for Streaming Engine jobs.+    maxNumWorkers :: (Core.Maybe Core.Int32),+    -- | The minimum number of workers to scale down to. This field is currently only supported for Streaming Engine jobs.+    minNumWorkers :: (Core.Maybe Core.Int32),+    -- | Target worker utilization, compared against the aggregate utilization of the worker pool by autoscaler, to determine upscaling and downscaling when absent other constraints such as backlog. For more information, see <https://cloud.google.com/dataflow/docs/guides/updating-a-pipeline Update an existing pipeline>.+    workerUtilizationHint :: (Core.Maybe Core.Double)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'RuntimeUpdatableParams' with the minimum fields required to make a request.+newRuntimeUpdatableParams ::+  RuntimeUpdatableParams+newRuntimeUpdatableParams =+  RuntimeUpdatableParams+    { maxNumWorkers = Core.Nothing,+      minNumWorkers = Core.Nothing,+      workerUtilizationHint = Core.Nothing+    }++instance Core.FromJSON RuntimeUpdatableParams where+  parseJSON =+    Core.withObject+      "RuntimeUpdatableParams"+      ( \o ->+          RuntimeUpdatableParams+            Core.<$> (o Core..:? "maxNumWorkers")+            Core.<*> (o Core..:? "minNumWorkers")+            Core.<*> (o Core..:? "workerUtilizationHint")+      )++instance Core.ToJSON RuntimeUpdatableParams where+  toJSON RuntimeUpdatableParams {..} =+    Core.object+      ( Core.catMaybes+          [ ("maxNumWorkers" Core..=) Core.<$> maxNumWorkers,+            ("minNumWorkers" Core..=) Core.<$> minNumWorkers,+            ("workerUtilizationHint" Core..=) Core.<$> workerUtilizationHint+          ]+      )++-- | SDK Information.+--+-- /See:/ 'newSDKInfo' smart constructor.+data SDKInfo = SDKInfo+  { -- | Required. The SDK Language.+    language :: (Core.Maybe SDKInfo_Language),+    -- | Optional. The SDK version.+    version :: (Core.Maybe Core.Text)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'SDKInfo' with the minimum fields required to make a request.+newSDKInfo ::+  SDKInfo+newSDKInfo =+  SDKInfo {language = Core.Nothing, version = Core.Nothing}++instance Core.FromJSON SDKInfo where+  parseJSON =+    Core.withObject+      "SDKInfo"+      ( \o ->+          SDKInfo+            Core.<$> (o Core..:? "language")+            Core.<*> (o Core..:? "version")+      )++instance Core.ToJSON SDKInfo where+  toJSON SDKInfo {..} =+    Core.object+      ( Core.catMaybes+          [ ("language" Core..=) Core.<$> language,+            ("version" Core..=) Core.<$> version+          ]+      )++-- | A bug found in the Dataflow SDK.+--+-- /See:/ 'newSdkBug' smart constructor.+data SdkBug = SdkBug+  { -- | Output only. How severe the SDK bug is.+    severity :: (Core.Maybe SdkBug_Severity),+    -- | Output only. Describes the impact of this SDK bug.+    type' :: (Core.Maybe SdkBug_Type),+    -- | Output only. Link to more information on the bug.+    uri :: (Core.Maybe Core.Text)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'SdkBug' with the minimum fields required to make a request.+newSdkBug ::+  SdkBug+newSdkBug =+  SdkBug+    { severity = Core.Nothing,+      type' = Core.Nothing,+      uri = Core.Nothing+    }++instance Core.FromJSON SdkBug where+  parseJSON =+    Core.withObject+      "SdkBug"+      ( \o ->+          SdkBug+            Core.<$> (o Core..:? "severity")+            Core.<*> (o Core..:? "type")+            Core.<*> (o Core..:? "uri")+      )++instance Core.ToJSON SdkBug where+  toJSON SdkBug {..} =+    Core.object+      ( Core.catMaybes+          [ ("severity" Core..=) Core.<$> severity,+            ("type" Core..=) Core.<$> type',+            ("uri" Core..=) Core.<$> uri+          ]+      )++-- | Defines an SDK harness container for executing Dataflow pipelines.+--+-- /See:/ 'newSdkHarnessContainerImage' smart constructor.+data SdkHarnessContainerImage = SdkHarnessContainerImage+  { -- | The set of capabilities enumerated in the above Environment proto. See also <https://github.com/apache/beam/blob/master/model/pipeline/src/main/proto/org/apache/beam/model/pipeline/v1/beam_runner_api.proto beamrunnerapi.proto>+    capabilities :: (Core.Maybe [Core.Text]),+    -- | A docker container image that resides in Google Container Registry.+    containerImage :: (Core.Maybe Core.Text),+    -- | Environment ID for the Beam runner API proto Environment that corresponds to the current SDK Harness.+    environmentId :: (Core.Maybe Core.Text),+    -- | If true, recommends the Dataflow service to use only one core per SDK container instance with this image. If false (or unset) recommends using more than one core per SDK container instance with this image for efficiency. Note that Dataflow service may choose to override this property if needed.+    useSingleCorePerContainer :: (Core.Maybe Core.Bool)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'SdkHarnessContainerImage' with the minimum fields required to make a request.+newSdkHarnessContainerImage ::+  SdkHarnessContainerImage+newSdkHarnessContainerImage =+  SdkHarnessContainerImage+    { capabilities = Core.Nothing,+      containerImage = Core.Nothing,+      environmentId = Core.Nothing,+      useSingleCorePerContainer = Core.Nothing+    }++instance Core.FromJSON SdkHarnessContainerImage where+  parseJSON =+    Core.withObject+      "SdkHarnessContainerImage"+      ( \o ->+          SdkHarnessContainerImage+            Core.<$> (o Core..:? "capabilities")+            Core.<*> (o Core..:? "containerImage")+            Core.<*> (o Core..:? "environmentId")+            Core.<*> (o Core..:? "useSingleCorePerContainer")+      )++instance Core.ToJSON SdkHarnessContainerImage where+  toJSON SdkHarnessContainerImage {..} =+    Core.object+      ( Core.catMaybes+          [ ("capabilities" Core..=) Core.<$> capabilities,+            ("containerImage" Core..=) Core.<$> containerImage,+            ("environmentId" Core..=) Core.<$> environmentId,+            ("useSingleCorePerContainer" Core..=)+              Core.<$> useSingleCorePerContainer+          ]+      )++-- | The version of the SDK used to run the job.+--+-- /See:/ 'newSdkVersion' smart constructor.+data SdkVersion = SdkVersion+  { -- | Output only. Known bugs found in this SDK version.+    bugs :: (Core.Maybe [SdkBug]),+    -- | The support status for this SDK version.+    sdkSupportStatus :: (Core.Maybe SdkVersion_SdkSupportStatus),+    -- | The version of the SDK used to run the job.+    version :: (Core.Maybe Core.Text),+    -- | A readable string describing the version of the SDK.+    versionDisplayName :: (Core.Maybe Core.Text)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'SdkVersion' with the minimum fields required to make a request.+newSdkVersion ::+  SdkVersion+newSdkVersion =+  SdkVersion+    { bugs = Core.Nothing,+      sdkSupportStatus = Core.Nothing,+      version = Core.Nothing,+      versionDisplayName = Core.Nothing+    }++instance Core.FromJSON SdkVersion where+  parseJSON =+    Core.withObject+      "SdkVersion"+      ( \o ->+          SdkVersion+            Core.<$> (o Core..:? "bugs")+            Core.<*> (o Core..:? "sdkSupportStatus")+            Core.<*> (o Core..:? "version")+            Core.<*> (o Core..:? "versionDisplayName")+      )++instance Core.ToJSON SdkVersion where+  toJSON SdkVersion {..} =+    Core.object+      ( Core.catMaybes+          [ ("bugs" Core..=) Core.<$> bugs,+            ("sdkSupportStatus" Core..=) Core.<$> sdkSupportStatus,+            ("version" Core..=) Core.<$> version,+            ("versionDisplayName" Core..=) Core.<$> versionDisplayName+          ]+      )++-- | Request to send encoded debug information. Next ID: 8+--+-- /See:/ 'newSendDebugCaptureRequest' smart constructor.+data SendDebugCaptureRequest = SendDebugCaptureRequest+  { -- | The internal component id for which debug information is sent.+    componentId :: (Core.Maybe Core.Text),+    -- | The encoded debug information.+    data' :: (Core.Maybe Core.Text),+    -- | Format for the data field above (id=5).+    dataFormat :: (Core.Maybe SendDebugCaptureRequest_DataFormat),+    -- | The [regional endpoint] (https:\/\/cloud.google.com\/dataflow\/docs\/concepts\/regional-endpoints) that contains the job specified by job_id.+    location :: (Core.Maybe Core.Text),+    -- | The worker id, i.e., VM hostname.+    workerId :: (Core.Maybe Core.Text)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'SendDebugCaptureRequest' with the minimum fields required to make a request.+newSendDebugCaptureRequest ::+  SendDebugCaptureRequest+newSendDebugCaptureRequest =+  SendDebugCaptureRequest+    { componentId = Core.Nothing,+      data' = Core.Nothing,+      dataFormat = Core.Nothing,+      location = Core.Nothing,+      workerId = Core.Nothing+    }++instance Core.FromJSON SendDebugCaptureRequest where+  parseJSON =+    Core.withObject+      "SendDebugCaptureRequest"+      ( \o ->+          SendDebugCaptureRequest+            Core.<$> (o Core..:? "componentId")+            Core.<*> (o Core..:? "data")+            Core.<*> (o Core..:? "dataFormat")+            Core.<*> (o Core..:? "location")+            Core.<*> (o Core..:? "workerId")+      )++instance Core.ToJSON SendDebugCaptureRequest where+  toJSON SendDebugCaptureRequest {..} =+    Core.object+      ( Core.catMaybes+          [ ("componentId" Core..=) Core.<$> componentId,+            ("data" Core..=) Core.<$> data',+            ("dataFormat" Core..=) Core.<$> dataFormat,+            ("location" Core..=) Core.<$> location,+            ("workerId" Core..=) Core.<$> workerId+          ]+      )++-- | Response to a send capture request. nothing+--+-- /See:/ 'newSendDebugCaptureResponse' smart constructor.+data SendDebugCaptureResponse = SendDebugCaptureResponse+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'SendDebugCaptureResponse' with the minimum fields required to make a request.+newSendDebugCaptureResponse ::+  SendDebugCaptureResponse+newSendDebugCaptureResponse = SendDebugCaptureResponse++instance Core.FromJSON SendDebugCaptureResponse where+  parseJSON =+    Core.withObject+      "SendDebugCaptureResponse"+      (\o -> Core.pure SendDebugCaptureResponse)++instance Core.ToJSON SendDebugCaptureResponse where+  toJSON = Core.const Core.emptyObject++-- | A request for sending worker messages to the service.+--+-- /See:/ 'newSendWorkerMessagesRequest' smart constructor.+data SendWorkerMessagesRequest = SendWorkerMessagesRequest+  { -- | The [regional endpoint] (https:\/\/cloud.google.com\/dataflow\/docs\/concepts\/regional-endpoints) that contains the job.+    location :: (Core.Maybe Core.Text),+    -- | The WorkerMessages to send.+    workerMessages :: (Core.Maybe [WorkerMessage])+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'SendWorkerMessagesRequest' with the minimum fields required to make a request.+newSendWorkerMessagesRequest ::+  SendWorkerMessagesRequest+newSendWorkerMessagesRequest =+  SendWorkerMessagesRequest+    { location = Core.Nothing,+      workerMessages = Core.Nothing+    }++instance Core.FromJSON SendWorkerMessagesRequest where+  parseJSON =+    Core.withObject+      "SendWorkerMessagesRequest"+      ( \o ->+          SendWorkerMessagesRequest+            Core.<$> (o Core..:? "location")+            Core.<*> (o Core..:? "workerMessages")+      )++instance Core.ToJSON SendWorkerMessagesRequest where+  toJSON SendWorkerMessagesRequest {..} =+    Core.object+      ( Core.catMaybes+          [ ("location" Core..=) Core.<$> location,+            ("workerMessages" Core..=) Core.<$> workerMessages+          ]+      )++-- | The response to the worker messages.+--+-- /See:/ 'newSendWorkerMessagesResponse' smart constructor.+newtype SendWorkerMessagesResponse = SendWorkerMessagesResponse+  { -- | The servers response to the worker messages.+    workerMessageResponses :: (Core.Maybe [WorkerMessageResponse])+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'SendWorkerMessagesResponse' with the minimum fields required to make a request.+newSendWorkerMessagesResponse ::+  SendWorkerMessagesResponse+newSendWorkerMessagesResponse =+  SendWorkerMessagesResponse {workerMessageResponses = Core.Nothing}++instance Core.FromJSON SendWorkerMessagesResponse where+  parseJSON =+    Core.withObject+      "SendWorkerMessagesResponse"+      ( \o ->+          SendWorkerMessagesResponse+            Core.<$> (o Core..:? "workerMessageResponses")+      )++instance Core.ToJSON SendWorkerMessagesResponse where+  toJSON SendWorkerMessagesResponse {..} =+    Core.object+      ( Core.catMaybes+          [ ("workerMessageResponses" Core..=)+              Core.<$> workerMessageResponses+          ]+      )++-- | Describes a particular function to invoke.+--+-- /See:/ 'newSeqMapTask' smart constructor.+data SeqMapTask = SeqMapTask+  { -- | Information about each of the inputs.+    inputs :: (Core.Maybe [SideInputInfo]),+    -- | The user-provided name of the SeqDo operation.+    name :: (Core.Maybe Core.Text),+    -- | Information about each of the outputs.+    outputInfos :: (Core.Maybe [SeqMapTaskOutputInfo]),+    -- | System-defined name of the stage containing the SeqDo operation. Unique across the workflow.+    stageName :: (Core.Maybe Core.Text),+    -- | System-defined name of the SeqDo operation. Unique across the workflow.+    systemName :: (Core.Maybe Core.Text),+    -- | The user function to invoke.+    userFn :: (Core.Maybe SeqMapTask_UserFn)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'SeqMapTask' with the minimum fields required to make a request.+newSeqMapTask ::+  SeqMapTask+newSeqMapTask =+  SeqMapTask+    { inputs = Core.Nothing,+      name = Core.Nothing,+      outputInfos = Core.Nothing,+      stageName = Core.Nothing,+      systemName = Core.Nothing,+      userFn = Core.Nothing+    }++instance Core.FromJSON SeqMapTask where+  parseJSON =+    Core.withObject+      "SeqMapTask"+      ( \o ->+          SeqMapTask+            Core.<$> (o Core..:? "inputs")+            Core.<*> (o Core..:? "name")+            Core.<*> (o Core..:? "outputInfos")+            Core.<*> (o Core..:? "stageName")+            Core.<*> (o Core..:? "systemName")+            Core.<*> (o Core..:? "userFn")+      )++instance Core.ToJSON SeqMapTask where+  toJSON SeqMapTask {..} =+    Core.object+      ( Core.catMaybes+          [ ("inputs" Core..=) Core.<$> inputs,+            ("name" Core..=) Core.<$> name,+            ("outputInfos" Core..=) Core.<$> outputInfos,+            ("stageName" Core..=) Core.<$> stageName,+            ("systemName" Core..=) Core.<$> systemName,+            ("userFn" Core..=) Core.<$> userFn+          ]+      )++-- | The user function to invoke.+--+-- /See:/ 'newSeqMapTask_UserFn' smart constructor.+newtype SeqMapTask_UserFn = SeqMapTask_UserFn+  { -- | Properties of the object.+    additional :: (Core.HashMap Core.Text Core.Value)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'SeqMapTask_UserFn' with the minimum fields required to make a request.+newSeqMapTask_UserFn ::+  -- |  Properties of the object. See 'additional'.+  Core.HashMap Core.Text Core.Value ->+  SeqMapTask_UserFn+newSeqMapTask_UserFn additional =+  SeqMapTask_UserFn {additional = additional}++instance Core.FromJSON SeqMapTask_UserFn where+  parseJSON =+    Core.withObject+      "SeqMapTask_UserFn"+      (\o -> SeqMapTask_UserFn Core.<$> (Core.parseJSONObject o))++instance Core.ToJSON SeqMapTask_UserFn where+  toJSON SeqMapTask_UserFn {..} = Core.toJSON additional++-- | Information about an output of a SeqMapTask.+--+-- /See:/ 'newSeqMapTaskOutputInfo' smart constructor.+data SeqMapTaskOutputInfo = SeqMapTaskOutputInfo+  { -- | The sink to write the output value to.+    sink :: (Core.Maybe Sink),+    -- | The id of the TupleTag the user code will tag the output value by.+    tag :: (Core.Maybe Core.Text)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'SeqMapTaskOutputInfo' with the minimum fields required to make a request.+newSeqMapTaskOutputInfo ::+  SeqMapTaskOutputInfo+newSeqMapTaskOutputInfo =+  SeqMapTaskOutputInfo {sink = Core.Nothing, tag = Core.Nothing}++instance Core.FromJSON SeqMapTaskOutputInfo where+  parseJSON =+    Core.withObject+      "SeqMapTaskOutputInfo"+      ( \o ->+          SeqMapTaskOutputInfo+            Core.<$> (o Core..:? "sink")+            Core.<*> (o Core..:? "tag")+      )++instance Core.ToJSON SeqMapTaskOutputInfo where+  toJSON SeqMapTaskOutputInfo {..} =+    Core.object+      ( Core.catMaybes+          [("sink" Core..=) Core.<$> sink, ("tag" Core..=) Core.<$> tag]+      )++-- | Resources used by the Dataflow Service to run the job.+--+-- /See:/ 'newServiceResources' smart constructor.+newtype ServiceResources = ServiceResources+  { -- | Output only. List of Cloud Zones being used by the Dataflow Service for this job. Example: us-central1-c+    zones :: (Core.Maybe [Core.Text])+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'ServiceResources' with the minimum fields required to make a request.+newServiceResources ::+  ServiceResources+newServiceResources = ServiceResources {zones = Core.Nothing}++instance Core.FromJSON ServiceResources where+  parseJSON =+    Core.withObject+      "ServiceResources"+      (\o -> ServiceResources Core.<$> (o Core..:? "zones"))++instance Core.ToJSON ServiceResources where+  toJSON ServiceResources {..} =+    Core.object (Core.catMaybes [("zones" Core..=) Core.<$> zones])++-- | A task which consists of a shell command for the worker to execute.+--+-- /See:/ 'newShellTask' smart constructor.+data ShellTask = ShellTask+  { -- | The shell command to run.+    command :: (Core.Maybe Core.Text),+    -- | Exit code for the task.+    exitCode :: (Core.Maybe Core.Int32)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'ShellTask' with the minimum fields required to make a request.+newShellTask ::+  ShellTask+newShellTask =+  ShellTask {command = Core.Nothing, exitCode = Core.Nothing}++instance Core.FromJSON ShellTask where+  parseJSON =+    Core.withObject+      "ShellTask"+      ( \o ->+          ShellTask+            Core.<$> (o Core..:? "command")+            Core.<*> (o Core..:? "exitCode")+      )++instance Core.ToJSON ShellTask where+  toJSON ShellTask {..} =+    Core.object+      ( Core.catMaybes+          [ ("command" Core..=) Core.<$> command,+            ("exitCode" Core..=) Core.<$> exitCode+          ]+      )++-- | Information about a side input of a DoFn or an input of a SeqDoFn.+--+-- /See:/ 'newSideInputInfo' smart constructor.+data SideInputInfo = SideInputInfo+  { -- | How to interpret the source element(s) as a side input value.+    kind :: (Core.Maybe SideInputInfo_Kind),+    -- | The source(s) to read element(s) from to get the value of this side input. If more than one source, then the elements are taken from the sources, in the specified order if order matters. At least one source is required.+    sources :: (Core.Maybe [Source]),+    -- | The id of the tag the user code will access this side input by; this should correspond to the tag of some MultiOutputInfo.+    tag :: (Core.Maybe Core.Text)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'SideInputInfo' with the minimum fields required to make a request.+newSideInputInfo ::+  SideInputInfo+newSideInputInfo =+  SideInputInfo+    { kind = Core.Nothing,+      sources = Core.Nothing,+      tag = Core.Nothing+    }++instance Core.FromJSON SideInputInfo where+  parseJSON =+    Core.withObject+      "SideInputInfo"+      ( \o ->+          SideInputInfo+            Core.<$> (o Core..:? "kind")+            Core.<*> (o Core..:? "sources")+            Core.<*> (o Core..:? "tag")+      )++instance Core.ToJSON SideInputInfo where+  toJSON SideInputInfo {..} =+    Core.object+      ( Core.catMaybes+          [ ("kind" Core..=) Core.<$> kind,+            ("sources" Core..=) Core.<$> sources,+            ("tag" Core..=) Core.<$> tag+          ]+      )++-- | How to interpret the source element(s) as a side input value.+--+-- /See:/ 'newSideInputInfo_Kind' smart constructor.+newtype SideInputInfo_Kind = SideInputInfo_Kind+  { -- | Properties of the object.+    additional :: (Core.HashMap Core.Text Core.Value)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'SideInputInfo_Kind' with the minimum fields required to make a request.+newSideInputInfo_Kind ::+  -- |  Properties of the object. See 'additional'.+  Core.HashMap Core.Text Core.Value ->+  SideInputInfo_Kind+newSideInputInfo_Kind additional =+  SideInputInfo_Kind {additional = additional}++instance Core.FromJSON SideInputInfo_Kind where+  parseJSON =+    Core.withObject+      "SideInputInfo_Kind"+      (\o -> SideInputInfo_Kind Core.<$> (Core.parseJSONObject o))++instance Core.ToJSON SideInputInfo_Kind where+  toJSON SideInputInfo_Kind {..} = Core.toJSON additional++-- | A sink that records can be encoded and written to.+--+-- /See:/ 'newSink' smart constructor.+data Sink = Sink+  { -- | The codec to use to encode data written to the sink.+    codec :: (Core.Maybe Sink_Codec),+    -- | The sink to write to, plus its parameters.+    spec :: (Core.Maybe Sink_Spec)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'Sink' with the minimum fields required to make a request.+newSink ::+  Sink+newSink = Sink {codec = Core.Nothing, spec = Core.Nothing}++instance Core.FromJSON Sink where+  parseJSON =+    Core.withObject+      "Sink"+      ( \o ->+          Sink Core.<$> (o Core..:? "codec") Core.<*> (o Core..:? "spec")+      )++instance Core.ToJSON Sink where+  toJSON Sink {..} =+    Core.object+      ( Core.catMaybes+          [("codec" Core..=) Core.<$> codec, ("spec" Core..=) Core.<$> spec]+      )++-- | The codec to use to encode data written to the sink.+--+-- /See:/ 'newSink_Codec' smart constructor.+newtype Sink_Codec = Sink_Codec+  { -- | Properties of the object.+    additional :: (Core.HashMap Core.Text Core.Value)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'Sink_Codec' with the minimum fields required to make a request.+newSink_Codec ::+  -- |  Properties of the object. See 'additional'.+  Core.HashMap Core.Text Core.Value ->+  Sink_Codec+newSink_Codec additional = Sink_Codec {additional = additional}++instance Core.FromJSON Sink_Codec where+  parseJSON =+    Core.withObject+      "Sink_Codec"+      (\o -> Sink_Codec Core.<$> (Core.parseJSONObject o))++instance Core.ToJSON Sink_Codec where+  toJSON Sink_Codec {..} = Core.toJSON additional++-- | The sink to write to, plus its parameters.+--+-- /See:/ 'newSink_Spec' smart constructor.+newtype Sink_Spec = Sink_Spec+  { -- | Properties of the object.+    additional :: (Core.HashMap Core.Text Core.Value)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'Sink_Spec' with the minimum fields required to make a request.+newSink_Spec ::+  -- |  Properties of the object. See 'additional'.+  Core.HashMap Core.Text Core.Value ->+  Sink_Spec+newSink_Spec additional = Sink_Spec {additional = additional}++instance Core.FromJSON Sink_Spec where+  parseJSON =+    Core.withObject+      "Sink_Spec"+      (\o -> Sink_Spec Core.<$> (Core.parseJSONObject o))++instance Core.ToJSON Sink_Spec where+  toJSON Sink_Spec {..} = Core.toJSON additional++-- | Represents a snapshot of a job.+--+-- /See:/ 'newSnapshot' smart constructor.+data Snapshot = Snapshot+  { -- | The time this snapshot was created.+    creationTime :: (Core.Maybe Core.DateTime),+    -- | User specified description of the snapshot. Maybe empty.+    description :: (Core.Maybe Core.Text),+    -- | The disk byte size of the snapshot. Only available for snapshots in READY state.+    diskSizeBytes :: (Core.Maybe Core.Int64),+    -- | The unique ID of this snapshot.+    id :: (Core.Maybe Core.Text),+    -- | The project this snapshot belongs to.+    projectId :: (Core.Maybe Core.Text),+    -- | Pub\/Sub snapshot metadata.+    pubsubMetadata :: (Core.Maybe [PubsubSnapshotMetadata]),+    -- | Cloud region where this snapshot lives in, e.g., \"us-central1\".+    region :: (Core.Maybe Core.Text),+    -- | The job this snapshot was created from.+    sourceJobId :: (Core.Maybe Core.Text),+    -- | State of the snapshot.+    state :: (Core.Maybe Snapshot_State),+    -- | The time after which this snapshot will be automatically deleted.+    ttl :: (Core.Maybe Core.Duration)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'Snapshot' with the minimum fields required to make a request.+newSnapshot ::+  Snapshot+newSnapshot =+  Snapshot+    { creationTime = Core.Nothing,+      description = Core.Nothing,+      diskSizeBytes = Core.Nothing,+      id = Core.Nothing,+      projectId = Core.Nothing,+      pubsubMetadata = Core.Nothing,+      region = Core.Nothing,+      sourceJobId = Core.Nothing,+      state = Core.Nothing,+      ttl = Core.Nothing+    }++instance Core.FromJSON Snapshot where+  parseJSON =+    Core.withObject+      "Snapshot"+      ( \o ->+          Snapshot+            Core.<$> (o Core..:? "creationTime")+            Core.<*> (o Core..:? "description")+            Core.<*> (o Core..:? "diskSizeBytes" Core.<&> Core.fmap Core.fromAsText)+            Core.<*> (o Core..:? "id")+            Core.<*> (o Core..:? "projectId")+            Core.<*> (o Core..:? "pubsubMetadata")+            Core.<*> (o Core..:? "region")+            Core.<*> (o Core..:? "sourceJobId")+            Core.<*> (o Core..:? "state")+            Core.<*> (o Core..:? "ttl")+      )++instance Core.ToJSON Snapshot where+  toJSON Snapshot {..} =+    Core.object+      ( Core.catMaybes+          [ ("creationTime" Core..=) Core.<$> creationTime,+            ("description" Core..=) Core.<$> description,+            ("diskSizeBytes" Core..=)+              Core.. Core.AsText+              Core.<$> diskSizeBytes,+            ("id" Core..=) Core.<$> id,+            ("projectId" Core..=) Core.<$> projectId,+            ("pubsubMetadata" Core..=) Core.<$> pubsubMetadata,+            ("region" Core..=) Core.<$> region,+            ("sourceJobId" Core..=) Core.<$> sourceJobId,+            ("state" Core..=) Core.<$> state,+            ("ttl" Core..=) Core.<$> ttl+          ]+      )++-- | Request to create a snapshot of a job.+--+-- /See:/ 'newSnapshotJobRequest' smart constructor.+data SnapshotJobRequest = SnapshotJobRequest+  { -- | User specified description of the snapshot. Maybe empty.+    description :: (Core.Maybe Core.Text),+    -- | The location that contains this job.+    location :: (Core.Maybe Core.Text),+    -- | If true, perform snapshots for sources which support this.+    snapshotSources :: (Core.Maybe Core.Bool),+    -- | TTL for the snapshot.+    ttl :: (Core.Maybe Core.Duration)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'SnapshotJobRequest' with the minimum fields required to make a request.+newSnapshotJobRequest ::+  SnapshotJobRequest+newSnapshotJobRequest =+  SnapshotJobRequest+    { description = Core.Nothing,+      location = Core.Nothing,+      snapshotSources = Core.Nothing,+      ttl = Core.Nothing+    }++instance Core.FromJSON SnapshotJobRequest where+  parseJSON =+    Core.withObject+      "SnapshotJobRequest"+      ( \o ->+          SnapshotJobRequest+            Core.<$> (o Core..:? "description")+            Core.<*> (o Core..:? "location")+            Core.<*> (o Core..:? "snapshotSources")+            Core.<*> (o Core..:? "ttl")+      )++instance Core.ToJSON SnapshotJobRequest where+  toJSON SnapshotJobRequest {..} =+    Core.object+      ( Core.catMaybes+          [ ("description" Core..=) Core.<$> description,+            ("location" Core..=) Core.<$> location,+            ("snapshotSources" Core..=) Core.<$> snapshotSources,+            ("ttl" Core..=) Core.<$> ttl+          ]+      )++-- | A source that records can be read and decoded from.+--+-- /See:/ 'newSource' smart constructor.+data Source = Source+  { -- | While splitting, sources may specify the produced bundles as differences against another source, in order to save backend-side memory and allow bigger jobs. For details, see SourceSplitRequest. To support this use case, the full set of parameters of the source is logically obtained by taking the latest explicitly specified value of each parameter in the order: base/specs (later items win), spec (overrides anything in base/specs).+    baseSpecs :: (Core.Maybe [Source_BaseSpecsItem]),+    -- | The codec to use to decode data read from the source.+    codec :: (Core.Maybe Source_Codec),+    -- | 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 true when splitting a single file into a set of byte ranges of appropriate size, and set this to false when splitting a filepattern into individual files. However, for efficiency, a file splitter may decide to produce file subranges directly from the filepattern to avoid a splitting round-trip. See SourceSplitRequest for an overview of the splitting process. This field is meaningful only in the Source objects populated by the user (e.g. when filling in a DerivedSource). Source objects supplied by the framework to the user don\'t have this field populated.+    doesNotNeedSplitting :: (Core.Maybe Core.Bool),+    -- | Optionally, metadata for this source can be supplied right away, avoiding a SourceGetMetadataOperation roundtrip (see SourceOperationRequest). This field is meaningful only in the Source objects populated by the user (e.g. when filling in a DerivedSource). Source objects supplied by the framework to the user don\'t have this field populated.+    metadata :: (Core.Maybe SourceMetadata),+    -- | The source to read from, plus its parameters.+    spec :: (Core.Maybe Source_Spec)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'Source' with the minimum fields required to make a request.+newSource ::+  Source+newSource =+  Source+    { baseSpecs = Core.Nothing,+      codec = Core.Nothing,+      doesNotNeedSplitting = Core.Nothing,+      metadata = Core.Nothing,+      spec = Core.Nothing+    }++instance Core.FromJSON Source where+  parseJSON =+    Core.withObject+      "Source"+      ( \o ->+          Source+            Core.<$> (o Core..:? "baseSpecs")+            Core.<*> (o Core..:? "codec")+            Core.<*> (o Core..:? "doesNotNeedSplitting")+            Core.<*> (o Core..:? "metadata")+            Core.<*> (o Core..:? "spec")+      )++instance Core.ToJSON Source where+  toJSON Source {..} =+    Core.object+      ( Core.catMaybes+          [ ("baseSpecs" Core..=) Core.<$> baseSpecs,+            ("codec" Core..=) Core.<$> codec,+            ("doesNotNeedSplitting" Core..=) Core.<$> doesNotNeedSplitting,+            ("metadata" Core..=) Core.<$> metadata,+            ("spec" Core..=) Core.<$> spec+          ]+      )++--+-- /See:/ 'newSource_BaseSpecsItem' smart constructor.+newtype Source_BaseSpecsItem = Source_BaseSpecsItem+  { -- | Properties of the object.+    additional :: (Core.HashMap Core.Text Core.Value)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'Source_BaseSpecsItem' with the minimum fields required to make a request.+newSource_BaseSpecsItem ::+  -- |  Properties of the object. See 'additional'.+  Core.HashMap Core.Text Core.Value ->+  Source_BaseSpecsItem+newSource_BaseSpecsItem additional =+  Source_BaseSpecsItem {additional = additional}++instance Core.FromJSON Source_BaseSpecsItem where+  parseJSON =+    Core.withObject+      "Source_BaseSpecsItem"+      (\o -> Source_BaseSpecsItem Core.<$> (Core.parseJSONObject o))++instance Core.ToJSON Source_BaseSpecsItem where+  toJSON Source_BaseSpecsItem {..} = Core.toJSON additional++-- | The codec to use to decode data read from the source.+--+-- /See:/ 'newSource_Codec' smart constructor.+newtype Source_Codec = Source_Codec+  { -- | Properties of the object.+    additional :: (Core.HashMap Core.Text Core.Value)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'Source_Codec' with the minimum fields required to make a request.+newSource_Codec ::+  -- |  Properties of the object. See 'additional'.+  Core.HashMap Core.Text Core.Value ->+  Source_Codec+newSource_Codec additional = Source_Codec {additional = additional}++instance Core.FromJSON Source_Codec where+  parseJSON =+    Core.withObject+      "Source_Codec"+      (\o -> Source_Codec Core.<$> (Core.parseJSONObject o))++instance Core.ToJSON Source_Codec where+  toJSON Source_Codec {..} = Core.toJSON additional++-- | The source to read from, plus its parameters.+--+-- /See:/ 'newSource_Spec' smart constructor.+newtype Source_Spec = Source_Spec+  { -- | Properties of the object.+    additional :: (Core.HashMap Core.Text Core.Value)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'Source_Spec' with the minimum fields required to make a request.+newSource_Spec ::+  -- |  Properties of the object. See 'additional'.+  Core.HashMap Core.Text Core.Value ->+  Source_Spec+newSource_Spec additional = Source_Spec {additional = additional}++instance Core.FromJSON Source_Spec where+  parseJSON =+    Core.withObject+      "Source_Spec"+      (\o -> Source_Spec Core.<$> (Core.parseJSONObject o))++instance Core.ToJSON Source_Spec where+  toJSON Source_Spec {..} = Core.toJSON additional++-- | DEPRECATED in favor of DynamicSourceSplit.+--+-- /See:/ 'newSourceFork' smart constructor.+data SourceFork = SourceFork+  { -- | DEPRECATED+    primary :: (Core.Maybe SourceSplitShard),+    -- | DEPRECATED+    primarySource :: (Core.Maybe DerivedSource),+    -- | DEPRECATED+    residual :: (Core.Maybe SourceSplitShard),+    -- | DEPRECATED+    residualSource :: (Core.Maybe DerivedSource)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'SourceFork' with the minimum fields required to make a request.+newSourceFork ::+  SourceFork+newSourceFork =+  SourceFork+    { primary = Core.Nothing,+      primarySource = Core.Nothing,+      residual = Core.Nothing,+      residualSource = Core.Nothing+    }++instance Core.FromJSON SourceFork where+  parseJSON =+    Core.withObject+      "SourceFork"+      ( \o ->+          SourceFork+            Core.<$> (o Core..:? "primary")+            Core.<*> (o Core..:? "primarySource")+            Core.<*> (o Core..:? "residual")+            Core.<*> (o Core..:? "residualSource")+      )++instance Core.ToJSON SourceFork where+  toJSON SourceFork {..} =+    Core.object+      ( Core.catMaybes+          [ ("primary" Core..=) Core.<$> primary,+            ("primarySource" Core..=) Core.<$> primarySource,+            ("residual" Core..=) Core.<$> residual,+            ("residualSource" Core..=) Core.<$> residualSource+          ]+      )++-- | A request to compute the SourceMetadata of a Source.+--+-- /See:/ 'newSourceGetMetadataRequest' smart constructor.+newtype SourceGetMetadataRequest = SourceGetMetadataRequest+  { -- | Specification of the source whose metadata should be computed.+    source :: (Core.Maybe Source)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'SourceGetMetadataRequest' with the minimum fields required to make a request.+newSourceGetMetadataRequest ::+  SourceGetMetadataRequest+newSourceGetMetadataRequest =+  SourceGetMetadataRequest {source = Core.Nothing}++instance Core.FromJSON SourceGetMetadataRequest where+  parseJSON =+    Core.withObject+      "SourceGetMetadataRequest"+      (\o -> SourceGetMetadataRequest Core.<$> (o Core..:? "source"))++instance Core.ToJSON SourceGetMetadataRequest where+  toJSON SourceGetMetadataRequest {..} =+    Core.object (Core.catMaybes [("source" Core..=) Core.<$> source])++-- | The result of a SourceGetMetadataOperation.+--+-- /See:/ 'newSourceGetMetadataResponse' smart constructor.+newtype SourceGetMetadataResponse = SourceGetMetadataResponse+  { -- | The computed metadata.+    metadata :: (Core.Maybe SourceMetadata)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'SourceGetMetadataResponse' with the minimum fields required to make a request.+newSourceGetMetadataResponse ::+  SourceGetMetadataResponse+newSourceGetMetadataResponse =+  SourceGetMetadataResponse {metadata = Core.Nothing}++instance Core.FromJSON SourceGetMetadataResponse where+  parseJSON =+    Core.withObject+      "SourceGetMetadataResponse"+      (\o -> SourceGetMetadataResponse Core.<$> (o Core..:? "metadata"))++instance Core.ToJSON SourceGetMetadataResponse where+  toJSON SourceGetMetadataResponse {..} =+    Core.object+      (Core.catMaybes [("metadata" Core..=) Core.<$> metadata])++-- | Metadata about a Source useful for automatically optimizing and tuning the pipeline, etc.+--+-- /See:/ 'newSourceMetadata' smart constructor.+data SourceMetadata = SourceMetadata+  { -- | 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.+    estimatedSizeBytes :: (Core.Maybe Core.Int64),+    -- | Specifies that the size of this source is known to be infinite (this is a streaming source).+    infinite :: (Core.Maybe Core.Bool),+    -- | Whether this source is known to produce key\/value pairs with the (encoded) keys in lexicographically sorted order.+    producesSortedKeys :: (Core.Maybe Core.Bool)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'SourceMetadata' with the minimum fields required to make a request.+newSourceMetadata ::+  SourceMetadata+newSourceMetadata =+  SourceMetadata+    { estimatedSizeBytes = Core.Nothing,+      infinite = Core.Nothing,+      producesSortedKeys = Core.Nothing+    }++instance Core.FromJSON SourceMetadata where+  parseJSON =+    Core.withObject+      "SourceMetadata"+      ( \o ->+          SourceMetadata+            Core.<$> ( o+                         Core..:? "estimatedSizeBytes"+                         Core.<&> Core.fmap Core.fromAsText+                     )+            Core.<*> (o Core..:? "infinite")+            Core.<*> (o Core..:? "producesSortedKeys")+      )++instance Core.ToJSON SourceMetadata where+  toJSON SourceMetadata {..} =+    Core.object+      ( Core.catMaybes+          [ ("estimatedSizeBytes" Core..=)+              Core.. Core.AsText+              Core.<$> estimatedSizeBytes,+            ("infinite" Core..=) Core.<$> infinite,+            ("producesSortedKeys" Core..=) Core.<$> producesSortedKeys+          ]+      )++-- | A work item that represents the different operations that can be performed on a user-defined Source specification.+--+-- /See:/ 'newSourceOperationRequest' smart constructor.+data SourceOperationRequest = SourceOperationRequest+  { -- | Information about a request to get metadata about a source.+    getMetadata :: (Core.Maybe SourceGetMetadataRequest),+    -- | User-provided name of the Read instruction for this source.+    name :: (Core.Maybe Core.Text),+    -- | System-defined name for the Read instruction for this source in the original workflow graph.+    originalName :: (Core.Maybe Core.Text),+    -- | Information about a request to split a source.+    split :: (Core.Maybe SourceSplitRequest),+    -- | System-defined name of the stage containing the source operation. Unique across the workflow.+    stageName :: (Core.Maybe Core.Text),+    -- | System-defined name of the Read instruction for this source. Unique across the workflow.+    systemName :: (Core.Maybe Core.Text)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'SourceOperationRequest' with the minimum fields required to make a request.+newSourceOperationRequest ::+  SourceOperationRequest+newSourceOperationRequest =+  SourceOperationRequest+    { getMetadata = Core.Nothing,+      name = Core.Nothing,+      originalName = Core.Nothing,+      split = Core.Nothing,+      stageName = Core.Nothing,+      systemName = Core.Nothing+    }++instance Core.FromJSON SourceOperationRequest where+  parseJSON =+    Core.withObject+      "SourceOperationRequest"+      ( \o ->+          SourceOperationRequest+            Core.<$> (o Core..:? "getMetadata")+            Core.<*> (o Core..:? "name")+            Core.<*> (o Core..:? "originalName")+            Core.<*> (o Core..:? "split")+            Core.<*> (o Core..:? "stageName")+            Core.<*> (o Core..:? "systemName")+      )++instance Core.ToJSON SourceOperationRequest where+  toJSON SourceOperationRequest {..} =+    Core.object+      ( Core.catMaybes+          [ ("getMetadata" Core..=) Core.<$> getMetadata,+            ("name" Core..=) Core.<$> name,+            ("originalName" Core..=) Core.<$> originalName,+            ("split" Core..=) Core.<$> split,+            ("stageName" Core..=) Core.<$> stageName,+            ("systemName" Core..=) Core.<$> systemName+          ]+      )++-- | The result of a SourceOperationRequest, specified in ReportWorkItemStatusRequest.source_operation when the work item is completed.+--+-- /See:/ 'newSourceOperationResponse' smart constructor.+data SourceOperationResponse = SourceOperationResponse+  { -- | A response to a request to get metadata about a source.+    getMetadata :: (Core.Maybe SourceGetMetadataResponse),+    -- | A response to a request to split a source.+    split :: (Core.Maybe SourceSplitResponse)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'SourceOperationResponse' with the minimum fields required to make a request.+newSourceOperationResponse ::+  SourceOperationResponse+newSourceOperationResponse =+  SourceOperationResponse+    { getMetadata = Core.Nothing,+      split = Core.Nothing+    }++instance Core.FromJSON SourceOperationResponse where+  parseJSON =+    Core.withObject+      "SourceOperationResponse"+      ( \o ->+          SourceOperationResponse+            Core.<$> (o Core..:? "getMetadata")+            Core.<*> (o Core..:? "split")+      )++instance Core.ToJSON SourceOperationResponse where+  toJSON SourceOperationResponse {..} =+    Core.object+      ( Core.catMaybes+          [ ("getMetadata" Core..=) Core.<$> getMetadata,+            ("split" Core..=) Core.<$> split+          ]+      )++-- | Hints for splitting a Source into bundles (parts for parallel processing) using SourceSplitRequest.+--+-- /See:/ 'newSourceSplitOptions' smart constructor.+data SourceSplitOptions = SourceSplitOptions+  { -- | The source should be split into a set of bundles where the estimated size of each is approximately this many bytes.+    desiredBundleSizeBytes :: (Core.Maybe Core.Int64),+    -- | DEPRECATED in favor of desired/bundle/size_bytes.+    desiredShardSizeBytes :: (Core.Maybe Core.Int64)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'SourceSplitOptions' with the minimum fields required to make a request.+newSourceSplitOptions ::+  SourceSplitOptions+newSourceSplitOptions =+  SourceSplitOptions+    { desiredBundleSizeBytes = Core.Nothing,+      desiredShardSizeBytes = Core.Nothing+    }++instance Core.FromJSON SourceSplitOptions where+  parseJSON =+    Core.withObject+      "SourceSplitOptions"+      ( \o ->+          SourceSplitOptions+            Core.<$> ( o+                         Core..:? "desiredBundleSizeBytes"+                         Core.<&> Core.fmap Core.fromAsText+                     )+            Core.<*> ( o+                         Core..:? "desiredShardSizeBytes"+                         Core.<&> Core.fmap Core.fromAsText+                     )+      )++instance Core.ToJSON SourceSplitOptions where+  toJSON SourceSplitOptions {..} =+    Core.object+      ( Core.catMaybes+          [ ("desiredBundleSizeBytes" Core..=)+              Core.. Core.AsText+              Core.<$> desiredBundleSizeBytes,+            ("desiredShardSizeBytes" Core..=)+              Core.. Core.AsText+              Core.<$> desiredShardSizeBytes+          ]+      )++-- | Represents the operation to split a high-level Source specification into bundles (parts for parallel processing). At a high level, splitting of a source into bundles happens as follows: SourceSplitRequest is applied to the source. If it returns SOURCE/SPLIT/OUTCOME/USE/CURRENT, no further splitting happens and the source is used \"as is\". Otherwise, splitting is applied recursively to each produced DerivedSource. As an optimization, for any Source, if its does/not/need/splitting is true, the framework assumes that splitting this source would return SOURCE/SPLIT/OUTCOME/USE_CURRENT, and doesn\'t initiate a SourceSplitRequest. This applies both to the initial source being split and to bundles produced from it.+--+-- /See:/ 'newSourceSplitRequest' smart constructor.+data SourceSplitRequest = SourceSplitRequest+  { -- | Hints for tuning the splitting process.+    options :: (Core.Maybe SourceSplitOptions),+    -- | Specification of the source to be split.+    source :: (Core.Maybe Source)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'SourceSplitRequest' with the minimum fields required to make a request.+newSourceSplitRequest ::+  SourceSplitRequest+newSourceSplitRequest =+  SourceSplitRequest {options = Core.Nothing, source = Core.Nothing}++instance Core.FromJSON SourceSplitRequest where+  parseJSON =+    Core.withObject+      "SourceSplitRequest"+      ( \o ->+          SourceSplitRequest+            Core.<$> (o Core..:? "options")+            Core.<*> (o Core..:? "source")+      )++instance Core.ToJSON SourceSplitRequest where+  toJSON SourceSplitRequest {..} =+    Core.object+      ( Core.catMaybes+          [ ("options" Core..=) Core.<$> options,+            ("source" Core..=) Core.<$> source+          ]+      )++-- | The response to a SourceSplitRequest.+--+-- /See:/ 'newSourceSplitResponse' smart constructor.+data SourceSplitResponse = SourceSplitResponse+  { -- | 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 can be empty, which means the source represents an empty input.+    bundles :: (Core.Maybe [DerivedSource]),+    -- | Indicates whether splitting happened and produced a list of bundles. If this is USE/CURRENT/SOURCE/AS/IS, the current source should be processed \"as is\" without splitting. \"bundles\" is ignored in this case. If this is SPLITTING_HAPPENED, then \"bundles\" contains a list of bundles into which the source was split.+    outcome :: (Core.Maybe SourceSplitResponse_Outcome),+    -- | DEPRECATED in favor of bundles.+    shards :: (Core.Maybe [SourceSplitShard])+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'SourceSplitResponse' with the minimum fields required to make a request.+newSourceSplitResponse ::+  SourceSplitResponse+newSourceSplitResponse =+  SourceSplitResponse+    { bundles = Core.Nothing,+      outcome = Core.Nothing,+      shards = Core.Nothing+    }++instance Core.FromJSON SourceSplitResponse where+  parseJSON =+    Core.withObject+      "SourceSplitResponse"+      ( \o ->+          SourceSplitResponse+            Core.<$> (o Core..:? "bundles")+            Core.<*> (o Core..:? "outcome")+            Core.<*> (o Core..:? "shards")+      )++instance Core.ToJSON SourceSplitResponse where+  toJSON SourceSplitResponse {..} =+    Core.object+      ( Core.catMaybes+          [ ("bundles" Core..=) Core.<$> bundles,+            ("outcome" Core..=) Core.<$> outcome,+            ("shards" Core..=) Core.<$> shards+          ]+      )++-- | DEPRECATED in favor of DerivedSource.+--+-- /See:/ 'newSourceSplitShard' smart constructor.+data SourceSplitShard = SourceSplitShard+  { -- | DEPRECATED+    derivationMode :: (Core.Maybe SourceSplitShard_DerivationMode),+    -- | DEPRECATED+    source :: (Core.Maybe Source)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'SourceSplitShard' with the minimum fields required to make a request.+newSourceSplitShard ::+  SourceSplitShard+newSourceSplitShard =+  SourceSplitShard+    { derivationMode = Core.Nothing,+      source = Core.Nothing+    }++instance Core.FromJSON SourceSplitShard where+  parseJSON =+    Core.withObject+      "SourceSplitShard"+      ( \o ->+          SourceSplitShard+            Core.<$> (o Core..:? "derivationMode")+            Core.<*> (o Core..:? "source")+      )++instance Core.ToJSON SourceSplitShard where+  toJSON SourceSplitShard {..} =+    Core.object+      ( Core.catMaybes+          [ ("derivationMode" Core..=) Core.<$> derivationMode,+            ("source" Core..=) Core.<$> source+          ]+      )++-- | Metadata for a Spanner connector used by the job.+--+-- /See:/ 'newSpannerIODetails' smart constructor.+data SpannerIODetails = SpannerIODetails+  { -- | DatabaseId accessed in the connection.+    databaseId :: (Core.Maybe Core.Text),+    -- | InstanceId accessed in the connection.+    instanceId :: (Core.Maybe Core.Text),+    -- | ProjectId accessed in the connection.+    projectId :: (Core.Maybe Core.Text)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'SpannerIODetails' with the minimum fields required to make a request.+newSpannerIODetails ::+  SpannerIODetails+newSpannerIODetails =+  SpannerIODetails+    { databaseId = Core.Nothing,+      instanceId = Core.Nothing,+      projectId = Core.Nothing+    }++instance Core.FromJSON SpannerIODetails where+  parseJSON =+    Core.withObject+      "SpannerIODetails"+      ( \o ->+          SpannerIODetails+            Core.<$> (o Core..:? "databaseId")+            Core.<*> (o Core..:? "instanceId")+            Core.<*> (o Core..:? "projectId")+      )++instance Core.ToJSON SpannerIODetails where+  toJSON SpannerIODetails {..} =+    Core.object+      ( Core.catMaybes+          [ ("databaseId" Core..=) Core.<$> databaseId,+            ("instanceId" Core..=) Core.<$> instanceId,+            ("projectId" Core..=) Core.<$> projectId+          ]+      )++-- | A representation of an int64, n, that is immune to precision loss when encoded in JSON.+--+-- /See:/ 'newSplitInt64' smart constructor.+data SplitInt64 = SplitInt64+  { -- | The high order bits, including the sign: n >> 32.+    highBits :: (Core.Maybe Core.Int32),+    -- | The low order bits: n & 0xffffffff.+    lowBits :: (Core.Maybe Core.Word32)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'SplitInt64' with the minimum fields required to make a request.+newSplitInt64 ::+  SplitInt64+newSplitInt64 =+  SplitInt64 {highBits = Core.Nothing, lowBits = Core.Nothing}++instance Core.FromJSON SplitInt64 where+  parseJSON =+    Core.withObject+      "SplitInt64"+      ( \o ->+          SplitInt64+            Core.<$> (o Core..:? "highBits")+            Core.<*> (o Core..:? "lowBits")+      )++instance Core.ToJSON SplitInt64 where+  toJSON SplitInt64 {..} =+    Core.object+      ( Core.catMaybes+          [ ("highBits" Core..=) Core.<$> highBits,+            ("lowBits" Core..=) Core.<$> lowBits+          ]+      )++-- | Information about the workers and work items within a stage.+--+-- /See:/ 'newStageExecutionDetails' smart constructor.+data StageExecutionDetails = StageExecutionDetails+  { -- | If present, this response does not contain all requested tasks. To obtain the next page of results, repeat the request with page_token set to this value.+    nextPageToken :: (Core.Maybe Core.Text),+    -- | Workers that have done work on the stage.+    workers :: (Core.Maybe [WorkerDetails])+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'StageExecutionDetails' with the minimum fields required to make a request.+newStageExecutionDetails ::+  StageExecutionDetails+newStageExecutionDetails =+  StageExecutionDetails+    { nextPageToken = Core.Nothing,+      workers = Core.Nothing+    }++instance Core.FromJSON StageExecutionDetails where+  parseJSON =+    Core.withObject+      "StageExecutionDetails"+      ( \o ->+          StageExecutionDetails+            Core.<$> (o Core..:? "nextPageToken")+            Core.<*> (o Core..:? "workers")+      )++instance Core.ToJSON StageExecutionDetails where+  toJSON StageExecutionDetails {..} =+    Core.object+      ( Core.catMaybes+          [ ("nextPageToken" Core..=) Core.<$> nextPageToken,+            ("workers" Core..=) Core.<$> workers+          ]+      )++-- | Description of an input or output of an execution stage.+--+-- /See:/ 'newStageSource' smart constructor.+data StageSource = StageSource+  { -- | Dataflow service generated name for this source.+    name :: (Core.Maybe Core.Text),+    -- | User name for the original user transform or collection with which this source is most closely associated.+    originalTransformOrCollection :: (Core.Maybe Core.Text),+    -- | Size of the source, if measurable.+    sizeBytes :: (Core.Maybe Core.Int64),+    -- | Human-readable name for this source; may be user or system generated.+    userName :: (Core.Maybe Core.Text)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'StageSource' with the minimum fields required to make a request.+newStageSource ::+  StageSource+newStageSource =+  StageSource+    { name = Core.Nothing,+      originalTransformOrCollection = Core.Nothing,+      sizeBytes = Core.Nothing,+      userName = Core.Nothing+    }++instance Core.FromJSON StageSource where+  parseJSON =+    Core.withObject+      "StageSource"+      ( \o ->+          StageSource+            Core.<$> (o Core..:? "name")+            Core.<*> (o Core..:? "originalTransformOrCollection")+            Core.<*> (o Core..:? "sizeBytes" Core.<&> Core.fmap Core.fromAsText)+            Core.<*> (o Core..:? "userName")+      )++instance Core.ToJSON StageSource where+  toJSON StageSource {..} =+    Core.object+      ( Core.catMaybes+          [ ("name" Core..=) Core.<$> name,+            ("originalTransformOrCollection" Core..=)+              Core.<$> originalTransformOrCollection,+            ("sizeBytes" Core..=) Core.. Core.AsText Core.<$> sizeBytes,+            ("userName" Core..=) Core.<$> userName+          ]+      )++-- | Information about a particular execution stage of a job.+--+-- /See:/ 'newStageSummary' smart constructor.+data StageSummary = StageSummary+  { -- | End time of this stage. If the work item is completed, this is the actual end time of the stage. Otherwise, it is the predicted end time.+    endTime :: (Core.Maybe Core.DateTime),+    -- | Metrics for this stage.+    metrics :: (Core.Maybe [MetricUpdate]),+    -- | Progress for this stage. Only applicable to Batch jobs.+    progress :: (Core.Maybe ProgressTimeseries),+    -- | ID of this stage+    stageId :: (Core.Maybe Core.Text),+    -- | Start time of this stage.+    startTime :: (Core.Maybe Core.DateTime),+    -- | State of this stage.+    state :: (Core.Maybe StageSummary_State),+    -- | Straggler summary for this stage.+    stragglerSummary :: (Core.Maybe StragglerSummary)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'StageSummary' with the minimum fields required to make a request.+newStageSummary ::+  StageSummary+newStageSummary =+  StageSummary+    { endTime = Core.Nothing,+      metrics = Core.Nothing,+      progress = Core.Nothing,+      stageId = Core.Nothing,+      startTime = Core.Nothing,+      state = Core.Nothing,+      stragglerSummary = Core.Nothing+    }++instance Core.FromJSON StageSummary where+  parseJSON =+    Core.withObject+      "StageSummary"+      ( \o ->+          StageSummary+            Core.<$> (o Core..:? "endTime")+            Core.<*> (o Core..:? "metrics")+            Core.<*> (o Core..:? "progress")+            Core.<*> (o Core..:? "stageId")+            Core.<*> (o Core..:? "startTime")+            Core.<*> (o Core..:? "state")+            Core.<*> (o Core..:? "stragglerSummary")+      )++instance Core.ToJSON StageSummary where+  toJSON StageSummary {..} =+    Core.object+      ( Core.catMaybes+          [ ("endTime" Core..=) Core.<$> endTime,+            ("metrics" Core..=) Core.<$> metrics,+            ("progress" Core..=) Core.<$> progress,+            ("stageId" Core..=) Core.<$> stageId,+            ("startTime" Core..=) Core.<$> startTime,+            ("state" Core..=) Core.<$> state,+            ("stragglerSummary" Core..=) Core.<$> stragglerSummary+          ]+      )++-- | State family configuration.+--+-- /See:/ 'newStateFamilyConfig' smart constructor.+data StateFamilyConfig = StateFamilyConfig+  { -- | If true, this family corresponds to a read operation.+    isRead :: (Core.Maybe Core.Bool),+    -- | The state family value.+    stateFamily :: (Core.Maybe Core.Text)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'StateFamilyConfig' with the minimum fields required to make a request.+newStateFamilyConfig ::+  StateFamilyConfig+newStateFamilyConfig =+  StateFamilyConfig+    { isRead = Core.Nothing,+      stateFamily = Core.Nothing+    }++instance Core.FromJSON StateFamilyConfig where+  parseJSON =+    Core.withObject+      "StateFamilyConfig"+      ( \o ->+          StateFamilyConfig+            Core.<$> (o Core..:? "isRead")+            Core.<*> (o Core..:? "stateFamily")+      )++instance Core.ToJSON StateFamilyConfig where+  toJSON StateFamilyConfig {..} =+    Core.object+      ( Core.catMaybes+          [ ("isRead" Core..=) Core.<$> isRead,+            ("stateFamily" Core..=) Core.<$> stateFamily+          ]+      )++-- | The @Status@ type defines a logical error model that is suitable for different programming environments, including REST APIs and RPC APIs. It is used by <https://github.com/grpc gRPC>. Each @Status@ message contains three pieces of data: error code, error message, and error details. You can find out more about this error model and how to work with it in the <https://cloud.google.com/apis/design/errors API Design Guide>.+--+-- /See:/ 'newStatus' smart constructor.+data Status = Status+  { -- | The status code, which should be an enum value of google.rpc.Code.+    code :: (Core.Maybe Core.Int32),+    -- | A list of messages that carry the error details. There is a common set of message types for APIs to use.+    details :: (Core.Maybe [Status_DetailsItem]),+    -- | A developer-facing error message, which should be in English. Any user-facing error message should be localized and sent in the google.rpc.Status.details field, or localized by the client.+    message :: (Core.Maybe Core.Text)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'Status' with the minimum fields required to make a request.+newStatus ::+  Status+newStatus =+  Status+    { code = Core.Nothing,+      details = Core.Nothing,+      message = Core.Nothing+    }++instance Core.FromJSON Status where+  parseJSON =+    Core.withObject+      "Status"+      ( \o ->+          Status+            Core.<$> (o Core..:? "code")+            Core.<*> (o Core..:? "details")+            Core.<*> (o Core..:? "message")+      )++instance Core.ToJSON Status where+  toJSON Status {..} =+    Core.object+      ( Core.catMaybes+          [ ("code" Core..=) Core.<$> code,+            ("details" Core..=) Core.<$> details,+            ("message" Core..=) Core.<$> message+          ]+      )++--+-- /See:/ 'newStatus_DetailsItem' smart constructor.+newtype Status_DetailsItem = Status_DetailsItem+  { -- | Properties of the object. Contains field \@type with type URL.+    additional :: (Core.HashMap Core.Text Core.Value)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'Status_DetailsItem' with the minimum fields required to make a request.+newStatus_DetailsItem ::+  -- |  Properties of the object. Contains field \@type with type URL. See 'additional'.+  Core.HashMap Core.Text Core.Value ->+  Status_DetailsItem+newStatus_DetailsItem additional =+  Status_DetailsItem {additional = additional}++instance Core.FromJSON Status_DetailsItem where+  parseJSON =+    Core.withObject+      "Status_DetailsItem"+      (\o -> Status_DetailsItem Core.<$> (Core.parseJSONObject o))++instance Core.ToJSON Status_DetailsItem where+  toJSON Status_DetailsItem {..} = Core.toJSON additional++-- | Defines a particular step within a Cloud Dataflow job. A job consists of multiple steps, each of which performs some specific operation as part of the overall job. Data is typically passed from one step to another as part of the job. __Note:__ The properties of this object are not stable and might change. Here\'s an example of a sequence of steps which together implement a Map-Reduce job: * Read a collection of data from some source, parsing the collection\'s elements. * Validate the elements. * Apply a user-defined function to map each element to some value and extract an element-specific key value. * Group elements with the same key into a single element with that key, transforming a multiply-keyed collection into a uniquely-keyed collection. * Write the elements out to some data sink. Note that the Cloud Dataflow service may be used to run many different types of jobs, not just Map-Reduce.+--+-- /See:/ 'newStep' smart constructor.+data Step = Step+  { -- | The kind of step in the Cloud Dataflow job.+    kind :: (Core.Maybe Core.Text),+    -- | The name that identifies the step. This must be unique for each step with respect to all other steps in the Cloud Dataflow job.+    name :: (Core.Maybe Core.Text),+    -- | Named properties associated with the step. Each kind of predefined step has its own required set of properties. Must be provided on Create. Only retrieved with JOB/VIEW/ALL.+    properties :: (Core.Maybe Step_Properties)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'Step' with the minimum fields required to make a request.+newStep ::+  Step+newStep =+  Step+    { kind = Core.Nothing,+      name = Core.Nothing,+      properties = Core.Nothing+    }++instance Core.FromJSON Step where+  parseJSON =+    Core.withObject+      "Step"+      ( \o ->+          Step+            Core.<$> (o Core..:? "kind")+            Core.<*> (o Core..:? "name")+            Core.<*> (o Core..:? "properties")+      )++instance Core.ToJSON Step where+  toJSON Step {..} =+    Core.object+      ( Core.catMaybes+          [ ("kind" Core..=) Core.<$> kind,+            ("name" Core..=) Core.<$> name,+            ("properties" Core..=) Core.<$> properties+          ]+      )++-- | Named properties associated with the step. Each kind of predefined step has its own required set of properties. Must be provided on Create. Only retrieved with JOB/VIEW/ALL.+--+-- /See:/ 'newStep_Properties' smart constructor.+newtype Step_Properties = Step_Properties+  { -- | Properties of the object.+    additional :: (Core.HashMap Core.Text Core.Value)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'Step_Properties' with the minimum fields required to make a request.+newStep_Properties ::+  -- |  Properties of the object. See 'additional'.+  Core.HashMap Core.Text Core.Value ->+  Step_Properties+newStep_Properties additional =+  Step_Properties {additional = additional}++instance Core.FromJSON Step_Properties where+  parseJSON =+    Core.withObject+      "Step_Properties"+      (\o -> Step_Properties Core.<$> (Core.parseJSONObject o))++instance Core.ToJSON Step_Properties where+  toJSON Step_Properties {..} = Core.toJSON additional++-- | Information for a straggler.+--+-- /See:/ 'newStraggler' smart constructor.+data Straggler = Straggler+  { -- | Batch straggler identification and debugging information.+    batchStraggler :: (Core.Maybe StragglerInfo),+    -- | Streaming straggler identification and debugging information.+    streamingStraggler :: (Core.Maybe StreamingStragglerInfo)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'Straggler' with the minimum fields required to make a request.+newStraggler ::+  Straggler+newStraggler =+  Straggler+    { batchStraggler = Core.Nothing,+      streamingStraggler = Core.Nothing+    }++instance Core.FromJSON Straggler where+  parseJSON =+    Core.withObject+      "Straggler"+      ( \o ->+          Straggler+            Core.<$> (o Core..:? "batchStraggler")+            Core.<*> (o Core..:? "streamingStraggler")+      )++instance Core.ToJSON Straggler where+  toJSON Straggler {..} =+    Core.object+      ( Core.catMaybes+          [ ("batchStraggler" Core..=) Core.<$> batchStraggler,+            ("streamingStraggler" Core..=) Core.<$> streamingStraggler+          ]+      )++-- | Information useful for debugging a straggler. Each type will provide specialized debugging information relevant for a particular cause. The StragglerDebuggingInfo will be 1:1 mapping to the StragglerCause enum.+--+-- /See:/ 'newStragglerDebuggingInfo' smart constructor.+newtype StragglerDebuggingInfo = StragglerDebuggingInfo+  { -- | Hot key debugging details.+    hotKey :: (Core.Maybe HotKeyDebuggingInfo)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'StragglerDebuggingInfo' with the minimum fields required to make a request.+newStragglerDebuggingInfo ::+  StragglerDebuggingInfo+newStragglerDebuggingInfo =+  StragglerDebuggingInfo {hotKey = Core.Nothing}++instance Core.FromJSON StragglerDebuggingInfo where+  parseJSON =+    Core.withObject+      "StragglerDebuggingInfo"+      (\o -> StragglerDebuggingInfo Core.<$> (o Core..:? "hotKey"))++instance Core.ToJSON StragglerDebuggingInfo where+  toJSON StragglerDebuggingInfo {..} =+    Core.object (Core.catMaybes [("hotKey" Core..=) Core.<$> hotKey])++-- | Information useful for straggler identification and debugging.+--+-- /See:/ 'newStragglerInfo' smart constructor.+data StragglerInfo = StragglerInfo+  { -- | The straggler causes, keyed by the string representation of the StragglerCause enum and contains specialized debugging information for each straggler cause.+    causes :: (Core.Maybe StragglerInfo_Causes),+    -- | The time when the work item attempt became a straggler.+    startTime :: (Core.Maybe Core.DateTime)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'StragglerInfo' with the minimum fields required to make a request.+newStragglerInfo ::+  StragglerInfo+newStragglerInfo =+  StragglerInfo {causes = Core.Nothing, startTime = Core.Nothing}++instance Core.FromJSON StragglerInfo where+  parseJSON =+    Core.withObject+      "StragglerInfo"+      ( \o ->+          StragglerInfo+            Core.<$> (o Core..:? "causes")+            Core.<*> (o Core..:? "startTime")+      )++instance Core.ToJSON StragglerInfo where+  toJSON StragglerInfo {..} =+    Core.object+      ( Core.catMaybes+          [ ("causes" Core..=) Core.<$> causes,+            ("startTime" Core..=) Core.<$> startTime+          ]+      )++-- | The straggler causes, keyed by the string representation of the StragglerCause enum and contains specialized debugging information for each straggler cause.+--+-- /See:/ 'newStragglerInfo_Causes' smart constructor.+newtype StragglerInfo_Causes = StragglerInfo_Causes+  { additional :: (Core.HashMap Core.Text StragglerDebuggingInfo)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'StragglerInfo_Causes' with the minimum fields required to make a request.+newStragglerInfo_Causes ::+  -- |  See 'additional'.+  Core.HashMap Core.Text StragglerDebuggingInfo ->+  StragglerInfo_Causes+newStragglerInfo_Causes additional =+  StragglerInfo_Causes {additional = additional}++instance Core.FromJSON StragglerInfo_Causes where+  parseJSON =+    Core.withObject+      "StragglerInfo_Causes"+      (\o -> StragglerInfo_Causes Core.<$> (Core.parseJSONObject o))++instance Core.ToJSON StragglerInfo_Causes where+  toJSON StragglerInfo_Causes {..} = Core.toJSON additional++-- | Summarized straggler identification details.+--+-- /See:/ 'newStragglerSummary' smart constructor.+data StragglerSummary = StragglerSummary+  { -- | The most recent stragglers.+    recentStragglers :: (Core.Maybe [Straggler]),+    -- | Aggregated counts of straggler causes, keyed by the string representation of the StragglerCause enum.+    stragglerCauseCount :: (Core.Maybe StragglerSummary_StragglerCauseCount),+    -- | The total count of stragglers.+    totalStragglerCount :: (Core.Maybe Core.Int64)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'StragglerSummary' with the minimum fields required to make a request.+newStragglerSummary ::+  StragglerSummary+newStragglerSummary =+  StragglerSummary+    { recentStragglers = Core.Nothing,+      stragglerCauseCount = Core.Nothing,+      totalStragglerCount = Core.Nothing+    }++instance Core.FromJSON StragglerSummary where+  parseJSON =+    Core.withObject+      "StragglerSummary"+      ( \o ->+          StragglerSummary+            Core.<$> (o Core..:? "recentStragglers")+            Core.<*> (o Core..:? "stragglerCauseCount")+            Core.<*> ( o+                         Core..:? "totalStragglerCount"+                         Core.<&> Core.fmap Core.fromAsText+                     )+      )++instance Core.ToJSON StragglerSummary where+  toJSON StragglerSummary {..} =+    Core.object+      ( Core.catMaybes+          [ ("recentStragglers" Core..=) Core.<$> recentStragglers,+            ("stragglerCauseCount" Core..=) Core.<$> stragglerCauseCount,+            ("totalStragglerCount" Core..=)+              Core.. Core.AsText+              Core.<$> totalStragglerCount+          ]+      )++-- | Aggregated counts of straggler causes, keyed by the string representation of the StragglerCause enum.+--+-- /See:/ 'newStragglerSummary_StragglerCauseCount' smart constructor.+newtype StragglerSummary_StragglerCauseCount = StragglerSummary_StragglerCauseCount+  { additional :: (Core.HashMap Core.Text Core.Int64)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'StragglerSummary_StragglerCauseCount' with the minimum fields required to make a request.+newStragglerSummary_StragglerCauseCount ::+  -- |  See 'additional'.+  Core.HashMap Core.Text Core.Int64 ->+  StragglerSummary_StragglerCauseCount+newStragglerSummary_StragglerCauseCount additional =+  StragglerSummary_StragglerCauseCount {additional = additional}++instance Core.FromJSON StragglerSummary_StragglerCauseCount where+  parseJSON =+    Core.withObject+      "StragglerSummary_StragglerCauseCount"+      ( \o ->+          StragglerSummary_StragglerCauseCount+            Core.<$> (Core.parseJSONObject o)+      )++instance Core.ToJSON StragglerSummary_StragglerCauseCount where+  toJSON StragglerSummary_StragglerCauseCount {..} =+    Core.toJSON additional++-- | Describes a stream of data, either as input to be processed or as output of a streaming Dataflow job.+--+-- /See:/ 'newStreamLocation' smart constructor.+data StreamLocation = StreamLocation+  { -- | The stream is a custom source.+    customSourceLocation :: (Core.Maybe CustomSourceLocation),+    -- | The stream is a pubsub stream.+    pubsubLocation :: (Core.Maybe PubsubLocation),+    -- | The stream is a streaming side input.+    sideInputLocation :: (Core.Maybe StreamingSideInputLocation),+    -- | The stream is part of another computation within the current streaming Dataflow job.+    streamingStageLocation :: (Core.Maybe StreamingStageLocation)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'StreamLocation' with the minimum fields required to make a request.+newStreamLocation ::+  StreamLocation+newStreamLocation =+  StreamLocation+    { customSourceLocation = Core.Nothing,+      pubsubLocation = Core.Nothing,+      sideInputLocation = Core.Nothing,+      streamingStageLocation = Core.Nothing+    }++instance Core.FromJSON StreamLocation where+  parseJSON =+    Core.withObject+      "StreamLocation"+      ( \o ->+          StreamLocation+            Core.<$> (o Core..:? "customSourceLocation")+            Core.<*> (o Core..:? "pubsubLocation")+            Core.<*> (o Core..:? "sideInputLocation")+            Core.<*> (o Core..:? "streamingStageLocation")+      )++instance Core.ToJSON StreamLocation where+  toJSON StreamLocation {..} =+    Core.object+      ( Core.catMaybes+          [ ("customSourceLocation" Core..=) Core.<$> customSourceLocation,+            ("pubsubLocation" Core..=) Core.<$> pubsubLocation,+            ("sideInputLocation" Core..=) Core.<$> sideInputLocation,+            ("streamingStageLocation" Core..=)+              Core.<$> streamingStageLocation+          ]+      )++-- | Streaming appliance snapshot configuration.+--+-- /See:/ 'newStreamingApplianceSnapshotConfig' smart constructor.+data StreamingApplianceSnapshotConfig = StreamingApplianceSnapshotConfig+  { -- | Indicates which endpoint is used to import appliance state.+    importStateEndpoint :: (Core.Maybe Core.Text),+    -- | If set, indicates the snapshot id for the snapshot being performed.+    snapshotId :: (Core.Maybe Core.Text)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'StreamingApplianceSnapshotConfig' with the minimum fields required to make a request.+newStreamingApplianceSnapshotConfig ::+  StreamingApplianceSnapshotConfig+newStreamingApplianceSnapshotConfig =+  StreamingApplianceSnapshotConfig+    { importStateEndpoint =+        Core.Nothing,+      snapshotId = Core.Nothing+    }++instance Core.FromJSON StreamingApplianceSnapshotConfig where+  parseJSON =+    Core.withObject+      "StreamingApplianceSnapshotConfig"+      ( \o ->+          StreamingApplianceSnapshotConfig+            Core.<$> (o Core..:? "importStateEndpoint")+            Core.<*> (o Core..:? "snapshotId")+      )++instance Core.ToJSON StreamingApplianceSnapshotConfig where+  toJSON StreamingApplianceSnapshotConfig {..} =+    Core.object+      ( Core.catMaybes+          [ ("importStateEndpoint" Core..=) Core.<$> importStateEndpoint,+            ("snapshotId" Core..=) Core.<$> snapshotId+          ]+      )++-- | Configuration information for a single streaming computation.+--+-- /See:/ 'newStreamingComputationConfig' smart constructor.+data StreamingComputationConfig = StreamingComputationConfig+  { -- | Unique identifier for this computation.+    computationId :: (Core.Maybe Core.Text),+    -- | Instructions that comprise the computation.+    instructions :: (Core.Maybe [ParallelInstruction]),+    -- | Stage name of this computation.+    stageName :: (Core.Maybe Core.Text),+    -- | System defined name for this computation.+    systemName :: (Core.Maybe Core.Text),+    -- | Map from user name of stateful transforms in this stage to their state family.+    transformUserNameToStateFamily ::+      ( Core.Maybe+          StreamingComputationConfig_TransformUserNameToStateFamily+      )+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'StreamingComputationConfig' with the minimum fields required to make a request.+newStreamingComputationConfig ::+  StreamingComputationConfig+newStreamingComputationConfig =+  StreamingComputationConfig+    { computationId = Core.Nothing,+      instructions = Core.Nothing,+      stageName = Core.Nothing,+      systemName = Core.Nothing,+      transformUserNameToStateFamily = Core.Nothing+    }++instance Core.FromJSON StreamingComputationConfig where+  parseJSON =+    Core.withObject+      "StreamingComputationConfig"+      ( \o ->+          StreamingComputationConfig+            Core.<$> (o Core..:? "computationId")+            Core.<*> (o Core..:? "instructions")+            Core.<*> (o Core..:? "stageName")+            Core.<*> (o Core..:? "systemName")+            Core.<*> (o Core..:? "transformUserNameToStateFamily")+      )++instance Core.ToJSON StreamingComputationConfig where+  toJSON StreamingComputationConfig {..} =+    Core.object+      ( Core.catMaybes+          [ ("computationId" Core..=) Core.<$> computationId,+            ("instructions" Core..=) Core.<$> instructions,+            ("stageName" Core..=) Core.<$> stageName,+            ("systemName" Core..=) Core.<$> systemName,+            ("transformUserNameToStateFamily" Core..=)+              Core.<$> transformUserNameToStateFamily+          ]+      )++-- | Map from user name of stateful transforms in this stage to their state family.+--+-- /See:/ 'newStreamingComputationConfig_TransformUserNameToStateFamily' smart constructor.+newtype StreamingComputationConfig_TransformUserNameToStateFamily = StreamingComputationConfig_TransformUserNameToStateFamily+  { additional :: (Core.HashMap Core.Text Core.Text)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'StreamingComputationConfig_TransformUserNameToStateFamily' with the minimum fields required to make a request.+newStreamingComputationConfig_TransformUserNameToStateFamily ::+  -- |  See 'additional'.+  Core.HashMap Core.Text Core.Text ->+  StreamingComputationConfig_TransformUserNameToStateFamily+newStreamingComputationConfig_TransformUserNameToStateFamily+  additional =+    StreamingComputationConfig_TransformUserNameToStateFamily+      { additional =+          additional+      }++instance+  Core.FromJSON+    StreamingComputationConfig_TransformUserNameToStateFamily+  where+  parseJSON =+    Core.withObject+      "StreamingComputationConfig_TransformUserNameToStateFamily"+      ( \o ->+          StreamingComputationConfig_TransformUserNameToStateFamily+            Core.<$> (Core.parseJSONObject o)+      )++instance+  Core.ToJSON+    StreamingComputationConfig_TransformUserNameToStateFamily+  where+  toJSON+    StreamingComputationConfig_TransformUserNameToStateFamily {..} =+      Core.toJSON additional++-- | Describes full or partial data disk assignment information of the computation ranges.+--+-- /See:/ 'newStreamingComputationRanges' smart constructor.+data StreamingComputationRanges = StreamingComputationRanges+  { -- | The ID of the computation.+    computationId :: (Core.Maybe Core.Text),+    -- | Data disk assignments for ranges from this computation.+    rangeAssignments :: (Core.Maybe [KeyRangeDataDiskAssignment])+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'StreamingComputationRanges' with the minimum fields required to make a request.+newStreamingComputationRanges ::+  StreamingComputationRanges+newStreamingComputationRanges =+  StreamingComputationRanges+    { computationId = Core.Nothing,+      rangeAssignments = Core.Nothing+    }++instance Core.FromJSON StreamingComputationRanges where+  parseJSON =+    Core.withObject+      "StreamingComputationRanges"+      ( \o ->+          StreamingComputationRanges+            Core.<$> (o Core..:? "computationId")+            Core.<*> (o Core..:? "rangeAssignments")+      )++instance Core.ToJSON StreamingComputationRanges where+  toJSON StreamingComputationRanges {..} =+    Core.object+      ( Core.catMaybes+          [ ("computationId" Core..=) Core.<$> computationId,+            ("rangeAssignments" Core..=) Core.<$> rangeAssignments+          ]+      )++-- | A task which describes what action should be performed for the specified streaming computation ranges.+--+-- /See:/ 'newStreamingComputationTask' smart constructor.+data StreamingComputationTask = StreamingComputationTask+  { -- | Contains ranges of a streaming computation this task should apply to.+    computationRanges :: (Core.Maybe [StreamingComputationRanges]),+    -- | Describes the set of data disks this task should apply to.+    dataDisks :: (Core.Maybe [MountedDataDisk]),+    -- | A type of streaming computation task.+    taskType :: (Core.Maybe StreamingComputationTask_TaskType)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'StreamingComputationTask' with the minimum fields required to make a request.+newStreamingComputationTask ::+  StreamingComputationTask+newStreamingComputationTask =+  StreamingComputationTask+    { computationRanges = Core.Nothing,+      dataDisks = Core.Nothing,+      taskType = Core.Nothing+    }++instance Core.FromJSON StreamingComputationTask where+  parseJSON =+    Core.withObject+      "StreamingComputationTask"+      ( \o ->+          StreamingComputationTask+            Core.<$> (o Core..:? "computationRanges")+            Core.<*> (o Core..:? "dataDisks")+            Core.<*> (o Core..:? "taskType")+      )++instance Core.ToJSON StreamingComputationTask where+  toJSON StreamingComputationTask {..} =+    Core.object+      ( Core.catMaybes+          [ ("computationRanges" Core..=) Core.<$> computationRanges,+            ("dataDisks" Core..=) Core.<$> dataDisks,+            ("taskType" Core..=) Core.<$> taskType+          ]+      )++-- | A task that carries configuration information for streaming computations.+--+-- /See:/ 'newStreamingConfigTask' smart constructor.+data StreamingConfigTask = StreamingConfigTask+  { -- | Chunk size for commit streams from the harness to windmill.+    commitStreamChunkSizeBytes :: (Core.Maybe Core.Int64),+    -- | Chunk size for get data streams from the harness to windmill.+    getDataStreamChunkSizeBytes :: (Core.Maybe Core.Int64),+    -- | Maximum size for work item commit supported windmill storage layer.+    maxWorkItemCommitBytes :: (Core.Maybe Core.Int64),+    -- | Operational limits for the streaming job. Can be used by the worker to validate outputs sent to the backend.+    operationalLimits :: (Core.Maybe StreamingOperationalLimits),+    -- | Set of computation configuration information.+    streamingComputationConfigs :: (Core.Maybe [StreamingComputationConfig]),+    -- | Map from user step names to state families.+    userStepToStateFamilyNameMap :: (Core.Maybe StreamingConfigTask_UserStepToStateFamilyNameMap),+    -- | Binary encoded proto to control runtime behavior of the java runner v1 user worker.+    userWorkerRunnerV1Settings :: (Core.Maybe Core.Base64),+    -- | Binary encoded proto to control runtime behavior of the runner v2 user worker.+    userWorkerRunnerV2Settings :: (Core.Maybe Core.Base64),+    -- | If present, the worker must use this endpoint to communicate with Windmill Service dispatchers, otherwise the worker must continue to use whatever endpoint it had been using.+    windmillServiceEndpoint :: (Core.Maybe Core.Text),+    -- | If present, the worker must use this port to communicate with Windmill Service dispatchers. Only applicable when windmill/service/endpoint is specified.+    windmillServicePort :: (Core.Maybe Core.Int64)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'StreamingConfigTask' with the minimum fields required to make a request.+newStreamingConfigTask ::+  StreamingConfigTask+newStreamingConfigTask =+  StreamingConfigTask+    { commitStreamChunkSizeBytes = Core.Nothing,+      getDataStreamChunkSizeBytes = Core.Nothing,+      maxWorkItemCommitBytes = Core.Nothing,+      operationalLimits = Core.Nothing,+      streamingComputationConfigs = Core.Nothing,+      userStepToStateFamilyNameMap = Core.Nothing,+      userWorkerRunnerV1Settings = Core.Nothing,+      userWorkerRunnerV2Settings = Core.Nothing,+      windmillServiceEndpoint = Core.Nothing,+      windmillServicePort = Core.Nothing+    }++instance Core.FromJSON StreamingConfigTask where+  parseJSON =+    Core.withObject+      "StreamingConfigTask"+      ( \o ->+          StreamingConfigTask+            Core.<$> ( o+                         Core..:? "commitStreamChunkSizeBytes"+                         Core.<&> Core.fmap Core.fromAsText+                     )+            Core.<*> ( o+                         Core..:? "getDataStreamChunkSizeBytes"+                         Core.<&> Core.fmap Core.fromAsText+                     )+            Core.<*> ( o+                         Core..:? "maxWorkItemCommitBytes"+                         Core.<&> Core.fmap Core.fromAsText+                     )+            Core.<*> (o Core..:? "operationalLimits")+            Core.<*> (o Core..:? "streamingComputationConfigs")+            Core.<*> (o Core..:? "userStepToStateFamilyNameMap")+            Core.<*> (o Core..:? "userWorkerRunnerV1Settings")+            Core.<*> (o Core..:? "userWorkerRunnerV2Settings")+            Core.<*> (o Core..:? "windmillServiceEndpoint")+            Core.<*> ( o+                         Core..:? "windmillServicePort"+                         Core.<&> Core.fmap Core.fromAsText+                     )+      )++instance Core.ToJSON StreamingConfigTask where+  toJSON StreamingConfigTask {..} =+    Core.object+      ( Core.catMaybes+          [ ("commitStreamChunkSizeBytes" Core..=)+              Core.. Core.AsText+              Core.<$> commitStreamChunkSizeBytes,+            ("getDataStreamChunkSizeBytes" Core..=)+              Core.. Core.AsText+              Core.<$> getDataStreamChunkSizeBytes,+            ("maxWorkItemCommitBytes" Core..=)+              Core.. Core.AsText+              Core.<$> maxWorkItemCommitBytes,+            ("operationalLimits" Core..=) Core.<$> operationalLimits,+            ("streamingComputationConfigs" Core..=)+              Core.<$> streamingComputationConfigs,+            ("userStepToStateFamilyNameMap" Core..=)+              Core.<$> userStepToStateFamilyNameMap,+            ("userWorkerRunnerV1Settings" Core..=)+              Core.<$> userWorkerRunnerV1Settings,+            ("userWorkerRunnerV2Settings" Core..=)+              Core.<$> userWorkerRunnerV2Settings,+            ("windmillServiceEndpoint" Core..=)+              Core.<$> windmillServiceEndpoint,+            ("windmillServicePort" Core..=)+              Core.. Core.AsText+              Core.<$> windmillServicePort+          ]+      )++-- | Map from user step names to state families.+--+-- /See:/ 'newStreamingConfigTask_UserStepToStateFamilyNameMap' smart constructor.+newtype StreamingConfigTask_UserStepToStateFamilyNameMap = StreamingConfigTask_UserStepToStateFamilyNameMap+  { additional :: (Core.HashMap Core.Text Core.Text)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'StreamingConfigTask_UserStepToStateFamilyNameMap' with the minimum fields required to make a request.+newStreamingConfigTask_UserStepToStateFamilyNameMap ::+  -- |  See 'additional'.+  Core.HashMap Core.Text Core.Text ->+  StreamingConfigTask_UserStepToStateFamilyNameMap+newStreamingConfigTask_UserStepToStateFamilyNameMap additional =+  StreamingConfigTask_UserStepToStateFamilyNameMap+    { additional =+        additional+    }++instance+  Core.FromJSON+    StreamingConfigTask_UserStepToStateFamilyNameMap+  where+  parseJSON =+    Core.withObject+      "StreamingConfigTask_UserStepToStateFamilyNameMap"+      ( \o ->+          StreamingConfigTask_UserStepToStateFamilyNameMap+            Core.<$> (Core.parseJSONObject o)+      )++instance+  Core.ToJSON+    StreamingConfigTask_UserStepToStateFamilyNameMap+  where+  toJSON StreamingConfigTask_UserStepToStateFamilyNameMap {..} =+    Core.toJSON additional++-- | Operational limits imposed on streaming jobs by the backend.+--+-- /See:/ 'newStreamingOperationalLimits' smart constructor.+data StreamingOperationalLimits = StreamingOperationalLimits+  { -- | The maximum size for an element in bag state.+    maxBagElementBytes :: (Core.Maybe Core.Int64),+    -- | The maximum size for an element in global data.+    maxGlobalDataBytes :: (Core.Maybe Core.Int64),+    -- | The maximum size allowed for a key.+    maxKeyBytes :: (Core.Maybe Core.Int64),+    -- | The maximum size for a single output element.+    maxProductionOutputBytes :: (Core.Maybe Core.Int64),+    -- | The maximum size for an element in sorted list state.+    maxSortedListElementBytes :: (Core.Maybe Core.Int64),+    -- | The maximum size for a source state update.+    maxSourceStateBytes :: (Core.Maybe Core.Int64),+    -- | The maximum size for a state tag.+    maxTagBytes :: (Core.Maybe Core.Int64),+    -- | The maximum size for a value state field.+    maxValueBytes :: (Core.Maybe Core.Int64)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'StreamingOperationalLimits' with the minimum fields required to make a request.+newStreamingOperationalLimits ::+  StreamingOperationalLimits+newStreamingOperationalLimits =+  StreamingOperationalLimits+    { maxBagElementBytes = Core.Nothing,+      maxGlobalDataBytes = Core.Nothing,+      maxKeyBytes = Core.Nothing,+      maxProductionOutputBytes = Core.Nothing,+      maxSortedListElementBytes = Core.Nothing,+      maxSourceStateBytes = Core.Nothing,+      maxTagBytes = Core.Nothing,+      maxValueBytes = Core.Nothing+    }++instance Core.FromJSON StreamingOperationalLimits where+  parseJSON =+    Core.withObject+      "StreamingOperationalLimits"+      ( \o ->+          StreamingOperationalLimits+            Core.<$> ( o+                         Core..:? "maxBagElementBytes"+                         Core.<&> Core.fmap Core.fromAsText+                     )+            Core.<*> ( o+                         Core..:? "maxGlobalDataBytes"+                         Core.<&> Core.fmap Core.fromAsText+                     )+            Core.<*> (o Core..:? "maxKeyBytes" Core.<&> Core.fmap Core.fromAsText)+            Core.<*> ( o+                         Core..:? "maxProductionOutputBytes"+                         Core.<&> Core.fmap Core.fromAsText+                     )+            Core.<*> ( o+                         Core..:? "maxSortedListElementBytes"+                         Core.<&> Core.fmap Core.fromAsText+                     )+            Core.<*> ( o+                         Core..:? "maxSourceStateBytes"+                         Core.<&> Core.fmap Core.fromAsText+                     )+            Core.<*> (o Core..:? "maxTagBytes" Core.<&> Core.fmap Core.fromAsText)+            Core.<*> (o Core..:? "maxValueBytes" Core.<&> Core.fmap Core.fromAsText)+      )++instance Core.ToJSON StreamingOperationalLimits where+  toJSON StreamingOperationalLimits {..} =+    Core.object+      ( Core.catMaybes+          [ ("maxBagElementBytes" Core..=)+              Core.. Core.AsText+              Core.<$> maxBagElementBytes,+            ("maxGlobalDataBytes" Core..=)+              Core.. Core.AsText+              Core.<$> maxGlobalDataBytes,+            ("maxKeyBytes" Core..=) Core.. Core.AsText Core.<$> maxKeyBytes,+            ("maxProductionOutputBytes" Core..=)+              Core.. Core.AsText+              Core.<$> maxProductionOutputBytes,+            ("maxSortedListElementBytes" Core..=)+              Core.. Core.AsText+              Core.<$> maxSortedListElementBytes,+            ("maxSourceStateBytes" Core..=)+              Core.. Core.AsText+              Core.<$> maxSourceStateBytes,+            ("maxTagBytes" Core..=) Core.. Core.AsText Core.<$> maxTagBytes,+            ("maxValueBytes" Core..=)+              Core.. Core.AsText+              Core.<$> maxValueBytes+          ]+      )++-- | Contains per-user worker telemetry used in streaming autoscaling.+--+-- /See:/ 'newStreamingScalingReport' smart constructor.+data StreamingScalingReport = StreamingScalingReport+  { activeBundleCount :: (Core.Maybe Core.Int32),+    -- | Current acive thread count.+    activeThreadCount :: (Core.Maybe Core.Int32),+    -- | Maximum bundle count.+    maximumBundleCount :: (Core.Maybe Core.Int32),+    -- | Maximum bytes.+    maximumBytes :: (Core.Maybe Core.Int64),+    maximumBytesCount :: (Core.Maybe Core.Int32),+    -- | Maximum thread count limit.+    maximumThreadCount :: (Core.Maybe Core.Int32),+    -- | Current outstanding bundle count.+    outstandingBundleCount :: (Core.Maybe Core.Int32),+    -- | Current outstanding bytes.+    outstandingBytes :: (Core.Maybe Core.Int64),+    outstandingBytesCount :: (Core.Maybe Core.Int32)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'StreamingScalingReport' with the minimum fields required to make a request.+newStreamingScalingReport ::+  StreamingScalingReport+newStreamingScalingReport =+  StreamingScalingReport+    { activeBundleCount = Core.Nothing,+      activeThreadCount = Core.Nothing,+      maximumBundleCount = Core.Nothing,+      maximumBytes = Core.Nothing,+      maximumBytesCount = Core.Nothing,+      maximumThreadCount = Core.Nothing,+      outstandingBundleCount = Core.Nothing,+      outstandingBytes = Core.Nothing,+      outstandingBytesCount = Core.Nothing+    }++instance Core.FromJSON StreamingScalingReport where+  parseJSON =+    Core.withObject+      "StreamingScalingReport"+      ( \o ->+          StreamingScalingReport+            Core.<$> (o Core..:? "activeBundleCount")+            Core.<*> (o Core..:? "activeThreadCount")+            Core.<*> (o Core..:? "maximumBundleCount")+            Core.<*> (o Core..:? "maximumBytes" Core.<&> Core.fmap Core.fromAsText)+            Core.<*> (o Core..:? "maximumBytesCount")+            Core.<*> (o Core..:? "maximumThreadCount")+            Core.<*> (o Core..:? "outstandingBundleCount")+            Core.<*> (o Core..:? "outstandingBytes" Core.<&> Core.fmap Core.fromAsText)+            Core.<*> (o Core..:? "outstandingBytesCount")+      )++instance Core.ToJSON StreamingScalingReport where+  toJSON StreamingScalingReport {..} =+    Core.object+      ( Core.catMaybes+          [ ("activeBundleCount" Core..=) Core.<$> activeBundleCount,+            ("activeThreadCount" Core..=) Core.<$> activeThreadCount,+            ("maximumBundleCount" Core..=) Core.<$> maximumBundleCount,+            ("maximumBytes" Core..=) Core.. Core.AsText Core.<$> maximumBytes,+            ("maximumBytesCount" Core..=) Core.<$> maximumBytesCount,+            ("maximumThreadCount" Core..=) Core.<$> maximumThreadCount,+            ("outstandingBundleCount" Core..=) Core.<$> outstandingBundleCount,+            ("outstandingBytes" Core..=)+              Core.. Core.AsText+              Core.<$> outstandingBytes,+            ("outstandingBytesCount" Core..=) Core.<$> outstandingBytesCount+          ]+      )++-- | Contains per-user-worker streaming scaling recommendation from the backend.+--+-- /See:/ 'newStreamingScalingReportResponse' smart constructor.+newtype StreamingScalingReportResponse = StreamingScalingReportResponse+  { -- | Maximum thread count limit;+    maximumThreadCount :: (Core.Maybe Core.Int32)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'StreamingScalingReportResponse' with the minimum fields required to make a request.+newStreamingScalingReportResponse ::+  StreamingScalingReportResponse+newStreamingScalingReportResponse =+  StreamingScalingReportResponse {maximumThreadCount = Core.Nothing}++instance Core.FromJSON StreamingScalingReportResponse where+  parseJSON =+    Core.withObject+      "StreamingScalingReportResponse"+      ( \o ->+          StreamingScalingReportResponse+            Core.<$> (o Core..:? "maximumThreadCount")+      )++instance Core.ToJSON StreamingScalingReportResponse where+  toJSON StreamingScalingReportResponse {..} =+    Core.object+      ( Core.catMaybes+          [("maximumThreadCount" Core..=) Core.<$> maximumThreadCount]+      )++-- | A task which initializes part of a streaming Dataflow job.+--+-- /See:/ 'newStreamingSetupTask' smart constructor.+data StreamingSetupTask = StreamingSetupTask+  { -- | The user has requested drain.+    drain :: (Core.Maybe Core.Bool),+    -- | The TCP port on which the worker should listen for messages from other streaming computation workers.+    receiveWorkPort :: (Core.Maybe Core.Int32),+    -- | Configures streaming appliance snapshot.+    snapshotConfig :: (Core.Maybe StreamingApplianceSnapshotConfig),+    -- | The global topology of the streaming Dataflow job.+    streamingComputationTopology :: (Core.Maybe TopologyConfig),+    -- | The TCP port used by the worker to communicate with the Dataflow worker harness.+    workerHarnessPort :: (Core.Maybe Core.Int32)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'StreamingSetupTask' with the minimum fields required to make a request.+newStreamingSetupTask ::+  StreamingSetupTask+newStreamingSetupTask =+  StreamingSetupTask+    { drain = Core.Nothing,+      receiveWorkPort = Core.Nothing,+      snapshotConfig = Core.Nothing,+      streamingComputationTopology = Core.Nothing,+      workerHarnessPort = Core.Nothing+    }++instance Core.FromJSON StreamingSetupTask where+  parseJSON =+    Core.withObject+      "StreamingSetupTask"+      ( \o ->+          StreamingSetupTask+            Core.<$> (o Core..:? "drain")+            Core.<*> (o Core..:? "receiveWorkPort")+            Core.<*> (o Core..:? "snapshotConfig")+            Core.<*> (o Core..:? "streamingComputationTopology")+            Core.<*> (o Core..:? "workerHarnessPort")+      )++instance Core.ToJSON StreamingSetupTask where+  toJSON StreamingSetupTask {..} =+    Core.object+      ( Core.catMaybes+          [ ("drain" Core..=) Core.<$> drain,+            ("receiveWorkPort" Core..=) Core.<$> receiveWorkPort,+            ("snapshotConfig" Core..=) Core.<$> snapshotConfig,+            ("streamingComputationTopology" Core..=)+              Core.<$> streamingComputationTopology,+            ("workerHarnessPort" Core..=) Core.<$> workerHarnessPort+          ]+      )++-- | Identifies the location of a streaming side input.+--+-- /See:/ 'newStreamingSideInputLocation' smart constructor.+data StreamingSideInputLocation = StreamingSideInputLocation+  { -- | Identifies the state family where this side input is stored.+    stateFamily :: (Core.Maybe Core.Text),+    -- | Identifies the particular side input within the streaming Dataflow job.+    tag :: (Core.Maybe Core.Text)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'StreamingSideInputLocation' with the minimum fields required to make a request.+newStreamingSideInputLocation ::+  StreamingSideInputLocation+newStreamingSideInputLocation =+  StreamingSideInputLocation+    { stateFamily = Core.Nothing,+      tag = Core.Nothing+    }++instance Core.FromJSON StreamingSideInputLocation where+  parseJSON =+    Core.withObject+      "StreamingSideInputLocation"+      ( \o ->+          StreamingSideInputLocation+            Core.<$> (o Core..:? "stateFamily")+            Core.<*> (o Core..:? "tag")+      )++instance Core.ToJSON StreamingSideInputLocation where+  toJSON StreamingSideInputLocation {..} =+    Core.object+      ( Core.catMaybes+          [ ("stateFamily" Core..=) Core.<$> stateFamily,+            ("tag" Core..=) Core.<$> tag+          ]+      )++-- | Identifies the location of a streaming computation stage, for stage-to-stage communication.+--+-- /See:/ 'newStreamingStageLocation' smart constructor.+newtype StreamingStageLocation = StreamingStageLocation+  { -- | Identifies the particular stream within the streaming Dataflow job.+    streamId :: (Core.Maybe Core.Text)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'StreamingStageLocation' with the minimum fields required to make a request.+newStreamingStageLocation ::+  StreamingStageLocation+newStreamingStageLocation =+  StreamingStageLocation {streamId = Core.Nothing}++instance Core.FromJSON StreamingStageLocation where+  parseJSON =+    Core.withObject+      "StreamingStageLocation"+      (\o -> StreamingStageLocation Core.<$> (o Core..:? "streamId"))++instance Core.ToJSON StreamingStageLocation where+  toJSON StreamingStageLocation {..} =+    Core.object+      (Core.catMaybes [("streamId" Core..=) Core.<$> streamId])++-- | Information useful for streaming straggler identification and debugging.+--+-- /See:/ 'newStreamingStragglerInfo' smart constructor.+data StreamingStragglerInfo = StreamingStragglerInfo+  { -- | The event-time watermark lag at the time of the straggler detection.+    dataWatermarkLag :: (Core.Maybe Core.Duration),+    -- | End time of this straggler.+    endTime :: (Core.Maybe Core.DateTime),+    -- | Start time of this straggler.+    startTime :: (Core.Maybe Core.DateTime),+    -- | The system watermark lag at the time of the straggler detection.+    systemWatermarkLag :: (Core.Maybe Core.Duration),+    -- | Name of the worker where the straggler was detected.+    workerName :: (Core.Maybe Core.Text)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'StreamingStragglerInfo' with the minimum fields required to make a request.+newStreamingStragglerInfo ::+  StreamingStragglerInfo+newStreamingStragglerInfo =+  StreamingStragglerInfo+    { dataWatermarkLag = Core.Nothing,+      endTime = Core.Nothing,+      startTime = Core.Nothing,+      systemWatermarkLag = Core.Nothing,+      workerName = Core.Nothing+    }++instance Core.FromJSON StreamingStragglerInfo where+  parseJSON =+    Core.withObject+      "StreamingStragglerInfo"+      ( \o ->+          StreamingStragglerInfo+            Core.<$> (o Core..:? "dataWatermarkLag")+            Core.<*> (o Core..:? "endTime")+            Core.<*> (o Core..:? "startTime")+            Core.<*> (o Core..:? "systemWatermarkLag")+            Core.<*> (o Core..:? "workerName")+      )++instance Core.ToJSON StreamingStragglerInfo where+  toJSON StreamingStragglerInfo {..} =+    Core.object+      ( Core.catMaybes+          [ ("dataWatermarkLag" Core..=) Core.<$> dataWatermarkLag,+            ("endTime" Core..=) Core.<$> endTime,+            ("startTime" Core..=) Core.<$> startTime,+            ("systemWatermarkLag" Core..=) Core.<$> systemWatermarkLag,+            ("workerName" Core..=) Core.<$> workerName+          ]+      )++-- | A metric value representing a list of strings.+--+-- /See:/ 'newStringList' smart constructor.+newtype StringList = StringList+  { -- | Elements of the list.+    elements :: (Core.Maybe [Core.Text])+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'StringList' with the minimum fields required to make a request.+newStringList ::+  StringList+newStringList = StringList {elements = Core.Nothing}++instance Core.FromJSON StringList where+  parseJSON =+    Core.withObject+      "StringList"+      (\o -> StringList Core.<$> (o Core..:? "elements"))++instance Core.ToJSON StringList where+  toJSON StringList {..} =+    Core.object+      (Core.catMaybes [("elements" Core..=) Core.<$> elements])++-- | A rich message format, including a human readable string, a key for identifying the message, and structured data associated with the message for programmatic consumption.+--+-- /See:/ 'newStructuredMessage' smart constructor.+data StructuredMessage = StructuredMessage+  { -- | Identifier for this message type. Used by external systems to internationalize or personalize message.+    messageKey :: (Core.Maybe Core.Text),+    -- | Human-readable version of message.+    messageText :: (Core.Maybe Core.Text),+    -- | The structured data associated with this message.+    parameters :: (Core.Maybe [Parameter])+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'StructuredMessage' with the minimum fields required to make a request.+newStructuredMessage ::+  StructuredMessage+newStructuredMessage =+  StructuredMessage+    { messageKey = Core.Nothing,+      messageText = Core.Nothing,+      parameters = Core.Nothing+    }++instance Core.FromJSON StructuredMessage where+  parseJSON =+    Core.withObject+      "StructuredMessage"+      ( \o ->+          StructuredMessage+            Core.<$> (o Core..:? "messageKey")+            Core.<*> (o Core..:? "messageText")+            Core.<*> (o Core..:? "parameters")+      )++instance Core.ToJSON StructuredMessage where+  toJSON StructuredMessage {..} =+    Core.object+      ( Core.catMaybes+          [ ("messageKey" Core..=) Core.<$> messageKey,+            ("messageText" Core..=) Core.<$> messageText,+            ("parameters" Core..=) Core.<$> parameters+          ]+      )++-- | Taskrunner configuration settings.+--+-- /See:/ 'newTaskRunnerSettings' smart constructor.+data TaskRunnerSettings = TaskRunnerSettings+  { -- | Whether to also send taskrunner log info to stderr.+    alsologtostderr :: (Core.Maybe Core.Bool),+    -- | The location on the worker for task-specific subdirectories.+    baseTaskDir :: (Core.Maybe Core.Text),+    -- | The base URL for the taskrunner to use when accessing Google Cloud APIs. When workers access Google Cloud APIs, they logically do so via relative URLs. If this field is specified, it supplies the base URL to use for resolving these relative URLs. The normative algorithm used is defined by RFC 1808, \"Relative Uniform Resource Locators\". If not specified, the default value is \"http:\/\/www.googleapis.com\/\"+    baseUrl :: (Core.Maybe Core.Text),+    -- | The file to store preprocessing commands in.+    commandlinesFileName :: (Core.Maybe Core.Text),+    -- | Whether to continue taskrunner if an exception is hit.+    continueOnException :: (Core.Maybe Core.Bool),+    -- | The API version of endpoint, e.g. \"v1b3\"+    dataflowApiVersion :: (Core.Maybe Core.Text),+    -- | The command to launch the worker harness.+    harnessCommand :: (Core.Maybe Core.Text),+    -- | The suggested backend language.+    languageHint :: (Core.Maybe Core.Text),+    -- | The directory on the VM to store logs.+    logDir :: (Core.Maybe Core.Text),+    -- | Whether to send taskrunner log info to Google Compute Engine VM serial console.+    logToSerialconsole :: (Core.Maybe Core.Bool),+    -- | Indicates where to put logs. If this is not specified, the logs will not be uploaded. The supported resource type is: Google Cloud Storage: storage.googleapis.com\/{bucket}\/{object} bucket.storage.googleapis.com\/{object}+    logUploadLocation :: (Core.Maybe Core.Text),+    -- | The OAuth2 scopes to be requested by the taskrunner in order to access the Cloud Dataflow API.+    oauthScopes :: (Core.Maybe [Core.Text]),+    -- | The settings to pass to the parallel worker harness.+    parallelWorkerSettings :: (Core.Maybe WorkerSettings),+    -- | The streaming worker main class name.+    streamingWorkerMainClass :: (Core.Maybe Core.Text),+    -- | The UNIX group ID on the worker VM to use for tasks launched by taskrunner; e.g. \"wheel\".+    taskGroup :: (Core.Maybe Core.Text),+    -- | The UNIX user ID on the worker VM to use for tasks launched by taskrunner; e.g. \"root\".+    taskUser :: (Core.Maybe Core.Text),+    -- | The prefix of the resources the taskrunner should use for temporary storage. The supported resource type is: Google Cloud Storage: storage.googleapis.com\/{bucket}\/{object} bucket.storage.googleapis.com\/{object}+    tempStoragePrefix :: (Core.Maybe Core.Text),+    -- | The ID string of the VM.+    vmId :: (Core.Maybe Core.Text),+    -- | The file to store the workflow in.+    workflowFileName :: (Core.Maybe Core.Text)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'TaskRunnerSettings' with the minimum fields required to make a request.+newTaskRunnerSettings ::+  TaskRunnerSettings+newTaskRunnerSettings =+  TaskRunnerSettings+    { alsologtostderr = Core.Nothing,+      baseTaskDir = Core.Nothing,+      baseUrl = Core.Nothing,+      commandlinesFileName = Core.Nothing,+      continueOnException = Core.Nothing,+      dataflowApiVersion = Core.Nothing,+      harnessCommand = Core.Nothing,+      languageHint = Core.Nothing,+      logDir = Core.Nothing,+      logToSerialconsole = Core.Nothing,+      logUploadLocation = Core.Nothing,+      oauthScopes = Core.Nothing,+      parallelWorkerSettings = Core.Nothing,+      streamingWorkerMainClass = Core.Nothing,+      taskGroup = Core.Nothing,+      taskUser = Core.Nothing,+      tempStoragePrefix = Core.Nothing,+      vmId = Core.Nothing,+      workflowFileName = Core.Nothing+    }++instance Core.FromJSON TaskRunnerSettings where+  parseJSON =+    Core.withObject+      "TaskRunnerSettings"+      ( \o ->+          TaskRunnerSettings+            Core.<$> (o Core..:? "alsologtostderr")+            Core.<*> (o Core..:? "baseTaskDir")+            Core.<*> (o Core..:? "baseUrl")+            Core.<*> (o Core..:? "commandlinesFileName")+            Core.<*> (o Core..:? "continueOnException")+            Core.<*> (o Core..:? "dataflowApiVersion")+            Core.<*> (o Core..:? "harnessCommand")+            Core.<*> (o Core..:? "languageHint")+            Core.<*> (o Core..:? "logDir")+            Core.<*> (o Core..:? "logToSerialconsole")+            Core.<*> (o Core..:? "logUploadLocation")+            Core.<*> (o Core..:? "oauthScopes")+            Core.<*> (o Core..:? "parallelWorkerSettings")+            Core.<*> (o Core..:? "streamingWorkerMainClass")+            Core.<*> (o Core..:? "taskGroup")+            Core.<*> (o Core..:? "taskUser")+            Core.<*> (o Core..:? "tempStoragePrefix")+            Core.<*> (o Core..:? "vmId")+            Core.<*> (o Core..:? "workflowFileName")+      )++instance Core.ToJSON TaskRunnerSettings where+  toJSON TaskRunnerSettings {..} =+    Core.object+      ( Core.catMaybes+          [ ("alsologtostderr" Core..=) Core.<$> alsologtostderr,+            ("baseTaskDir" Core..=) Core.<$> baseTaskDir,+            ("baseUrl" Core..=) Core.<$> baseUrl,+            ("commandlinesFileName" Core..=) Core.<$> commandlinesFileName,+            ("continueOnException" Core..=) Core.<$> continueOnException,+            ("dataflowApiVersion" Core..=) Core.<$> dataflowApiVersion,+            ("harnessCommand" Core..=) Core.<$> harnessCommand,+            ("languageHint" Core..=) Core.<$> languageHint,+            ("logDir" Core..=) Core.<$> logDir,+            ("logToSerialconsole" Core..=) Core.<$> logToSerialconsole,+            ("logUploadLocation" Core..=) Core.<$> logUploadLocation,+            ("oauthScopes" Core..=) Core.<$> oauthScopes,+            ("parallelWorkerSettings" Core..=) Core.<$> parallelWorkerSettings,+            ("streamingWorkerMainClass" Core..=)+              Core.<$> streamingWorkerMainClass,+            ("taskGroup" Core..=) Core.<$> taskGroup,+            ("taskUser" Core..=) Core.<$> taskUser,+            ("tempStoragePrefix" Core..=) Core.<$> tempStoragePrefix,+            ("vmId" Core..=) Core.<$> vmId,+            ("workflowFileName" Core..=) Core.<$> workflowFileName+          ]+      )++-- | Metadata describing a template.+--+-- /See:/ 'newTemplateMetadata' smart constructor.+data TemplateMetadata = TemplateMetadata+  { -- | Optional. Indicates the default streaming mode for a streaming template. Only valid if both supports/at/least/once and supports/exactly/once are true. Possible values: UNSPECIFIED, EXACTLY/ONCE and AT/LEAST/ONCE+    defaultStreamingMode :: (Core.Maybe Core.Text),+    -- | Optional. A description of the template.+    description :: (Core.Maybe Core.Text),+    -- | Required. The name of the template.+    name :: (Core.Maybe Core.Text),+    -- | The parameters for the template.+    parameters :: (Core.Maybe [ParameterMetadata]),+    -- | Optional. Indicates if the template is streaming or not.+    streaming :: (Core.Maybe Core.Bool),+    -- | Optional. Indicates if the streaming template supports at least once mode.+    supportsAtLeastOnce :: (Core.Maybe Core.Bool),+    -- | Optional. Indicates if the streaming template supports exactly once mode.+    supportsExactlyOnce :: (Core.Maybe Core.Bool),+    -- | Optional. For future use.+    yamlDefinition :: (Core.Maybe Core.Text)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'TemplateMetadata' with the minimum fields required to make a request.+newTemplateMetadata ::+  TemplateMetadata+newTemplateMetadata =+  TemplateMetadata+    { defaultStreamingMode = Core.Nothing,+      description = Core.Nothing,+      name = Core.Nothing,+      parameters = Core.Nothing,+      streaming = Core.Nothing,+      supportsAtLeastOnce = Core.Nothing,+      supportsExactlyOnce = Core.Nothing,+      yamlDefinition = Core.Nothing+    }++instance Core.FromJSON TemplateMetadata where+  parseJSON =+    Core.withObject+      "TemplateMetadata"+      ( \o ->+          TemplateMetadata+            Core.<$> (o Core..:? "defaultStreamingMode")+            Core.<*> (o Core..:? "description")+            Core.<*> (o Core..:? "name")+            Core.<*> (o Core..:? "parameters")+            Core.<*> (o Core..:? "streaming")+            Core.<*> (o Core..:? "supportsAtLeastOnce")+            Core.<*> (o Core..:? "supportsExactlyOnce")+            Core.<*> (o Core..:? "yamlDefinition")+      )++instance Core.ToJSON TemplateMetadata where+  toJSON TemplateMetadata {..} =+    Core.object+      ( Core.catMaybes+          [ ("defaultStreamingMode" Core..=) Core.<$> defaultStreamingMode,+            ("description" Core..=) Core.<$> description,+            ("name" Core..=) Core.<$> name,+            ("parameters" Core..=) Core.<$> parameters,+            ("streaming" Core..=) Core.<$> streaming,+            ("supportsAtLeastOnce" Core..=) Core.<$> supportsAtLeastOnce,+            ("supportsExactlyOnce" Core..=) Core.<$> supportsExactlyOnce,+            ("yamlDefinition" Core..=) Core.<$> yamlDefinition+          ]+      )++-- | Global topology of the streaming Dataflow job, including all computations and their sharded locations.+--+-- /See:/ 'newTopologyConfig' smart constructor.+data TopologyConfig = TopologyConfig+  { -- | The computations associated with a streaming Dataflow job.+    computations :: (Core.Maybe [ComputationTopology]),+    -- | The disks assigned to a streaming Dataflow job.+    dataDiskAssignments :: (Core.Maybe [DataDiskAssignment]),+    -- | The size (in bits) of keys that will be assigned to source messages.+    forwardingKeyBits :: (Core.Maybe Core.Int32),+    -- | Version number for persistent state.+    persistentStateVersion :: (Core.Maybe Core.Int32),+    -- | Maps user stage names to stable computation names.+    userStageToComputationNameMap :: (Core.Maybe TopologyConfig_UserStageToComputationNameMap)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'TopologyConfig' with the minimum fields required to make a request.+newTopologyConfig ::+  TopologyConfig+newTopologyConfig =+  TopologyConfig+    { computations = Core.Nothing,+      dataDiskAssignments = Core.Nothing,+      forwardingKeyBits = Core.Nothing,+      persistentStateVersion = Core.Nothing,+      userStageToComputationNameMap = Core.Nothing+    }++instance Core.FromJSON TopologyConfig where+  parseJSON =+    Core.withObject+      "TopologyConfig"+      ( \o ->+          TopologyConfig+            Core.<$> (o Core..:? "computations")+            Core.<*> (o Core..:? "dataDiskAssignments")+            Core.<*> (o Core..:? "forwardingKeyBits")+            Core.<*> (o Core..:? "persistentStateVersion")+            Core.<*> (o Core..:? "userStageToComputationNameMap")+      )++instance Core.ToJSON TopologyConfig where+  toJSON TopologyConfig {..} =+    Core.object+      ( Core.catMaybes+          [ ("computations" Core..=) Core.<$> computations,+            ("dataDiskAssignments" Core..=) Core.<$> dataDiskAssignments,+            ("forwardingKeyBits" Core..=) Core.<$> forwardingKeyBits,+            ("persistentStateVersion" Core..=) Core.<$> persistentStateVersion,+            ("userStageToComputationNameMap" Core..=)+              Core.<$> userStageToComputationNameMap+          ]+      )++-- | Maps user stage names to stable computation names.+--+-- /See:/ 'newTopologyConfig_UserStageToComputationNameMap' smart constructor.+newtype TopologyConfig_UserStageToComputationNameMap = TopologyConfig_UserStageToComputationNameMap+  { additional :: (Core.HashMap Core.Text Core.Text)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'TopologyConfig_UserStageToComputationNameMap' with the minimum fields required to make a request.+newTopologyConfig_UserStageToComputationNameMap ::+  -- |  See 'additional'.+  Core.HashMap Core.Text Core.Text ->+  TopologyConfig_UserStageToComputationNameMap+newTopologyConfig_UserStageToComputationNameMap additional =+  TopologyConfig_UserStageToComputationNameMap+    { additional =+        additional+    }++instance Core.FromJSON TopologyConfig_UserStageToComputationNameMap where+  parseJSON =+    Core.withObject+      "TopologyConfig_UserStageToComputationNameMap"+      ( \o ->+          TopologyConfig_UserStageToComputationNameMap+            Core.<$> (Core.parseJSONObject o)+      )++instance Core.ToJSON TopologyConfig_UserStageToComputationNameMap where+  toJSON TopologyConfig_UserStageToComputationNameMap {..} =+    Core.toJSON additional++-- | Description of the type, names\/ids, and input\/outputs for a transform.+--+-- /See:/ 'newTransformSummary' smart constructor.+data TransformSummary = TransformSummary+  { -- | Transform-specific display data.+    displayData :: (Core.Maybe [DisplayData]),+    -- | SDK generated id of this transform instance.+    id :: (Core.Maybe Core.Text),+    -- | User names for all collection inputs to this transform.+    inputCollectionName :: (Core.Maybe [Core.Text]),+    -- | Type of transform.+    kind :: (Core.Maybe TransformSummary_Kind),+    -- | User provided name for this transform instance.+    name :: (Core.Maybe Core.Text),+    -- | User names for all collection outputs to this transform.+    outputCollectionName :: (Core.Maybe [Core.Text])+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'TransformSummary' with the minimum fields required to make a request.+newTransformSummary ::+  TransformSummary+newTransformSummary =+  TransformSummary+    { displayData = Core.Nothing,+      id = Core.Nothing,+      inputCollectionName = Core.Nothing,+      kind = Core.Nothing,+      name = Core.Nothing,+      outputCollectionName = Core.Nothing+    }++instance Core.FromJSON TransformSummary where+  parseJSON =+    Core.withObject+      "TransformSummary"+      ( \o ->+          TransformSummary+            Core.<$> (o Core..:? "displayData")+            Core.<*> (o Core..:? "id")+            Core.<*> (o Core..:? "inputCollectionName")+            Core.<*> (o Core..:? "kind")+            Core.<*> (o Core..:? "name")+            Core.<*> (o Core..:? "outputCollectionName")+      )++instance Core.ToJSON TransformSummary where+  toJSON TransformSummary {..} =+    Core.object+      ( Core.catMaybes+          [ ("displayData" Core..=) Core.<$> displayData,+            ("id" Core..=) Core.<$> id,+            ("inputCollectionName" Core..=) Core.<$> inputCollectionName,+            ("kind" Core..=) Core.<$> kind,+            ("name" Core..=) Core.<$> name,+            ("outputCollectionName" Core..=) Core.<$> outputCollectionName+          ]+      )++-- | WorkItem represents basic information about a WorkItem to be executed in the cloud.+--+-- /See:/ 'newWorkItem' smart constructor.+data WorkItem = WorkItem+  { -- | Work item-specific configuration as an opaque blob.+    configuration :: (Core.Maybe Core.Text),+    -- | Identifies this WorkItem.+    id :: (Core.Maybe Core.Int64),+    -- | The initial index to use when reporting the status of the WorkItem.+    initialReportIndex :: (Core.Maybe Core.Int64),+    -- | Identifies the workflow job this WorkItem belongs to.+    jobId :: (Core.Maybe Core.Text),+    -- | Time when the lease on this Work will expire.+    leaseExpireTime :: (Core.Maybe Core.DateTime),+    -- | Additional information for MapTask WorkItems.+    mapTask :: (Core.Maybe MapTask),+    -- | Any required packages that need to be fetched in order to execute this WorkItem.+    packages :: (Core.Maybe [Package]),+    -- | Identifies the cloud project this WorkItem belongs to.+    projectId :: (Core.Maybe Core.Text),+    -- | Recommended reporting interval.+    reportStatusInterval :: (Core.Maybe Core.Duration),+    -- | Additional information for SeqMapTask WorkItems.+    seqMapTask :: (Core.Maybe SeqMapTask),+    -- | Additional information for ShellTask WorkItems.+    shellTask :: (Core.Maybe ShellTask),+    -- | Additional information for source operation WorkItems.+    sourceOperationTask :: (Core.Maybe SourceOperationRequest),+    -- | Additional information for StreamingComputationTask WorkItems.+    streamingComputationTask :: (Core.Maybe StreamingComputationTask),+    -- | Additional information for StreamingConfigTask WorkItems.+    streamingConfigTask :: (Core.Maybe StreamingConfigTask),+    -- | Additional information for StreamingSetupTask WorkItems.+    streamingSetupTask :: (Core.Maybe StreamingSetupTask)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'WorkItem' with the minimum fields required to make a request.+newWorkItem ::+  WorkItem+newWorkItem =+  WorkItem+    { configuration = Core.Nothing,+      id = Core.Nothing,+      initialReportIndex = Core.Nothing,+      jobId = Core.Nothing,+      leaseExpireTime = Core.Nothing,+      mapTask = Core.Nothing,+      packages = Core.Nothing,+      projectId = Core.Nothing,+      reportStatusInterval = Core.Nothing,+      seqMapTask = Core.Nothing,+      shellTask = Core.Nothing,+      sourceOperationTask = Core.Nothing,+      streamingComputationTask = Core.Nothing,+      streamingConfigTask = Core.Nothing,+      streamingSetupTask = Core.Nothing+    }++instance Core.FromJSON WorkItem where+  parseJSON =+    Core.withObject+      "WorkItem"+      ( \o ->+          WorkItem+            Core.<$> (o Core..:? "configuration")+            Core.<*> (o Core..:? "id" Core.<&> Core.fmap Core.fromAsText)+            Core.<*> ( o+                         Core..:? "initialReportIndex"+                         Core.<&> Core.fmap Core.fromAsText+                     )+            Core.<*> (o Core..:? "jobId")+            Core.<*> (o Core..:? "leaseExpireTime")+            Core.<*> (o Core..:? "mapTask")+            Core.<*> (o Core..:? "packages")+            Core.<*> (o Core..:? "projectId")+            Core.<*> (o Core..:? "reportStatusInterval")+            Core.<*> (o Core..:? "seqMapTask")+            Core.<*> (o Core..:? "shellTask")+            Core.<*> (o Core..:? "sourceOperationTask")+            Core.<*> (o Core..:? "streamingComputationTask")+            Core.<*> (o Core..:? "streamingConfigTask")+            Core.<*> (o Core..:? "streamingSetupTask")+      )++instance Core.ToJSON WorkItem where+  toJSON WorkItem {..} =+    Core.object+      ( Core.catMaybes+          [ ("configuration" Core..=) Core.<$> configuration,+            ("id" Core..=) Core.. Core.AsText Core.<$> id,+            ("initialReportIndex" Core..=)+              Core.. Core.AsText+              Core.<$> initialReportIndex,+            ("jobId" Core..=) Core.<$> jobId,+            ("leaseExpireTime" Core..=) Core.<$> leaseExpireTime,+            ("mapTask" Core..=) Core.<$> mapTask,+            ("packages" Core..=) Core.<$> packages,+            ("projectId" Core..=) Core.<$> projectId,+            ("reportStatusInterval" Core..=) Core.<$> reportStatusInterval,+            ("seqMapTask" Core..=) Core.<$> seqMapTask,+            ("shellTask" Core..=) Core.<$> shellTask,+            ("sourceOperationTask" Core..=) Core.<$> sourceOperationTask,+            ("streamingComputationTask" Core..=)+              Core.<$> streamingComputationTask,+            ("streamingConfigTask" Core..=) Core.<$> streamingConfigTask,+            ("streamingSetupTask" Core..=) Core.<$> streamingSetupTask+          ]+      )++-- | Information about an individual work item execution.+--+-- /See:/ 'newWorkItemDetails' smart constructor.+data WorkItemDetails = WorkItemDetails+  { -- | Attempt ID of this work item+    attemptId :: (Core.Maybe Core.Text),+    -- | End time of this work item attempt. If the work item is completed, this is the actual end time of the work item. Otherwise, it is the predicted end time.+    endTime :: (Core.Maybe Core.DateTime),+    -- | Metrics for this work item.+    metrics :: (Core.Maybe [MetricUpdate]),+    -- | Progress of this work item.+    progress :: (Core.Maybe ProgressTimeseries),+    -- | Start time of this work item attempt.+    startTime :: (Core.Maybe Core.DateTime),+    -- | State of this work item.+    state :: (Core.Maybe WorkItemDetails_State),+    -- | Information about straggler detections for this work item.+    stragglerInfo :: (Core.Maybe StragglerInfo),+    -- | Name of this work item.+    taskId :: (Core.Maybe Core.Text)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'WorkItemDetails' with the minimum fields required to make a request.+newWorkItemDetails ::+  WorkItemDetails+newWorkItemDetails =+  WorkItemDetails+    { attemptId = Core.Nothing,+      endTime = Core.Nothing,+      metrics = Core.Nothing,+      progress = Core.Nothing,+      startTime = Core.Nothing,+      state = Core.Nothing,+      stragglerInfo = Core.Nothing,+      taskId = Core.Nothing+    }++instance Core.FromJSON WorkItemDetails where+  parseJSON =+    Core.withObject+      "WorkItemDetails"+      ( \o ->+          WorkItemDetails+            Core.<$> (o Core..:? "attemptId")+            Core.<*> (o Core..:? "endTime")+            Core.<*> (o Core..:? "metrics")+            Core.<*> (o Core..:? "progress")+            Core.<*> (o Core..:? "startTime")+            Core.<*> (o Core..:? "state")+            Core.<*> (o Core..:? "stragglerInfo")+            Core.<*> (o Core..:? "taskId")+      )++instance Core.ToJSON WorkItemDetails where+  toJSON WorkItemDetails {..} =+    Core.object+      ( Core.catMaybes+          [ ("attemptId" Core..=) Core.<$> attemptId,+            ("endTime" Core..=) Core.<$> endTime,+            ("metrics" Core..=) Core.<$> metrics,+            ("progress" Core..=) Core.<$> progress,+            ("startTime" Core..=) Core.<$> startTime,+            ("state" Core..=) Core.<$> state,+            ("stragglerInfo" Core..=) Core.<$> stragglerInfo,+            ("taskId" Core..=) Core.<$> taskId+          ]+      )++-- | The Dataflow service\'s idea of the current state of a WorkItem being processed by a worker.+--+-- /See:/ 'newWorkItemServiceState' smart constructor.+data WorkItemServiceState = WorkItemServiceState+  { -- | If set, a request to complete the work item with the given status. This will not be set to OK, unless supported by the specific kind of WorkItem. It can be used for the backend to indicate a WorkItem must terminate, e.g., for aborting work.+    completeWorkStatus :: (Core.Maybe Status),+    -- | Other data returned by the service, specific to the particular worker harness.+    harnessData :: (Core.Maybe WorkItemServiceState_HarnessData),+    -- | A hot key is a symptom of poor data distribution in which there are enough elements mapped to a single key to impact pipeline performance. When present, this field includes metadata associated with any hot key.+    hotKeyDetection :: (Core.Maybe HotKeyDetection),+    -- | Time at which the current lease will expire.+    leaseExpireTime :: (Core.Maybe Core.DateTime),+    -- | The short ids that workers should use in subsequent metric updates. Workers should strive to use short ids whenever possible, but it is ok to request the short_id again if a worker lost track of it (e.g. if the worker is recovering from a crash). NOTE: it is possible that the response may have short ids for a subset of the metrics.+    metricShortId :: (Core.Maybe [MetricShortId]),+    -- | 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.+    nextReportIndex :: (Core.Maybe Core.Int64),+    -- | New recommended reporting interval.+    reportStatusInterval :: (Core.Maybe Core.Duration),+    -- | The progress point in the WorkItem where the Dataflow service suggests that the worker truncate the task.+    splitRequest :: (Core.Maybe ApproximateSplitRequest),+    -- | DEPRECATED in favor of split_request.+    suggestedStopPoint :: (Core.Maybe ApproximateProgress),+    -- | Obsolete, always empty.+    suggestedStopPosition :: (Core.Maybe Position)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'WorkItemServiceState' with the minimum fields required to make a request.+newWorkItemServiceState ::+  WorkItemServiceState+newWorkItemServiceState =+  WorkItemServiceState+    { completeWorkStatus = Core.Nothing,+      harnessData = Core.Nothing,+      hotKeyDetection = Core.Nothing,+      leaseExpireTime = Core.Nothing,+      metricShortId = Core.Nothing,+      nextReportIndex = Core.Nothing,+      reportStatusInterval = Core.Nothing,+      splitRequest = Core.Nothing,+      suggestedStopPoint = Core.Nothing,+      suggestedStopPosition = Core.Nothing+    }++instance Core.FromJSON WorkItemServiceState where+  parseJSON =+    Core.withObject+      "WorkItemServiceState"+      ( \o ->+          WorkItemServiceState+            Core.<$> (o Core..:? "completeWorkStatus")+            Core.<*> (o Core..:? "harnessData")+            Core.<*> (o Core..:? "hotKeyDetection")+            Core.<*> (o Core..:? "leaseExpireTime")+            Core.<*> (o Core..:? "metricShortId")+            Core.<*> (o Core..:? "nextReportIndex" Core.<&> Core.fmap Core.fromAsText)+            Core.<*> (o Core..:? "reportStatusInterval")+            Core.<*> (o Core..:? "splitRequest")+            Core.<*> (o Core..:? "suggestedStopPoint")+            Core.<*> (o Core..:? "suggestedStopPosition")+      )++instance Core.ToJSON WorkItemServiceState where+  toJSON WorkItemServiceState {..} =+    Core.object+      ( Core.catMaybes+          [ ("completeWorkStatus" Core..=) Core.<$> completeWorkStatus,+            ("harnessData" Core..=) Core.<$> harnessData,+            ("hotKeyDetection" Core..=) Core.<$> hotKeyDetection,+            ("leaseExpireTime" Core..=) Core.<$> leaseExpireTime,+            ("metricShortId" Core..=) Core.<$> metricShortId,+            ("nextReportIndex" Core..=)+              Core.. Core.AsText+              Core.<$> nextReportIndex,+            ("reportStatusInterval" Core..=) Core.<$> reportStatusInterval,+            ("splitRequest" Core..=) Core.<$> splitRequest,+            ("suggestedStopPoint" Core..=) Core.<$> suggestedStopPoint,+            ("suggestedStopPosition" Core..=) Core.<$> suggestedStopPosition+          ]+      )++-- | Other data returned by the service, specific to the particular worker harness.+--+-- /See:/ 'newWorkItemServiceState_HarnessData' smart constructor.+newtype WorkItemServiceState_HarnessData = WorkItemServiceState_HarnessData+  { -- | Properties of the object.+    additional :: (Core.HashMap Core.Text Core.Value)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'WorkItemServiceState_HarnessData' with the minimum fields required to make a request.+newWorkItemServiceState_HarnessData ::+  -- |  Properties of the object. See 'additional'.+  Core.HashMap Core.Text Core.Value ->+  WorkItemServiceState_HarnessData+newWorkItemServiceState_HarnessData additional =+  WorkItemServiceState_HarnessData {additional = additional}++instance Core.FromJSON WorkItemServiceState_HarnessData where+  parseJSON =+    Core.withObject+      "WorkItemServiceState_HarnessData"+      ( \o ->+          WorkItemServiceState_HarnessData Core.<$> (Core.parseJSONObject o)+      )++instance Core.ToJSON WorkItemServiceState_HarnessData where+  toJSON WorkItemServiceState_HarnessData {..} =+    Core.toJSON additional++-- | Conveys a worker\'s progress through the work described by a WorkItem.+--+-- /See:/ 'newWorkItemStatus' smart constructor.+data WorkItemStatus = WorkItemStatus+  { -- | True if the WorkItem was completed (successfully or unsuccessfully).+    completed :: (Core.Maybe Core.Bool),+    -- | Worker output counters for this WorkItem.+    counterUpdates :: (Core.Maybe [CounterUpdate]),+    -- | See documentation of stop_position.+    dynamicSourceSplit :: (Core.Maybe DynamicSourceSplit),+    -- | Specifies errors which occurred during processing. If errors are provided, and completed = true, then the WorkItem is considered to have failed.+    errors :: (Core.Maybe [Status]),+    -- | DEPRECATED in favor of counter_updates.+    metricUpdates :: (Core.Maybe [MetricUpdate]),+    -- | DEPRECATED in favor of reported_progress.+    progress :: (Core.Maybe ApproximateProgress),+    -- | The report index. When a WorkItem is leased, the lease will contain an initial report index. When a WorkItem\'s status is reported to the system, the report should be sent with that report index, and the response will contain the index the worker should use for the next report. Reports received with unexpected index values will be rejected by the service. In order to preserve idempotency, the worker should not alter the contents of a report, even if the worker must submit the same report multiple times before getting back a response. The worker should not submit a subsequent report until the response for the previous report had been received from the service.+    reportIndex :: (Core.Maybe Core.Int64),+    -- | The worker\'s progress through this WorkItem.+    reportedProgress :: (Core.Maybe ApproximateReportedProgress),+    -- | Amount of time the worker requests for its lease.+    requestedLeaseDuration :: (Core.Maybe Core.Duration),+    -- | DEPRECATED in favor of dynamic/source/split.+    sourceFork :: (Core.Maybe SourceFork),+    -- | If the work item represented a SourceOperationRequest, and the work is completed, contains the result of the operation.+    sourceOperationResponse :: (Core.Maybe SourceOperationResponse),+    -- | A worker may split an active map task in two parts, \"primary\" and \"residual\", continuing to process the primary part and returning the residual part into the pool of available work. This event is called a \"dynamic split\" and is critical to the dynamic work rebalancing feature. The two obtained sub-tasks are called \"parts\" of the split. The parts, if concatenated, must represent the same input as would be read by the current task if the split did not happen. The exact way in which the original task is decomposed into the two parts is specified either as a position demarcating them (stop/position), or explicitly as two DerivedSources, if this task consumes a user-defined source type (dynamic/source/split). The \"current\" task is adjusted as a result of the split: after a task with range [A, B) sends a stop/position update at C, its range is considered to be [A, C), e.g.: * Progress should be interpreted relative to the new range, e.g. \"75% completed\" means \"75% of [A, C) completed\" * The worker+    -- should interpret proposed/stop/position relative to the new range, e.g. \"split at 68%\" should be interpreted as \"split at 68% of [A, C)\". * If the worker chooses to split again using stop/position, only stop/positions in [A, C) will be accepted. * Etc. dynamic/source/split has similar semantics: e.g., if a task with source S splits using dynamic/source/split into {P, R} (where P and R must be together equivalent to S), then subsequent progress and proposed/stop/position should be interpreted relative to P, and in a potential subsequent dynamic/source/split into {P\', R\'}, P\' and R\' must be together equivalent to P, etc.+    stopPosition :: (Core.Maybe Position),+    -- | Total time the worker spent being throttled by external systems.+    totalThrottlerWaitTimeSeconds :: (Core.Maybe Core.Double),+    -- | Identifies the WorkItem.+    workItemId :: (Core.Maybe Core.Text)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'WorkItemStatus' with the minimum fields required to make a request.+newWorkItemStatus ::+  WorkItemStatus+newWorkItemStatus =+  WorkItemStatus+    { completed = Core.Nothing,+      counterUpdates = Core.Nothing,+      dynamicSourceSplit = Core.Nothing,+      errors = Core.Nothing,+      metricUpdates = Core.Nothing,+      progress = Core.Nothing,+      reportIndex = Core.Nothing,+      reportedProgress = Core.Nothing,+      requestedLeaseDuration = Core.Nothing,+      sourceFork = Core.Nothing,+      sourceOperationResponse = Core.Nothing,+      stopPosition = Core.Nothing,+      totalThrottlerWaitTimeSeconds = Core.Nothing,+      workItemId = Core.Nothing+    }++instance Core.FromJSON WorkItemStatus where+  parseJSON =+    Core.withObject+      "WorkItemStatus"+      ( \o ->+          WorkItemStatus+            Core.<$> (o Core..:? "completed")+            Core.<*> (o Core..:? "counterUpdates")+            Core.<*> (o Core..:? "dynamicSourceSplit")+            Core.<*> (o Core..:? "errors")+            Core.<*> (o Core..:? "metricUpdates")+            Core.<*> (o Core..:? "progress")+            Core.<*> (o Core..:? "reportIndex" Core.<&> Core.fmap Core.fromAsText)+            Core.<*> (o Core..:? "reportedProgress")+            Core.<*> (o Core..:? "requestedLeaseDuration")+            Core.<*> (o Core..:? "sourceFork")+            Core.<*> (o Core..:? "sourceOperationResponse")+            Core.<*> (o Core..:? "stopPosition")+            Core.<*> (o Core..:? "totalThrottlerWaitTimeSeconds")+            Core.<*> (o Core..:? "workItemId")+      )++instance Core.ToJSON WorkItemStatus where+  toJSON WorkItemStatus {..} =+    Core.object+      ( Core.catMaybes+          [ ("completed" Core..=) Core.<$> completed,+            ("counterUpdates" Core..=) Core.<$> counterUpdates,+            ("dynamicSourceSplit" Core..=) Core.<$> dynamicSourceSplit,+            ("errors" Core..=) Core.<$> errors,+            ("metricUpdates" Core..=) Core.<$> metricUpdates,+            ("progress" Core..=) Core.<$> progress,+            ("reportIndex" Core..=) Core.. Core.AsText Core.<$> reportIndex,+            ("reportedProgress" Core..=) Core.<$> reportedProgress,+            ("requestedLeaseDuration" Core..=) Core.<$> requestedLeaseDuration,+            ("sourceFork" Core..=) Core.<$> sourceFork,+            ("sourceOperationResponse" Core..=)+              Core.<$> sourceOperationResponse,+            ("stopPosition" Core..=) Core.<$> stopPosition,+            ("totalThrottlerWaitTimeSeconds" Core..=)+              Core.<$> totalThrottlerWaitTimeSeconds,+            ("workItemId" Core..=) Core.<$> workItemId+          ]+      )++-- | Information about a worker+--+-- /See:/ 'newWorkerDetails' smart constructor.+data WorkerDetails = WorkerDetails+  { -- | Work items processed by this worker, sorted by time.+    workItems :: (Core.Maybe [WorkItemDetails]),+    -- | Name of this worker+    workerName :: (Core.Maybe Core.Text)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'WorkerDetails' with the minimum fields required to make a request.+newWorkerDetails ::+  WorkerDetails+newWorkerDetails =+  WorkerDetails+    { workItems = Core.Nothing,+      workerName = Core.Nothing+    }++instance Core.FromJSON WorkerDetails where+  parseJSON =+    Core.withObject+      "WorkerDetails"+      ( \o ->+          WorkerDetails+            Core.<$> (o Core..:? "workItems")+            Core.<*> (o Core..:? "workerName")+      )++instance Core.ToJSON WorkerDetails where+  toJSON WorkerDetails {..} =+    Core.object+      ( Core.catMaybes+          [ ("workItems" Core..=) Core.<$> workItems,+            ("workerName" Core..=) Core.<$> workerName+          ]+      )++-- | WorkerHealthReport contains information about the health of a worker. The VM should be identified by the labels attached to the WorkerMessage that this health ping belongs to.+--+-- /See:/ 'newWorkerHealthReport' smart constructor.+data WorkerHealthReport = WorkerHealthReport+  { -- | Message describing any unusual health reports.+    msg :: (Core.Maybe Core.Text),+    -- | The pods running on the worker. See: http:\/\/kubernetes.io\/v1.1\/docs\/api-reference\/v1\/definitions.html#/v1/pod This field is used by the worker to send the status of the indvidual containers running on each worker.+    pods :: (Core.Maybe [WorkerHealthReport_PodsItem]),+    -- | The interval at which the worker is sending health reports. The default value of 0 should be interpreted as the field is not being explicitly set by the worker.+    reportInterval :: (Core.Maybe Core.Duration),+    -- | Code to describe a specific reason, if known, that a VM has reported broken state.+    vmBrokenCode :: (Core.Maybe Core.Text),+    -- | Whether the VM is in a permanently broken state. Broken VMs should be abandoned or deleted ASAP to avoid assigning or completing any work.+    vmIsBroken :: (Core.Maybe Core.Bool),+    -- | Whether the VM is currently healthy.+    vmIsHealthy :: (Core.Maybe Core.Bool),+    -- | The time the VM was booted.+    vmStartupTime :: (Core.Maybe Core.DateTime)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'WorkerHealthReport' with the minimum fields required to make a request.+newWorkerHealthReport ::+  WorkerHealthReport+newWorkerHealthReport =+  WorkerHealthReport+    { msg = Core.Nothing,+      pods = Core.Nothing,+      reportInterval = Core.Nothing,+      vmBrokenCode = Core.Nothing,+      vmIsBroken = Core.Nothing,+      vmIsHealthy = Core.Nothing,+      vmStartupTime = Core.Nothing+    }++instance Core.FromJSON WorkerHealthReport where+  parseJSON =+    Core.withObject+      "WorkerHealthReport"+      ( \o ->+          WorkerHealthReport+            Core.<$> (o Core..:? "msg")+            Core.<*> (o Core..:? "pods")+            Core.<*> (o Core..:? "reportInterval")+            Core.<*> (o Core..:? "vmBrokenCode")+            Core.<*> (o Core..:? "vmIsBroken")+            Core.<*> (o Core..:? "vmIsHealthy")+            Core.<*> (o Core..:? "vmStartupTime")+      )++instance Core.ToJSON WorkerHealthReport where+  toJSON WorkerHealthReport {..} =+    Core.object+      ( Core.catMaybes+          [ ("msg" Core..=) Core.<$> msg,+            ("pods" Core..=) Core.<$> pods,+            ("reportInterval" Core..=) Core.<$> reportInterval,+            ("vmBrokenCode" Core..=) Core.<$> vmBrokenCode,+            ("vmIsBroken" Core..=) Core.<$> vmIsBroken,+            ("vmIsHealthy" Core..=) Core.<$> vmIsHealthy,+            ("vmStartupTime" Core..=) Core.<$> vmStartupTime+          ]+      )++--+-- /See:/ 'newWorkerHealthReport_PodsItem' smart constructor.+newtype WorkerHealthReport_PodsItem = WorkerHealthReport_PodsItem+  { -- | Properties of the object.+    additional :: (Core.HashMap Core.Text Core.Value)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'WorkerHealthReport_PodsItem' with the minimum fields required to make a request.+newWorkerHealthReport_PodsItem ::+  -- |  Properties of the object. See 'additional'.+  Core.HashMap Core.Text Core.Value ->+  WorkerHealthReport_PodsItem+newWorkerHealthReport_PodsItem additional =+  WorkerHealthReport_PodsItem {additional = additional}++instance Core.FromJSON WorkerHealthReport_PodsItem where+  parseJSON =+    Core.withObject+      "WorkerHealthReport_PodsItem"+      ( \o ->+          WorkerHealthReport_PodsItem Core.<$> (Core.parseJSONObject o)+      )++instance Core.ToJSON WorkerHealthReport_PodsItem where+  toJSON WorkerHealthReport_PodsItem {..} = Core.toJSON additional++-- | WorkerHealthReportResponse contains information returned to the worker in response to a health ping.+--+-- /See:/ 'newWorkerHealthReportResponse' smart constructor.+newtype WorkerHealthReportResponse = WorkerHealthReportResponse+  { -- | A positive value indicates the worker should change its reporting interval to the specified value. The default value of zero means no change in report rate is requested by the server.+    reportInterval :: (Core.Maybe Core.Duration)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'WorkerHealthReportResponse' with the minimum fields required to make a request.+newWorkerHealthReportResponse ::+  WorkerHealthReportResponse+newWorkerHealthReportResponse =+  WorkerHealthReportResponse {reportInterval = Core.Nothing}++instance Core.FromJSON WorkerHealthReportResponse where+  parseJSON =+    Core.withObject+      "WorkerHealthReportResponse"+      ( \o ->+          WorkerHealthReportResponse Core.<$> (o Core..:? "reportInterval")+      )++instance Core.ToJSON WorkerHealthReportResponse where+  toJSON WorkerHealthReportResponse {..} =+    Core.object+      ( Core.catMaybes+          [("reportInterval" Core..=) Core.<$> reportInterval]+      )++-- | A report of an event in a worker\'s lifecycle. The proto contains one event, because the worker is expected to asynchronously send each message immediately after the event. Due to this asynchrony, messages may arrive out of order (or missing), and it is up to the consumer to interpret. The timestamp of the event is in the enclosing WorkerMessage proto.+--+-- /See:/ 'newWorkerLifecycleEvent' smart constructor.+data WorkerLifecycleEvent = WorkerLifecycleEvent+  { -- | The start time of this container. All events will report this so that events can be grouped together across container\/VM restarts.+    containerStartTime :: (Core.Maybe Core.DateTime),+    -- | The event being reported.+    event :: (Core.Maybe WorkerLifecycleEvent_Event),+    -- | Other stats that can accompany an event. E.g. { \"downloaded_bytes\" : \"123456\" }+    metadata :: (Core.Maybe WorkerLifecycleEvent_Metadata)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'WorkerLifecycleEvent' with the minimum fields required to make a request.+newWorkerLifecycleEvent ::+  WorkerLifecycleEvent+newWorkerLifecycleEvent =+  WorkerLifecycleEvent+    { containerStartTime = Core.Nothing,+      event = Core.Nothing,+      metadata = Core.Nothing+    }++instance Core.FromJSON WorkerLifecycleEvent where+  parseJSON =+    Core.withObject+      "WorkerLifecycleEvent"+      ( \o ->+          WorkerLifecycleEvent+            Core.<$> (o Core..:? "containerStartTime")+            Core.<*> (o Core..:? "event")+            Core.<*> (o Core..:? "metadata")+      )++instance Core.ToJSON WorkerLifecycleEvent where+  toJSON WorkerLifecycleEvent {..} =+    Core.object+      ( Core.catMaybes+          [ ("containerStartTime" Core..=) Core.<$> containerStartTime,+            ("event" Core..=) Core.<$> event,+            ("metadata" Core..=) Core.<$> metadata+          ]+      )++-- | Other stats that can accompany an event. E.g. { \"downloaded_bytes\" : \"123456\" }+--+-- /See:/ 'newWorkerLifecycleEvent_Metadata' smart constructor.+newtype WorkerLifecycleEvent_Metadata = WorkerLifecycleEvent_Metadata+  { additional :: (Core.HashMap Core.Text Core.Text)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'WorkerLifecycleEvent_Metadata' with the minimum fields required to make a request.+newWorkerLifecycleEvent_Metadata ::+  -- |  See 'additional'.+  Core.HashMap Core.Text Core.Text ->+  WorkerLifecycleEvent_Metadata+newWorkerLifecycleEvent_Metadata additional =+  WorkerLifecycleEvent_Metadata {additional = additional}++instance Core.FromJSON WorkerLifecycleEvent_Metadata where+  parseJSON =+    Core.withObject+      "WorkerLifecycleEvent_Metadata"+      ( \o ->+          WorkerLifecycleEvent_Metadata Core.<$> (Core.parseJSONObject o)+      )++instance Core.ToJSON WorkerLifecycleEvent_Metadata where+  toJSON WorkerLifecycleEvent_Metadata {..} = Core.toJSON additional++-- | WorkerMessage provides information to the backend about a worker.+--+-- /See:/ 'newWorkerMessage' smart constructor.+data WorkerMessage = WorkerMessage+  { -- | Optional. Contains metrics related to go\/dataflow-data-sampling-telemetry.+    dataSamplingReport :: (Core.Maybe DataSamplingReport),+    -- | Labels are used to group WorkerMessages. For example, a worker/message about a particular container might have the labels: { \"JOB/ID\": \"2015-04-22\", \"WORKER/ID\": \"wordcount-vm-2015…\" \"CONTAINER/TYPE\": \"worker\", \"CONTAINER/ID\": \"ac1234def\"} Label tags typically correspond to Label enum values. However, for ease of development other strings can be used as tags. LABEL/UNSPECIFIED should not be used here.+    labels :: (Core.Maybe WorkerMessage_Labels),+    -- | System defined metrics for this worker.+    perWorkerMetrics :: (Core.Maybe PerWorkerMetrics),+    -- | Contains per-user worker telemetry used in streaming autoscaling.+    streamingScalingReport :: (Core.Maybe StreamingScalingReport),+    -- | The timestamp of the worker_message.+    time :: (Core.Maybe Core.DateTime),+    -- | The health of a worker.+    workerHealthReport :: (Core.Maybe WorkerHealthReport),+    -- | Record of worker lifecycle events.+    workerLifecycleEvent :: (Core.Maybe WorkerLifecycleEvent),+    -- | A worker message code.+    workerMessageCode :: (Core.Maybe WorkerMessageCode),+    -- | Resource metrics reported by workers.+    workerMetrics :: (Core.Maybe ResourceUtilizationReport),+    -- | Shutdown notice by workers.+    workerShutdownNotice :: (Core.Maybe WorkerShutdownNotice),+    -- | Thread scaling information reported by workers.+    workerThreadScalingReport :: (Core.Maybe WorkerThreadScalingReport)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'WorkerMessage' with the minimum fields required to make a request.+newWorkerMessage ::+  WorkerMessage+newWorkerMessage =+  WorkerMessage+    { dataSamplingReport = Core.Nothing,+      labels = Core.Nothing,+      perWorkerMetrics = Core.Nothing,+      streamingScalingReport = Core.Nothing,+      time = Core.Nothing,+      workerHealthReport = Core.Nothing,+      workerLifecycleEvent = Core.Nothing,+      workerMessageCode = Core.Nothing,+      workerMetrics = Core.Nothing,+      workerShutdownNotice = Core.Nothing,+      workerThreadScalingReport = Core.Nothing+    }++instance Core.FromJSON WorkerMessage where+  parseJSON =+    Core.withObject+      "WorkerMessage"+      ( \o ->+          WorkerMessage+            Core.<$> (o Core..:? "dataSamplingReport")+            Core.<*> (o Core..:? "labels")+            Core.<*> (o Core..:? "perWorkerMetrics")+            Core.<*> (o Core..:? "streamingScalingReport")+            Core.<*> (o Core..:? "time")+            Core.<*> (o Core..:? "workerHealthReport")+            Core.<*> (o Core..:? "workerLifecycleEvent")+            Core.<*> (o Core..:? "workerMessageCode")+            Core.<*> (o Core..:? "workerMetrics")+            Core.<*> (o Core..:? "workerShutdownNotice")+            Core.<*> (o Core..:? "workerThreadScalingReport")+      )++instance Core.ToJSON WorkerMessage where+  toJSON WorkerMessage {..} =+    Core.object+      ( Core.catMaybes+          [ ("dataSamplingReport" Core..=) Core.<$> dataSamplingReport,+            ("labels" Core..=) Core.<$> labels,+            ("perWorkerMetrics" Core..=) Core.<$> perWorkerMetrics,+            ("streamingScalingReport" Core..=) Core.<$> streamingScalingReport,+            ("time" Core..=) Core.<$> time,+            ("workerHealthReport" Core..=) Core.<$> workerHealthReport,+            ("workerLifecycleEvent" Core..=) Core.<$> workerLifecycleEvent,+            ("workerMessageCode" Core..=) Core.<$> workerMessageCode,+            ("workerMetrics" Core..=) Core.<$> workerMetrics,+            ("workerShutdownNotice" Core..=) Core.<$> workerShutdownNotice,+            ("workerThreadScalingReport" Core..=)+              Core.<$> workerThreadScalingReport+          ]+      )++-- | Labels are used to group WorkerMessages. For example, a worker/message about a particular container might have the labels: { \"JOB/ID\": \"2015-04-22\", \"WORKER/ID\": \"wordcount-vm-2015…\" \"CONTAINER/TYPE\": \"worker\", \"CONTAINER/ID\": \"ac1234def\"} Label tags typically correspond to Label enum values. However, for ease of development other strings can be used as tags. LABEL/UNSPECIFIED should not be used here.+--+-- /See:/ 'newWorkerMessage_Labels' smart constructor.+newtype WorkerMessage_Labels = WorkerMessage_Labels+  { additional :: (Core.HashMap Core.Text Core.Text)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'WorkerMessage_Labels' with the minimum fields required to make a request.+newWorkerMessage_Labels ::+  -- |  See 'additional'.+  Core.HashMap Core.Text Core.Text ->+  WorkerMessage_Labels+newWorkerMessage_Labels additional =+  WorkerMessage_Labels {additional = additional}++instance Core.FromJSON WorkerMessage_Labels where+  parseJSON =+    Core.withObject+      "WorkerMessage_Labels"+      (\o -> WorkerMessage_Labels Core.<$> (Core.parseJSONObject o))++instance Core.ToJSON WorkerMessage_Labels where+  toJSON WorkerMessage_Labels {..} = Core.toJSON additional++-- | A message code is used to report status and error messages to the service. The message codes are intended to be machine readable. The service will take care of translating these into user understandable messages if necessary. Example use cases: 1. Worker processes reporting successful startup. 2. Worker processes reporting specific errors (e.g. package staging failure).+--+-- /See:/ 'newWorkerMessageCode' smart constructor.+data WorkerMessageCode = WorkerMessageCode+  { -- | The code is a string intended for consumption by a machine that identifies the type of message being sent. Examples: 1. \"HARNESS/STARTED\" might be used to indicate the worker harness has started. 2. \"GCS/DOWNLOAD_ERROR\" might be used to indicate an error downloading a Cloud Storage file as part of the boot process of one of the worker containers. This is a string and not an enum to make it easy to add new codes without waiting for an API change.+    code :: (Core.Maybe Core.Text),+    -- | Parameters contains specific information about the code. This is a struct to allow parameters of different types. Examples: 1. For a \"HARNESS/STARTED\" message parameters might provide the name of the worker and additional data like timing information. 2. For a \"GCS/DOWNLOAD_ERROR\" parameters might contain fields listing the Cloud Storage objects being downloaded and fields containing errors. In general complex data structures should be avoided. If a worker needs to send a specific and complicated data structure then please consider defining a new proto and adding it to the data oneof in WorkerMessageResponse. Conventions: Parameters should only be used for information that isn\'t typically passed as a label. hostname and other worker identifiers should almost always be passed as labels since they will be included on most messages.+    parameters :: (Core.Maybe WorkerMessageCode_Parameters)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'WorkerMessageCode' with the minimum fields required to make a request.+newWorkerMessageCode ::+  WorkerMessageCode+newWorkerMessageCode =+  WorkerMessageCode {code = Core.Nothing, parameters = Core.Nothing}++instance Core.FromJSON WorkerMessageCode where+  parseJSON =+    Core.withObject+      "WorkerMessageCode"+      ( \o ->+          WorkerMessageCode+            Core.<$> (o Core..:? "code")+            Core.<*> (o Core..:? "parameters")+      )++instance Core.ToJSON WorkerMessageCode where+  toJSON WorkerMessageCode {..} =+    Core.object+      ( Core.catMaybes+          [ ("code" Core..=) Core.<$> code,+            ("parameters" Core..=) Core.<$> parameters+          ]+      )++-- | Parameters contains specific information about the code. This is a struct to allow parameters of different types. Examples: 1. For a \"HARNESS/STARTED\" message parameters might provide the name of the worker and additional data like timing information. 2. For a \"GCS/DOWNLOAD_ERROR\" parameters might contain fields listing the Cloud Storage objects being downloaded and fields containing errors. In general complex data structures should be avoided. If a worker needs to send a specific and complicated data structure then please consider defining a new proto and adding it to the data oneof in WorkerMessageResponse. Conventions: Parameters should only be used for information that isn\'t typically passed as a label. hostname and other worker identifiers should almost always be passed as labels since they will be included on most messages.+--+-- /See:/ 'newWorkerMessageCode_Parameters' smart constructor.+newtype WorkerMessageCode_Parameters = WorkerMessageCode_Parameters+  { -- | Properties of the object.+    additional :: (Core.HashMap Core.Text Core.Value)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'WorkerMessageCode_Parameters' with the minimum fields required to make a request.+newWorkerMessageCode_Parameters ::+  -- |  Properties of the object. See 'additional'.+  Core.HashMap Core.Text Core.Value ->+  WorkerMessageCode_Parameters+newWorkerMessageCode_Parameters additional =+  WorkerMessageCode_Parameters {additional = additional}++instance Core.FromJSON WorkerMessageCode_Parameters where+  parseJSON =+    Core.withObject+      "WorkerMessageCode_Parameters"+      ( \o ->+          WorkerMessageCode_Parameters Core.<$> (Core.parseJSONObject o)+      )++instance Core.ToJSON WorkerMessageCode_Parameters where+  toJSON WorkerMessageCode_Parameters {..} = Core.toJSON additional++-- | A worker_message response allows the server to pass information to the sender.+--+-- /See:/ 'newWorkerMessageResponse' smart constructor.+data WorkerMessageResponse = WorkerMessageResponse+  { -- | Service\'s streaming scaling response for workers.+    streamingScalingReportResponse :: (Core.Maybe StreamingScalingReportResponse),+    -- | The service\'s response to a worker\'s health report.+    workerHealthReportResponse :: (Core.Maybe WorkerHealthReportResponse),+    -- | Service\'s response to reporting worker metrics (currently empty).+    workerMetricsResponse :: (Core.Maybe ResourceUtilizationReportResponse),+    -- | Service\'s response to shutdown notice (currently empty).+    workerShutdownNoticeResponse :: (Core.Maybe WorkerShutdownNoticeResponse),+    -- | Service\'s thread scaling recommendation for workers.+    workerThreadScalingReportResponse :: (Core.Maybe WorkerThreadScalingReportResponse)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'WorkerMessageResponse' with the minimum fields required to make a request.+newWorkerMessageResponse ::+  WorkerMessageResponse+newWorkerMessageResponse =+  WorkerMessageResponse+    { streamingScalingReportResponse =+        Core.Nothing,+      workerHealthReportResponse = Core.Nothing,+      workerMetricsResponse = Core.Nothing,+      workerShutdownNoticeResponse = Core.Nothing,+      workerThreadScalingReportResponse = Core.Nothing+    }++instance Core.FromJSON WorkerMessageResponse where+  parseJSON =+    Core.withObject+      "WorkerMessageResponse"+      ( \o ->+          WorkerMessageResponse+            Core.<$> (o Core..:? "streamingScalingReportResponse")+            Core.<*> (o Core..:? "workerHealthReportResponse")+            Core.<*> (o Core..:? "workerMetricsResponse")+            Core.<*> (o Core..:? "workerShutdownNoticeResponse")+            Core.<*> (o Core..:? "workerThreadScalingReportResponse")+      )++instance Core.ToJSON WorkerMessageResponse where+  toJSON WorkerMessageResponse {..} =+    Core.object+      ( Core.catMaybes+          [ ("streamingScalingReportResponse" Core..=)+              Core.<$> streamingScalingReportResponse,+            ("workerHealthReportResponse" Core..=)+              Core.<$> workerHealthReportResponse,+            ("workerMetricsResponse" Core..=) Core.<$> workerMetricsResponse,+            ("workerShutdownNoticeResponse" Core..=)+              Core.<$> workerShutdownNoticeResponse,+            ("workerThreadScalingReportResponse" Core..=)+              Core.<$> workerThreadScalingReportResponse+          ]+      )++-- | Describes one particular pool of Cloud Dataflow workers to be instantiated by the Cloud Dataflow service in order to perform the computations required by a job. Note that a workflow job may use multiple pools, in order to match the various computational requirements of the various stages of the job.+--+-- /See:/ 'newWorkerPool' smart constructor.+data WorkerPool = WorkerPool+  { -- | Settings for autoscaling of this WorkerPool.+    autoscalingSettings :: (Core.Maybe AutoscalingSettings),+    -- | Data disks that are used by a VM in this workflow.+    dataDisks :: (Core.Maybe [Disk]),+    -- | The default package set to install. This allows the service to select a default set of packages which are useful to worker harnesses written in a particular language.+    defaultPackageSet :: (Core.Maybe WorkerPool_DefaultPackageSet),+    -- | Size of root disk for VMs, in GB. If zero or unspecified, the service will attempt to choose a reasonable default.+    diskSizeGb :: (Core.Maybe Core.Int32),+    -- | Fully qualified source image for disks.+    diskSourceImage :: (Core.Maybe Core.Text),+    -- | Type of root disk for VMs. If empty or unspecified, the service will attempt to choose a reasonable default.+    diskType :: (Core.Maybe Core.Text),+    -- | Configuration for VM IPs.+    ipConfiguration :: (Core.Maybe WorkerPool_IpConfiguration),+    -- | The kind of the worker pool; currently only @harness@ and @shuffle@ are supported.+    kind :: (Core.Maybe Core.Text),+    -- | Machine type (e.g. \"n1-standard-1\"). If empty or unspecified, the service will attempt to choose a reasonable default.+    machineType :: (Core.Maybe Core.Text),+    -- | Metadata to set on the Google Compute Engine VMs.+    metadata :: (Core.Maybe WorkerPool_Metadata),+    -- | Network to which VMs will be assigned. If empty or unspecified, the service will use the network \"default\".+    network :: (Core.Maybe Core.Text),+    -- | The number of threads per worker harness. If empty or unspecified, the service will choose a number of threads (according to the number of cores on the selected machine type for batch, or 1 by convention for streaming).+    numThreadsPerWorker :: (Core.Maybe Core.Int32),+    -- | Number of Google Compute Engine workers in this pool needed to execute the job. If zero or unspecified, the service will attempt to choose a reasonable default.+    numWorkers :: (Core.Maybe Core.Int32),+    -- | The action to take on host maintenance, as defined by the Google Compute Engine API.+    onHostMaintenance :: (Core.Maybe Core.Text),+    -- | Packages to be installed on workers.+    packages :: (Core.Maybe [Package]),+    -- | Extra arguments for this worker pool.+    poolArgs :: (Core.Maybe WorkerPool_PoolArgs),+    -- | Set of SDK harness containers needed to execute this pipeline. This will only be set in the Fn API path. For non-cross-language pipelines this should have only one entry. Cross-language pipelines will have two or more entries.+    sdkHarnessContainerImages :: (Core.Maybe [SdkHarnessContainerImage]),+    -- | Subnetwork to which VMs will be assigned, if desired. Expected to be of the form \"regions\/REGION\/subnetworks\/SUBNETWORK\".+    subnetwork :: (Core.Maybe Core.Text),+    -- | Settings passed through to Google Compute Engine workers when using the standard Dataflow task runner. Users should ignore this field.+    taskrunnerSettings :: (Core.Maybe TaskRunnerSettings),+    -- | Sets the policy for determining when to turndown worker pool. Allowed values are: @TEARDOWN_ALWAYS@, @TEARDOWN_ON_SUCCESS@, and @TEARDOWN_NEVER@. @TEARDOWN_ALWAYS@ means workers are always torn down regardless of whether the job succeeds. @TEARDOWN_ON_SUCCESS@ means workers are torn down if the job succeeds. @TEARDOWN_NEVER@ means the workers are never torn down. If the workers are not torn down by the service, they will continue to run and use Google Compute Engine VM resources in the user\'s project until they are explicitly terminated by the user. Because of this, Google recommends using the @TEARDOWN_ALWAYS@ policy except for small, manually supervised test jobs. If unknown or unspecified, the service will attempt to choose a reasonable default.+    teardownPolicy :: (Core.Maybe WorkerPool_TeardownPolicy),+    -- | Required. Docker container image that executes the Cloud Dataflow worker harness, residing in Google Container Registry. Deprecated for the Fn API path. Use sdk/harness/container_images instead.+    workerHarnessContainerImage :: (Core.Maybe Core.Text),+    -- | Zone to run the worker pools in. If empty or unspecified, the service will attempt to choose a reasonable default.+    zone :: (Core.Maybe Core.Text)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'WorkerPool' with the minimum fields required to make a request.+newWorkerPool ::+  WorkerPool+newWorkerPool =+  WorkerPool+    { autoscalingSettings = Core.Nothing,+      dataDisks = Core.Nothing,+      defaultPackageSet = Core.Nothing,+      diskSizeGb = Core.Nothing,+      diskSourceImage = Core.Nothing,+      diskType = Core.Nothing,+      ipConfiguration = Core.Nothing,+      kind = Core.Nothing,+      machineType = Core.Nothing,+      metadata = Core.Nothing,+      network = Core.Nothing,+      numThreadsPerWorker = Core.Nothing,+      numWorkers = Core.Nothing,+      onHostMaintenance = Core.Nothing,+      packages = Core.Nothing,+      poolArgs = Core.Nothing,+      sdkHarnessContainerImages = Core.Nothing,+      subnetwork = Core.Nothing,+      taskrunnerSettings = Core.Nothing,+      teardownPolicy = Core.Nothing,+      workerHarnessContainerImage = Core.Nothing,+      zone = Core.Nothing+    }++instance Core.FromJSON WorkerPool where+  parseJSON =+    Core.withObject+      "WorkerPool"+      ( \o ->+          WorkerPool+            Core.<$> (o Core..:? "autoscalingSettings")+            Core.<*> (o Core..:? "dataDisks")+            Core.<*> (o Core..:? "defaultPackageSet")+            Core.<*> (o Core..:? "diskSizeGb")+            Core.<*> (o Core..:? "diskSourceImage")+            Core.<*> (o Core..:? "diskType")+            Core.<*> (o Core..:? "ipConfiguration")+            Core.<*> (o Core..:? "kind")+            Core.<*> (o Core..:? "machineType")+            Core.<*> (o Core..:? "metadata")+            Core.<*> (o Core..:? "network")+            Core.<*> (o Core..:? "numThreadsPerWorker")+            Core.<*> (o Core..:? "numWorkers")+            Core.<*> (o Core..:? "onHostMaintenance")+            Core.<*> (o Core..:? "packages")+            Core.<*> (o Core..:? "poolArgs")+            Core.<*> (o Core..:? "sdkHarnessContainerImages")+            Core.<*> (o Core..:? "subnetwork")+            Core.<*> (o Core..:? "taskrunnerSettings")+            Core.<*> (o Core..:? "teardownPolicy")+            Core.<*> (o Core..:? "workerHarnessContainerImage")+            Core.<*> (o Core..:? "zone")+      )++instance Core.ToJSON WorkerPool where+  toJSON WorkerPool {..} =+    Core.object+      ( Core.catMaybes+          [ ("autoscalingSettings" Core..=) Core.<$> autoscalingSettings,+            ("dataDisks" Core..=) Core.<$> dataDisks,+            ("defaultPackageSet" Core..=) Core.<$> defaultPackageSet,+            ("diskSizeGb" Core..=) Core.<$> diskSizeGb,+            ("diskSourceImage" Core..=) Core.<$> diskSourceImage,+            ("diskType" Core..=) Core.<$> diskType,+            ("ipConfiguration" Core..=) Core.<$> ipConfiguration,+            ("kind" Core..=) Core.<$> kind,+            ("machineType" Core..=) Core.<$> machineType,+            ("metadata" Core..=) Core.<$> metadata,+            ("network" Core..=) Core.<$> network,+            ("numThreadsPerWorker" Core..=) Core.<$> numThreadsPerWorker,+            ("numWorkers" Core..=) Core.<$> numWorkers,+            ("onHostMaintenance" Core..=) Core.<$> onHostMaintenance,+            ("packages" Core..=) Core.<$> packages,+            ("poolArgs" Core..=) Core.<$> poolArgs,+            ("sdkHarnessContainerImages" Core..=)+              Core.<$> sdkHarnessContainerImages,+            ("subnetwork" Core..=) Core.<$> subnetwork,+            ("taskrunnerSettings" Core..=) Core.<$> taskrunnerSettings,+            ("teardownPolicy" Core..=) Core.<$> teardownPolicy,+            ("workerHarnessContainerImage" Core..=)+              Core.<$> workerHarnessContainerImage,+            ("zone" Core..=) Core.<$> zone+          ]+      )++-- | Metadata to set on the Google Compute Engine VMs.+--+-- /See:/ 'newWorkerPool_Metadata' smart constructor.+newtype WorkerPool_Metadata = WorkerPool_Metadata+  { additional :: (Core.HashMap Core.Text Core.Text)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'WorkerPool_Metadata' with the minimum fields required to make a request.+newWorkerPool_Metadata ::+  -- |  See 'additional'.+  Core.HashMap Core.Text Core.Text ->+  WorkerPool_Metadata+newWorkerPool_Metadata additional =+  WorkerPool_Metadata {additional = additional}++instance Core.FromJSON WorkerPool_Metadata where+  parseJSON =+    Core.withObject+      "WorkerPool_Metadata"+      (\o -> WorkerPool_Metadata Core.<$> (Core.parseJSONObject o))++instance Core.ToJSON WorkerPool_Metadata where+  toJSON WorkerPool_Metadata {..} = Core.toJSON additional++-- | Extra arguments for this worker pool.+--+-- /See:/ 'newWorkerPool_PoolArgs' smart constructor.+newtype WorkerPool_PoolArgs = WorkerPool_PoolArgs+  { -- | Properties of the object. Contains field \@type with type URL.+    additional :: (Core.HashMap Core.Text Core.Value)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'WorkerPool_PoolArgs' with the minimum fields required to make a request.+newWorkerPool_PoolArgs ::+  -- |  Properties of the object. Contains field \@type with type URL. See 'additional'.+  Core.HashMap Core.Text Core.Value ->+  WorkerPool_PoolArgs+newWorkerPool_PoolArgs additional =+  WorkerPool_PoolArgs {additional = additional}++instance Core.FromJSON WorkerPool_PoolArgs where+  parseJSON =+    Core.withObject+      "WorkerPool_PoolArgs"+      (\o -> WorkerPool_PoolArgs Core.<$> (Core.parseJSONObject o))++instance Core.ToJSON WorkerPool_PoolArgs where+  toJSON WorkerPool_PoolArgs {..} = Core.toJSON additional++-- | Provides data to pass through to the worker harness.+--+-- /See:/ 'newWorkerSettings' smart constructor.+data WorkerSettings = WorkerSettings+  { -- | The base URL for accessing Google Cloud APIs. When workers access Google Cloud APIs, they logically do so via relative URLs. If this field is specified, it supplies the base URL to use for resolving these relative URLs. The normative algorithm used is defined by RFC 1808, \"Relative Uniform Resource Locators\". If not specified, the default value is \"http:\/\/www.googleapis.com\/\"+    baseUrl :: (Core.Maybe Core.Text),+    -- | Whether to send work progress updates to the service.+    reportingEnabled :: (Core.Maybe Core.Bool),+    -- | The Cloud Dataflow service path relative to the root URL, for example, \"dataflow\/v1b3\/projects\".+    servicePath :: (Core.Maybe Core.Text),+    -- | The Shuffle service path relative to the root URL, for example, \"shuffle\/v1beta1\".+    shuffleServicePath :: (Core.Maybe Core.Text),+    -- | The prefix of the resources the system should use for temporary storage. The supported resource type is: Google Cloud Storage: storage.googleapis.com\/{bucket}\/{object} bucket.storage.googleapis.com\/{object}+    tempStoragePrefix :: (Core.Maybe Core.Text),+    -- | The ID of the worker running this pipeline.+    workerId :: (Core.Maybe Core.Text)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'WorkerSettings' with the minimum fields required to make a request.+newWorkerSettings ::+  WorkerSettings+newWorkerSettings =+  WorkerSettings+    { baseUrl = Core.Nothing,+      reportingEnabled = Core.Nothing,+      servicePath = Core.Nothing,+      shuffleServicePath = Core.Nothing,+      tempStoragePrefix = Core.Nothing,+      workerId = Core.Nothing+    }++instance Core.FromJSON WorkerSettings where+  parseJSON =+    Core.withObject+      "WorkerSettings"+      ( \o ->+          WorkerSettings+            Core.<$> (o Core..:? "baseUrl")+            Core.<*> (o Core..:? "reportingEnabled")+            Core.<*> (o Core..:? "servicePath")+            Core.<*> (o Core..:? "shuffleServicePath")+            Core.<*> (o Core..:? "tempStoragePrefix")+            Core.<*> (o Core..:? "workerId")+      )++instance Core.ToJSON WorkerSettings where+  toJSON WorkerSettings {..} =+    Core.object+      ( Core.catMaybes+          [ ("baseUrl" Core..=) Core.<$> baseUrl,+            ("reportingEnabled" Core..=) Core.<$> reportingEnabled,+            ("servicePath" Core..=) Core.<$> servicePath,+            ("shuffleServicePath" Core..=) Core.<$> shuffleServicePath,+            ("tempStoragePrefix" Core..=) Core.<$> tempStoragePrefix,+            ("workerId" Core..=) Core.<$> workerId+          ]+      )++-- | Shutdown notification from workers. This is to be sent by the shutdown script of the worker VM so that the backend knows that the VM is being shut down.+--+-- /See:/ 'newWorkerShutdownNotice' smart constructor.+newtype WorkerShutdownNotice = WorkerShutdownNotice+  { -- | The reason for the worker shutdown. Current possible values are: \"UNKNOWN\": shutdown reason is unknown. \"PREEMPTION\": shutdown reason is preemption. Other possible reasons may be added in the future.+    reason :: (Core.Maybe Core.Text)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'WorkerShutdownNotice' with the minimum fields required to make a request.+newWorkerShutdownNotice ::+  WorkerShutdownNotice+newWorkerShutdownNotice =+  WorkerShutdownNotice {reason = Core.Nothing}++instance Core.FromJSON WorkerShutdownNotice where+  parseJSON =+    Core.withObject+      "WorkerShutdownNotice"+      (\o -> WorkerShutdownNotice Core.<$> (o Core..:? "reason"))++instance Core.ToJSON WorkerShutdownNotice where+  toJSON WorkerShutdownNotice {..} =+    Core.object (Core.catMaybes [("reason" Core..=) Core.<$> reason])++-- | Service-side response to WorkerMessage issuing shutdown notice.+--+-- /See:/ 'newWorkerShutdownNoticeResponse' smart constructor.+data WorkerShutdownNoticeResponse = WorkerShutdownNoticeResponse+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'WorkerShutdownNoticeResponse' with the minimum fields required to make a request.+newWorkerShutdownNoticeResponse ::+  WorkerShutdownNoticeResponse+newWorkerShutdownNoticeResponse = WorkerShutdownNoticeResponse++instance Core.FromJSON WorkerShutdownNoticeResponse where+  parseJSON =+    Core.withObject+      "WorkerShutdownNoticeResponse"+      (\o -> Core.pure WorkerShutdownNoticeResponse)++instance Core.ToJSON WorkerShutdownNoticeResponse where+  toJSON = Core.const Core.emptyObject++-- | Contains information about the thread scaling information of a worker.+--+-- /See:/ 'newWorkerThreadScalingReport' smart constructor.+newtype WorkerThreadScalingReport = WorkerThreadScalingReport+  { -- | Current number of active threads in a worker.+    currentThreadCount :: (Core.Maybe Core.Int32)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'WorkerThreadScalingReport' with the minimum fields required to make a request.+newWorkerThreadScalingReport ::+  WorkerThreadScalingReport+newWorkerThreadScalingReport =+  WorkerThreadScalingReport {currentThreadCount = Core.Nothing}++instance Core.FromJSON WorkerThreadScalingReport where+  parseJSON =+    Core.withObject+      "WorkerThreadScalingReport"+      ( \o ->+          WorkerThreadScalingReport+            Core.<$> (o Core..:? "currentThreadCount")+      )++instance Core.ToJSON WorkerThreadScalingReport where+  toJSON WorkerThreadScalingReport {..} =+    Core.object+      ( Core.catMaybes+          [("currentThreadCount" Core..=) Core.<$> currentThreadCount]+      )++-- | Contains the thread scaling recommendation for a worker from the backend.+--+-- /See:/ 'newWorkerThreadScalingReportResponse' smart constructor.+newtype WorkerThreadScalingReportResponse = WorkerThreadScalingReportResponse+  { -- | Recommended number of threads for a worker.+    recommendedThreadCount :: (Core.Maybe Core.Int32)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'WorkerThreadScalingReportResponse' with the minimum fields required to make a request.+newWorkerThreadScalingReportResponse ::+  WorkerThreadScalingReportResponse+newWorkerThreadScalingReportResponse =+  WorkerThreadScalingReportResponse+    { recommendedThreadCount =+        Core.Nothing+    }++instance Core.FromJSON WorkerThreadScalingReportResponse where+  parseJSON =+    Core.withObject+      "WorkerThreadScalingReportResponse"+      ( \o ->+          WorkerThreadScalingReportResponse+            Core.<$> (o Core..:? "recommendedThreadCount")+      )++instance Core.ToJSON WorkerThreadScalingReportResponse where+  toJSON WorkerThreadScalingReportResponse {..} =+    Core.object+      ( Core.catMaybes+          [ ("recommendedThreadCount" Core..=)+              Core.<$> recommendedThreadCount+          ]+      )++-- | An instruction that writes records. Takes one input, produces no outputs.+--+-- /See:/ 'newWriteInstruction' smart constructor.+data WriteInstruction = WriteInstruction+  { -- | The input.+    input :: (Core.Maybe InstructionInput),+    -- | The sink to write to.+    sink :: (Core.Maybe Sink)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'WriteInstruction' with the minimum fields required to make a request.+newWriteInstruction ::+  WriteInstruction+newWriteInstruction =+  WriteInstruction {input = Core.Nothing, sink = Core.Nothing}++instance Core.FromJSON WriteInstruction where+  parseJSON =+    Core.withObject+      "WriteInstruction"+      ( \o ->+          WriteInstruction+            Core.<$> (o Core..:? "input")+            Core.<*> (o Core..:? "sink")+      )++instance Core.ToJSON WriteInstruction where+  toJSON WriteInstruction {..} =+    Core.object+      ( Core.catMaybes+          [("input" Core..=) Core.<$> input, ("sink" Core..=) Core.<$> sink]+      )
+ gen/Gogol/Dataflow/Internal/Sum.hs view
@@ -0,0 +1,3046 @@+{-# LANGUAGE DataKinds #-}+{-# LANGUAGE DerivingStrategies #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE ImportQualifiedPost #-}+{-# LANGUAGE LambdaCase #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TypeFamilies #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-duplicate-exports #-}+{-# OPTIONS_GHC -fno-warn-name-shadowing #-}+{-# OPTIONS_GHC -fno-warn-unused-binds #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- |+-- Module      : Gogol.Dataflow.Internal.Sum+-- Copyright   : (c) 2015-2025 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay <brendan.g.hay+gogol@gmail.com>+--               Toni Cebrián <toni@tonicebrian.com>+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+module Gogol.Dataflow.Internal.Sum+  ( -- * Xgafv+    Xgafv+      ( Xgafv_1,+        Xgafv_2,+        ..+      ),++    -- * AutoscalingEvent_EventType+    AutoscalingEvent_EventType+      ( AutoscalingEvent_EventType_TYPEUNKNOWN,+        AutoscalingEvent_EventType_TARGETNUMWORKERSCHANGED,+        AutoscalingEvent_EventType_CURRENTNUMWORKERSCHANGED,+        AutoscalingEvent_EventType_ACTUATIONFAILURE,+        AutoscalingEvent_EventType_NOCHANGE,+        ..+      ),++    -- * AutoscalingSettings_Algorithm+    AutoscalingSettings_Algorithm+      ( AutoscalingSettings_Algorithm_AUTOSCALINGALGORITHMUNKNOWN,+        AutoscalingSettings_Algorithm_AUTOSCALINGALGORITHMNONE,+        AutoscalingSettings_Algorithm_AUTOSCALINGALGORITHMBASIC,+        ..+      ),++    -- * CounterMetadata_Kind+    CounterMetadata_Kind+      ( CounterMetadata_Kind_Invalid,+        CounterMetadata_Kind_Sum,+        CounterMetadata_Kind_Max,+        CounterMetadata_Kind_Min,+        CounterMetadata_Kind_Mean,+        CounterMetadata_Kind_OR,+        CounterMetadata_Kind_And,+        CounterMetadata_Kind_Set,+        CounterMetadata_Kind_Distribution,+        CounterMetadata_Kind_LATESTVALUE,+        ..+      ),++    -- * CounterMetadata_StandardUnits+    CounterMetadata_StandardUnits+      ( CounterMetadata_StandardUnits_Bytes,+        CounterMetadata_StandardUnits_BYTESPERSEC,+        CounterMetadata_StandardUnits_Milliseconds,+        CounterMetadata_StandardUnits_Microseconds,+        CounterMetadata_StandardUnits_Nanoseconds,+        CounterMetadata_StandardUnits_TIMESTAMPMSEC,+        CounterMetadata_StandardUnits_TIMESTAMPUSEC,+        CounterMetadata_StandardUnits_TIMESTAMPNSEC,+        ..+      ),++    -- * CounterStructuredName_Origin+    CounterStructuredName_Origin+      ( CounterStructuredName_Origin_System,+        CounterStructuredName_Origin_User,+        ..+      ),++    -- * CounterStructuredName_Portion+    CounterStructuredName_Portion+      ( CounterStructuredName_Portion_All,+        CounterStructuredName_Portion_Key,+        CounterStructuredName_Portion_Value,+        ..+      ),++    -- * DataSamplingConfig_BehaviorsItem+    DataSamplingConfig_BehaviorsItem+      ( DataSamplingConfig_BehaviorsItem_DATASAMPLINGBEHAVIORUNSPECIFIED,+        DataSamplingConfig_BehaviorsItem_Disabled,+        DataSamplingConfig_BehaviorsItem_ALWAYSON,+        DataSamplingConfig_BehaviorsItem_Exceptions,+        ..+      ),++    -- * DerivedSource_DerivationMode+    DerivedSource_DerivationMode+      ( DerivedSource_DerivationMode_SOURCEDERIVATIONMODEUNKNOWN,+        DerivedSource_DerivationMode_SOURCEDERIVATIONMODEINDEPENDENT,+        DerivedSource_DerivationMode_SOURCEDERIVATIONMODECHILDOFCURRENT,+        DerivedSource_DerivationMode_SOURCEDERIVATIONMODESIBLINGOFCURRENT,+        ..+      ),++    -- * Environment_FlexResourceSchedulingGoal+    Environment_FlexResourceSchedulingGoal+      ( Environment_FlexResourceSchedulingGoal_FLEXRSUNSPECIFIED,+        Environment_FlexResourceSchedulingGoal_FLEXRSSPEEDOPTIMIZED,+        Environment_FlexResourceSchedulingGoal_FLEXRSCOSTOPTIMIZED,+        ..+      ),++    -- * Environment_ShuffleMode+    Environment_ShuffleMode+      ( Environment_ShuffleMode_SHUFFLEMODEUNSPECIFIED,+        Environment_ShuffleMode_VMBASED,+        Environment_ShuffleMode_SERVICEBASED,+        ..+      ),++    -- * Environment_StreamingMode+    Environment_StreamingMode+      ( Environment_StreamingMode_STREAMINGMODEUNSPECIFIED,+        Environment_StreamingMode_STREAMINGMODEEXACTLYONCE,+        Environment_StreamingMode_STREAMINGMODEATLEASTONCE,+        ..+      ),++    -- * ExecutionStageState_ExecutionStageState+    ExecutionStageState_ExecutionStageState+      ( ExecutionStageState_ExecutionStageState_JOBSTATEUNKNOWN,+        ExecutionStageState_ExecutionStageState_JOBSTATESTOPPED,+        ExecutionStageState_ExecutionStageState_JOBSTATERUNNING,+        ExecutionStageState_ExecutionStageState_JOBSTATEDONE,+        ExecutionStageState_ExecutionStageState_JOBSTATEFAILED,+        ExecutionStageState_ExecutionStageState_JOBSTATECANCELLED,+        ExecutionStageState_ExecutionStageState_JOBSTATEUPDATED,+        ExecutionStageState_ExecutionStageState_JOBSTATEDRAINING,+        ExecutionStageState_ExecutionStageState_JOBSTATEDRAINED,+        ExecutionStageState_ExecutionStageState_JOBSTATEPENDING,+        ExecutionStageState_ExecutionStageState_JOBSTATECANCELLING,+        ExecutionStageState_ExecutionStageState_JOBSTATEQUEUED,+        ExecutionStageState_ExecutionStageState_JOBSTATERESOURCECLEANINGUP,+        ..+      ),++    -- * ExecutionStageSummary_Kind+    ExecutionStageSummary_Kind+      ( ExecutionStageSummary_Kind_UNKNOWNKIND,+        ExecutionStageSummary_Kind_PARDOKIND,+        ExecutionStageSummary_Kind_GROUPBYKEYKIND,+        ExecutionStageSummary_Kind_FLATTENKIND,+        ExecutionStageSummary_Kind_READKIND,+        ExecutionStageSummary_Kind_WRITEKIND,+        ExecutionStageSummary_Kind_CONSTANTKIND,+        ExecutionStageSummary_Kind_SINGLETONKIND,+        ExecutionStageSummary_Kind_SHUFFLEKIND,+        ..+      ),++    -- * FlexTemplateRuntimeEnvironment_AutoscalingAlgorithm+    FlexTemplateRuntimeEnvironment_AutoscalingAlgorithm+      ( FlexTemplateRuntimeEnvironment_AutoscalingAlgorithm_AUTOSCALINGALGORITHMUNKNOWN,+        FlexTemplateRuntimeEnvironment_AutoscalingAlgorithm_AUTOSCALINGALGORITHMNONE,+        FlexTemplateRuntimeEnvironment_AutoscalingAlgorithm_AUTOSCALINGALGORITHMBASIC,+        ..+      ),++    -- * FlexTemplateRuntimeEnvironment_FlexrsGoal+    FlexTemplateRuntimeEnvironment_FlexrsGoal+      ( FlexTemplateRuntimeEnvironment_FlexrsGoal_FLEXRSUNSPECIFIED,+        FlexTemplateRuntimeEnvironment_FlexrsGoal_FLEXRSSPEEDOPTIMIZED,+        FlexTemplateRuntimeEnvironment_FlexrsGoal_FLEXRSCOSTOPTIMIZED,+        ..+      ),++    -- * FlexTemplateRuntimeEnvironment_IpConfiguration+    FlexTemplateRuntimeEnvironment_IpConfiguration+      ( FlexTemplateRuntimeEnvironment_IpConfiguration_WORKERIPUNSPECIFIED,+        FlexTemplateRuntimeEnvironment_IpConfiguration_WORKERIPPUBLIC,+        FlexTemplateRuntimeEnvironment_IpConfiguration_WORKERIPPRIVATE,+        ..+      ),++    -- * FlexTemplateRuntimeEnvironment_StreamingMode+    FlexTemplateRuntimeEnvironment_StreamingMode+      ( FlexTemplateRuntimeEnvironment_StreamingMode_STREAMINGMODEUNSPECIFIED,+        FlexTemplateRuntimeEnvironment_StreamingMode_STREAMINGMODEEXACTLYONCE,+        FlexTemplateRuntimeEnvironment_StreamingMode_STREAMINGMODEATLEASTONCE,+        ..+      ),++    -- * GetTemplateResponse_TemplateType+    GetTemplateResponse_TemplateType+      ( GetTemplateResponse_TemplateType_Unknown,+        GetTemplateResponse_TemplateType_Legacy,+        GetTemplateResponse_TemplateType_Flex,+        ..+      ),++    -- * Job_CurrentState+    Job_CurrentState+      ( Job_CurrentState_JOBSTATEUNKNOWN,+        Job_CurrentState_JOBSTATESTOPPED,+        Job_CurrentState_JOBSTATERUNNING,+        Job_CurrentState_JOBSTATEDONE,+        Job_CurrentState_JOBSTATEFAILED,+        Job_CurrentState_JOBSTATECANCELLED,+        Job_CurrentState_JOBSTATEUPDATED,+        Job_CurrentState_JOBSTATEDRAINING,+        Job_CurrentState_JOBSTATEDRAINED,+        Job_CurrentState_JOBSTATEPENDING,+        Job_CurrentState_JOBSTATECANCELLING,+        Job_CurrentState_JOBSTATEQUEUED,+        Job_CurrentState_JOBSTATERESOURCECLEANINGUP,+        ..+      ),++    -- * Job_RequestedState+    Job_RequestedState+      ( Job_RequestedState_JOBSTATEUNKNOWN,+        Job_RequestedState_JOBSTATESTOPPED,+        Job_RequestedState_JOBSTATERUNNING,+        Job_RequestedState_JOBSTATEDONE,+        Job_RequestedState_JOBSTATEFAILED,+        Job_RequestedState_JOBSTATECANCELLED,+        Job_RequestedState_JOBSTATEUPDATED,+        Job_RequestedState_JOBSTATEDRAINING,+        Job_RequestedState_JOBSTATEDRAINED,+        Job_RequestedState_JOBSTATEPENDING,+        Job_RequestedState_JOBSTATECANCELLING,+        Job_RequestedState_JOBSTATEQUEUED,+        Job_RequestedState_JOBSTATERESOURCECLEANINGUP,+        ..+      ),++    -- * Job_Type+    Job_Type+      ( Job_Type_JOBTYPEUNKNOWN,+        Job_Type_JOBTYPEBATCH,+        Job_Type_JOBTYPESTREAMING,+        ..+      ),++    -- * JobMessage_MessageImportance+    JobMessage_MessageImportance+      ( JobMessage_MessageImportance_JOBMESSAGEIMPORTANCEUNKNOWN,+        JobMessage_MessageImportance_JOBMESSAGEDEBUG,+        JobMessage_MessageImportance_JOBMESSAGEDETAILED,+        JobMessage_MessageImportance_JOBMESSAGEBASIC,+        JobMessage_MessageImportance_JOBMESSAGEWARNING,+        JobMessage_MessageImportance_JOBMESSAGEERROR,+        ..+      ),++    -- * NameAndKind_Kind+    NameAndKind_Kind+      ( NameAndKind_Kind_Invalid,+        NameAndKind_Kind_Sum,+        NameAndKind_Kind_Max,+        NameAndKind_Kind_Min,+        NameAndKind_Kind_Mean,+        NameAndKind_Kind_OR,+        NameAndKind_Kind_And,+        NameAndKind_Kind_Set,+        NameAndKind_Kind_Distribution,+        NameAndKind_Kind_LATESTVALUE,+        ..+      ),++    -- * ParameterMetadata_ParamType+    ParameterMetadata_ParamType+      ( ParameterMetadata_ParamType_Default,+        ParameterMetadata_ParamType_Text,+        ParameterMetadata_ParamType_GCSREADBUCKET,+        ParameterMetadata_ParamType_GCSWRITEBUCKET,+        ParameterMetadata_ParamType_GCSREADFILE,+        ParameterMetadata_ParamType_GCSWRITEFILE,+        ParameterMetadata_ParamType_GCSREADFOLDER,+        ParameterMetadata_ParamType_GCSWRITEFOLDER,+        ParameterMetadata_ParamType_PUBSUBTOPIC,+        ParameterMetadata_ParamType_PUBSUBSUBSCRIPTION,+        ParameterMetadata_ParamType_BIGQUERYTABLE,+        ParameterMetadata_ParamType_JAVASCRIPTUDFFILE,+        ParameterMetadata_ParamType_SERVICEACCOUNT,+        ParameterMetadata_ParamType_MACHINETYPE,+        ParameterMetadata_ParamType_KMSKEYNAME,+        ParameterMetadata_ParamType_WORKERREGION,+        ParameterMetadata_ParamType_WORKERZONE,+        ParameterMetadata_ParamType_Boolean,+        ParameterMetadata_ParamType_Enum',+        ParameterMetadata_ParamType_Number,+        ParameterMetadata_ParamType_KAFKATOPIC,+        ParameterMetadata_ParamType_KAFKAREADTOPIC,+        ParameterMetadata_ParamType_KAFKAWRITETOPIC,+        ..+      ),++    -- * RuntimeEnvironment_IpConfiguration+    RuntimeEnvironment_IpConfiguration+      ( RuntimeEnvironment_IpConfiguration_WORKERIPUNSPECIFIED,+        RuntimeEnvironment_IpConfiguration_WORKERIPPUBLIC,+        RuntimeEnvironment_IpConfiguration_WORKERIPPRIVATE,+        ..+      ),++    -- * RuntimeEnvironment_StreamingMode+    RuntimeEnvironment_StreamingMode+      ( RuntimeEnvironment_StreamingMode_STREAMINGMODEUNSPECIFIED,+        RuntimeEnvironment_StreamingMode_STREAMINGMODEEXACTLYONCE,+        RuntimeEnvironment_StreamingMode_STREAMINGMODEATLEASTONCE,+        ..+      ),++    -- * SDKInfo_Language+    SDKInfo_Language+      ( SDKInfo_Language_Unknown,+        SDKInfo_Language_Java,+        SDKInfo_Language_Python,+        SDKInfo_Language_GO,+        SDKInfo_Language_Yaml,+        ..+      ),++    -- * SdkBug_Severity+    SdkBug_Severity+      ( SdkBug_Severity_SEVERITYUNSPECIFIED,+        SdkBug_Severity_Notice,+        SdkBug_Severity_Warning,+        SdkBug_Severity_Severe,+        ..+      ),++    -- * SdkBug_Type+    SdkBug_Type+      ( SdkBug_Type_TYPEUNSPECIFIED,+        SdkBug_Type_General,+        SdkBug_Type_Performance,+        SdkBug_Type_Dataloss,+        ..+      ),++    -- * SdkVersion_SdkSupportStatus+    SdkVersion_SdkSupportStatus+      ( SdkVersion_SdkSupportStatus_Unknown,+        SdkVersion_SdkSupportStatus_Supported,+        SdkVersion_SdkSupportStatus_Stale,+        SdkVersion_SdkSupportStatus_Deprecated,+        SdkVersion_SdkSupportStatus_Unsupported,+        ..+      ),++    -- * SendDebugCaptureRequest_DataFormat+    SendDebugCaptureRequest_DataFormat+      ( SendDebugCaptureRequest_DataFormat_DATAFORMATUNSPECIFIED,+        SendDebugCaptureRequest_DataFormat_Raw,+        SendDebugCaptureRequest_DataFormat_Json,+        SendDebugCaptureRequest_DataFormat_Zlib,+        SendDebugCaptureRequest_DataFormat_Brotli,+        ..+      ),++    -- * Snapshot_State+    Snapshot_State+      ( Snapshot_State_UNKNOWNSNAPSHOTSTATE,+        Snapshot_State_Pending,+        Snapshot_State_Running,+        Snapshot_State_Ready,+        Snapshot_State_Failed,+        Snapshot_State_Deleted,+        ..+      ),++    -- * SourceSplitResponse_Outcome+    SourceSplitResponse_Outcome+      ( SourceSplitResponse_Outcome_SOURCESPLITOUTCOMEUNKNOWN,+        SourceSplitResponse_Outcome_SOURCESPLITOUTCOMEUSECURRENT,+        SourceSplitResponse_Outcome_SOURCESPLITOUTCOMESPLITTINGHAPPENED,+        ..+      ),++    -- * SourceSplitShard_DerivationMode+    SourceSplitShard_DerivationMode+      ( SourceSplitShard_DerivationMode_SOURCEDERIVATIONMODEUNKNOWN,+        SourceSplitShard_DerivationMode_SOURCEDERIVATIONMODEINDEPENDENT,+        SourceSplitShard_DerivationMode_SOURCEDERIVATIONMODECHILDOFCURRENT,+        SourceSplitShard_DerivationMode_SOURCEDERIVATIONMODESIBLINGOFCURRENT,+        ..+      ),++    -- * StageSummary_State+    StageSummary_State+      ( StageSummary_State_EXECUTIONSTATEUNKNOWN,+        StageSummary_State_EXECUTIONSTATENOTSTARTED,+        StageSummary_State_EXECUTIONSTATERUNNING,+        StageSummary_State_EXECUTIONSTATESUCCEEDED,+        StageSummary_State_EXECUTIONSTATEFAILED,+        StageSummary_State_EXECUTIONSTATECANCELLED,+        ..+      ),++    -- * StreamingComputationTask_TaskType+    StreamingComputationTask_TaskType+      ( StreamingComputationTask_TaskType_STREAMINGCOMPUTATIONTASKUNKNOWN,+        StreamingComputationTask_TaskType_STREAMINGCOMPUTATIONTASKSTOP,+        StreamingComputationTask_TaskType_STREAMINGCOMPUTATIONTASKSTART,+        ..+      ),++    -- * TransformSummary_Kind+    TransformSummary_Kind+      ( TransformSummary_Kind_UNKNOWNKIND,+        TransformSummary_Kind_PARDOKIND,+        TransformSummary_Kind_GROUPBYKEYKIND,+        TransformSummary_Kind_FLATTENKIND,+        TransformSummary_Kind_READKIND,+        TransformSummary_Kind_WRITEKIND,+        TransformSummary_Kind_CONSTANTKIND,+        TransformSummary_Kind_SINGLETONKIND,+        TransformSummary_Kind_SHUFFLEKIND,+        ..+      ),++    -- * WorkItemDetails_State+    WorkItemDetails_State+      ( WorkItemDetails_State_EXECUTIONSTATEUNKNOWN,+        WorkItemDetails_State_EXECUTIONSTATENOTSTARTED,+        WorkItemDetails_State_EXECUTIONSTATERUNNING,+        WorkItemDetails_State_EXECUTIONSTATESUCCEEDED,+        WorkItemDetails_State_EXECUTIONSTATEFAILED,+        WorkItemDetails_State_EXECUTIONSTATECANCELLED,+        ..+      ),++    -- * WorkerLifecycleEvent_Event+    WorkerLifecycleEvent_Event+      ( WorkerLifecycleEvent_Event_UNKNOWNEVENT,+        WorkerLifecycleEvent_Event_OSSTART,+        WorkerLifecycleEvent_Event_CONTAINERSTART,+        WorkerLifecycleEvent_Event_NETWORKUP,+        WorkerLifecycleEvent_Event_STAGINGFILESDOWNLOADSTART,+        WorkerLifecycleEvent_Event_STAGINGFILESDOWNLOADFINISH,+        WorkerLifecycleEvent_Event_SDKINSTALLSTART,+        WorkerLifecycleEvent_Event_SDKINSTALLFINISH,+        ..+      ),++    -- * WorkerPool_DefaultPackageSet+    WorkerPool_DefaultPackageSet+      ( WorkerPool_DefaultPackageSet_DEFAULTPACKAGESETUNKNOWN,+        WorkerPool_DefaultPackageSet_DEFAULTPACKAGESETNONE,+        WorkerPool_DefaultPackageSet_DEFAULTPACKAGESETJAVA,+        WorkerPool_DefaultPackageSet_DEFAULTPACKAGESETPYTHON,+        ..+      ),++    -- * WorkerPool_IpConfiguration+    WorkerPool_IpConfiguration+      ( WorkerPool_IpConfiguration_WORKERIPUNSPECIFIED,+        WorkerPool_IpConfiguration_WORKERIPPUBLIC,+        WorkerPool_IpConfiguration_WORKERIPPRIVATE,+        ..+      ),++    -- * WorkerPool_TeardownPolicy+    WorkerPool_TeardownPolicy+      ( WorkerPool_TeardownPolicy_TEARDOWNPOLICYUNKNOWN,+        WorkerPool_TeardownPolicy_TEARDOWNALWAYS,+        WorkerPool_TeardownPolicy_TEARDOWNONSUCCESS,+        WorkerPool_TeardownPolicy_TEARDOWNNEVER,+        ..+      ),++    -- * ProjectsJobsAggregatedFilter+    ProjectsJobsAggregatedFilter+      ( ProjectsJobsAggregatedFilter_Unknown,+        ProjectsJobsAggregatedFilter_All,+        ProjectsJobsAggregatedFilter_Terminated,+        ProjectsJobsAggregatedFilter_Active,+        ..+      ),++    -- * ProjectsJobsAggregatedView+    ProjectsJobsAggregatedView+      ( ProjectsJobsAggregatedView_JOBVIEWUNKNOWN,+        ProjectsJobsAggregatedView_JOBVIEWSUMMARY,+        ProjectsJobsAggregatedView_JOBVIEWALL,+        ProjectsJobsAggregatedView_JOBVIEWDESCRIPTION,+        ..+      ),++    -- * ProjectsJobsCreateView+    ProjectsJobsCreateView+      ( ProjectsJobsCreateView_JOBVIEWUNKNOWN,+        ProjectsJobsCreateView_JOBVIEWSUMMARY,+        ProjectsJobsCreateView_JOBVIEWALL,+        ProjectsJobsCreateView_JOBVIEWDESCRIPTION,+        ..+      ),++    -- * ProjectsJobsGetView+    ProjectsJobsGetView+      ( ProjectsJobsGetView_JOBVIEWUNKNOWN,+        ProjectsJobsGetView_JOBVIEWSUMMARY,+        ProjectsJobsGetView_JOBVIEWALL,+        ProjectsJobsGetView_JOBVIEWDESCRIPTION,+        ..+      ),++    -- * ProjectsJobsListFilter+    ProjectsJobsListFilter+      ( ProjectsJobsListFilter_Unknown,+        ProjectsJobsListFilter_All,+        ProjectsJobsListFilter_Terminated,+        ProjectsJobsListFilter_Active,+        ..+      ),++    -- * ProjectsJobsListView+    ProjectsJobsListView+      ( ProjectsJobsListView_JOBVIEWUNKNOWN,+        ProjectsJobsListView_JOBVIEWSUMMARY,+        ProjectsJobsListView_JOBVIEWALL,+        ProjectsJobsListView_JOBVIEWDESCRIPTION,+        ..+      ),++    -- * ProjectsJobsMessagesListMinimumImportance+    ProjectsJobsMessagesListMinimumImportance+      ( ProjectsJobsMessagesListMinimumImportance_JOBMESSAGEIMPORTANCEUNKNOWN,+        ProjectsJobsMessagesListMinimumImportance_JOBMESSAGEDEBUG,+        ProjectsJobsMessagesListMinimumImportance_JOBMESSAGEDETAILED,+        ProjectsJobsMessagesListMinimumImportance_JOBMESSAGEBASIC,+        ProjectsJobsMessagesListMinimumImportance_JOBMESSAGEWARNING,+        ProjectsJobsMessagesListMinimumImportance_JOBMESSAGEERROR,+        ..+      ),++    -- * ProjectsLocationsJobsCreateView+    ProjectsLocationsJobsCreateView+      ( ProjectsLocationsJobsCreateView_JOBVIEWUNKNOWN,+        ProjectsLocationsJobsCreateView_JOBVIEWSUMMARY,+        ProjectsLocationsJobsCreateView_JOBVIEWALL,+        ProjectsLocationsJobsCreateView_JOBVIEWDESCRIPTION,+        ..+      ),++    -- * ProjectsLocationsJobsGetView+    ProjectsLocationsJobsGetView+      ( ProjectsLocationsJobsGetView_JOBVIEWUNKNOWN,+        ProjectsLocationsJobsGetView_JOBVIEWSUMMARY,+        ProjectsLocationsJobsGetView_JOBVIEWALL,+        ProjectsLocationsJobsGetView_JOBVIEWDESCRIPTION,+        ..+      ),++    -- * ProjectsLocationsJobsListFilter+    ProjectsLocationsJobsListFilter+      ( ProjectsLocationsJobsListFilter_Unknown,+        ProjectsLocationsJobsListFilter_All,+        ProjectsLocationsJobsListFilter_Terminated,+        ProjectsLocationsJobsListFilter_Active,+        ..+      ),++    -- * ProjectsLocationsJobsListView+    ProjectsLocationsJobsListView+      ( ProjectsLocationsJobsListView_JOBVIEWUNKNOWN,+        ProjectsLocationsJobsListView_JOBVIEWSUMMARY,+        ProjectsLocationsJobsListView_JOBVIEWALL,+        ProjectsLocationsJobsListView_JOBVIEWDESCRIPTION,+        ..+      ),++    -- * ProjectsLocationsJobsMessagesListMinimumImportance+    ProjectsLocationsJobsMessagesListMinimumImportance+      ( ProjectsLocationsJobsMessagesListMinimumImportance_JOBMESSAGEIMPORTANCEUNKNOWN,+        ProjectsLocationsJobsMessagesListMinimumImportance_JOBMESSAGEDEBUG,+        ProjectsLocationsJobsMessagesListMinimumImportance_JOBMESSAGEDETAILED,+        ProjectsLocationsJobsMessagesListMinimumImportance_JOBMESSAGEBASIC,+        ProjectsLocationsJobsMessagesListMinimumImportance_JOBMESSAGEWARNING,+        ProjectsLocationsJobsMessagesListMinimumImportance_JOBMESSAGEERROR,+        ..+      ),++    -- * ProjectsLocationsTemplatesGetView+    ProjectsLocationsTemplatesGetView+      ( ProjectsLocationsTemplatesGetView_METADATAONLY,+        ..+      ),++    -- * ProjectsTemplatesGetView+    ProjectsTemplatesGetView+      ( ProjectsTemplatesGetView_METADATAONLY,+        ..+      ),+  )+where++import Gogol.Prelude qualified as Core++-- | V1 error format.+newtype Xgafv = Xgafv {fromXgafv :: Core.Text}+  deriving stock (Core.Show, Core.Read, Core.Eq, Core.Ord, Core.Generic)+  deriving newtype+    ( Core.Hashable,+      Core.ToHttpApiData,+      Core.FromHttpApiData,+      Core.ToJSON,+      Core.ToJSONKey,+      Core.FromJSON,+      Core.FromJSONKey+    )++-- | v1 error format+pattern Xgafv_1 :: Xgafv+pattern Xgafv_1 = Xgafv "1"++-- | v2 error format+pattern Xgafv_2 :: Xgafv+pattern Xgafv_2 = Xgafv "2"++{-# COMPLETE+  Xgafv_1,+  Xgafv_2,+  Xgafv+  #-}++-- | The type of autoscaling event to report.+newtype AutoscalingEvent_EventType = AutoscalingEvent_EventType {fromAutoscalingEvent_EventType :: Core.Text}+  deriving stock (Core.Show, Core.Read, Core.Eq, Core.Ord, Core.Generic)+  deriving newtype+    ( Core.Hashable,+      Core.ToHttpApiData,+      Core.FromHttpApiData,+      Core.ToJSON,+      Core.ToJSONKey,+      Core.FromJSON,+      Core.FromJSONKey+    )++-- | Default type for the enum. Value should never be returned.+pattern AutoscalingEvent_EventType_TYPEUNKNOWN :: AutoscalingEvent_EventType+pattern AutoscalingEvent_EventType_TYPEUNKNOWN = AutoscalingEvent_EventType "TYPE_UNKNOWN"++-- | The TARGET/NUM/WORKERS/CHANGED type should be used when the target worker pool size has changed at the start of an actuation. An event should always be specified as TARGET/NUM/WORKERS/CHANGED if it reflects a change in the target/num/workers.+pattern AutoscalingEvent_EventType_TARGETNUMWORKERSCHANGED :: AutoscalingEvent_EventType+pattern AutoscalingEvent_EventType_TARGETNUMWORKERSCHANGED = AutoscalingEvent_EventType "TARGET_NUM_WORKERS_CHANGED"++-- | The CURRENT/NUM/WORKERS/CHANGED type should be used when actual worker pool size has been changed, but the target/num_workers has not changed.+pattern AutoscalingEvent_EventType_CURRENTNUMWORKERSCHANGED :: AutoscalingEvent_EventType+pattern AutoscalingEvent_EventType_CURRENTNUMWORKERSCHANGED = AutoscalingEvent_EventType "CURRENT_NUM_WORKERS_CHANGED"++-- | The ACTUATION_FAILURE type should be used when we want to report an error to the user indicating why the current number of workers in the pool could not be changed. Displayed in the current status and history widgets.+pattern AutoscalingEvent_EventType_ACTUATIONFAILURE :: AutoscalingEvent_EventType+pattern AutoscalingEvent_EventType_ACTUATIONFAILURE = AutoscalingEvent_EventType "ACTUATION_FAILURE"++-- | Used when we want to report to the user a reason why we are not currently adjusting the number of workers. Should specify both target/num/workers, current/num/workers and a decision_message.+pattern AutoscalingEvent_EventType_NOCHANGE :: AutoscalingEvent_EventType+pattern AutoscalingEvent_EventType_NOCHANGE = AutoscalingEvent_EventType "NO_CHANGE"++{-# COMPLETE+  AutoscalingEvent_EventType_TYPEUNKNOWN,+  AutoscalingEvent_EventType_TARGETNUMWORKERSCHANGED,+  AutoscalingEvent_EventType_CURRENTNUMWORKERSCHANGED,+  AutoscalingEvent_EventType_ACTUATIONFAILURE,+  AutoscalingEvent_EventType_NOCHANGE,+  AutoscalingEvent_EventType+  #-}++-- | The algorithm to use for autoscaling.+newtype AutoscalingSettings_Algorithm = AutoscalingSettings_Algorithm {fromAutoscalingSettings_Algorithm :: Core.Text}+  deriving stock (Core.Show, Core.Read, Core.Eq, Core.Ord, Core.Generic)+  deriving newtype+    ( Core.Hashable,+      Core.ToHttpApiData,+      Core.FromHttpApiData,+      Core.ToJSON,+      Core.ToJSONKey,+      Core.FromJSON,+      Core.FromJSONKey+    )++-- | The algorithm is unknown, or unspecified.+pattern AutoscalingSettings_Algorithm_AUTOSCALINGALGORITHMUNKNOWN :: AutoscalingSettings_Algorithm+pattern AutoscalingSettings_Algorithm_AUTOSCALINGALGORITHMUNKNOWN = AutoscalingSettings_Algorithm "AUTOSCALING_ALGORITHM_UNKNOWN"++-- | Disable autoscaling.+pattern AutoscalingSettings_Algorithm_AUTOSCALINGALGORITHMNONE :: AutoscalingSettings_Algorithm+pattern AutoscalingSettings_Algorithm_AUTOSCALINGALGORITHMNONE = AutoscalingSettings_Algorithm "AUTOSCALING_ALGORITHM_NONE"++-- | Increase worker count over time to reduce job execution time.+pattern AutoscalingSettings_Algorithm_AUTOSCALINGALGORITHMBASIC :: AutoscalingSettings_Algorithm+pattern AutoscalingSettings_Algorithm_AUTOSCALINGALGORITHMBASIC = AutoscalingSettings_Algorithm "AUTOSCALING_ALGORITHM_BASIC"++{-# COMPLETE+  AutoscalingSettings_Algorithm_AUTOSCALINGALGORITHMUNKNOWN,+  AutoscalingSettings_Algorithm_AUTOSCALINGALGORITHMNONE,+  AutoscalingSettings_Algorithm_AUTOSCALINGALGORITHMBASIC,+  AutoscalingSettings_Algorithm+  #-}++-- | Counter aggregation kind.+newtype CounterMetadata_Kind = CounterMetadata_Kind {fromCounterMetadata_Kind :: Core.Text}+  deriving stock (Core.Show, Core.Read, Core.Eq, Core.Ord, Core.Generic)+  deriving newtype+    ( Core.Hashable,+      Core.ToHttpApiData,+      Core.FromHttpApiData,+      Core.ToJSON,+      Core.ToJSONKey,+      Core.FromJSON,+      Core.FromJSONKey+    )++-- | Counter aggregation kind was not set.+pattern CounterMetadata_Kind_Invalid :: CounterMetadata_Kind+pattern CounterMetadata_Kind_Invalid = CounterMetadata_Kind "INVALID"++-- | Aggregated value is the sum of all contributed values.+pattern CounterMetadata_Kind_Sum :: CounterMetadata_Kind+pattern CounterMetadata_Kind_Sum = CounterMetadata_Kind "SUM"++-- | Aggregated value is the max of all contributed values.+pattern CounterMetadata_Kind_Max :: CounterMetadata_Kind+pattern CounterMetadata_Kind_Max = CounterMetadata_Kind "MAX"++-- | Aggregated value is the min of all contributed values.+pattern CounterMetadata_Kind_Min :: CounterMetadata_Kind+pattern CounterMetadata_Kind_Min = CounterMetadata_Kind "MIN"++-- | Aggregated value is the mean of all contributed values.+pattern CounterMetadata_Kind_Mean :: CounterMetadata_Kind+pattern CounterMetadata_Kind_Mean = CounterMetadata_Kind "MEAN"++-- | Aggregated value represents the logical \'or\' of all contributed values.+pattern CounterMetadata_Kind_OR :: CounterMetadata_Kind+pattern CounterMetadata_Kind_OR = CounterMetadata_Kind "OR"++-- | Aggregated value represents the logical \'and\' of all contributed values.+pattern CounterMetadata_Kind_And :: CounterMetadata_Kind+pattern CounterMetadata_Kind_And = CounterMetadata_Kind "AND"++-- | Aggregated value is a set of unique contributed values.+pattern CounterMetadata_Kind_Set :: CounterMetadata_Kind+pattern CounterMetadata_Kind_Set = CounterMetadata_Kind "SET"++-- | Aggregated value captures statistics about a distribution.+pattern CounterMetadata_Kind_Distribution :: CounterMetadata_Kind+pattern CounterMetadata_Kind_Distribution = CounterMetadata_Kind "DISTRIBUTION"++-- | Aggregated value tracks the latest value of a variable.+pattern CounterMetadata_Kind_LATESTVALUE :: CounterMetadata_Kind+pattern CounterMetadata_Kind_LATESTVALUE = CounterMetadata_Kind "LATEST_VALUE"++{-# COMPLETE+  CounterMetadata_Kind_Invalid,+  CounterMetadata_Kind_Sum,+  CounterMetadata_Kind_Max,+  CounterMetadata_Kind_Min,+  CounterMetadata_Kind_Mean,+  CounterMetadata_Kind_OR,+  CounterMetadata_Kind_And,+  CounterMetadata_Kind_Set,+  CounterMetadata_Kind_Distribution,+  CounterMetadata_Kind_LATESTVALUE,+  CounterMetadata_Kind+  #-}++-- | System defined Units, see above enum.+newtype CounterMetadata_StandardUnits = CounterMetadata_StandardUnits {fromCounterMetadata_StandardUnits :: Core.Text}+  deriving stock (Core.Show, Core.Read, Core.Eq, Core.Ord, Core.Generic)+  deriving newtype+    ( Core.Hashable,+      Core.ToHttpApiData,+      Core.FromHttpApiData,+      Core.ToJSON,+      Core.ToJSONKey,+      Core.FromJSON,+      Core.FromJSONKey+    )++-- | Counter returns a value in bytes.+pattern CounterMetadata_StandardUnits_Bytes :: CounterMetadata_StandardUnits+pattern CounterMetadata_StandardUnits_Bytes = CounterMetadata_StandardUnits "BYTES"++-- | Counter returns a value in bytes per second.+pattern CounterMetadata_StandardUnits_BYTESPERSEC :: CounterMetadata_StandardUnits+pattern CounterMetadata_StandardUnits_BYTESPERSEC = CounterMetadata_StandardUnits "BYTES_PER_SEC"++-- | Counter returns a value in milliseconds.+pattern CounterMetadata_StandardUnits_Milliseconds :: CounterMetadata_StandardUnits+pattern CounterMetadata_StandardUnits_Milliseconds = CounterMetadata_StandardUnits "MILLISECONDS"++-- | Counter returns a value in microseconds.+pattern CounterMetadata_StandardUnits_Microseconds :: CounterMetadata_StandardUnits+pattern CounterMetadata_StandardUnits_Microseconds = CounterMetadata_StandardUnits "MICROSECONDS"++-- | Counter returns a value in nanoseconds.+pattern CounterMetadata_StandardUnits_Nanoseconds :: CounterMetadata_StandardUnits+pattern CounterMetadata_StandardUnits_Nanoseconds = CounterMetadata_StandardUnits "NANOSECONDS"++-- | Counter returns a timestamp in milliseconds.+pattern CounterMetadata_StandardUnits_TIMESTAMPMSEC :: CounterMetadata_StandardUnits+pattern CounterMetadata_StandardUnits_TIMESTAMPMSEC = CounterMetadata_StandardUnits "TIMESTAMP_MSEC"++-- | Counter returns a timestamp in microseconds.+pattern CounterMetadata_StandardUnits_TIMESTAMPUSEC :: CounterMetadata_StandardUnits+pattern CounterMetadata_StandardUnits_TIMESTAMPUSEC = CounterMetadata_StandardUnits "TIMESTAMP_USEC"++-- | Counter returns a timestamp in nanoseconds.+pattern CounterMetadata_StandardUnits_TIMESTAMPNSEC :: CounterMetadata_StandardUnits+pattern CounterMetadata_StandardUnits_TIMESTAMPNSEC = CounterMetadata_StandardUnits "TIMESTAMP_NSEC"++{-# COMPLETE+  CounterMetadata_StandardUnits_Bytes,+  CounterMetadata_StandardUnits_BYTESPERSEC,+  CounterMetadata_StandardUnits_Milliseconds,+  CounterMetadata_StandardUnits_Microseconds,+  CounterMetadata_StandardUnits_Nanoseconds,+  CounterMetadata_StandardUnits_TIMESTAMPMSEC,+  CounterMetadata_StandardUnits_TIMESTAMPUSEC,+  CounterMetadata_StandardUnits_TIMESTAMPNSEC,+  CounterMetadata_StandardUnits+  #-}++-- | One of the standard Origins defined above.+newtype CounterStructuredName_Origin = CounterStructuredName_Origin {fromCounterStructuredName_Origin :: Core.Text}+  deriving stock (Core.Show, Core.Read, Core.Eq, Core.Ord, Core.Generic)+  deriving newtype+    ( Core.Hashable,+      Core.ToHttpApiData,+      Core.FromHttpApiData,+      Core.ToJSON,+      Core.ToJSONKey,+      Core.FromJSON,+      Core.FromJSONKey+    )++-- | Counter was created by the Dataflow system.+pattern CounterStructuredName_Origin_System :: CounterStructuredName_Origin+pattern CounterStructuredName_Origin_System = CounterStructuredName_Origin "SYSTEM"++-- | Counter was created by the user.+pattern CounterStructuredName_Origin_User :: CounterStructuredName_Origin+pattern CounterStructuredName_Origin_User = CounterStructuredName_Origin "USER"++{-# COMPLETE+  CounterStructuredName_Origin_System,+  CounterStructuredName_Origin_User,+  CounterStructuredName_Origin+  #-}++-- | Portion of this counter, either key or value.+newtype CounterStructuredName_Portion = CounterStructuredName_Portion {fromCounterStructuredName_Portion :: Core.Text}+  deriving stock (Core.Show, Core.Read, Core.Eq, Core.Ord, Core.Generic)+  deriving newtype+    ( Core.Hashable,+      Core.ToHttpApiData,+      Core.FromHttpApiData,+      Core.ToJSON,+      Core.ToJSONKey,+      Core.FromJSON,+      Core.FromJSONKey+    )++-- | Counter portion has not been set.+pattern CounterStructuredName_Portion_All :: CounterStructuredName_Portion+pattern CounterStructuredName_Portion_All = CounterStructuredName_Portion "ALL"++-- | Counter reports a key.+pattern CounterStructuredName_Portion_Key :: CounterStructuredName_Portion+pattern CounterStructuredName_Portion_Key = CounterStructuredName_Portion "KEY"++-- | Counter reports a value.+pattern CounterStructuredName_Portion_Value :: CounterStructuredName_Portion+pattern CounterStructuredName_Portion_Value = CounterStructuredName_Portion "VALUE"++{-# COMPLETE+  CounterStructuredName_Portion_All,+  CounterStructuredName_Portion_Key,+  CounterStructuredName_Portion_Value,+  CounterStructuredName_Portion+  #-}++newtype DataSamplingConfig_BehaviorsItem = DataSamplingConfig_BehaviorsItem {fromDataSamplingConfig_BehaviorsItem :: Core.Text}+  deriving stock (Core.Show, Core.Read, Core.Eq, Core.Ord, Core.Generic)+  deriving newtype+    ( Core.Hashable,+      Core.ToHttpApiData,+      Core.FromHttpApiData,+      Core.ToJSON,+      Core.ToJSONKey,+      Core.FromJSON,+      Core.FromJSONKey+    )++-- | If given, has no effect on sampling behavior. Used as an unknown or unset sentinel value.+pattern DataSamplingConfig_BehaviorsItem_DATASAMPLINGBEHAVIORUNSPECIFIED :: DataSamplingConfig_BehaviorsItem+pattern DataSamplingConfig_BehaviorsItem_DATASAMPLINGBEHAVIORUNSPECIFIED = DataSamplingConfig_BehaviorsItem "DATA_SAMPLING_BEHAVIOR_UNSPECIFIED"++-- | When given, disables element sampling. Has same behavior as not setting the behavior.+pattern DataSamplingConfig_BehaviorsItem_Disabled :: DataSamplingConfig_BehaviorsItem+pattern DataSamplingConfig_BehaviorsItem_Disabled = DataSamplingConfig_BehaviorsItem "DISABLED"++-- | When given, enables sampling in-flight from all PCollections.+pattern DataSamplingConfig_BehaviorsItem_ALWAYSON :: DataSamplingConfig_BehaviorsItem+pattern DataSamplingConfig_BehaviorsItem_ALWAYSON = DataSamplingConfig_BehaviorsItem "ALWAYS_ON"++-- | When given, enables sampling input elements when a user-defined DoFn causes an exception.+pattern DataSamplingConfig_BehaviorsItem_Exceptions :: DataSamplingConfig_BehaviorsItem+pattern DataSamplingConfig_BehaviorsItem_Exceptions = DataSamplingConfig_BehaviorsItem "EXCEPTIONS"++{-# COMPLETE+  DataSamplingConfig_BehaviorsItem_DATASAMPLINGBEHAVIORUNSPECIFIED,+  DataSamplingConfig_BehaviorsItem_Disabled,+  DataSamplingConfig_BehaviorsItem_ALWAYSON,+  DataSamplingConfig_BehaviorsItem_Exceptions,+  DataSamplingConfig_BehaviorsItem+  #-}++-- | What source to base the produced source on (if any).+newtype DerivedSource_DerivationMode = DerivedSource_DerivationMode {fromDerivedSource_DerivationMode :: Core.Text}+  deriving stock (Core.Show, Core.Read, Core.Eq, Core.Ord, Core.Generic)+  deriving newtype+    ( Core.Hashable,+      Core.ToHttpApiData,+      Core.FromHttpApiData,+      Core.ToJSON,+      Core.ToJSONKey,+      Core.FromJSON,+      Core.FromJSONKey+    )++-- | The source derivation is unknown, or unspecified.+pattern DerivedSource_DerivationMode_SOURCEDERIVATIONMODEUNKNOWN :: DerivedSource_DerivationMode+pattern DerivedSource_DerivationMode_SOURCEDERIVATIONMODEUNKNOWN = DerivedSource_DerivationMode "SOURCE_DERIVATION_MODE_UNKNOWN"++-- | Produce a completely independent Source with no base.+pattern DerivedSource_DerivationMode_SOURCEDERIVATIONMODEINDEPENDENT :: DerivedSource_DerivationMode+pattern DerivedSource_DerivationMode_SOURCEDERIVATIONMODEINDEPENDENT = DerivedSource_DerivationMode "SOURCE_DERIVATION_MODE_INDEPENDENT"++-- | Produce a Source based on the Source being split.+pattern DerivedSource_DerivationMode_SOURCEDERIVATIONMODECHILDOFCURRENT :: DerivedSource_DerivationMode+pattern DerivedSource_DerivationMode_SOURCEDERIVATIONMODECHILDOFCURRENT = DerivedSource_DerivationMode "SOURCE_DERIVATION_MODE_CHILD_OF_CURRENT"++-- | Produce a Source based on the base of the Source being split.+pattern DerivedSource_DerivationMode_SOURCEDERIVATIONMODESIBLINGOFCURRENT :: DerivedSource_DerivationMode+pattern DerivedSource_DerivationMode_SOURCEDERIVATIONMODESIBLINGOFCURRENT = DerivedSource_DerivationMode "SOURCE_DERIVATION_MODE_SIBLING_OF_CURRENT"++{-# COMPLETE+  DerivedSource_DerivationMode_SOURCEDERIVATIONMODEUNKNOWN,+  DerivedSource_DerivationMode_SOURCEDERIVATIONMODEINDEPENDENT,+  DerivedSource_DerivationMode_SOURCEDERIVATIONMODECHILDOFCURRENT,+  DerivedSource_DerivationMode_SOURCEDERIVATIONMODESIBLINGOFCURRENT,+  DerivedSource_DerivationMode+  #-}++-- | Optional. Which Flexible Resource Scheduling mode to run in.+newtype Environment_FlexResourceSchedulingGoal = Environment_FlexResourceSchedulingGoal {fromEnvironment_FlexResourceSchedulingGoal :: Core.Text}+  deriving stock (Core.Show, Core.Read, Core.Eq, Core.Ord, Core.Generic)+  deriving newtype+    ( Core.Hashable,+      Core.ToHttpApiData,+      Core.FromHttpApiData,+      Core.ToJSON,+      Core.ToJSONKey,+      Core.FromJSON,+      Core.FromJSONKey+    )++-- | Run in the default mode.+pattern Environment_FlexResourceSchedulingGoal_FLEXRSUNSPECIFIED :: Environment_FlexResourceSchedulingGoal+pattern Environment_FlexResourceSchedulingGoal_FLEXRSUNSPECIFIED = Environment_FlexResourceSchedulingGoal "FLEXRS_UNSPECIFIED"++-- | Optimize for lower execution time.+pattern Environment_FlexResourceSchedulingGoal_FLEXRSSPEEDOPTIMIZED :: Environment_FlexResourceSchedulingGoal+pattern Environment_FlexResourceSchedulingGoal_FLEXRSSPEEDOPTIMIZED = Environment_FlexResourceSchedulingGoal "FLEXRS_SPEED_OPTIMIZED"++-- | Optimize for lower cost.+pattern Environment_FlexResourceSchedulingGoal_FLEXRSCOSTOPTIMIZED :: Environment_FlexResourceSchedulingGoal+pattern Environment_FlexResourceSchedulingGoal_FLEXRSCOSTOPTIMIZED = Environment_FlexResourceSchedulingGoal "FLEXRS_COST_OPTIMIZED"++{-# COMPLETE+  Environment_FlexResourceSchedulingGoal_FLEXRSUNSPECIFIED,+  Environment_FlexResourceSchedulingGoal_FLEXRSSPEEDOPTIMIZED,+  Environment_FlexResourceSchedulingGoal_FLEXRSCOSTOPTIMIZED,+  Environment_FlexResourceSchedulingGoal+  #-}++-- | Output only. The shuffle mode used for the job.+newtype Environment_ShuffleMode = Environment_ShuffleMode {fromEnvironment_ShuffleMode :: Core.Text}+  deriving stock (Core.Show, Core.Read, Core.Eq, Core.Ord, Core.Generic)+  deriving newtype+    ( Core.Hashable,+      Core.ToHttpApiData,+      Core.FromHttpApiData,+      Core.ToJSON,+      Core.ToJSONKey,+      Core.FromJSON,+      Core.FromJSONKey+    )++-- | Shuffle mode information is not available.+pattern Environment_ShuffleMode_SHUFFLEMODEUNSPECIFIED :: Environment_ShuffleMode+pattern Environment_ShuffleMode_SHUFFLEMODEUNSPECIFIED = Environment_ShuffleMode "SHUFFLE_MODE_UNSPECIFIED"++-- | Shuffle is done on the worker VMs.+pattern Environment_ShuffleMode_VMBASED :: Environment_ShuffleMode+pattern Environment_ShuffleMode_VMBASED = Environment_ShuffleMode "VM_BASED"++-- | Shuffle is done on the service side.+pattern Environment_ShuffleMode_SERVICEBASED :: Environment_ShuffleMode+pattern Environment_ShuffleMode_SERVICEBASED = Environment_ShuffleMode "SERVICE_BASED"++{-# COMPLETE+  Environment_ShuffleMode_SHUFFLEMODEUNSPECIFIED,+  Environment_ShuffleMode_VMBASED,+  Environment_ShuffleMode_SERVICEBASED,+  Environment_ShuffleMode+  #-}++-- | Optional. Specifies the Streaming Engine message processing guarantees. Reduces cost and latency but might result in duplicate messages committed to storage. Designed to run simple mapping streaming ETL jobs at the lowest cost. For example, Change Data Capture (CDC) to BigQuery is a canonical use case. For more information, see <https://cloud.google.com/dataflow/docs/guides/streaming-modes Set the pipeline streaming mode>.+newtype Environment_StreamingMode = Environment_StreamingMode {fromEnvironment_StreamingMode :: Core.Text}+  deriving stock (Core.Show, Core.Read, Core.Eq, Core.Ord, Core.Generic)+  deriving newtype+    ( Core.Hashable,+      Core.ToHttpApiData,+      Core.FromHttpApiData,+      Core.ToJSON,+      Core.ToJSONKey,+      Core.FromJSON,+      Core.FromJSONKey+    )++-- | Run in the default mode.+pattern Environment_StreamingMode_STREAMINGMODEUNSPECIFIED :: Environment_StreamingMode+pattern Environment_StreamingMode_STREAMINGMODEUNSPECIFIED = Environment_StreamingMode "STREAMING_MODE_UNSPECIFIED"++-- | In this mode, message deduplication is performed against persistent state to make sure each message is processed and committed to storage exactly once.+pattern Environment_StreamingMode_STREAMINGMODEEXACTLYONCE :: Environment_StreamingMode+pattern Environment_StreamingMode_STREAMINGMODEEXACTLYONCE = Environment_StreamingMode "STREAMING_MODE_EXACTLY_ONCE"++-- | Message deduplication is not performed. Messages might be processed multiple times, and the results are applied multiple times. Note: Setting this value also enables Streaming Engine and Streaming Engine resource-based billing.+pattern Environment_StreamingMode_STREAMINGMODEATLEASTONCE :: Environment_StreamingMode+pattern Environment_StreamingMode_STREAMINGMODEATLEASTONCE = Environment_StreamingMode "STREAMING_MODE_AT_LEAST_ONCE"++{-# COMPLETE+  Environment_StreamingMode_STREAMINGMODEUNSPECIFIED,+  Environment_StreamingMode_STREAMINGMODEEXACTLYONCE,+  Environment_StreamingMode_STREAMINGMODEATLEASTONCE,+  Environment_StreamingMode+  #-}++-- | Executions stage states allow the same set of values as JobState.+newtype ExecutionStageState_ExecutionStageState = ExecutionStageState_ExecutionStageState {fromExecutionStageState_ExecutionStageState :: Core.Text}+  deriving stock (Core.Show, Core.Read, Core.Eq, Core.Ord, Core.Generic)+  deriving newtype+    ( Core.Hashable,+      Core.ToHttpApiData,+      Core.FromHttpApiData,+      Core.ToJSON,+      Core.ToJSONKey,+      Core.FromJSON,+      Core.FromJSONKey+    )++-- | The job\'s run state isn\'t specified.+pattern ExecutionStageState_ExecutionStageState_JOBSTATEUNKNOWN :: ExecutionStageState_ExecutionStageState+pattern ExecutionStageState_ExecutionStageState_JOBSTATEUNKNOWN = ExecutionStageState_ExecutionStageState "JOB_STATE_UNKNOWN"++-- | @JOB_STATE_STOPPED@ indicates that the job has not yet started to run.+pattern ExecutionStageState_ExecutionStageState_JOBSTATESTOPPED :: ExecutionStageState_ExecutionStageState+pattern ExecutionStageState_ExecutionStageState_JOBSTATESTOPPED = ExecutionStageState_ExecutionStageState "JOB_STATE_STOPPED"++-- | @JOB_STATE_RUNNING@ indicates that the job is currently running.+pattern ExecutionStageState_ExecutionStageState_JOBSTATERUNNING :: ExecutionStageState_ExecutionStageState+pattern ExecutionStageState_ExecutionStageState_JOBSTATERUNNING = ExecutionStageState_ExecutionStageState "JOB_STATE_RUNNING"++-- | @JOB_STATE_DONE@ indicates that the job has successfully completed. This is a terminal job state. This state may be set by the Cloud Dataflow service, as a transition from @JOB_STATE_RUNNING@. It may also be set via a Cloud Dataflow @UpdateJob@ call, if the job has not yet reached a terminal state.+pattern ExecutionStageState_ExecutionStageState_JOBSTATEDONE :: ExecutionStageState_ExecutionStageState+pattern ExecutionStageState_ExecutionStageState_JOBSTATEDONE = ExecutionStageState_ExecutionStageState "JOB_STATE_DONE"++-- | @JOB_STATE_FAILED@ indicates that the job has failed. This is a terminal job state. This state may only be set by the Cloud Dataflow service, and only as a transition from @JOB_STATE_RUNNING@.+pattern ExecutionStageState_ExecutionStageState_JOBSTATEFAILED :: ExecutionStageState_ExecutionStageState+pattern ExecutionStageState_ExecutionStageState_JOBSTATEFAILED = ExecutionStageState_ExecutionStageState "JOB_STATE_FAILED"++-- | @JOB_STATE_CANCELLED@ indicates that the job has been explicitly cancelled. This is a terminal job state. This state may only be set via a Cloud Dataflow @UpdateJob@ call, and only if the job has not yet reached another terminal state.+pattern ExecutionStageState_ExecutionStageState_JOBSTATECANCELLED :: ExecutionStageState_ExecutionStageState+pattern ExecutionStageState_ExecutionStageState_JOBSTATECANCELLED = ExecutionStageState_ExecutionStageState "JOB_STATE_CANCELLED"++-- | @JOB_STATE_UPDATED@ indicates that the job was successfully updated, meaning that this job was stopped and another job was started, inheriting state from this one. This is a terminal job state. This state may only be set by the Cloud Dataflow service, and only as a transition from @JOB_STATE_RUNNING@.+pattern ExecutionStageState_ExecutionStageState_JOBSTATEUPDATED :: ExecutionStageState_ExecutionStageState+pattern ExecutionStageState_ExecutionStageState_JOBSTATEUPDATED = ExecutionStageState_ExecutionStageState "JOB_STATE_UPDATED"++-- | @JOB_STATE_DRAINING@ indicates that the job is in the process of draining. A draining job has stopped pulling from its input sources and is processing any data that remains in-flight. This state may be set via a Cloud Dataflow @UpdateJob@ call, but only as a transition from @JOB_STATE_RUNNING@. Jobs that are draining may only transition to @JOB_STATE_DRAINED@, @JOB_STATE_CANCELLED@, or @JOB_STATE_FAILED@.+pattern ExecutionStageState_ExecutionStageState_JOBSTATEDRAINING :: ExecutionStageState_ExecutionStageState+pattern ExecutionStageState_ExecutionStageState_JOBSTATEDRAINING = ExecutionStageState_ExecutionStageState "JOB_STATE_DRAINING"++-- | @JOB_STATE_DRAINED@ indicates that the job has been drained. A drained job terminated by stopping pulling from its input sources and processing any data that remained in-flight when draining was requested. This state is a terminal state, may only be set by the Cloud Dataflow service, and only as a transition from @JOB_STATE_DRAINING@.+pattern ExecutionStageState_ExecutionStageState_JOBSTATEDRAINED :: ExecutionStageState_ExecutionStageState+pattern ExecutionStageState_ExecutionStageState_JOBSTATEDRAINED = ExecutionStageState_ExecutionStageState "JOB_STATE_DRAINED"++-- | @JOB_STATE_PENDING@ indicates that the job has been created but is not yet running. Jobs that are pending may only transition to @JOB_STATE_RUNNING@, or @JOB_STATE_FAILED@.+pattern ExecutionStageState_ExecutionStageState_JOBSTATEPENDING :: ExecutionStageState_ExecutionStageState+pattern ExecutionStageState_ExecutionStageState_JOBSTATEPENDING = ExecutionStageState_ExecutionStageState "JOB_STATE_PENDING"++-- | @JOB_STATE_CANCELLING@ indicates that the job has been explicitly cancelled and is in the process of stopping. Jobs that are cancelling may only transition to @JOB_STATE_CANCELLED@ or @JOB_STATE_FAILED@.+pattern ExecutionStageState_ExecutionStageState_JOBSTATECANCELLING :: ExecutionStageState_ExecutionStageState+pattern ExecutionStageState_ExecutionStageState_JOBSTATECANCELLING = ExecutionStageState_ExecutionStageState "JOB_STATE_CANCELLING"++-- | @JOB_STATE_QUEUED@ indicates that the job has been created but is being delayed until launch. Jobs that are queued may only transition to @JOB_STATE_PENDING@ or @JOB_STATE_CANCELLED@.+pattern ExecutionStageState_ExecutionStageState_JOBSTATEQUEUED :: ExecutionStageState_ExecutionStageState+pattern ExecutionStageState_ExecutionStageState_JOBSTATEQUEUED = ExecutionStageState_ExecutionStageState "JOB_STATE_QUEUED"++-- | @JOB_STATE_RESOURCE_CLEANING_UP@ indicates that the batch job\'s associated resources are currently being cleaned up after a successful run. Currently, this is an opt-in feature, please reach out to Cloud support team if you are interested.+pattern ExecutionStageState_ExecutionStageState_JOBSTATERESOURCECLEANINGUP :: ExecutionStageState_ExecutionStageState+pattern ExecutionStageState_ExecutionStageState_JOBSTATERESOURCECLEANINGUP = ExecutionStageState_ExecutionStageState "JOB_STATE_RESOURCE_CLEANING_UP"++{-# COMPLETE+  ExecutionStageState_ExecutionStageState_JOBSTATEUNKNOWN,+  ExecutionStageState_ExecutionStageState_JOBSTATESTOPPED,+  ExecutionStageState_ExecutionStageState_JOBSTATERUNNING,+  ExecutionStageState_ExecutionStageState_JOBSTATEDONE,+  ExecutionStageState_ExecutionStageState_JOBSTATEFAILED,+  ExecutionStageState_ExecutionStageState_JOBSTATECANCELLED,+  ExecutionStageState_ExecutionStageState_JOBSTATEUPDATED,+  ExecutionStageState_ExecutionStageState_JOBSTATEDRAINING,+  ExecutionStageState_ExecutionStageState_JOBSTATEDRAINED,+  ExecutionStageState_ExecutionStageState_JOBSTATEPENDING,+  ExecutionStageState_ExecutionStageState_JOBSTATECANCELLING,+  ExecutionStageState_ExecutionStageState_JOBSTATEQUEUED,+  ExecutionStageState_ExecutionStageState_JOBSTATERESOURCECLEANINGUP,+  ExecutionStageState_ExecutionStageState+  #-}++-- | Type of transform this stage is executing.+newtype ExecutionStageSummary_Kind = ExecutionStageSummary_Kind {fromExecutionStageSummary_Kind :: Core.Text}+  deriving stock (Core.Show, Core.Read, Core.Eq, Core.Ord, Core.Generic)+  deriving newtype+    ( Core.Hashable,+      Core.ToHttpApiData,+      Core.FromHttpApiData,+      Core.ToJSON,+      Core.ToJSONKey,+      Core.FromJSON,+      Core.FromJSONKey+    )++-- | Unrecognized transform type.+pattern ExecutionStageSummary_Kind_UNKNOWNKIND :: ExecutionStageSummary_Kind+pattern ExecutionStageSummary_Kind_UNKNOWNKIND = ExecutionStageSummary_Kind "UNKNOWN_KIND"++-- | ParDo transform.+pattern ExecutionStageSummary_Kind_PARDOKIND :: ExecutionStageSummary_Kind+pattern ExecutionStageSummary_Kind_PARDOKIND = ExecutionStageSummary_Kind "PAR_DO_KIND"++-- | Group By Key transform.+pattern ExecutionStageSummary_Kind_GROUPBYKEYKIND :: ExecutionStageSummary_Kind+pattern ExecutionStageSummary_Kind_GROUPBYKEYKIND = ExecutionStageSummary_Kind "GROUP_BY_KEY_KIND"++-- | Flatten transform.+pattern ExecutionStageSummary_Kind_FLATTENKIND :: ExecutionStageSummary_Kind+pattern ExecutionStageSummary_Kind_FLATTENKIND = ExecutionStageSummary_Kind "FLATTEN_KIND"++-- | Read transform.+pattern ExecutionStageSummary_Kind_READKIND :: ExecutionStageSummary_Kind+pattern ExecutionStageSummary_Kind_READKIND = ExecutionStageSummary_Kind "READ_KIND"++-- | Write transform.+pattern ExecutionStageSummary_Kind_WRITEKIND :: ExecutionStageSummary_Kind+pattern ExecutionStageSummary_Kind_WRITEKIND = ExecutionStageSummary_Kind "WRITE_KIND"++-- | Constructs from a constant value, such as with Create.of.+pattern ExecutionStageSummary_Kind_CONSTANTKIND :: ExecutionStageSummary_Kind+pattern ExecutionStageSummary_Kind_CONSTANTKIND = ExecutionStageSummary_Kind "CONSTANT_KIND"++-- | Creates a Singleton view of a collection.+pattern ExecutionStageSummary_Kind_SINGLETONKIND :: ExecutionStageSummary_Kind+pattern ExecutionStageSummary_Kind_SINGLETONKIND = ExecutionStageSummary_Kind "SINGLETON_KIND"++-- | Opening or closing a shuffle session, often as part of a GroupByKey.+pattern ExecutionStageSummary_Kind_SHUFFLEKIND :: ExecutionStageSummary_Kind+pattern ExecutionStageSummary_Kind_SHUFFLEKIND = ExecutionStageSummary_Kind "SHUFFLE_KIND"++{-# COMPLETE+  ExecutionStageSummary_Kind_UNKNOWNKIND,+  ExecutionStageSummary_Kind_PARDOKIND,+  ExecutionStageSummary_Kind_GROUPBYKEYKIND,+  ExecutionStageSummary_Kind_FLATTENKIND,+  ExecutionStageSummary_Kind_READKIND,+  ExecutionStageSummary_Kind_WRITEKIND,+  ExecutionStageSummary_Kind_CONSTANTKIND,+  ExecutionStageSummary_Kind_SINGLETONKIND,+  ExecutionStageSummary_Kind_SHUFFLEKIND,+  ExecutionStageSummary_Kind+  #-}++-- | The algorithm to use for autoscaling+newtype FlexTemplateRuntimeEnvironment_AutoscalingAlgorithm = FlexTemplateRuntimeEnvironment_AutoscalingAlgorithm {fromFlexTemplateRuntimeEnvironment_AutoscalingAlgorithm :: Core.Text}+  deriving stock (Core.Show, Core.Read, Core.Eq, Core.Ord, Core.Generic)+  deriving newtype+    ( Core.Hashable,+      Core.ToHttpApiData,+      Core.FromHttpApiData,+      Core.ToJSON,+      Core.ToJSONKey,+      Core.FromJSON,+      Core.FromJSONKey+    )++-- | The algorithm is unknown, or unspecified.+pattern FlexTemplateRuntimeEnvironment_AutoscalingAlgorithm_AUTOSCALINGALGORITHMUNKNOWN :: FlexTemplateRuntimeEnvironment_AutoscalingAlgorithm+pattern FlexTemplateRuntimeEnvironment_AutoscalingAlgorithm_AUTOSCALINGALGORITHMUNKNOWN = FlexTemplateRuntimeEnvironment_AutoscalingAlgorithm "AUTOSCALING_ALGORITHM_UNKNOWN"++-- | Disable autoscaling.+pattern FlexTemplateRuntimeEnvironment_AutoscalingAlgorithm_AUTOSCALINGALGORITHMNONE :: FlexTemplateRuntimeEnvironment_AutoscalingAlgorithm+pattern FlexTemplateRuntimeEnvironment_AutoscalingAlgorithm_AUTOSCALINGALGORITHMNONE = FlexTemplateRuntimeEnvironment_AutoscalingAlgorithm "AUTOSCALING_ALGORITHM_NONE"++-- | Increase worker count over time to reduce job execution time.+pattern FlexTemplateRuntimeEnvironment_AutoscalingAlgorithm_AUTOSCALINGALGORITHMBASIC :: FlexTemplateRuntimeEnvironment_AutoscalingAlgorithm+pattern FlexTemplateRuntimeEnvironment_AutoscalingAlgorithm_AUTOSCALINGALGORITHMBASIC = FlexTemplateRuntimeEnvironment_AutoscalingAlgorithm "AUTOSCALING_ALGORITHM_BASIC"++{-# COMPLETE+  FlexTemplateRuntimeEnvironment_AutoscalingAlgorithm_AUTOSCALINGALGORITHMUNKNOWN,+  FlexTemplateRuntimeEnvironment_AutoscalingAlgorithm_AUTOSCALINGALGORITHMNONE,+  FlexTemplateRuntimeEnvironment_AutoscalingAlgorithm_AUTOSCALINGALGORITHMBASIC,+  FlexTemplateRuntimeEnvironment_AutoscalingAlgorithm+  #-}++-- | Set FlexRS goal for the job. https:\/\/cloud.google.com\/dataflow\/docs\/guides\/flexrs+newtype FlexTemplateRuntimeEnvironment_FlexrsGoal = FlexTemplateRuntimeEnvironment_FlexrsGoal {fromFlexTemplateRuntimeEnvironment_FlexrsGoal :: Core.Text}+  deriving stock (Core.Show, Core.Read, Core.Eq, Core.Ord, Core.Generic)+  deriving newtype+    ( Core.Hashable,+      Core.ToHttpApiData,+      Core.FromHttpApiData,+      Core.ToJSON,+      Core.ToJSONKey,+      Core.FromJSON,+      Core.FromJSONKey+    )++-- | Run in the default mode.+pattern FlexTemplateRuntimeEnvironment_FlexrsGoal_FLEXRSUNSPECIFIED :: FlexTemplateRuntimeEnvironment_FlexrsGoal+pattern FlexTemplateRuntimeEnvironment_FlexrsGoal_FLEXRSUNSPECIFIED = FlexTemplateRuntimeEnvironment_FlexrsGoal "FLEXRS_UNSPECIFIED"++-- | Optimize for lower execution time.+pattern FlexTemplateRuntimeEnvironment_FlexrsGoal_FLEXRSSPEEDOPTIMIZED :: FlexTemplateRuntimeEnvironment_FlexrsGoal+pattern FlexTemplateRuntimeEnvironment_FlexrsGoal_FLEXRSSPEEDOPTIMIZED = FlexTemplateRuntimeEnvironment_FlexrsGoal "FLEXRS_SPEED_OPTIMIZED"++-- | Optimize for lower cost.+pattern FlexTemplateRuntimeEnvironment_FlexrsGoal_FLEXRSCOSTOPTIMIZED :: FlexTemplateRuntimeEnvironment_FlexrsGoal+pattern FlexTemplateRuntimeEnvironment_FlexrsGoal_FLEXRSCOSTOPTIMIZED = FlexTemplateRuntimeEnvironment_FlexrsGoal "FLEXRS_COST_OPTIMIZED"++{-# COMPLETE+  FlexTemplateRuntimeEnvironment_FlexrsGoal_FLEXRSUNSPECIFIED,+  FlexTemplateRuntimeEnvironment_FlexrsGoal_FLEXRSSPEEDOPTIMIZED,+  FlexTemplateRuntimeEnvironment_FlexrsGoal_FLEXRSCOSTOPTIMIZED,+  FlexTemplateRuntimeEnvironment_FlexrsGoal+  #-}++-- | Configuration for VM IPs.+newtype FlexTemplateRuntimeEnvironment_IpConfiguration = FlexTemplateRuntimeEnvironment_IpConfiguration {fromFlexTemplateRuntimeEnvironment_IpConfiguration :: Core.Text}+  deriving stock (Core.Show, Core.Read, Core.Eq, Core.Ord, Core.Generic)+  deriving newtype+    ( Core.Hashable,+      Core.ToHttpApiData,+      Core.FromHttpApiData,+      Core.ToJSON,+      Core.ToJSONKey,+      Core.FromJSON,+      Core.FromJSONKey+    )++-- | The configuration is unknown, or unspecified.+pattern FlexTemplateRuntimeEnvironment_IpConfiguration_WORKERIPUNSPECIFIED :: FlexTemplateRuntimeEnvironment_IpConfiguration+pattern FlexTemplateRuntimeEnvironment_IpConfiguration_WORKERIPUNSPECIFIED = FlexTemplateRuntimeEnvironment_IpConfiguration "WORKER_IP_UNSPECIFIED"++-- | Workers should have public IP addresses.+pattern FlexTemplateRuntimeEnvironment_IpConfiguration_WORKERIPPUBLIC :: FlexTemplateRuntimeEnvironment_IpConfiguration+pattern FlexTemplateRuntimeEnvironment_IpConfiguration_WORKERIPPUBLIC = FlexTemplateRuntimeEnvironment_IpConfiguration "WORKER_IP_PUBLIC"++-- | Workers should have private IP addresses.+pattern FlexTemplateRuntimeEnvironment_IpConfiguration_WORKERIPPRIVATE :: FlexTemplateRuntimeEnvironment_IpConfiguration+pattern FlexTemplateRuntimeEnvironment_IpConfiguration_WORKERIPPRIVATE = FlexTemplateRuntimeEnvironment_IpConfiguration "WORKER_IP_PRIVATE"++{-# COMPLETE+  FlexTemplateRuntimeEnvironment_IpConfiguration_WORKERIPUNSPECIFIED,+  FlexTemplateRuntimeEnvironment_IpConfiguration_WORKERIPPUBLIC,+  FlexTemplateRuntimeEnvironment_IpConfiguration_WORKERIPPRIVATE,+  FlexTemplateRuntimeEnvironment_IpConfiguration+  #-}++-- | Optional. Specifies the Streaming Engine message processing guarantees. Reduces cost and latency but might result in duplicate messages committed to storage. Designed to run simple mapping streaming ETL jobs at the lowest cost. For example, Change Data Capture (CDC) to BigQuery is a canonical use case. For more information, see <https://cloud.google.com/dataflow/docs/guides/streaming-modes Set the pipeline streaming mode>.+newtype FlexTemplateRuntimeEnvironment_StreamingMode = FlexTemplateRuntimeEnvironment_StreamingMode {fromFlexTemplateRuntimeEnvironment_StreamingMode :: Core.Text}+  deriving stock (Core.Show, Core.Read, Core.Eq, Core.Ord, Core.Generic)+  deriving newtype+    ( Core.Hashable,+      Core.ToHttpApiData,+      Core.FromHttpApiData,+      Core.ToJSON,+      Core.ToJSONKey,+      Core.FromJSON,+      Core.FromJSONKey+    )++-- | Run in the default mode.+pattern FlexTemplateRuntimeEnvironment_StreamingMode_STREAMINGMODEUNSPECIFIED :: FlexTemplateRuntimeEnvironment_StreamingMode+pattern FlexTemplateRuntimeEnvironment_StreamingMode_STREAMINGMODEUNSPECIFIED = FlexTemplateRuntimeEnvironment_StreamingMode "STREAMING_MODE_UNSPECIFIED"++-- | In this mode, message deduplication is performed against persistent state to make sure each message is processed and committed to storage exactly once.+pattern FlexTemplateRuntimeEnvironment_StreamingMode_STREAMINGMODEEXACTLYONCE :: FlexTemplateRuntimeEnvironment_StreamingMode+pattern FlexTemplateRuntimeEnvironment_StreamingMode_STREAMINGMODEEXACTLYONCE = FlexTemplateRuntimeEnvironment_StreamingMode "STREAMING_MODE_EXACTLY_ONCE"++-- | Message deduplication is not performed. Messages might be processed multiple times, and the results are applied multiple times. Note: Setting this value also enables Streaming Engine and Streaming Engine resource-based billing.+pattern FlexTemplateRuntimeEnvironment_StreamingMode_STREAMINGMODEATLEASTONCE :: FlexTemplateRuntimeEnvironment_StreamingMode+pattern FlexTemplateRuntimeEnvironment_StreamingMode_STREAMINGMODEATLEASTONCE = FlexTemplateRuntimeEnvironment_StreamingMode "STREAMING_MODE_AT_LEAST_ONCE"++{-# COMPLETE+  FlexTemplateRuntimeEnvironment_StreamingMode_STREAMINGMODEUNSPECIFIED,+  FlexTemplateRuntimeEnvironment_StreamingMode_STREAMINGMODEEXACTLYONCE,+  FlexTemplateRuntimeEnvironment_StreamingMode_STREAMINGMODEATLEASTONCE,+  FlexTemplateRuntimeEnvironment_StreamingMode+  #-}++-- | Template Type.+newtype GetTemplateResponse_TemplateType = GetTemplateResponse_TemplateType {fromGetTemplateResponse_TemplateType :: Core.Text}+  deriving stock (Core.Show, Core.Read, Core.Eq, Core.Ord, Core.Generic)+  deriving newtype+    ( Core.Hashable,+      Core.ToHttpApiData,+      Core.FromHttpApiData,+      Core.ToJSON,+      Core.ToJSONKey,+      Core.FromJSON,+      Core.FromJSONKey+    )++-- | Unknown Template Type.+pattern GetTemplateResponse_TemplateType_Unknown :: GetTemplateResponse_TemplateType+pattern GetTemplateResponse_TemplateType_Unknown = GetTemplateResponse_TemplateType "UNKNOWN"++-- | Legacy Template.+pattern GetTemplateResponse_TemplateType_Legacy :: GetTemplateResponse_TemplateType+pattern GetTemplateResponse_TemplateType_Legacy = GetTemplateResponse_TemplateType "LEGACY"++-- | Flex Template.+pattern GetTemplateResponse_TemplateType_Flex :: GetTemplateResponse_TemplateType+pattern GetTemplateResponse_TemplateType_Flex = GetTemplateResponse_TemplateType "FLEX"++{-# COMPLETE+  GetTemplateResponse_TemplateType_Unknown,+  GetTemplateResponse_TemplateType_Legacy,+  GetTemplateResponse_TemplateType_Flex,+  GetTemplateResponse_TemplateType+  #-}++-- | The current state of the job. Jobs are created in the @JOB_STATE_STOPPED@ state unless otherwise specified. A job in the @JOB_STATE_RUNNING@ state may asynchronously enter a terminal state. After a job has reached a terminal state, no further state updates may be made. This field might be mutated by the Dataflow service; callers cannot mutate it.+newtype Job_CurrentState = Job_CurrentState {fromJob_CurrentState :: Core.Text}+  deriving stock (Core.Show, Core.Read, Core.Eq, Core.Ord, Core.Generic)+  deriving newtype+    ( Core.Hashable,+      Core.ToHttpApiData,+      Core.FromHttpApiData,+      Core.ToJSON,+      Core.ToJSONKey,+      Core.FromJSON,+      Core.FromJSONKey+    )++-- | The job\'s run state isn\'t specified.+pattern Job_CurrentState_JOBSTATEUNKNOWN :: Job_CurrentState+pattern Job_CurrentState_JOBSTATEUNKNOWN = Job_CurrentState "JOB_STATE_UNKNOWN"++-- | @JOB_STATE_STOPPED@ indicates that the job has not yet started to run.+pattern Job_CurrentState_JOBSTATESTOPPED :: Job_CurrentState+pattern Job_CurrentState_JOBSTATESTOPPED = Job_CurrentState "JOB_STATE_STOPPED"++-- | @JOB_STATE_RUNNING@ indicates that the job is currently running.+pattern Job_CurrentState_JOBSTATERUNNING :: Job_CurrentState+pattern Job_CurrentState_JOBSTATERUNNING = Job_CurrentState "JOB_STATE_RUNNING"++-- | @JOB_STATE_DONE@ indicates that the job has successfully completed. This is a terminal job state. This state may be set by the Cloud Dataflow service, as a transition from @JOB_STATE_RUNNING@. It may also be set via a Cloud Dataflow @UpdateJob@ call, if the job has not yet reached a terminal state.+pattern Job_CurrentState_JOBSTATEDONE :: Job_CurrentState+pattern Job_CurrentState_JOBSTATEDONE = Job_CurrentState "JOB_STATE_DONE"++-- | @JOB_STATE_FAILED@ indicates that the job has failed. This is a terminal job state. This state may only be set by the Cloud Dataflow service, and only as a transition from @JOB_STATE_RUNNING@.+pattern Job_CurrentState_JOBSTATEFAILED :: Job_CurrentState+pattern Job_CurrentState_JOBSTATEFAILED = Job_CurrentState "JOB_STATE_FAILED"++-- | @JOB_STATE_CANCELLED@ indicates that the job has been explicitly cancelled. This is a terminal job state. This state may only be set via a Cloud Dataflow @UpdateJob@ call, and only if the job has not yet reached another terminal state.+pattern Job_CurrentState_JOBSTATECANCELLED :: Job_CurrentState+pattern Job_CurrentState_JOBSTATECANCELLED = Job_CurrentState "JOB_STATE_CANCELLED"++-- | @JOB_STATE_UPDATED@ indicates that the job was successfully updated, meaning that this job was stopped and another job was started, inheriting state from this one. This is a terminal job state. This state may only be set by the Cloud Dataflow service, and only as a transition from @JOB_STATE_RUNNING@.+pattern Job_CurrentState_JOBSTATEUPDATED :: Job_CurrentState+pattern Job_CurrentState_JOBSTATEUPDATED = Job_CurrentState "JOB_STATE_UPDATED"++-- | @JOB_STATE_DRAINING@ indicates that the job is in the process of draining. A draining job has stopped pulling from its input sources and is processing any data that remains in-flight. This state may be set via a Cloud Dataflow @UpdateJob@ call, but only as a transition from @JOB_STATE_RUNNING@. Jobs that are draining may only transition to @JOB_STATE_DRAINED@, @JOB_STATE_CANCELLED@, or @JOB_STATE_FAILED@.+pattern Job_CurrentState_JOBSTATEDRAINING :: Job_CurrentState+pattern Job_CurrentState_JOBSTATEDRAINING = Job_CurrentState "JOB_STATE_DRAINING"++-- | @JOB_STATE_DRAINED@ indicates that the job has been drained. A drained job terminated by stopping pulling from its input sources and processing any data that remained in-flight when draining was requested. This state is a terminal state, may only be set by the Cloud Dataflow service, and only as a transition from @JOB_STATE_DRAINING@.+pattern Job_CurrentState_JOBSTATEDRAINED :: Job_CurrentState+pattern Job_CurrentState_JOBSTATEDRAINED = Job_CurrentState "JOB_STATE_DRAINED"++-- | @JOB_STATE_PENDING@ indicates that the job has been created but is not yet running. Jobs that are pending may only transition to @JOB_STATE_RUNNING@, or @JOB_STATE_FAILED@.+pattern Job_CurrentState_JOBSTATEPENDING :: Job_CurrentState+pattern Job_CurrentState_JOBSTATEPENDING = Job_CurrentState "JOB_STATE_PENDING"++-- | @JOB_STATE_CANCELLING@ indicates that the job has been explicitly cancelled and is in the process of stopping. Jobs that are cancelling may only transition to @JOB_STATE_CANCELLED@ or @JOB_STATE_FAILED@.+pattern Job_CurrentState_JOBSTATECANCELLING :: Job_CurrentState+pattern Job_CurrentState_JOBSTATECANCELLING = Job_CurrentState "JOB_STATE_CANCELLING"++-- | @JOB_STATE_QUEUED@ indicates that the job has been created but is being delayed until launch. Jobs that are queued may only transition to @JOB_STATE_PENDING@ or @JOB_STATE_CANCELLED@.+pattern Job_CurrentState_JOBSTATEQUEUED :: Job_CurrentState+pattern Job_CurrentState_JOBSTATEQUEUED = Job_CurrentState "JOB_STATE_QUEUED"++-- | @JOB_STATE_RESOURCE_CLEANING_UP@ indicates that the batch job\'s associated resources are currently being cleaned up after a successful run. Currently, this is an opt-in feature, please reach out to Cloud support team if you are interested.+pattern Job_CurrentState_JOBSTATERESOURCECLEANINGUP :: Job_CurrentState+pattern Job_CurrentState_JOBSTATERESOURCECLEANINGUP = Job_CurrentState "JOB_STATE_RESOURCE_CLEANING_UP"++{-# COMPLETE+  Job_CurrentState_JOBSTATEUNKNOWN,+  Job_CurrentState_JOBSTATESTOPPED,+  Job_CurrentState_JOBSTATERUNNING,+  Job_CurrentState_JOBSTATEDONE,+  Job_CurrentState_JOBSTATEFAILED,+  Job_CurrentState_JOBSTATECANCELLED,+  Job_CurrentState_JOBSTATEUPDATED,+  Job_CurrentState_JOBSTATEDRAINING,+  Job_CurrentState_JOBSTATEDRAINED,+  Job_CurrentState_JOBSTATEPENDING,+  Job_CurrentState_JOBSTATECANCELLING,+  Job_CurrentState_JOBSTATEQUEUED,+  Job_CurrentState_JOBSTATERESOURCECLEANINGUP,+  Job_CurrentState+  #-}++-- | The job\'s requested state. Applies to @UpdateJob@ requests. Set @requested_state@ with @UpdateJob@ requests to switch between the states @JOB_STATE_STOPPED@ and @JOB_STATE_RUNNING@. You can also use @UpdateJob@ requests to change a job\'s state from @JOB_STATE_RUNNING@ to @JOB_STATE_CANCELLED@, @JOB_STATE_DONE@, or @JOB_STATE_DRAINED@. These states irrevocably terminate the job if it hasn\'t already reached a terminal state. This field has no effect on @CreateJob@ requests.+newtype Job_RequestedState = Job_RequestedState {fromJob_RequestedState :: Core.Text}+  deriving stock (Core.Show, Core.Read, Core.Eq, Core.Ord, Core.Generic)+  deriving newtype+    ( Core.Hashable,+      Core.ToHttpApiData,+      Core.FromHttpApiData,+      Core.ToJSON,+      Core.ToJSONKey,+      Core.FromJSON,+      Core.FromJSONKey+    )++-- | The job\'s run state isn\'t specified.+pattern Job_RequestedState_JOBSTATEUNKNOWN :: Job_RequestedState+pattern Job_RequestedState_JOBSTATEUNKNOWN = Job_RequestedState "JOB_STATE_UNKNOWN"++-- | @JOB_STATE_STOPPED@ indicates that the job has not yet started to run.+pattern Job_RequestedState_JOBSTATESTOPPED :: Job_RequestedState+pattern Job_RequestedState_JOBSTATESTOPPED = Job_RequestedState "JOB_STATE_STOPPED"++-- | @JOB_STATE_RUNNING@ indicates that the job is currently running.+pattern Job_RequestedState_JOBSTATERUNNING :: Job_RequestedState+pattern Job_RequestedState_JOBSTATERUNNING = Job_RequestedState "JOB_STATE_RUNNING"++-- | @JOB_STATE_DONE@ indicates that the job has successfully completed. This is a terminal job state. This state may be set by the Cloud Dataflow service, as a transition from @JOB_STATE_RUNNING@. It may also be set via a Cloud Dataflow @UpdateJob@ call, if the job has not yet reached a terminal state.+pattern Job_RequestedState_JOBSTATEDONE :: Job_RequestedState+pattern Job_RequestedState_JOBSTATEDONE = Job_RequestedState "JOB_STATE_DONE"++-- | @JOB_STATE_FAILED@ indicates that the job has failed. This is a terminal job state. This state may only be set by the Cloud Dataflow service, and only as a transition from @JOB_STATE_RUNNING@.+pattern Job_RequestedState_JOBSTATEFAILED :: Job_RequestedState+pattern Job_RequestedState_JOBSTATEFAILED = Job_RequestedState "JOB_STATE_FAILED"++-- | @JOB_STATE_CANCELLED@ indicates that the job has been explicitly cancelled. This is a terminal job state. This state may only be set via a Cloud Dataflow @UpdateJob@ call, and only if the job has not yet reached another terminal state.+pattern Job_RequestedState_JOBSTATECANCELLED :: Job_RequestedState+pattern Job_RequestedState_JOBSTATECANCELLED = Job_RequestedState "JOB_STATE_CANCELLED"++-- | @JOB_STATE_UPDATED@ indicates that the job was successfully updated, meaning that this job was stopped and another job was started, inheriting state from this one. This is a terminal job state. This state may only be set by the Cloud Dataflow service, and only as a transition from @JOB_STATE_RUNNING@.+pattern Job_RequestedState_JOBSTATEUPDATED :: Job_RequestedState+pattern Job_RequestedState_JOBSTATEUPDATED = Job_RequestedState "JOB_STATE_UPDATED"++-- | @JOB_STATE_DRAINING@ indicates that the job is in the process of draining. A draining job has stopped pulling from its input sources and is processing any data that remains in-flight. This state may be set via a Cloud Dataflow @UpdateJob@ call, but only as a transition from @JOB_STATE_RUNNING@. Jobs that are draining may only transition to @JOB_STATE_DRAINED@, @JOB_STATE_CANCELLED@, or @JOB_STATE_FAILED@.+pattern Job_RequestedState_JOBSTATEDRAINING :: Job_RequestedState+pattern Job_RequestedState_JOBSTATEDRAINING = Job_RequestedState "JOB_STATE_DRAINING"++-- | @JOB_STATE_DRAINED@ indicates that the job has been drained. A drained job terminated by stopping pulling from its input sources and processing any data that remained in-flight when draining was requested. This state is a terminal state, may only be set by the Cloud Dataflow service, and only as a transition from @JOB_STATE_DRAINING@.+pattern Job_RequestedState_JOBSTATEDRAINED :: Job_RequestedState+pattern Job_RequestedState_JOBSTATEDRAINED = Job_RequestedState "JOB_STATE_DRAINED"++-- | @JOB_STATE_PENDING@ indicates that the job has been created but is not yet running. Jobs that are pending may only transition to @JOB_STATE_RUNNING@, or @JOB_STATE_FAILED@.+pattern Job_RequestedState_JOBSTATEPENDING :: Job_RequestedState+pattern Job_RequestedState_JOBSTATEPENDING = Job_RequestedState "JOB_STATE_PENDING"++-- | @JOB_STATE_CANCELLING@ indicates that the job has been explicitly cancelled and is in the process of stopping. Jobs that are cancelling may only transition to @JOB_STATE_CANCELLED@ or @JOB_STATE_FAILED@.+pattern Job_RequestedState_JOBSTATECANCELLING :: Job_RequestedState+pattern Job_RequestedState_JOBSTATECANCELLING = Job_RequestedState "JOB_STATE_CANCELLING"++-- | @JOB_STATE_QUEUED@ indicates that the job has been created but is being delayed until launch. Jobs that are queued may only transition to @JOB_STATE_PENDING@ or @JOB_STATE_CANCELLED@.+pattern Job_RequestedState_JOBSTATEQUEUED :: Job_RequestedState+pattern Job_RequestedState_JOBSTATEQUEUED = Job_RequestedState "JOB_STATE_QUEUED"++-- | @JOB_STATE_RESOURCE_CLEANING_UP@ indicates that the batch job\'s associated resources are currently being cleaned up after a successful run. Currently, this is an opt-in feature, please reach out to Cloud support team if you are interested.+pattern Job_RequestedState_JOBSTATERESOURCECLEANINGUP :: Job_RequestedState+pattern Job_RequestedState_JOBSTATERESOURCECLEANINGUP = Job_RequestedState "JOB_STATE_RESOURCE_CLEANING_UP"++{-# COMPLETE+  Job_RequestedState_JOBSTATEUNKNOWN,+  Job_RequestedState_JOBSTATESTOPPED,+  Job_RequestedState_JOBSTATERUNNING,+  Job_RequestedState_JOBSTATEDONE,+  Job_RequestedState_JOBSTATEFAILED,+  Job_RequestedState_JOBSTATECANCELLED,+  Job_RequestedState_JOBSTATEUPDATED,+  Job_RequestedState_JOBSTATEDRAINING,+  Job_RequestedState_JOBSTATEDRAINED,+  Job_RequestedState_JOBSTATEPENDING,+  Job_RequestedState_JOBSTATECANCELLING,+  Job_RequestedState_JOBSTATEQUEUED,+  Job_RequestedState_JOBSTATERESOURCECLEANINGUP,+  Job_RequestedState+  #-}++-- | Optional. The type of Dataflow job.+newtype Job_Type = Job_Type {fromJob_Type :: Core.Text}+  deriving stock (Core.Show, Core.Read, Core.Eq, Core.Ord, Core.Generic)+  deriving newtype+    ( Core.Hashable,+      Core.ToHttpApiData,+      Core.FromHttpApiData,+      Core.ToJSON,+      Core.ToJSONKey,+      Core.FromJSON,+      Core.FromJSONKey+    )++-- | The type of the job is unspecified, or unknown.+pattern Job_Type_JOBTYPEUNKNOWN :: Job_Type+pattern Job_Type_JOBTYPEUNKNOWN = Job_Type "JOB_TYPE_UNKNOWN"++-- | A batch job with a well-defined end point: data is read, data is processed, data is written, and the job is done.+pattern Job_Type_JOBTYPEBATCH :: Job_Type+pattern Job_Type_JOBTYPEBATCH = Job_Type "JOB_TYPE_BATCH"++-- | A continuously streaming job with no end: data is read, processed, and written continuously.+pattern Job_Type_JOBTYPESTREAMING :: Job_Type+pattern Job_Type_JOBTYPESTREAMING = Job_Type "JOB_TYPE_STREAMING"++{-# COMPLETE+  Job_Type_JOBTYPEUNKNOWN,+  Job_Type_JOBTYPEBATCH,+  Job_Type_JOBTYPESTREAMING,+  Job_Type+  #-}++-- | Importance level of the message.+newtype JobMessage_MessageImportance = JobMessage_MessageImportance {fromJobMessage_MessageImportance :: Core.Text}+  deriving stock (Core.Show, Core.Read, Core.Eq, Core.Ord, Core.Generic)+  deriving newtype+    ( Core.Hashable,+      Core.ToHttpApiData,+      Core.FromHttpApiData,+      Core.ToJSON,+      Core.ToJSONKey,+      Core.FromJSON,+      Core.FromJSONKey+    )++-- | The message importance isn\'t specified, or is unknown.+pattern JobMessage_MessageImportance_JOBMESSAGEIMPORTANCEUNKNOWN :: JobMessage_MessageImportance+pattern JobMessage_MessageImportance_JOBMESSAGEIMPORTANCEUNKNOWN = JobMessage_MessageImportance "JOB_MESSAGE_IMPORTANCE_UNKNOWN"++-- | The message is at the \'debug\' level: typically only useful for software engineers working on the code the job is running. Typically, Dataflow pipeline runners do not display log messages at this level by default.+pattern JobMessage_MessageImportance_JOBMESSAGEDEBUG :: JobMessage_MessageImportance+pattern JobMessage_MessageImportance_JOBMESSAGEDEBUG = JobMessage_MessageImportance "JOB_MESSAGE_DEBUG"++-- | The message is at the \'detailed\' level: somewhat verbose, but potentially useful to users. Typically, Dataflow pipeline runners do not display log messages at this level by default. These messages are displayed by default in the Dataflow monitoring UI.+pattern JobMessage_MessageImportance_JOBMESSAGEDETAILED :: JobMessage_MessageImportance+pattern JobMessage_MessageImportance_JOBMESSAGEDETAILED = JobMessage_MessageImportance "JOB_MESSAGE_DETAILED"++-- | The message is at the \'basic\' level: useful for keeping track of the execution of a Dataflow pipeline. Typically, Dataflow pipeline runners display log messages at this level by default, and these messages are displayed by default in the Dataflow monitoring UI.+pattern JobMessage_MessageImportance_JOBMESSAGEBASIC :: JobMessage_MessageImportance+pattern JobMessage_MessageImportance_JOBMESSAGEBASIC = JobMessage_MessageImportance "JOB_MESSAGE_BASIC"++-- | The message is at the \'warning\' level: indicating a condition pertaining to a job which may require human intervention. Typically, Dataflow pipeline runners display log messages at this level by default, and these messages are displayed by default in the Dataflow monitoring UI.+pattern JobMessage_MessageImportance_JOBMESSAGEWARNING :: JobMessage_MessageImportance+pattern JobMessage_MessageImportance_JOBMESSAGEWARNING = JobMessage_MessageImportance "JOB_MESSAGE_WARNING"++-- | The message is at the \'error\' level: indicating a condition preventing a job from succeeding. Typically, Dataflow pipeline runners display log messages at this level by default, and these messages are displayed by default in the Dataflow monitoring UI.+pattern JobMessage_MessageImportance_JOBMESSAGEERROR :: JobMessage_MessageImportance+pattern JobMessage_MessageImportance_JOBMESSAGEERROR = JobMessage_MessageImportance "JOB_MESSAGE_ERROR"++{-# COMPLETE+  JobMessage_MessageImportance_JOBMESSAGEIMPORTANCEUNKNOWN,+  JobMessage_MessageImportance_JOBMESSAGEDEBUG,+  JobMessage_MessageImportance_JOBMESSAGEDETAILED,+  JobMessage_MessageImportance_JOBMESSAGEBASIC,+  JobMessage_MessageImportance_JOBMESSAGEWARNING,+  JobMessage_MessageImportance_JOBMESSAGEERROR,+  JobMessage_MessageImportance+  #-}++-- | Counter aggregation kind.+newtype NameAndKind_Kind = NameAndKind_Kind {fromNameAndKind_Kind :: Core.Text}+  deriving stock (Core.Show, Core.Read, Core.Eq, Core.Ord, Core.Generic)+  deriving newtype+    ( Core.Hashable,+      Core.ToHttpApiData,+      Core.FromHttpApiData,+      Core.ToJSON,+      Core.ToJSONKey,+      Core.FromJSON,+      Core.FromJSONKey+    )++-- | Counter aggregation kind was not set.+pattern NameAndKind_Kind_Invalid :: NameAndKind_Kind+pattern NameAndKind_Kind_Invalid = NameAndKind_Kind "INVALID"++-- | Aggregated value is the sum of all contributed values.+pattern NameAndKind_Kind_Sum :: NameAndKind_Kind+pattern NameAndKind_Kind_Sum = NameAndKind_Kind "SUM"++-- | Aggregated value is the max of all contributed values.+pattern NameAndKind_Kind_Max :: NameAndKind_Kind+pattern NameAndKind_Kind_Max = NameAndKind_Kind "MAX"++-- | Aggregated value is the min of all contributed values.+pattern NameAndKind_Kind_Min :: NameAndKind_Kind+pattern NameAndKind_Kind_Min = NameAndKind_Kind "MIN"++-- | Aggregated value is the mean of all contributed values.+pattern NameAndKind_Kind_Mean :: NameAndKind_Kind+pattern NameAndKind_Kind_Mean = NameAndKind_Kind "MEAN"++-- | Aggregated value represents the logical \'or\' of all contributed values.+pattern NameAndKind_Kind_OR :: NameAndKind_Kind+pattern NameAndKind_Kind_OR = NameAndKind_Kind "OR"++-- | Aggregated value represents the logical \'and\' of all contributed values.+pattern NameAndKind_Kind_And :: NameAndKind_Kind+pattern NameAndKind_Kind_And = NameAndKind_Kind "AND"++-- | Aggregated value is a set of unique contributed values.+pattern NameAndKind_Kind_Set :: NameAndKind_Kind+pattern NameAndKind_Kind_Set = NameAndKind_Kind "SET"++-- | Aggregated value captures statistics about a distribution.+pattern NameAndKind_Kind_Distribution :: NameAndKind_Kind+pattern NameAndKind_Kind_Distribution = NameAndKind_Kind "DISTRIBUTION"++-- | Aggregated value tracks the latest value of a variable.+pattern NameAndKind_Kind_LATESTVALUE :: NameAndKind_Kind+pattern NameAndKind_Kind_LATESTVALUE = NameAndKind_Kind "LATEST_VALUE"++{-# COMPLETE+  NameAndKind_Kind_Invalid,+  NameAndKind_Kind_Sum,+  NameAndKind_Kind_Max,+  NameAndKind_Kind_Min,+  NameAndKind_Kind_Mean,+  NameAndKind_Kind_OR,+  NameAndKind_Kind_And,+  NameAndKind_Kind_Set,+  NameAndKind_Kind_Distribution,+  NameAndKind_Kind_LATESTVALUE,+  NameAndKind_Kind+  #-}++-- | Optional. The type of the parameter. Used for selecting input picker.+newtype ParameterMetadata_ParamType = ParameterMetadata_ParamType {fromParameterMetadata_ParamType :: Core.Text}+  deriving stock (Core.Show, Core.Read, Core.Eq, Core.Ord, Core.Generic)+  deriving newtype+    ( Core.Hashable,+      Core.ToHttpApiData,+      Core.FromHttpApiData,+      Core.ToJSON,+      Core.ToJSONKey,+      Core.FromJSON,+      Core.FromJSONKey+    )++-- | Default input type.+pattern ParameterMetadata_ParamType_Default :: ParameterMetadata_ParamType+pattern ParameterMetadata_ParamType_Default = ParameterMetadata_ParamType "DEFAULT"++-- | The parameter specifies generic text input.+pattern ParameterMetadata_ParamType_Text :: ParameterMetadata_ParamType+pattern ParameterMetadata_ParamType_Text = ParameterMetadata_ParamType "TEXT"++-- | The parameter specifies a Cloud Storage Bucket to read from.+pattern ParameterMetadata_ParamType_GCSREADBUCKET :: ParameterMetadata_ParamType+pattern ParameterMetadata_ParamType_GCSREADBUCKET = ParameterMetadata_ParamType "GCS_READ_BUCKET"++-- | The parameter specifies a Cloud Storage Bucket to write to.+pattern ParameterMetadata_ParamType_GCSWRITEBUCKET :: ParameterMetadata_ParamType+pattern ParameterMetadata_ParamType_GCSWRITEBUCKET = ParameterMetadata_ParamType "GCS_WRITE_BUCKET"++-- | The parameter specifies a Cloud Storage file path to read from.+pattern ParameterMetadata_ParamType_GCSREADFILE :: ParameterMetadata_ParamType+pattern ParameterMetadata_ParamType_GCSREADFILE = ParameterMetadata_ParamType "GCS_READ_FILE"++-- | The parameter specifies a Cloud Storage file path to write to.+pattern ParameterMetadata_ParamType_GCSWRITEFILE :: ParameterMetadata_ParamType+pattern ParameterMetadata_ParamType_GCSWRITEFILE = ParameterMetadata_ParamType "GCS_WRITE_FILE"++-- | The parameter specifies a Cloud Storage folder path to read from.+pattern ParameterMetadata_ParamType_GCSREADFOLDER :: ParameterMetadata_ParamType+pattern ParameterMetadata_ParamType_GCSREADFOLDER = ParameterMetadata_ParamType "GCS_READ_FOLDER"++-- | The parameter specifies a Cloud Storage folder to write to.+pattern ParameterMetadata_ParamType_GCSWRITEFOLDER :: ParameterMetadata_ParamType+pattern ParameterMetadata_ParamType_GCSWRITEFOLDER = ParameterMetadata_ParamType "GCS_WRITE_FOLDER"++-- | The parameter specifies a Pub\/Sub Topic.+pattern ParameterMetadata_ParamType_PUBSUBTOPIC :: ParameterMetadata_ParamType+pattern ParameterMetadata_ParamType_PUBSUBTOPIC = ParameterMetadata_ParamType "PUBSUB_TOPIC"++-- | The parameter specifies a Pub\/Sub Subscription.+pattern ParameterMetadata_ParamType_PUBSUBSUBSCRIPTION :: ParameterMetadata_ParamType+pattern ParameterMetadata_ParamType_PUBSUBSUBSCRIPTION = ParameterMetadata_ParamType "PUBSUB_SUBSCRIPTION"++-- | The parameter specifies a BigQuery table.+pattern ParameterMetadata_ParamType_BIGQUERYTABLE :: ParameterMetadata_ParamType+pattern ParameterMetadata_ParamType_BIGQUERYTABLE = ParameterMetadata_ParamType "BIGQUERY_TABLE"++-- | The parameter specifies a JavaScript UDF in Cloud Storage.+pattern ParameterMetadata_ParamType_JAVASCRIPTUDFFILE :: ParameterMetadata_ParamType+pattern ParameterMetadata_ParamType_JAVASCRIPTUDFFILE = ParameterMetadata_ParamType "JAVASCRIPT_UDF_FILE"++-- | The parameter specifies a Service Account email.+pattern ParameterMetadata_ParamType_SERVICEACCOUNT :: ParameterMetadata_ParamType+pattern ParameterMetadata_ParamType_SERVICEACCOUNT = ParameterMetadata_ParamType "SERVICE_ACCOUNT"++-- | The parameter specifies a Machine Type.+pattern ParameterMetadata_ParamType_MACHINETYPE :: ParameterMetadata_ParamType+pattern ParameterMetadata_ParamType_MACHINETYPE = ParameterMetadata_ParamType "MACHINE_TYPE"++-- | The parameter specifies a KMS Key name.+pattern ParameterMetadata_ParamType_KMSKEYNAME :: ParameterMetadata_ParamType+pattern ParameterMetadata_ParamType_KMSKEYNAME = ParameterMetadata_ParamType "KMS_KEY_NAME"++-- | The parameter specifies a Worker Region.+pattern ParameterMetadata_ParamType_WORKERREGION :: ParameterMetadata_ParamType+pattern ParameterMetadata_ParamType_WORKERREGION = ParameterMetadata_ParamType "WORKER_REGION"++-- | The parameter specifies a Worker Zone.+pattern ParameterMetadata_ParamType_WORKERZONE :: ParameterMetadata_ParamType+pattern ParameterMetadata_ParamType_WORKERZONE = ParameterMetadata_ParamType "WORKER_ZONE"++-- | The parameter specifies a boolean input.+pattern ParameterMetadata_ParamType_Boolean :: ParameterMetadata_ParamType+pattern ParameterMetadata_ParamType_Boolean = ParameterMetadata_ParamType "BOOLEAN"++-- | The parameter specifies an enum input.+pattern ParameterMetadata_ParamType_Enum' :: ParameterMetadata_ParamType+pattern ParameterMetadata_ParamType_Enum' = ParameterMetadata_ParamType "ENUM"++-- | The parameter specifies a number input.+pattern ParameterMetadata_ParamType_Number :: ParameterMetadata_ParamType+pattern ParameterMetadata_ParamType_Number = ParameterMetadata_ParamType "NUMBER"++-- | Deprecated. Please use KAFKA/READ/TOPIC instead.+pattern ParameterMetadata_ParamType_KAFKATOPIC :: ParameterMetadata_ParamType+pattern ParameterMetadata_ParamType_KAFKATOPIC = ParameterMetadata_ParamType "KAFKA_TOPIC"++-- | The parameter specifies the fully-qualified name of an Apache Kafka topic. This can be either a Google Managed Kafka topic or a non-managed Kafka topic.+pattern ParameterMetadata_ParamType_KAFKAREADTOPIC :: ParameterMetadata_ParamType+pattern ParameterMetadata_ParamType_KAFKAREADTOPIC = ParameterMetadata_ParamType "KAFKA_READ_TOPIC"++-- | The parameter specifies the fully-qualified name of an Apache Kafka topic. This can be an existing Google Managed Kafka topic, the name for a new Google Managed Kafka topic, or an existing non-managed Kafka topic.+pattern ParameterMetadata_ParamType_KAFKAWRITETOPIC :: ParameterMetadata_ParamType+pattern ParameterMetadata_ParamType_KAFKAWRITETOPIC = ParameterMetadata_ParamType "KAFKA_WRITE_TOPIC"++{-# COMPLETE+  ParameterMetadata_ParamType_Default,+  ParameterMetadata_ParamType_Text,+  ParameterMetadata_ParamType_GCSREADBUCKET,+  ParameterMetadata_ParamType_GCSWRITEBUCKET,+  ParameterMetadata_ParamType_GCSREADFILE,+  ParameterMetadata_ParamType_GCSWRITEFILE,+  ParameterMetadata_ParamType_GCSREADFOLDER,+  ParameterMetadata_ParamType_GCSWRITEFOLDER,+  ParameterMetadata_ParamType_PUBSUBTOPIC,+  ParameterMetadata_ParamType_PUBSUBSUBSCRIPTION,+  ParameterMetadata_ParamType_BIGQUERYTABLE,+  ParameterMetadata_ParamType_JAVASCRIPTUDFFILE,+  ParameterMetadata_ParamType_SERVICEACCOUNT,+  ParameterMetadata_ParamType_MACHINETYPE,+  ParameterMetadata_ParamType_KMSKEYNAME,+  ParameterMetadata_ParamType_WORKERREGION,+  ParameterMetadata_ParamType_WORKERZONE,+  ParameterMetadata_ParamType_Boolean,+  ParameterMetadata_ParamType_Enum',+  ParameterMetadata_ParamType_Number,+  ParameterMetadata_ParamType_KAFKATOPIC,+  ParameterMetadata_ParamType_KAFKAREADTOPIC,+  ParameterMetadata_ParamType_KAFKAWRITETOPIC,+  ParameterMetadata_ParamType+  #-}++-- | Optional. Configuration for VM IPs.+newtype RuntimeEnvironment_IpConfiguration = RuntimeEnvironment_IpConfiguration {fromRuntimeEnvironment_IpConfiguration :: Core.Text}+  deriving stock (Core.Show, Core.Read, Core.Eq, Core.Ord, Core.Generic)+  deriving newtype+    ( Core.Hashable,+      Core.ToHttpApiData,+      Core.FromHttpApiData,+      Core.ToJSON,+      Core.ToJSONKey,+      Core.FromJSON,+      Core.FromJSONKey+    )++-- | The configuration is unknown, or unspecified.+pattern RuntimeEnvironment_IpConfiguration_WORKERIPUNSPECIFIED :: RuntimeEnvironment_IpConfiguration+pattern RuntimeEnvironment_IpConfiguration_WORKERIPUNSPECIFIED = RuntimeEnvironment_IpConfiguration "WORKER_IP_UNSPECIFIED"++-- | Workers should have public IP addresses.+pattern RuntimeEnvironment_IpConfiguration_WORKERIPPUBLIC :: RuntimeEnvironment_IpConfiguration+pattern RuntimeEnvironment_IpConfiguration_WORKERIPPUBLIC = RuntimeEnvironment_IpConfiguration "WORKER_IP_PUBLIC"++-- | Workers should have private IP addresses.+pattern RuntimeEnvironment_IpConfiguration_WORKERIPPRIVATE :: RuntimeEnvironment_IpConfiguration+pattern RuntimeEnvironment_IpConfiguration_WORKERIPPRIVATE = RuntimeEnvironment_IpConfiguration "WORKER_IP_PRIVATE"++{-# COMPLETE+  RuntimeEnvironment_IpConfiguration_WORKERIPUNSPECIFIED,+  RuntimeEnvironment_IpConfiguration_WORKERIPPUBLIC,+  RuntimeEnvironment_IpConfiguration_WORKERIPPRIVATE,+  RuntimeEnvironment_IpConfiguration+  #-}++-- | Optional. Specifies the Streaming Engine message processing guarantees. Reduces cost and latency but might result in duplicate messages committed to storage. Designed to run simple mapping streaming ETL jobs at the lowest cost. For example, Change Data Capture (CDC) to BigQuery is a canonical use case. For more information, see <https://cloud.google.com/dataflow/docs/guides/streaming-modes Set the pipeline streaming mode>.+newtype RuntimeEnvironment_StreamingMode = RuntimeEnvironment_StreamingMode {fromRuntimeEnvironment_StreamingMode :: Core.Text}+  deriving stock (Core.Show, Core.Read, Core.Eq, Core.Ord, Core.Generic)+  deriving newtype+    ( Core.Hashable,+      Core.ToHttpApiData,+      Core.FromHttpApiData,+      Core.ToJSON,+      Core.ToJSONKey,+      Core.FromJSON,+      Core.FromJSONKey+    )++-- | Run in the default mode.+pattern RuntimeEnvironment_StreamingMode_STREAMINGMODEUNSPECIFIED :: RuntimeEnvironment_StreamingMode+pattern RuntimeEnvironment_StreamingMode_STREAMINGMODEUNSPECIFIED = RuntimeEnvironment_StreamingMode "STREAMING_MODE_UNSPECIFIED"++-- | In this mode, message deduplication is performed against persistent state to make sure each message is processed and committed to storage exactly once.+pattern RuntimeEnvironment_StreamingMode_STREAMINGMODEEXACTLYONCE :: RuntimeEnvironment_StreamingMode+pattern RuntimeEnvironment_StreamingMode_STREAMINGMODEEXACTLYONCE = RuntimeEnvironment_StreamingMode "STREAMING_MODE_EXACTLY_ONCE"++-- | Message deduplication is not performed. Messages might be processed multiple times, and the results are applied multiple times. Note: Setting this value also enables Streaming Engine and Streaming Engine resource-based billing.+pattern RuntimeEnvironment_StreamingMode_STREAMINGMODEATLEASTONCE :: RuntimeEnvironment_StreamingMode+pattern RuntimeEnvironment_StreamingMode_STREAMINGMODEATLEASTONCE = RuntimeEnvironment_StreamingMode "STREAMING_MODE_AT_LEAST_ONCE"++{-# COMPLETE+  RuntimeEnvironment_StreamingMode_STREAMINGMODEUNSPECIFIED,+  RuntimeEnvironment_StreamingMode_STREAMINGMODEEXACTLYONCE,+  RuntimeEnvironment_StreamingMode_STREAMINGMODEATLEASTONCE,+  RuntimeEnvironment_StreamingMode+  #-}++-- | Required. The SDK Language.+newtype SDKInfo_Language = SDKInfo_Language {fromSDKInfo_Language :: Core.Text}+  deriving stock (Core.Show, Core.Read, Core.Eq, Core.Ord, Core.Generic)+  deriving newtype+    ( Core.Hashable,+      Core.ToHttpApiData,+      Core.FromHttpApiData,+      Core.ToJSON,+      Core.ToJSONKey,+      Core.FromJSON,+      Core.FromJSONKey+    )++-- | UNKNOWN Language.+pattern SDKInfo_Language_Unknown :: SDKInfo_Language+pattern SDKInfo_Language_Unknown = SDKInfo_Language "UNKNOWN"++-- | Java.+pattern SDKInfo_Language_Java :: SDKInfo_Language+pattern SDKInfo_Language_Java = SDKInfo_Language "JAVA"++-- | Python.+pattern SDKInfo_Language_Python :: SDKInfo_Language+pattern SDKInfo_Language_Python = SDKInfo_Language "PYTHON"++-- | Go.+pattern SDKInfo_Language_GO :: SDKInfo_Language+pattern SDKInfo_Language_GO = SDKInfo_Language "GO"++-- | YAML.+pattern SDKInfo_Language_Yaml :: SDKInfo_Language+pattern SDKInfo_Language_Yaml = SDKInfo_Language "YAML"++{-# COMPLETE+  SDKInfo_Language_Unknown,+  SDKInfo_Language_Java,+  SDKInfo_Language_Python,+  SDKInfo_Language_GO,+  SDKInfo_Language_Yaml,+  SDKInfo_Language+  #-}++-- | Output only. How severe the SDK bug is.+newtype SdkBug_Severity = SdkBug_Severity {fromSdkBug_Severity :: Core.Text}+  deriving stock (Core.Show, Core.Read, Core.Eq, Core.Ord, Core.Generic)+  deriving newtype+    ( Core.Hashable,+      Core.ToHttpApiData,+      Core.FromHttpApiData,+      Core.ToJSON,+      Core.ToJSONKey,+      Core.FromJSON,+      Core.FromJSONKey+    )++-- | A bug of unknown severity.+pattern SdkBug_Severity_SEVERITYUNSPECIFIED :: SdkBug_Severity+pattern SdkBug_Severity_SEVERITYUNSPECIFIED = SdkBug_Severity "SEVERITY_UNSPECIFIED"++-- | A minor bug that that may reduce reliability or performance for some jobs. Impact will be minimal or non-existent for most jobs.+pattern SdkBug_Severity_Notice :: SdkBug_Severity+pattern SdkBug_Severity_Notice = SdkBug_Severity "NOTICE"++-- | A bug that has some likelihood of causing performance degradation, data loss, or job failures.+pattern SdkBug_Severity_Warning :: SdkBug_Severity+pattern SdkBug_Severity_Warning = SdkBug_Severity "WARNING"++-- | A bug with extremely significant impact. Jobs may fail erroneously, performance may be severely degraded, and data loss may be very likely.+pattern SdkBug_Severity_Severe :: SdkBug_Severity+pattern SdkBug_Severity_Severe = SdkBug_Severity "SEVERE"++{-# COMPLETE+  SdkBug_Severity_SEVERITYUNSPECIFIED,+  SdkBug_Severity_Notice,+  SdkBug_Severity_Warning,+  SdkBug_Severity_Severe,+  SdkBug_Severity+  #-}++-- | Output only. Describes the impact of this SDK bug.+newtype SdkBug_Type = SdkBug_Type {fromSdkBug_Type :: Core.Text}+  deriving stock (Core.Show, Core.Read, Core.Eq, Core.Ord, Core.Generic)+  deriving newtype+    ( Core.Hashable,+      Core.ToHttpApiData,+      Core.FromHttpApiData,+      Core.ToJSON,+      Core.ToJSONKey,+      Core.FromJSON,+      Core.FromJSONKey+    )++-- | Unknown issue with this SDK.+pattern SdkBug_Type_TYPEUNSPECIFIED :: SdkBug_Type+pattern SdkBug_Type_TYPEUNSPECIFIED = SdkBug_Type "TYPE_UNSPECIFIED"++-- | Catch-all for SDK bugs that don\'t fit in the below categories.+pattern SdkBug_Type_General :: SdkBug_Type+pattern SdkBug_Type_General = SdkBug_Type "GENERAL"++-- | Using this version of the SDK may result in degraded performance.+pattern SdkBug_Type_Performance :: SdkBug_Type+pattern SdkBug_Type_Performance = SdkBug_Type "PERFORMANCE"++-- | Using this version of the SDK may cause data loss.+pattern SdkBug_Type_Dataloss :: SdkBug_Type+pattern SdkBug_Type_Dataloss = SdkBug_Type "DATALOSS"++{-# COMPLETE+  SdkBug_Type_TYPEUNSPECIFIED,+  SdkBug_Type_General,+  SdkBug_Type_Performance,+  SdkBug_Type_Dataloss,+  SdkBug_Type+  #-}++-- | The support status for this SDK version.+newtype SdkVersion_SdkSupportStatus = SdkVersion_SdkSupportStatus {fromSdkVersion_SdkSupportStatus :: Core.Text}+  deriving stock (Core.Show, Core.Read, Core.Eq, Core.Ord, Core.Generic)+  deriving newtype+    ( Core.Hashable,+      Core.ToHttpApiData,+      Core.FromHttpApiData,+      Core.ToJSON,+      Core.ToJSONKey,+      Core.FromJSON,+      Core.FromJSONKey+    )++-- | Cloud Dataflow is unaware of this version.+pattern SdkVersion_SdkSupportStatus_Unknown :: SdkVersion_SdkSupportStatus+pattern SdkVersion_SdkSupportStatus_Unknown = SdkVersion_SdkSupportStatus "UNKNOWN"++-- | This is a known version of an SDK, and is supported.+pattern SdkVersion_SdkSupportStatus_Supported :: SdkVersion_SdkSupportStatus+pattern SdkVersion_SdkSupportStatus_Supported = SdkVersion_SdkSupportStatus "SUPPORTED"++-- | A newer version of the SDK family exists, and an update is recommended.+pattern SdkVersion_SdkSupportStatus_Stale :: SdkVersion_SdkSupportStatus+pattern SdkVersion_SdkSupportStatus_Stale = SdkVersion_SdkSupportStatus "STALE"++-- | This version of the SDK is deprecated and will eventually be unsupported.+pattern SdkVersion_SdkSupportStatus_Deprecated :: SdkVersion_SdkSupportStatus+pattern SdkVersion_SdkSupportStatus_Deprecated = SdkVersion_SdkSupportStatus "DEPRECATED"++-- | Support for this SDK version has ended and it should no longer be used.+pattern SdkVersion_SdkSupportStatus_Unsupported :: SdkVersion_SdkSupportStatus+pattern SdkVersion_SdkSupportStatus_Unsupported = SdkVersion_SdkSupportStatus "UNSUPPORTED"++{-# COMPLETE+  SdkVersion_SdkSupportStatus_Unknown,+  SdkVersion_SdkSupportStatus_Supported,+  SdkVersion_SdkSupportStatus_Stale,+  SdkVersion_SdkSupportStatus_Deprecated,+  SdkVersion_SdkSupportStatus_Unsupported,+  SdkVersion_SdkSupportStatus+  #-}++-- | Format for the data field above (id=5).+newtype SendDebugCaptureRequest_DataFormat = SendDebugCaptureRequest_DataFormat {fromSendDebugCaptureRequest_DataFormat :: Core.Text}+  deriving stock (Core.Show, Core.Read, Core.Eq, Core.Ord, Core.Generic)+  deriving newtype+    ( Core.Hashable,+      Core.ToHttpApiData,+      Core.FromHttpApiData,+      Core.ToJSON,+      Core.ToJSONKey,+      Core.FromJSON,+      Core.FromJSONKey+    )++-- | Format unspecified, parsing is determined based upon page type and legacy encoding. (go\/protodosdonts#do-include-an-unspecified-value-in-an-enum)+pattern SendDebugCaptureRequest_DataFormat_DATAFORMATUNSPECIFIED :: SendDebugCaptureRequest_DataFormat+pattern SendDebugCaptureRequest_DataFormat_DATAFORMATUNSPECIFIED = SendDebugCaptureRequest_DataFormat "DATA_FORMAT_UNSPECIFIED"++-- | Raw HTML string.+pattern SendDebugCaptureRequest_DataFormat_Raw :: SendDebugCaptureRequest_DataFormat+pattern SendDebugCaptureRequest_DataFormat_Raw = SendDebugCaptureRequest_DataFormat "RAW"++-- | JSON-encoded string.+pattern SendDebugCaptureRequest_DataFormat_Json :: SendDebugCaptureRequest_DataFormat+pattern SendDebugCaptureRequest_DataFormat_Json = SendDebugCaptureRequest_DataFormat "JSON"++-- | Websafe encoded zlib-compressed string.+pattern SendDebugCaptureRequest_DataFormat_Zlib :: SendDebugCaptureRequest_DataFormat+pattern SendDebugCaptureRequest_DataFormat_Zlib = SendDebugCaptureRequest_DataFormat "ZLIB"++-- | Websafe encoded brotli-compressed string.+pattern SendDebugCaptureRequest_DataFormat_Brotli :: SendDebugCaptureRequest_DataFormat+pattern SendDebugCaptureRequest_DataFormat_Brotli = SendDebugCaptureRequest_DataFormat "BROTLI"++{-# COMPLETE+  SendDebugCaptureRequest_DataFormat_DATAFORMATUNSPECIFIED,+  SendDebugCaptureRequest_DataFormat_Raw,+  SendDebugCaptureRequest_DataFormat_Json,+  SendDebugCaptureRequest_DataFormat_Zlib,+  SendDebugCaptureRequest_DataFormat_Brotli,+  SendDebugCaptureRequest_DataFormat+  #-}++-- | State of the snapshot.+newtype Snapshot_State = Snapshot_State {fromSnapshot_State :: Core.Text}+  deriving stock (Core.Show, Core.Read, Core.Eq, Core.Ord, Core.Generic)+  deriving newtype+    ( Core.Hashable,+      Core.ToHttpApiData,+      Core.FromHttpApiData,+      Core.ToJSON,+      Core.ToJSONKey,+      Core.FromJSON,+      Core.FromJSONKey+    )++-- | Unknown state.+pattern Snapshot_State_UNKNOWNSNAPSHOTSTATE :: Snapshot_State+pattern Snapshot_State_UNKNOWNSNAPSHOTSTATE = Snapshot_State "UNKNOWN_SNAPSHOT_STATE"++-- | Snapshot intent to create has been persisted, snapshotting of state has not yet started.+pattern Snapshot_State_Pending :: Snapshot_State+pattern Snapshot_State_Pending = Snapshot_State "PENDING"++-- | Snapshotting is being performed.+pattern Snapshot_State_Running :: Snapshot_State+pattern Snapshot_State_Running = Snapshot_State "RUNNING"++-- | Snapshot has been created and is ready to be used.+pattern Snapshot_State_Ready :: Snapshot_State+pattern Snapshot_State_Ready = Snapshot_State "READY"++-- | Snapshot failed to be created.+pattern Snapshot_State_Failed :: Snapshot_State+pattern Snapshot_State_Failed = Snapshot_State "FAILED"++-- | Snapshot has been deleted.+pattern Snapshot_State_Deleted :: Snapshot_State+pattern Snapshot_State_Deleted = Snapshot_State "DELETED"++{-# COMPLETE+  Snapshot_State_UNKNOWNSNAPSHOTSTATE,+  Snapshot_State_Pending,+  Snapshot_State_Running,+  Snapshot_State_Ready,+  Snapshot_State_Failed,+  Snapshot_State_Deleted,+  Snapshot_State+  #-}++-- | Indicates whether splitting happened and produced a list of bundles. If this is USE/CURRENT/SOURCE/AS/IS, the current source should be processed \"as is\" without splitting. \"bundles\" is ignored in this case. If this is SPLITTING_HAPPENED, then \"bundles\" contains a list of bundles into which the source was split.+newtype SourceSplitResponse_Outcome = SourceSplitResponse_Outcome {fromSourceSplitResponse_Outcome :: Core.Text}+  deriving stock (Core.Show, Core.Read, Core.Eq, Core.Ord, Core.Generic)+  deriving newtype+    ( Core.Hashable,+      Core.ToHttpApiData,+      Core.FromHttpApiData,+      Core.ToJSON,+      Core.ToJSONKey,+      Core.FromJSON,+      Core.FromJSONKey+    )++-- | The source split outcome is unknown, or unspecified.+pattern SourceSplitResponse_Outcome_SOURCESPLITOUTCOMEUNKNOWN :: SourceSplitResponse_Outcome+pattern SourceSplitResponse_Outcome_SOURCESPLITOUTCOMEUNKNOWN = SourceSplitResponse_Outcome "SOURCE_SPLIT_OUTCOME_UNKNOWN"++-- | The current source should be processed \"as is\" without splitting.+pattern SourceSplitResponse_Outcome_SOURCESPLITOUTCOMEUSECURRENT :: SourceSplitResponse_Outcome+pattern SourceSplitResponse_Outcome_SOURCESPLITOUTCOMEUSECURRENT = SourceSplitResponse_Outcome "SOURCE_SPLIT_OUTCOME_USE_CURRENT"++-- | Splitting produced a list of bundles.+pattern SourceSplitResponse_Outcome_SOURCESPLITOUTCOMESPLITTINGHAPPENED :: SourceSplitResponse_Outcome+pattern SourceSplitResponse_Outcome_SOURCESPLITOUTCOMESPLITTINGHAPPENED = SourceSplitResponse_Outcome "SOURCE_SPLIT_OUTCOME_SPLITTING_HAPPENED"++{-# COMPLETE+  SourceSplitResponse_Outcome_SOURCESPLITOUTCOMEUNKNOWN,+  SourceSplitResponse_Outcome_SOURCESPLITOUTCOMEUSECURRENT,+  SourceSplitResponse_Outcome_SOURCESPLITOUTCOMESPLITTINGHAPPENED,+  SourceSplitResponse_Outcome+  #-}++-- | DEPRECATED+newtype SourceSplitShard_DerivationMode = SourceSplitShard_DerivationMode {fromSourceSplitShard_DerivationMode :: Core.Text}+  deriving stock (Core.Show, Core.Read, Core.Eq, Core.Ord, Core.Generic)+  deriving newtype+    ( Core.Hashable,+      Core.ToHttpApiData,+      Core.FromHttpApiData,+      Core.ToJSON,+      Core.ToJSONKey,+      Core.FromJSON,+      Core.FromJSONKey+    )++-- | The source derivation is unknown, or unspecified.+pattern SourceSplitShard_DerivationMode_SOURCEDERIVATIONMODEUNKNOWN :: SourceSplitShard_DerivationMode+pattern SourceSplitShard_DerivationMode_SOURCEDERIVATIONMODEUNKNOWN = SourceSplitShard_DerivationMode "SOURCE_DERIVATION_MODE_UNKNOWN"++-- | Produce a completely independent Source with no base.+pattern SourceSplitShard_DerivationMode_SOURCEDERIVATIONMODEINDEPENDENT :: SourceSplitShard_DerivationMode+pattern SourceSplitShard_DerivationMode_SOURCEDERIVATIONMODEINDEPENDENT = SourceSplitShard_DerivationMode "SOURCE_DERIVATION_MODE_INDEPENDENT"++-- | Produce a Source based on the Source being split.+pattern SourceSplitShard_DerivationMode_SOURCEDERIVATIONMODECHILDOFCURRENT :: SourceSplitShard_DerivationMode+pattern SourceSplitShard_DerivationMode_SOURCEDERIVATIONMODECHILDOFCURRENT = SourceSplitShard_DerivationMode "SOURCE_DERIVATION_MODE_CHILD_OF_CURRENT"++-- | Produce a Source based on the base of the Source being split.+pattern SourceSplitShard_DerivationMode_SOURCEDERIVATIONMODESIBLINGOFCURRENT :: SourceSplitShard_DerivationMode+pattern SourceSplitShard_DerivationMode_SOURCEDERIVATIONMODESIBLINGOFCURRENT = SourceSplitShard_DerivationMode "SOURCE_DERIVATION_MODE_SIBLING_OF_CURRENT"++{-# COMPLETE+  SourceSplitShard_DerivationMode_SOURCEDERIVATIONMODEUNKNOWN,+  SourceSplitShard_DerivationMode_SOURCEDERIVATIONMODEINDEPENDENT,+  SourceSplitShard_DerivationMode_SOURCEDERIVATIONMODECHILDOFCURRENT,+  SourceSplitShard_DerivationMode_SOURCEDERIVATIONMODESIBLINGOFCURRENT,+  SourceSplitShard_DerivationMode+  #-}++-- | State of this stage.+newtype StageSummary_State = StageSummary_State {fromStageSummary_State :: Core.Text}+  deriving stock (Core.Show, Core.Read, Core.Eq, Core.Ord, Core.Generic)+  deriving newtype+    ( Core.Hashable,+      Core.ToHttpApiData,+      Core.FromHttpApiData,+      Core.ToJSON,+      Core.ToJSONKey,+      Core.FromJSON,+      Core.FromJSONKey+    )++-- | The component state is unknown or unspecified.+pattern StageSummary_State_EXECUTIONSTATEUNKNOWN :: StageSummary_State+pattern StageSummary_State_EXECUTIONSTATEUNKNOWN = StageSummary_State "EXECUTION_STATE_UNKNOWN"++-- | The component is not yet running.+pattern StageSummary_State_EXECUTIONSTATENOTSTARTED :: StageSummary_State+pattern StageSummary_State_EXECUTIONSTATENOTSTARTED = StageSummary_State "EXECUTION_STATE_NOT_STARTED"++-- | The component is currently running.+pattern StageSummary_State_EXECUTIONSTATERUNNING :: StageSummary_State+pattern StageSummary_State_EXECUTIONSTATERUNNING = StageSummary_State "EXECUTION_STATE_RUNNING"++-- | The component succeeded.+pattern StageSummary_State_EXECUTIONSTATESUCCEEDED :: StageSummary_State+pattern StageSummary_State_EXECUTIONSTATESUCCEEDED = StageSummary_State "EXECUTION_STATE_SUCCEEDED"++-- | The component failed.+pattern StageSummary_State_EXECUTIONSTATEFAILED :: StageSummary_State+pattern StageSummary_State_EXECUTIONSTATEFAILED = StageSummary_State "EXECUTION_STATE_FAILED"++-- | Execution of the component was cancelled.+pattern StageSummary_State_EXECUTIONSTATECANCELLED :: StageSummary_State+pattern StageSummary_State_EXECUTIONSTATECANCELLED = StageSummary_State "EXECUTION_STATE_CANCELLED"++{-# COMPLETE+  StageSummary_State_EXECUTIONSTATEUNKNOWN,+  StageSummary_State_EXECUTIONSTATENOTSTARTED,+  StageSummary_State_EXECUTIONSTATERUNNING,+  StageSummary_State_EXECUTIONSTATESUCCEEDED,+  StageSummary_State_EXECUTIONSTATEFAILED,+  StageSummary_State_EXECUTIONSTATECANCELLED,+  StageSummary_State+  #-}++-- | A type of streaming computation task.+newtype StreamingComputationTask_TaskType = StreamingComputationTask_TaskType {fromStreamingComputationTask_TaskType :: Core.Text}+  deriving stock (Core.Show, Core.Read, Core.Eq, Core.Ord, Core.Generic)+  deriving newtype+    ( Core.Hashable,+      Core.ToHttpApiData,+      Core.FromHttpApiData,+      Core.ToJSON,+      Core.ToJSONKey,+      Core.FromJSON,+      Core.FromJSONKey+    )++-- | The streaming computation task is unknown, or unspecified.+pattern StreamingComputationTask_TaskType_STREAMINGCOMPUTATIONTASKUNKNOWN :: StreamingComputationTask_TaskType+pattern StreamingComputationTask_TaskType_STREAMINGCOMPUTATIONTASKUNKNOWN = StreamingComputationTask_TaskType "STREAMING_COMPUTATION_TASK_UNKNOWN"++-- | Stop processing specified streaming computation range(s).+pattern StreamingComputationTask_TaskType_STREAMINGCOMPUTATIONTASKSTOP :: StreamingComputationTask_TaskType+pattern StreamingComputationTask_TaskType_STREAMINGCOMPUTATIONTASKSTOP = StreamingComputationTask_TaskType "STREAMING_COMPUTATION_TASK_STOP"++-- | Start processing specified streaming computation range(s).+pattern StreamingComputationTask_TaskType_STREAMINGCOMPUTATIONTASKSTART :: StreamingComputationTask_TaskType+pattern StreamingComputationTask_TaskType_STREAMINGCOMPUTATIONTASKSTART = StreamingComputationTask_TaskType "STREAMING_COMPUTATION_TASK_START"++{-# COMPLETE+  StreamingComputationTask_TaskType_STREAMINGCOMPUTATIONTASKUNKNOWN,+  StreamingComputationTask_TaskType_STREAMINGCOMPUTATIONTASKSTOP,+  StreamingComputationTask_TaskType_STREAMINGCOMPUTATIONTASKSTART,+  StreamingComputationTask_TaskType+  #-}++-- | Type of transform.+newtype TransformSummary_Kind = TransformSummary_Kind {fromTransformSummary_Kind :: Core.Text}+  deriving stock (Core.Show, Core.Read, Core.Eq, Core.Ord, Core.Generic)+  deriving newtype+    ( Core.Hashable,+      Core.ToHttpApiData,+      Core.FromHttpApiData,+      Core.ToJSON,+      Core.ToJSONKey,+      Core.FromJSON,+      Core.FromJSONKey+    )++-- | Unrecognized transform type.+pattern TransformSummary_Kind_UNKNOWNKIND :: TransformSummary_Kind+pattern TransformSummary_Kind_UNKNOWNKIND = TransformSummary_Kind "UNKNOWN_KIND"++-- | ParDo transform.+pattern TransformSummary_Kind_PARDOKIND :: TransformSummary_Kind+pattern TransformSummary_Kind_PARDOKIND = TransformSummary_Kind "PAR_DO_KIND"++-- | Group By Key transform.+pattern TransformSummary_Kind_GROUPBYKEYKIND :: TransformSummary_Kind+pattern TransformSummary_Kind_GROUPBYKEYKIND = TransformSummary_Kind "GROUP_BY_KEY_KIND"++-- | Flatten transform.+pattern TransformSummary_Kind_FLATTENKIND :: TransformSummary_Kind+pattern TransformSummary_Kind_FLATTENKIND = TransformSummary_Kind "FLATTEN_KIND"++-- | Read transform.+pattern TransformSummary_Kind_READKIND :: TransformSummary_Kind+pattern TransformSummary_Kind_READKIND = TransformSummary_Kind "READ_KIND"++-- | Write transform.+pattern TransformSummary_Kind_WRITEKIND :: TransformSummary_Kind+pattern TransformSummary_Kind_WRITEKIND = TransformSummary_Kind "WRITE_KIND"++-- | Constructs from a constant value, such as with Create.of.+pattern TransformSummary_Kind_CONSTANTKIND :: TransformSummary_Kind+pattern TransformSummary_Kind_CONSTANTKIND = TransformSummary_Kind "CONSTANT_KIND"++-- | Creates a Singleton view of a collection.+pattern TransformSummary_Kind_SINGLETONKIND :: TransformSummary_Kind+pattern TransformSummary_Kind_SINGLETONKIND = TransformSummary_Kind "SINGLETON_KIND"++-- | Opening or closing a shuffle session, often as part of a GroupByKey.+pattern TransformSummary_Kind_SHUFFLEKIND :: TransformSummary_Kind+pattern TransformSummary_Kind_SHUFFLEKIND = TransformSummary_Kind "SHUFFLE_KIND"++{-# COMPLETE+  TransformSummary_Kind_UNKNOWNKIND,+  TransformSummary_Kind_PARDOKIND,+  TransformSummary_Kind_GROUPBYKEYKIND,+  TransformSummary_Kind_FLATTENKIND,+  TransformSummary_Kind_READKIND,+  TransformSummary_Kind_WRITEKIND,+  TransformSummary_Kind_CONSTANTKIND,+  TransformSummary_Kind_SINGLETONKIND,+  TransformSummary_Kind_SHUFFLEKIND,+  TransformSummary_Kind+  #-}++-- | State of this work item.+newtype WorkItemDetails_State = WorkItemDetails_State {fromWorkItemDetails_State :: Core.Text}+  deriving stock (Core.Show, Core.Read, Core.Eq, Core.Ord, Core.Generic)+  deriving newtype+    ( Core.Hashable,+      Core.ToHttpApiData,+      Core.FromHttpApiData,+      Core.ToJSON,+      Core.ToJSONKey,+      Core.FromJSON,+      Core.FromJSONKey+    )++-- | The component state is unknown or unspecified.+pattern WorkItemDetails_State_EXECUTIONSTATEUNKNOWN :: WorkItemDetails_State+pattern WorkItemDetails_State_EXECUTIONSTATEUNKNOWN = WorkItemDetails_State "EXECUTION_STATE_UNKNOWN"++-- | The component is not yet running.+pattern WorkItemDetails_State_EXECUTIONSTATENOTSTARTED :: WorkItemDetails_State+pattern WorkItemDetails_State_EXECUTIONSTATENOTSTARTED = WorkItemDetails_State "EXECUTION_STATE_NOT_STARTED"++-- | The component is currently running.+pattern WorkItemDetails_State_EXECUTIONSTATERUNNING :: WorkItemDetails_State+pattern WorkItemDetails_State_EXECUTIONSTATERUNNING = WorkItemDetails_State "EXECUTION_STATE_RUNNING"++-- | The component succeeded.+pattern WorkItemDetails_State_EXECUTIONSTATESUCCEEDED :: WorkItemDetails_State+pattern WorkItemDetails_State_EXECUTIONSTATESUCCEEDED = WorkItemDetails_State "EXECUTION_STATE_SUCCEEDED"++-- | The component failed.+pattern WorkItemDetails_State_EXECUTIONSTATEFAILED :: WorkItemDetails_State+pattern WorkItemDetails_State_EXECUTIONSTATEFAILED = WorkItemDetails_State "EXECUTION_STATE_FAILED"++-- | Execution of the component was cancelled.+pattern WorkItemDetails_State_EXECUTIONSTATECANCELLED :: WorkItemDetails_State+pattern WorkItemDetails_State_EXECUTIONSTATECANCELLED = WorkItemDetails_State "EXECUTION_STATE_CANCELLED"++{-# COMPLETE+  WorkItemDetails_State_EXECUTIONSTATEUNKNOWN,+  WorkItemDetails_State_EXECUTIONSTATENOTSTARTED,+  WorkItemDetails_State_EXECUTIONSTATERUNNING,+  WorkItemDetails_State_EXECUTIONSTATESUCCEEDED,+  WorkItemDetails_State_EXECUTIONSTATEFAILED,+  WorkItemDetails_State_EXECUTIONSTATECANCELLED,+  WorkItemDetails_State+  #-}++-- | The event being reported.+newtype WorkerLifecycleEvent_Event = WorkerLifecycleEvent_Event {fromWorkerLifecycleEvent_Event :: Core.Text}+  deriving stock (Core.Show, Core.Read, Core.Eq, Core.Ord, Core.Generic)+  deriving newtype+    ( Core.Hashable,+      Core.ToHttpApiData,+      Core.FromHttpApiData,+      Core.ToJSON,+      Core.ToJSONKey,+      Core.FromJSON,+      Core.FromJSONKey+    )++-- | Invalid event.+pattern WorkerLifecycleEvent_Event_UNKNOWNEVENT :: WorkerLifecycleEvent_Event+pattern WorkerLifecycleEvent_Event_UNKNOWNEVENT = WorkerLifecycleEvent_Event "UNKNOWN_EVENT"++-- | The time the VM started.+pattern WorkerLifecycleEvent_Event_OSSTART :: WorkerLifecycleEvent_Event+pattern WorkerLifecycleEvent_Event_OSSTART = WorkerLifecycleEvent_Event "OS_START"++-- | Our container code starts running. Multiple containers could be distinguished with WorkerMessage.labels if desired.+pattern WorkerLifecycleEvent_Event_CONTAINERSTART :: WorkerLifecycleEvent_Event+pattern WorkerLifecycleEvent_Event_CONTAINERSTART = WorkerLifecycleEvent_Event "CONTAINER_START"++-- | The worker has a functional external network connection.+pattern WorkerLifecycleEvent_Event_NETWORKUP :: WorkerLifecycleEvent_Event+pattern WorkerLifecycleEvent_Event_NETWORKUP = WorkerLifecycleEvent_Event "NETWORK_UP"++-- | Started downloading staging files.+pattern WorkerLifecycleEvent_Event_STAGINGFILESDOWNLOADSTART :: WorkerLifecycleEvent_Event+pattern WorkerLifecycleEvent_Event_STAGINGFILESDOWNLOADSTART = WorkerLifecycleEvent_Event "STAGING_FILES_DOWNLOAD_START"++-- | Finished downloading all staging files.+pattern WorkerLifecycleEvent_Event_STAGINGFILESDOWNLOADFINISH :: WorkerLifecycleEvent_Event+pattern WorkerLifecycleEvent_Event_STAGINGFILESDOWNLOADFINISH = WorkerLifecycleEvent_Event "STAGING_FILES_DOWNLOAD_FINISH"++-- | For applicable SDKs, started installation of SDK and worker packages.+pattern WorkerLifecycleEvent_Event_SDKINSTALLSTART :: WorkerLifecycleEvent_Event+pattern WorkerLifecycleEvent_Event_SDKINSTALLSTART = WorkerLifecycleEvent_Event "SDK_INSTALL_START"++-- | Finished installing SDK.+pattern WorkerLifecycleEvent_Event_SDKINSTALLFINISH :: WorkerLifecycleEvent_Event+pattern WorkerLifecycleEvent_Event_SDKINSTALLFINISH = WorkerLifecycleEvent_Event "SDK_INSTALL_FINISH"++{-# COMPLETE+  WorkerLifecycleEvent_Event_UNKNOWNEVENT,+  WorkerLifecycleEvent_Event_OSSTART,+  WorkerLifecycleEvent_Event_CONTAINERSTART,+  WorkerLifecycleEvent_Event_NETWORKUP,+  WorkerLifecycleEvent_Event_STAGINGFILESDOWNLOADSTART,+  WorkerLifecycleEvent_Event_STAGINGFILESDOWNLOADFINISH,+  WorkerLifecycleEvent_Event_SDKINSTALLSTART,+  WorkerLifecycleEvent_Event_SDKINSTALLFINISH,+  WorkerLifecycleEvent_Event+  #-}++-- | The default package set to install. This allows the service to select a default set of packages which are useful to worker harnesses written in a particular language.+newtype WorkerPool_DefaultPackageSet = WorkerPool_DefaultPackageSet {fromWorkerPool_DefaultPackageSet :: Core.Text}+  deriving stock (Core.Show, Core.Read, Core.Eq, Core.Ord, Core.Generic)+  deriving newtype+    ( Core.Hashable,+      Core.ToHttpApiData,+      Core.FromHttpApiData,+      Core.ToJSON,+      Core.ToJSONKey,+      Core.FromJSON,+      Core.FromJSONKey+    )++-- | The default set of packages to stage is unknown, or unspecified.+pattern WorkerPool_DefaultPackageSet_DEFAULTPACKAGESETUNKNOWN :: WorkerPool_DefaultPackageSet+pattern WorkerPool_DefaultPackageSet_DEFAULTPACKAGESETUNKNOWN = WorkerPool_DefaultPackageSet "DEFAULT_PACKAGE_SET_UNKNOWN"++-- | Indicates that no packages should be staged at the worker unless explicitly specified by the job.+pattern WorkerPool_DefaultPackageSet_DEFAULTPACKAGESETNONE :: WorkerPool_DefaultPackageSet+pattern WorkerPool_DefaultPackageSet_DEFAULTPACKAGESETNONE = WorkerPool_DefaultPackageSet "DEFAULT_PACKAGE_SET_NONE"++-- | Stage packages typically useful to workers written in Java.+pattern WorkerPool_DefaultPackageSet_DEFAULTPACKAGESETJAVA :: WorkerPool_DefaultPackageSet+pattern WorkerPool_DefaultPackageSet_DEFAULTPACKAGESETJAVA = WorkerPool_DefaultPackageSet "DEFAULT_PACKAGE_SET_JAVA"++-- | Stage packages typically useful to workers written in Python.+pattern WorkerPool_DefaultPackageSet_DEFAULTPACKAGESETPYTHON :: WorkerPool_DefaultPackageSet+pattern WorkerPool_DefaultPackageSet_DEFAULTPACKAGESETPYTHON = WorkerPool_DefaultPackageSet "DEFAULT_PACKAGE_SET_PYTHON"++{-# COMPLETE+  WorkerPool_DefaultPackageSet_DEFAULTPACKAGESETUNKNOWN,+  WorkerPool_DefaultPackageSet_DEFAULTPACKAGESETNONE,+  WorkerPool_DefaultPackageSet_DEFAULTPACKAGESETJAVA,+  WorkerPool_DefaultPackageSet_DEFAULTPACKAGESETPYTHON,+  WorkerPool_DefaultPackageSet+  #-}++-- | Configuration for VM IPs.+newtype WorkerPool_IpConfiguration = WorkerPool_IpConfiguration {fromWorkerPool_IpConfiguration :: Core.Text}+  deriving stock (Core.Show, Core.Read, Core.Eq, Core.Ord, Core.Generic)+  deriving newtype+    ( Core.Hashable,+      Core.ToHttpApiData,+      Core.FromHttpApiData,+      Core.ToJSON,+      Core.ToJSONKey,+      Core.FromJSON,+      Core.FromJSONKey+    )++-- | The configuration is unknown, or unspecified.+pattern WorkerPool_IpConfiguration_WORKERIPUNSPECIFIED :: WorkerPool_IpConfiguration+pattern WorkerPool_IpConfiguration_WORKERIPUNSPECIFIED = WorkerPool_IpConfiguration "WORKER_IP_UNSPECIFIED"++-- | Workers should have public IP addresses.+pattern WorkerPool_IpConfiguration_WORKERIPPUBLIC :: WorkerPool_IpConfiguration+pattern WorkerPool_IpConfiguration_WORKERIPPUBLIC = WorkerPool_IpConfiguration "WORKER_IP_PUBLIC"++-- | Workers should have private IP addresses.+pattern WorkerPool_IpConfiguration_WORKERIPPRIVATE :: WorkerPool_IpConfiguration+pattern WorkerPool_IpConfiguration_WORKERIPPRIVATE = WorkerPool_IpConfiguration "WORKER_IP_PRIVATE"++{-# COMPLETE+  WorkerPool_IpConfiguration_WORKERIPUNSPECIFIED,+  WorkerPool_IpConfiguration_WORKERIPPUBLIC,+  WorkerPool_IpConfiguration_WORKERIPPRIVATE,+  WorkerPool_IpConfiguration+  #-}++-- | Sets the policy for determining when to turndown worker pool. Allowed values are: @TEARDOWN_ALWAYS@, @TEARDOWN_ON_SUCCESS@, and @TEARDOWN_NEVER@. @TEARDOWN_ALWAYS@ means workers are always torn down regardless of whether the job succeeds. @TEARDOWN_ON_SUCCESS@ means workers are torn down if the job succeeds. @TEARDOWN_NEVER@ means the workers are never torn down. If the workers are not torn down by the service, they will continue to run and use Google Compute Engine VM resources in the user\'s project until they are explicitly terminated by the user. Because of this, Google recommends using the @TEARDOWN_ALWAYS@ policy except for small, manually supervised test jobs. If unknown or unspecified, the service will attempt to choose a reasonable default.+newtype WorkerPool_TeardownPolicy = WorkerPool_TeardownPolicy {fromWorkerPool_TeardownPolicy :: Core.Text}+  deriving stock (Core.Show, Core.Read, Core.Eq, Core.Ord, Core.Generic)+  deriving newtype+    ( Core.Hashable,+      Core.ToHttpApiData,+      Core.FromHttpApiData,+      Core.ToJSON,+      Core.ToJSONKey,+      Core.FromJSON,+      Core.FromJSONKey+    )++-- | The teardown policy isn\'t specified, or is unknown.+pattern WorkerPool_TeardownPolicy_TEARDOWNPOLICYUNKNOWN :: WorkerPool_TeardownPolicy+pattern WorkerPool_TeardownPolicy_TEARDOWNPOLICYUNKNOWN = WorkerPool_TeardownPolicy "TEARDOWN_POLICY_UNKNOWN"++-- | Always teardown the resource.+pattern WorkerPool_TeardownPolicy_TEARDOWNALWAYS :: WorkerPool_TeardownPolicy+pattern WorkerPool_TeardownPolicy_TEARDOWNALWAYS = WorkerPool_TeardownPolicy "TEARDOWN_ALWAYS"++-- | Teardown the resource on success. This is useful for debugging failures.+pattern WorkerPool_TeardownPolicy_TEARDOWNONSUCCESS :: WorkerPool_TeardownPolicy+pattern WorkerPool_TeardownPolicy_TEARDOWNONSUCCESS = WorkerPool_TeardownPolicy "TEARDOWN_ON_SUCCESS"++-- | Never teardown the resource. This is useful for debugging and development.+pattern WorkerPool_TeardownPolicy_TEARDOWNNEVER :: WorkerPool_TeardownPolicy+pattern WorkerPool_TeardownPolicy_TEARDOWNNEVER = WorkerPool_TeardownPolicy "TEARDOWN_NEVER"++{-# COMPLETE+  WorkerPool_TeardownPolicy_TEARDOWNPOLICYUNKNOWN,+  WorkerPool_TeardownPolicy_TEARDOWNALWAYS,+  WorkerPool_TeardownPolicy_TEARDOWNONSUCCESS,+  WorkerPool_TeardownPolicy_TEARDOWNNEVER,+  WorkerPool_TeardownPolicy+  #-}++-- | The kind of filter to use.+newtype ProjectsJobsAggregatedFilter = ProjectsJobsAggregatedFilter {fromProjectsJobsAggregatedFilter :: Core.Text}+  deriving stock (Core.Show, Core.Read, Core.Eq, Core.Ord, Core.Generic)+  deriving newtype+    ( Core.Hashable,+      Core.ToHttpApiData,+      Core.FromHttpApiData,+      Core.ToJSON,+      Core.ToJSONKey,+      Core.FromJSON,+      Core.FromJSONKey+    )++-- | The filter isn\'t specified, or is unknown. This returns all jobs ordered on descending @JobUuid@.+pattern ProjectsJobsAggregatedFilter_Unknown :: ProjectsJobsAggregatedFilter+pattern ProjectsJobsAggregatedFilter_Unknown = ProjectsJobsAggregatedFilter "UNKNOWN"++-- | Returns all running jobs first ordered on creation timestamp, then returns all terminated jobs ordered on the termination timestamp.+pattern ProjectsJobsAggregatedFilter_All :: ProjectsJobsAggregatedFilter+pattern ProjectsJobsAggregatedFilter_All = ProjectsJobsAggregatedFilter "ALL"++-- | Filters the jobs that have a terminated state, ordered on the termination timestamp. Example terminated states: @JOB_STATE_STOPPED@, @JOB_STATE_UPDATED@, @JOB_STATE_DRAINED@, etc.+pattern ProjectsJobsAggregatedFilter_Terminated :: ProjectsJobsAggregatedFilter+pattern ProjectsJobsAggregatedFilter_Terminated = ProjectsJobsAggregatedFilter "TERMINATED"++-- | Filters the jobs that are running ordered on the creation timestamp.+pattern ProjectsJobsAggregatedFilter_Active :: ProjectsJobsAggregatedFilter+pattern ProjectsJobsAggregatedFilter_Active = ProjectsJobsAggregatedFilter "ACTIVE"++{-# COMPLETE+  ProjectsJobsAggregatedFilter_Unknown,+  ProjectsJobsAggregatedFilter_All,+  ProjectsJobsAggregatedFilter_Terminated,+  ProjectsJobsAggregatedFilter_Active,+  ProjectsJobsAggregatedFilter+  #-}++-- | Deprecated. ListJobs always returns summaries now. Use GetJob for other JobViews.+newtype ProjectsJobsAggregatedView = ProjectsJobsAggregatedView {fromProjectsJobsAggregatedView :: Core.Text}+  deriving stock (Core.Show, Core.Read, Core.Eq, Core.Ord, Core.Generic)+  deriving newtype+    ( Core.Hashable,+      Core.ToHttpApiData,+      Core.FromHttpApiData,+      Core.ToJSON,+      Core.ToJSONKey,+      Core.FromJSON,+      Core.FromJSONKey+    )++-- | The job view to return isn\'t specified, or is unknown. Responses will contain at least the @JOB_VIEW_SUMMARY@ information, and may contain additional information.+pattern ProjectsJobsAggregatedView_JOBVIEWUNKNOWN :: ProjectsJobsAggregatedView+pattern ProjectsJobsAggregatedView_JOBVIEWUNKNOWN = ProjectsJobsAggregatedView "JOB_VIEW_UNKNOWN"++-- | Request summary information only: Project ID, Job ID, job name, job type, job status, start\/end time, and Cloud SDK version details.+pattern ProjectsJobsAggregatedView_JOBVIEWSUMMARY :: ProjectsJobsAggregatedView+pattern ProjectsJobsAggregatedView_JOBVIEWSUMMARY = ProjectsJobsAggregatedView "JOB_VIEW_SUMMARY"++-- | Request all information available for this job. When the job is in @JOB_STATE_PENDING@, the job has been created but is not yet running, and not all job information is available. For complete job information, wait until the job in is @JOB_STATE_RUNNING@. For more information, see <https://cloud.google.com/dataflow/docs/reference/rest/v1b3/projects.jobs#jobstate JobState>.+pattern ProjectsJobsAggregatedView_JOBVIEWALL :: ProjectsJobsAggregatedView+pattern ProjectsJobsAggregatedView_JOBVIEWALL = ProjectsJobsAggregatedView "JOB_VIEW_ALL"++-- | Request summary info and limited job description data for steps, labels and environment.+pattern ProjectsJobsAggregatedView_JOBVIEWDESCRIPTION :: ProjectsJobsAggregatedView+pattern ProjectsJobsAggregatedView_JOBVIEWDESCRIPTION = ProjectsJobsAggregatedView "JOB_VIEW_DESCRIPTION"++{-# COMPLETE+  ProjectsJobsAggregatedView_JOBVIEWUNKNOWN,+  ProjectsJobsAggregatedView_JOBVIEWSUMMARY,+  ProjectsJobsAggregatedView_JOBVIEWALL,+  ProjectsJobsAggregatedView_JOBVIEWDESCRIPTION,+  ProjectsJobsAggregatedView+  #-}++-- | The level of information requested in response.+newtype ProjectsJobsCreateView = ProjectsJobsCreateView {fromProjectsJobsCreateView :: Core.Text}+  deriving stock (Core.Show, Core.Read, Core.Eq, Core.Ord, Core.Generic)+  deriving newtype+    ( Core.Hashable,+      Core.ToHttpApiData,+      Core.FromHttpApiData,+      Core.ToJSON,+      Core.ToJSONKey,+      Core.FromJSON,+      Core.FromJSONKey+    )++-- | The job view to return isn\'t specified, or is unknown. Responses will contain at least the @JOB_VIEW_SUMMARY@ information, and may contain additional information.+pattern ProjectsJobsCreateView_JOBVIEWUNKNOWN :: ProjectsJobsCreateView+pattern ProjectsJobsCreateView_JOBVIEWUNKNOWN = ProjectsJobsCreateView "JOB_VIEW_UNKNOWN"++-- | Request summary information only: Project ID, Job ID, job name, job type, job status, start\/end time, and Cloud SDK version details.+pattern ProjectsJobsCreateView_JOBVIEWSUMMARY :: ProjectsJobsCreateView+pattern ProjectsJobsCreateView_JOBVIEWSUMMARY = ProjectsJobsCreateView "JOB_VIEW_SUMMARY"++-- | Request all information available for this job. When the job is in @JOB_STATE_PENDING@, the job has been created but is not yet running, and not all job information is available. For complete job information, wait until the job in is @JOB_STATE_RUNNING@. For more information, see <https://cloud.google.com/dataflow/docs/reference/rest/v1b3/projects.jobs#jobstate JobState>.+pattern ProjectsJobsCreateView_JOBVIEWALL :: ProjectsJobsCreateView+pattern ProjectsJobsCreateView_JOBVIEWALL = ProjectsJobsCreateView "JOB_VIEW_ALL"++-- | Request summary info and limited job description data for steps, labels and environment.+pattern ProjectsJobsCreateView_JOBVIEWDESCRIPTION :: ProjectsJobsCreateView+pattern ProjectsJobsCreateView_JOBVIEWDESCRIPTION = ProjectsJobsCreateView "JOB_VIEW_DESCRIPTION"++{-# COMPLETE+  ProjectsJobsCreateView_JOBVIEWUNKNOWN,+  ProjectsJobsCreateView_JOBVIEWSUMMARY,+  ProjectsJobsCreateView_JOBVIEWALL,+  ProjectsJobsCreateView_JOBVIEWDESCRIPTION,+  ProjectsJobsCreateView+  #-}++-- | The level of information requested in response.+newtype ProjectsJobsGetView = ProjectsJobsGetView {fromProjectsJobsGetView :: Core.Text}+  deriving stock (Core.Show, Core.Read, Core.Eq, Core.Ord, Core.Generic)+  deriving newtype+    ( Core.Hashable,+      Core.ToHttpApiData,+      Core.FromHttpApiData,+      Core.ToJSON,+      Core.ToJSONKey,+      Core.FromJSON,+      Core.FromJSONKey+    )++-- | The job view to return isn\'t specified, or is unknown. Responses will contain at least the @JOB_VIEW_SUMMARY@ information, and may contain additional information.+pattern ProjectsJobsGetView_JOBVIEWUNKNOWN :: ProjectsJobsGetView+pattern ProjectsJobsGetView_JOBVIEWUNKNOWN = ProjectsJobsGetView "JOB_VIEW_UNKNOWN"++-- | Request summary information only: Project ID, Job ID, job name, job type, job status, start\/end time, and Cloud SDK version details.+pattern ProjectsJobsGetView_JOBVIEWSUMMARY :: ProjectsJobsGetView+pattern ProjectsJobsGetView_JOBVIEWSUMMARY = ProjectsJobsGetView "JOB_VIEW_SUMMARY"++-- | Request all information available for this job. When the job is in @JOB_STATE_PENDING@, the job has been created but is not yet running, and not all job information is available. For complete job information, wait until the job in is @JOB_STATE_RUNNING@. For more information, see <https://cloud.google.com/dataflow/docs/reference/rest/v1b3/projects.jobs#jobstate JobState>.+pattern ProjectsJobsGetView_JOBVIEWALL :: ProjectsJobsGetView+pattern ProjectsJobsGetView_JOBVIEWALL = ProjectsJobsGetView "JOB_VIEW_ALL"++-- | Request summary info and limited job description data for steps, labels and environment.+pattern ProjectsJobsGetView_JOBVIEWDESCRIPTION :: ProjectsJobsGetView+pattern ProjectsJobsGetView_JOBVIEWDESCRIPTION = ProjectsJobsGetView "JOB_VIEW_DESCRIPTION"++{-# COMPLETE+  ProjectsJobsGetView_JOBVIEWUNKNOWN,+  ProjectsJobsGetView_JOBVIEWSUMMARY,+  ProjectsJobsGetView_JOBVIEWALL,+  ProjectsJobsGetView_JOBVIEWDESCRIPTION,+  ProjectsJobsGetView+  #-}++-- | The kind of filter to use.+newtype ProjectsJobsListFilter = ProjectsJobsListFilter {fromProjectsJobsListFilter :: Core.Text}+  deriving stock (Core.Show, Core.Read, Core.Eq, Core.Ord, Core.Generic)+  deriving newtype+    ( Core.Hashable,+      Core.ToHttpApiData,+      Core.FromHttpApiData,+      Core.ToJSON,+      Core.ToJSONKey,+      Core.FromJSON,+      Core.FromJSONKey+    )++-- | The filter isn\'t specified, or is unknown. This returns all jobs ordered on descending @JobUuid@.+pattern ProjectsJobsListFilter_Unknown :: ProjectsJobsListFilter+pattern ProjectsJobsListFilter_Unknown = ProjectsJobsListFilter "UNKNOWN"++-- | Returns all running jobs first ordered on creation timestamp, then returns all terminated jobs ordered on the termination timestamp.+pattern ProjectsJobsListFilter_All :: ProjectsJobsListFilter+pattern ProjectsJobsListFilter_All = ProjectsJobsListFilter "ALL"++-- | Filters the jobs that have a terminated state, ordered on the termination timestamp. Example terminated states: @JOB_STATE_STOPPED@, @JOB_STATE_UPDATED@, @JOB_STATE_DRAINED@, etc.+pattern ProjectsJobsListFilter_Terminated :: ProjectsJobsListFilter+pattern ProjectsJobsListFilter_Terminated = ProjectsJobsListFilter "TERMINATED"++-- | Filters the jobs that are running ordered on the creation timestamp.+pattern ProjectsJobsListFilter_Active :: ProjectsJobsListFilter+pattern ProjectsJobsListFilter_Active = ProjectsJobsListFilter "ACTIVE"++{-# COMPLETE+  ProjectsJobsListFilter_Unknown,+  ProjectsJobsListFilter_All,+  ProjectsJobsListFilter_Terminated,+  ProjectsJobsListFilter_Active,+  ProjectsJobsListFilter+  #-}++-- | Deprecated. ListJobs always returns summaries now. Use GetJob for other JobViews.+newtype ProjectsJobsListView = ProjectsJobsListView {fromProjectsJobsListView :: Core.Text}+  deriving stock (Core.Show, Core.Read, Core.Eq, Core.Ord, Core.Generic)+  deriving newtype+    ( Core.Hashable,+      Core.ToHttpApiData,+      Core.FromHttpApiData,+      Core.ToJSON,+      Core.ToJSONKey,+      Core.FromJSON,+      Core.FromJSONKey+    )++-- | The job view to return isn\'t specified, or is unknown. Responses will contain at least the @JOB_VIEW_SUMMARY@ information, and may contain additional information.+pattern ProjectsJobsListView_JOBVIEWUNKNOWN :: ProjectsJobsListView+pattern ProjectsJobsListView_JOBVIEWUNKNOWN = ProjectsJobsListView "JOB_VIEW_UNKNOWN"++-- | Request summary information only: Project ID, Job ID, job name, job type, job status, start\/end time, and Cloud SDK version details.+pattern ProjectsJobsListView_JOBVIEWSUMMARY :: ProjectsJobsListView+pattern ProjectsJobsListView_JOBVIEWSUMMARY = ProjectsJobsListView "JOB_VIEW_SUMMARY"++-- | Request all information available for this job. When the job is in @JOB_STATE_PENDING@, the job has been created but is not yet running, and not all job information is available. For complete job information, wait until the job in is @JOB_STATE_RUNNING@. For more information, see <https://cloud.google.com/dataflow/docs/reference/rest/v1b3/projects.jobs#jobstate JobState>.+pattern ProjectsJobsListView_JOBVIEWALL :: ProjectsJobsListView+pattern ProjectsJobsListView_JOBVIEWALL = ProjectsJobsListView "JOB_VIEW_ALL"++-- | Request summary info and limited job description data for steps, labels and environment.+pattern ProjectsJobsListView_JOBVIEWDESCRIPTION :: ProjectsJobsListView+pattern ProjectsJobsListView_JOBVIEWDESCRIPTION = ProjectsJobsListView "JOB_VIEW_DESCRIPTION"++{-# COMPLETE+  ProjectsJobsListView_JOBVIEWUNKNOWN,+  ProjectsJobsListView_JOBVIEWSUMMARY,+  ProjectsJobsListView_JOBVIEWALL,+  ProjectsJobsListView_JOBVIEWDESCRIPTION,+  ProjectsJobsListView+  #-}++-- | Filter to only get messages with importance >= level+newtype ProjectsJobsMessagesListMinimumImportance = ProjectsJobsMessagesListMinimumImportance {fromProjectsJobsMessagesListMinimumImportance :: Core.Text}+  deriving stock (Core.Show, Core.Read, Core.Eq, Core.Ord, Core.Generic)+  deriving newtype+    ( Core.Hashable,+      Core.ToHttpApiData,+      Core.FromHttpApiData,+      Core.ToJSON,+      Core.ToJSONKey,+      Core.FromJSON,+      Core.FromJSONKey+    )++-- | The message importance isn\'t specified, or is unknown.+pattern ProjectsJobsMessagesListMinimumImportance_JOBMESSAGEIMPORTANCEUNKNOWN :: ProjectsJobsMessagesListMinimumImportance+pattern ProjectsJobsMessagesListMinimumImportance_JOBMESSAGEIMPORTANCEUNKNOWN = ProjectsJobsMessagesListMinimumImportance "JOB_MESSAGE_IMPORTANCE_UNKNOWN"++-- | The message is at the \'debug\' level: typically only useful for software engineers working on the code the job is running. Typically, Dataflow pipeline runners do not display log messages at this level by default.+pattern ProjectsJobsMessagesListMinimumImportance_JOBMESSAGEDEBUG :: ProjectsJobsMessagesListMinimumImportance+pattern ProjectsJobsMessagesListMinimumImportance_JOBMESSAGEDEBUG = ProjectsJobsMessagesListMinimumImportance "JOB_MESSAGE_DEBUG"++-- | The message is at the \'detailed\' level: somewhat verbose, but potentially useful to users. Typically, Dataflow pipeline runners do not display log messages at this level by default. These messages are displayed by default in the Dataflow monitoring UI.+pattern ProjectsJobsMessagesListMinimumImportance_JOBMESSAGEDETAILED :: ProjectsJobsMessagesListMinimumImportance+pattern ProjectsJobsMessagesListMinimumImportance_JOBMESSAGEDETAILED = ProjectsJobsMessagesListMinimumImportance "JOB_MESSAGE_DETAILED"++-- | The message is at the \'basic\' level: useful for keeping track of the execution of a Dataflow pipeline. Typically, Dataflow pipeline runners display log messages at this level by default, and these messages are displayed by default in the Dataflow monitoring UI.+pattern ProjectsJobsMessagesListMinimumImportance_JOBMESSAGEBASIC :: ProjectsJobsMessagesListMinimumImportance+pattern ProjectsJobsMessagesListMinimumImportance_JOBMESSAGEBASIC = ProjectsJobsMessagesListMinimumImportance "JOB_MESSAGE_BASIC"++-- | The message is at the \'warning\' level: indicating a condition pertaining to a job which may require human intervention. Typically, Dataflow pipeline runners display log messages at this level by default, and these messages are displayed by default in the Dataflow monitoring UI.+pattern ProjectsJobsMessagesListMinimumImportance_JOBMESSAGEWARNING :: ProjectsJobsMessagesListMinimumImportance+pattern ProjectsJobsMessagesListMinimumImportance_JOBMESSAGEWARNING = ProjectsJobsMessagesListMinimumImportance "JOB_MESSAGE_WARNING"++-- | The message is at the \'error\' level: indicating a condition preventing a job from succeeding. Typically, Dataflow pipeline runners display log messages at this level by default, and these messages are displayed by default in the Dataflow monitoring UI.+pattern ProjectsJobsMessagesListMinimumImportance_JOBMESSAGEERROR :: ProjectsJobsMessagesListMinimumImportance+pattern ProjectsJobsMessagesListMinimumImportance_JOBMESSAGEERROR = ProjectsJobsMessagesListMinimumImportance "JOB_MESSAGE_ERROR"++{-# COMPLETE+  ProjectsJobsMessagesListMinimumImportance_JOBMESSAGEIMPORTANCEUNKNOWN,+  ProjectsJobsMessagesListMinimumImportance_JOBMESSAGEDEBUG,+  ProjectsJobsMessagesListMinimumImportance_JOBMESSAGEDETAILED,+  ProjectsJobsMessagesListMinimumImportance_JOBMESSAGEBASIC,+  ProjectsJobsMessagesListMinimumImportance_JOBMESSAGEWARNING,+  ProjectsJobsMessagesListMinimumImportance_JOBMESSAGEERROR,+  ProjectsJobsMessagesListMinimumImportance+  #-}++-- | The level of information requested in response.+newtype ProjectsLocationsJobsCreateView = ProjectsLocationsJobsCreateView {fromProjectsLocationsJobsCreateView :: Core.Text}+  deriving stock (Core.Show, Core.Read, Core.Eq, Core.Ord, Core.Generic)+  deriving newtype+    ( Core.Hashable,+      Core.ToHttpApiData,+      Core.FromHttpApiData,+      Core.ToJSON,+      Core.ToJSONKey,+      Core.FromJSON,+      Core.FromJSONKey+    )++-- | The job view to return isn\'t specified, or is unknown. Responses will contain at least the @JOB_VIEW_SUMMARY@ information, and may contain additional information.+pattern ProjectsLocationsJobsCreateView_JOBVIEWUNKNOWN :: ProjectsLocationsJobsCreateView+pattern ProjectsLocationsJobsCreateView_JOBVIEWUNKNOWN = ProjectsLocationsJobsCreateView "JOB_VIEW_UNKNOWN"++-- | Request summary information only: Project ID, Job ID, job name, job type, job status, start\/end time, and Cloud SDK version details.+pattern ProjectsLocationsJobsCreateView_JOBVIEWSUMMARY :: ProjectsLocationsJobsCreateView+pattern ProjectsLocationsJobsCreateView_JOBVIEWSUMMARY = ProjectsLocationsJobsCreateView "JOB_VIEW_SUMMARY"++-- | Request all information available for this job. When the job is in @JOB_STATE_PENDING@, the job has been created but is not yet running, and not all job information is available. For complete job information, wait until the job in is @JOB_STATE_RUNNING@. For more information, see <https://cloud.google.com/dataflow/docs/reference/rest/v1b3/projects.jobs#jobstate JobState>.+pattern ProjectsLocationsJobsCreateView_JOBVIEWALL :: ProjectsLocationsJobsCreateView+pattern ProjectsLocationsJobsCreateView_JOBVIEWALL = ProjectsLocationsJobsCreateView "JOB_VIEW_ALL"++-- | Request summary info and limited job description data for steps, labels and environment.+pattern ProjectsLocationsJobsCreateView_JOBVIEWDESCRIPTION :: ProjectsLocationsJobsCreateView+pattern ProjectsLocationsJobsCreateView_JOBVIEWDESCRIPTION = ProjectsLocationsJobsCreateView "JOB_VIEW_DESCRIPTION"++{-# COMPLETE+  ProjectsLocationsJobsCreateView_JOBVIEWUNKNOWN,+  ProjectsLocationsJobsCreateView_JOBVIEWSUMMARY,+  ProjectsLocationsJobsCreateView_JOBVIEWALL,+  ProjectsLocationsJobsCreateView_JOBVIEWDESCRIPTION,+  ProjectsLocationsJobsCreateView+  #-}++-- | The level of information requested in response.+newtype ProjectsLocationsJobsGetView = ProjectsLocationsJobsGetView {fromProjectsLocationsJobsGetView :: Core.Text}+  deriving stock (Core.Show, Core.Read, Core.Eq, Core.Ord, Core.Generic)+  deriving newtype+    ( Core.Hashable,+      Core.ToHttpApiData,+      Core.FromHttpApiData,+      Core.ToJSON,+      Core.ToJSONKey,+      Core.FromJSON,+      Core.FromJSONKey+    )++-- | The job view to return isn\'t specified, or is unknown. Responses will contain at least the @JOB_VIEW_SUMMARY@ information, and may contain additional information.+pattern ProjectsLocationsJobsGetView_JOBVIEWUNKNOWN :: ProjectsLocationsJobsGetView+pattern ProjectsLocationsJobsGetView_JOBVIEWUNKNOWN = ProjectsLocationsJobsGetView "JOB_VIEW_UNKNOWN"++-- | Request summary information only: Project ID, Job ID, job name, job type, job status, start\/end time, and Cloud SDK version details.+pattern ProjectsLocationsJobsGetView_JOBVIEWSUMMARY :: ProjectsLocationsJobsGetView+pattern ProjectsLocationsJobsGetView_JOBVIEWSUMMARY = ProjectsLocationsJobsGetView "JOB_VIEW_SUMMARY"++-- | Request all information available for this job. When the job is in @JOB_STATE_PENDING@, the job has been created but is not yet running, and not all job information is available. For complete job information, wait until the job in is @JOB_STATE_RUNNING@. For more information, see <https://cloud.google.com/dataflow/docs/reference/rest/v1b3/projects.jobs#jobstate JobState>.+pattern ProjectsLocationsJobsGetView_JOBVIEWALL :: ProjectsLocationsJobsGetView+pattern ProjectsLocationsJobsGetView_JOBVIEWALL = ProjectsLocationsJobsGetView "JOB_VIEW_ALL"++-- | Request summary info and limited job description data for steps, labels and environment.+pattern ProjectsLocationsJobsGetView_JOBVIEWDESCRIPTION :: ProjectsLocationsJobsGetView+pattern ProjectsLocationsJobsGetView_JOBVIEWDESCRIPTION = ProjectsLocationsJobsGetView "JOB_VIEW_DESCRIPTION"++{-# COMPLETE+  ProjectsLocationsJobsGetView_JOBVIEWUNKNOWN,+  ProjectsLocationsJobsGetView_JOBVIEWSUMMARY,+  ProjectsLocationsJobsGetView_JOBVIEWALL,+  ProjectsLocationsJobsGetView_JOBVIEWDESCRIPTION,+  ProjectsLocationsJobsGetView+  #-}++-- | The kind of filter to use.+newtype ProjectsLocationsJobsListFilter = ProjectsLocationsJobsListFilter {fromProjectsLocationsJobsListFilter :: Core.Text}+  deriving stock (Core.Show, Core.Read, Core.Eq, Core.Ord, Core.Generic)+  deriving newtype+    ( Core.Hashable,+      Core.ToHttpApiData,+      Core.FromHttpApiData,+      Core.ToJSON,+      Core.ToJSONKey,+      Core.FromJSON,+      Core.FromJSONKey+    )++-- | The filter isn\'t specified, or is unknown. This returns all jobs ordered on descending @JobUuid@.+pattern ProjectsLocationsJobsListFilter_Unknown :: ProjectsLocationsJobsListFilter+pattern ProjectsLocationsJobsListFilter_Unknown = ProjectsLocationsJobsListFilter "UNKNOWN"++-- | Returns all running jobs first ordered on creation timestamp, then returns all terminated jobs ordered on the termination timestamp.+pattern ProjectsLocationsJobsListFilter_All :: ProjectsLocationsJobsListFilter+pattern ProjectsLocationsJobsListFilter_All = ProjectsLocationsJobsListFilter "ALL"++-- | Filters the jobs that have a terminated state, ordered on the termination timestamp. Example terminated states: @JOB_STATE_STOPPED@, @JOB_STATE_UPDATED@, @JOB_STATE_DRAINED@, etc.+pattern ProjectsLocationsJobsListFilter_Terminated :: ProjectsLocationsJobsListFilter+pattern ProjectsLocationsJobsListFilter_Terminated = ProjectsLocationsJobsListFilter "TERMINATED"++-- | Filters the jobs that are running ordered on the creation timestamp.+pattern ProjectsLocationsJobsListFilter_Active :: ProjectsLocationsJobsListFilter+pattern ProjectsLocationsJobsListFilter_Active = ProjectsLocationsJobsListFilter "ACTIVE"++{-# COMPLETE+  ProjectsLocationsJobsListFilter_Unknown,+  ProjectsLocationsJobsListFilter_All,+  ProjectsLocationsJobsListFilter_Terminated,+  ProjectsLocationsJobsListFilter_Active,+  ProjectsLocationsJobsListFilter+  #-}++-- | Deprecated. ListJobs always returns summaries now. Use GetJob for other JobViews.+newtype ProjectsLocationsJobsListView = ProjectsLocationsJobsListView {fromProjectsLocationsJobsListView :: Core.Text}+  deriving stock (Core.Show, Core.Read, Core.Eq, Core.Ord, Core.Generic)+  deriving newtype+    ( Core.Hashable,+      Core.ToHttpApiData,+      Core.FromHttpApiData,+      Core.ToJSON,+      Core.ToJSONKey,+      Core.FromJSON,+      Core.FromJSONKey+    )++-- | The job view to return isn\'t specified, or is unknown. Responses will contain at least the @JOB_VIEW_SUMMARY@ information, and may contain additional information.+pattern ProjectsLocationsJobsListView_JOBVIEWUNKNOWN :: ProjectsLocationsJobsListView+pattern ProjectsLocationsJobsListView_JOBVIEWUNKNOWN = ProjectsLocationsJobsListView "JOB_VIEW_UNKNOWN"++-- | Request summary information only: Project ID, Job ID, job name, job type, job status, start\/end time, and Cloud SDK version details.+pattern ProjectsLocationsJobsListView_JOBVIEWSUMMARY :: ProjectsLocationsJobsListView+pattern ProjectsLocationsJobsListView_JOBVIEWSUMMARY = ProjectsLocationsJobsListView "JOB_VIEW_SUMMARY"++-- | Request all information available for this job. When the job is in @JOB_STATE_PENDING@, the job has been created but is not yet running, and not all job information is available. For complete job information, wait until the job in is @JOB_STATE_RUNNING@. For more information, see <https://cloud.google.com/dataflow/docs/reference/rest/v1b3/projects.jobs#jobstate JobState>.+pattern ProjectsLocationsJobsListView_JOBVIEWALL :: ProjectsLocationsJobsListView+pattern ProjectsLocationsJobsListView_JOBVIEWALL = ProjectsLocationsJobsListView "JOB_VIEW_ALL"++-- | Request summary info and limited job description data for steps, labels and environment.+pattern ProjectsLocationsJobsListView_JOBVIEWDESCRIPTION :: ProjectsLocationsJobsListView+pattern ProjectsLocationsJobsListView_JOBVIEWDESCRIPTION = ProjectsLocationsJobsListView "JOB_VIEW_DESCRIPTION"++{-# COMPLETE+  ProjectsLocationsJobsListView_JOBVIEWUNKNOWN,+  ProjectsLocationsJobsListView_JOBVIEWSUMMARY,+  ProjectsLocationsJobsListView_JOBVIEWALL,+  ProjectsLocationsJobsListView_JOBVIEWDESCRIPTION,+  ProjectsLocationsJobsListView+  #-}++-- | Filter to only get messages with importance >= level+newtype ProjectsLocationsJobsMessagesListMinimumImportance = ProjectsLocationsJobsMessagesListMinimumImportance {fromProjectsLocationsJobsMessagesListMinimumImportance :: Core.Text}+  deriving stock (Core.Show, Core.Read, Core.Eq, Core.Ord, Core.Generic)+  deriving newtype+    ( Core.Hashable,+      Core.ToHttpApiData,+      Core.FromHttpApiData,+      Core.ToJSON,+      Core.ToJSONKey,+      Core.FromJSON,+      Core.FromJSONKey+    )++-- | The message importance isn\'t specified, or is unknown.+pattern ProjectsLocationsJobsMessagesListMinimumImportance_JOBMESSAGEIMPORTANCEUNKNOWN :: ProjectsLocationsJobsMessagesListMinimumImportance+pattern ProjectsLocationsJobsMessagesListMinimumImportance_JOBMESSAGEIMPORTANCEUNKNOWN = ProjectsLocationsJobsMessagesListMinimumImportance "JOB_MESSAGE_IMPORTANCE_UNKNOWN"++-- | The message is at the \'debug\' level: typically only useful for software engineers working on the code the job is running. Typically, Dataflow pipeline runners do not display log messages at this level by default.+pattern ProjectsLocationsJobsMessagesListMinimumImportance_JOBMESSAGEDEBUG :: ProjectsLocationsJobsMessagesListMinimumImportance+pattern ProjectsLocationsJobsMessagesListMinimumImportance_JOBMESSAGEDEBUG = ProjectsLocationsJobsMessagesListMinimumImportance "JOB_MESSAGE_DEBUG"++-- | The message is at the \'detailed\' level: somewhat verbose, but potentially useful to users. Typically, Dataflow pipeline runners do not display log messages at this level by default. These messages are displayed by default in the Dataflow monitoring UI.+pattern ProjectsLocationsJobsMessagesListMinimumImportance_JOBMESSAGEDETAILED :: ProjectsLocationsJobsMessagesListMinimumImportance+pattern ProjectsLocationsJobsMessagesListMinimumImportance_JOBMESSAGEDETAILED = ProjectsLocationsJobsMessagesListMinimumImportance "JOB_MESSAGE_DETAILED"++-- | The message is at the \'basic\' level: useful for keeping track of the execution of a Dataflow pipeline. Typically, Dataflow pipeline runners display log messages at this level by default, and these messages are displayed by default in the Dataflow monitoring UI.+pattern ProjectsLocationsJobsMessagesListMinimumImportance_JOBMESSAGEBASIC :: ProjectsLocationsJobsMessagesListMinimumImportance+pattern ProjectsLocationsJobsMessagesListMinimumImportance_JOBMESSAGEBASIC = ProjectsLocationsJobsMessagesListMinimumImportance "JOB_MESSAGE_BASIC"++-- | The message is at the \'warning\' level: indicating a condition pertaining to a job which may require human intervention. Typically, Dataflow pipeline runners display log messages at this level by default, and these messages are displayed by default in the Dataflow monitoring UI.+pattern ProjectsLocationsJobsMessagesListMinimumImportance_JOBMESSAGEWARNING :: ProjectsLocationsJobsMessagesListMinimumImportance+pattern ProjectsLocationsJobsMessagesListMinimumImportance_JOBMESSAGEWARNING = ProjectsLocationsJobsMessagesListMinimumImportance "JOB_MESSAGE_WARNING"++-- | The message is at the \'error\' level: indicating a condition preventing a job from succeeding. Typically, Dataflow pipeline runners display log messages at this level by default, and these messages are displayed by default in the Dataflow monitoring UI.+pattern ProjectsLocationsJobsMessagesListMinimumImportance_JOBMESSAGEERROR :: ProjectsLocationsJobsMessagesListMinimumImportance+pattern ProjectsLocationsJobsMessagesListMinimumImportance_JOBMESSAGEERROR = ProjectsLocationsJobsMessagesListMinimumImportance "JOB_MESSAGE_ERROR"++{-# COMPLETE+  ProjectsLocationsJobsMessagesListMinimumImportance_JOBMESSAGEIMPORTANCEUNKNOWN,+  ProjectsLocationsJobsMessagesListMinimumImportance_JOBMESSAGEDEBUG,+  ProjectsLocationsJobsMessagesListMinimumImportance_JOBMESSAGEDETAILED,+  ProjectsLocationsJobsMessagesListMinimumImportance_JOBMESSAGEBASIC,+  ProjectsLocationsJobsMessagesListMinimumImportance_JOBMESSAGEWARNING,+  ProjectsLocationsJobsMessagesListMinimumImportance_JOBMESSAGEERROR,+  ProjectsLocationsJobsMessagesListMinimumImportance+  #-}++-- | The view to retrieve. Defaults to METADATA_ONLY.+newtype ProjectsLocationsTemplatesGetView = ProjectsLocationsTemplatesGetView {fromProjectsLocationsTemplatesGetView :: Core.Text}+  deriving stock (Core.Show, Core.Read, Core.Eq, Core.Ord, Core.Generic)+  deriving newtype+    ( Core.Hashable,+      Core.ToHttpApiData,+      Core.FromHttpApiData,+      Core.ToJSON,+      Core.ToJSONKey,+      Core.FromJSON,+      Core.FromJSONKey+    )++-- | Template view that retrieves only the metadata associated with the template.+pattern ProjectsLocationsTemplatesGetView_METADATAONLY :: ProjectsLocationsTemplatesGetView+pattern ProjectsLocationsTemplatesGetView_METADATAONLY = ProjectsLocationsTemplatesGetView "METADATA_ONLY"++{-# COMPLETE+  ProjectsLocationsTemplatesGetView_METADATAONLY,+  ProjectsLocationsTemplatesGetView+  #-}++-- | The view to retrieve. Defaults to METADATA_ONLY.+newtype ProjectsTemplatesGetView = ProjectsTemplatesGetView {fromProjectsTemplatesGetView :: Core.Text}+  deriving stock (Core.Show, Core.Read, Core.Eq, Core.Ord, Core.Generic)+  deriving newtype+    ( Core.Hashable,+      Core.ToHttpApiData,+      Core.FromHttpApiData,+      Core.ToJSON,+      Core.ToJSONKey,+      Core.FromJSON,+      Core.FromJSONKey+    )++-- | Template view that retrieves only the metadata associated with the template.+pattern ProjectsTemplatesGetView_METADATAONLY :: ProjectsTemplatesGetView+pattern ProjectsTemplatesGetView_METADATAONLY = ProjectsTemplatesGetView "METADATA_ONLY"++{-# COMPLETE+  ProjectsTemplatesGetView_METADATAONLY,+  ProjectsTemplatesGetView+  #-}
+ gen/Gogol/Dataflow/Projects/DeleteSnapshots.hs view
@@ -0,0 +1,121 @@+{-# LANGUAGE DataKinds #-}+{-# LANGUAGE DerivingStrategies #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE ImportQualifiedPost #-}+{-# LANGUAGE LambdaCase #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TypeFamilies #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-duplicate-exports #-}+{-# OPTIONS_GHC -fno-warn-name-shadowing #-}+{-# OPTIONS_GHC -fno-warn-unused-binds #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- |+-- Module      : Gogol.Dataflow.Projects.DeleteSnapshots+-- Copyright   : (c) 2015-2025 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay <brendan.g.hay+gogol@gmail.com>+--               Toni Cebrián <toni@tonicebrian.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 Gogol.Dataflow.Projects.DeleteSnapshots+  ( -- * Resource+    DataflowProjectsDeleteSnapshotsResource,++    -- ** Constructing a Request+    DataflowProjectsDeleteSnapshots (..),+    newDataflowProjectsDeleteSnapshots,+  )+where++import Gogol.Dataflow.Types+import Gogol.Prelude qualified as Core++-- | A resource alias for @dataflow.projects.deleteSnapshots@ method which the+-- 'DataflowProjectsDeleteSnapshots' request conforms to.+type DataflowProjectsDeleteSnapshotsResource =+  "v1b3"+    Core.:> "projects"+    Core.:> Core.Capture "projectId" Core.Text+    Core.:> "snapshots"+    Core.:> Core.QueryParam "$.xgafv" Xgafv+    Core.:> Core.QueryParam "access_token" Core.Text+    Core.:> Core.QueryParam "callback" Core.Text+    Core.:> Core.QueryParam "location" Core.Text+    Core.:> Core.QueryParam "snapshotId" Core.Text+    Core.:> Core.QueryParam "uploadType" Core.Text+    Core.:> Core.QueryParam "upload_protocol" Core.Text+    Core.:> Core.QueryParam "alt" Core.AltJSON+    Core.:> Core.Delete '[Core.JSON] DeleteSnapshotResponse++-- | Deletes a snapshot.+--+-- /See:/ 'newDataflowProjectsDeleteSnapshots' smart constructor.+data DataflowProjectsDeleteSnapshots = DataflowProjectsDeleteSnapshots+  { -- | V1 error format.+    xgafv :: (Core.Maybe Xgafv),+    -- | OAuth access token.+    accessToken :: (Core.Maybe Core.Text),+    -- | JSONP+    callback :: (Core.Maybe Core.Text),+    -- | The location that contains this snapshot.+    location :: (Core.Maybe Core.Text),+    -- | The ID of the Cloud Platform project that the snapshot belongs to.+    projectId :: Core.Text,+    -- | The ID of the snapshot.+    snapshotId :: (Core.Maybe Core.Text),+    -- | Legacy upload protocol for media (e.g. \"media\", \"multipart\").+    uploadType :: (Core.Maybe Core.Text),+    -- | Upload protocol for media (e.g. \"raw\", \"multipart\").+    uploadProtocol :: (Core.Maybe Core.Text)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'DataflowProjectsDeleteSnapshots' with the minimum fields required to make a request.+newDataflowProjectsDeleteSnapshots ::+  -- |  The ID of the Cloud Platform project that the snapshot belongs to. See 'projectId'.+  Core.Text ->+  DataflowProjectsDeleteSnapshots+newDataflowProjectsDeleteSnapshots projectId =+  DataflowProjectsDeleteSnapshots+    { xgafv = Core.Nothing,+      accessToken = Core.Nothing,+      callback = Core.Nothing,+      location = Core.Nothing,+      projectId = projectId,+      snapshotId = Core.Nothing,+      uploadType = Core.Nothing,+      uploadProtocol = Core.Nothing+    }++instance Core.GoogleRequest DataflowProjectsDeleteSnapshots where+  type Rs DataflowProjectsDeleteSnapshots = DeleteSnapshotResponse+  type+    Scopes DataflowProjectsDeleteSnapshots =+      '[CloudPlatform'FullControl, Compute'FullControl]+  requestClient DataflowProjectsDeleteSnapshots {..} =+    go+      projectId+      xgafv+      accessToken+      callback+      location+      snapshotId+      uploadType+      uploadProtocol+      (Core.Just Core.AltJSON)+      dataflowService+    where+      go =+        Core.buildClient+          (Core.Proxy :: Core.Proxy DataflowProjectsDeleteSnapshotsResource)+          Core.mempty
+ gen/Gogol/Dataflow/Projects/Jobs/Aggregated.hs view
@@ -0,0 +1,141 @@+{-# LANGUAGE DataKinds #-}+{-# LANGUAGE DerivingStrategies #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE ImportQualifiedPost #-}+{-# LANGUAGE LambdaCase #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TypeFamilies #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-duplicate-exports #-}+{-# OPTIONS_GHC -fno-warn-name-shadowing #-}+{-# OPTIONS_GHC -fno-warn-unused-binds #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- |+-- Module      : Gogol.Dataflow.Projects.Jobs.Aggregated+-- Copyright   : (c) 2015-2025 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay <brendan.g.hay+gogol@gmail.com>+--               Toni Cebrián <toni@tonicebrian.com>+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- List the jobs of a project across all regions. __Note:__ This method doesn\'t support filtering the list of jobs by name.+--+-- /See:/ <https://cloud.google.com/dataflow Dataflow API Reference> for @dataflow.projects.jobs.aggregated@.+module Gogol.Dataflow.Projects.Jobs.Aggregated+  ( -- * Resource+    DataflowProjectsJobsAggregatedResource,++    -- ** Constructing a Request+    DataflowProjectsJobsAggregated (..),+    newDataflowProjectsJobsAggregated,+  )+where++import Gogol.Dataflow.Types+import Gogol.Prelude qualified as Core++-- | A resource alias for @dataflow.projects.jobs.aggregated@ method which the+-- 'DataflowProjectsJobsAggregated' request conforms to.+type DataflowProjectsJobsAggregatedResource =+  "v1b3"+    Core.:> "projects"+    Core.:> Core.Capture "projectId" Core.Text+    Core.:> "jobs:aggregated"+    Core.:> Core.QueryParam "$.xgafv" Xgafv+    Core.:> Core.QueryParam "access_token" Core.Text+    Core.:> Core.QueryParam "callback" Core.Text+    Core.:> Core.QueryParam "filter" ProjectsJobsAggregatedFilter+    Core.:> Core.QueryParam "location" Core.Text+    Core.:> Core.QueryParam "name" Core.Text+    Core.:> Core.QueryParam "pageSize" Core.Int32+    Core.:> Core.QueryParam "pageToken" Core.Text+    Core.:> Core.QueryParam "uploadType" Core.Text+    Core.:> Core.QueryParam "upload_protocol" Core.Text+    Core.:> Core.QueryParam "view" ProjectsJobsAggregatedView+    Core.:> Core.QueryParam "alt" Core.AltJSON+    Core.:> Core.Get '[Core.JSON] ListJobsResponse++-- | List the jobs of a project across all regions. __Note:__ This method doesn\'t support filtering the list of jobs by name.+--+-- /See:/ 'newDataflowProjectsJobsAggregated' smart constructor.+data DataflowProjectsJobsAggregated = DataflowProjectsJobsAggregated+  { -- | V1 error format.+    xgafv :: (Core.Maybe Xgafv),+    -- | OAuth access token.+    accessToken :: (Core.Maybe Core.Text),+    -- | JSONP+    callback :: (Core.Maybe Core.Text),+    -- | The kind of filter to use.+    filter :: (Core.Maybe ProjectsJobsAggregatedFilter),+    -- | The [regional endpoint] (https:\/\/cloud.google.com\/dataflow\/docs\/concepts\/regional-endpoints) that contains this job.+    location :: (Core.Maybe Core.Text),+    -- | Optional. The job name.+    name :: (Core.Maybe Core.Text),+    -- | If there are many jobs, limit response to at most this many. The actual number of jobs returned will be the lesser of max_responses and an unspecified server-defined limit.+    pageSize :: (Core.Maybe Core.Int32),+    -- | Set this to the \'next/page/token\' field of a previous response to request additional results in a long list.+    pageToken :: (Core.Maybe Core.Text),+    -- | The project which owns the jobs.+    projectId :: Core.Text,+    -- | Legacy upload protocol for media (e.g. \"media\", \"multipart\").+    uploadType :: (Core.Maybe Core.Text),+    -- | Upload protocol for media (e.g. \"raw\", \"multipart\").+    uploadProtocol :: (Core.Maybe Core.Text),+    -- | Deprecated. ListJobs always returns summaries now. Use GetJob for other JobViews.+    view :: (Core.Maybe ProjectsJobsAggregatedView)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'DataflowProjectsJobsAggregated' with the minimum fields required to make a request.+newDataflowProjectsJobsAggregated ::+  -- |  The project which owns the jobs. See 'projectId'.+  Core.Text ->+  DataflowProjectsJobsAggregated+newDataflowProjectsJobsAggregated projectId =+  DataflowProjectsJobsAggregated+    { xgafv = Core.Nothing,+      accessToken = Core.Nothing,+      callback = Core.Nothing,+      filter = Core.Nothing,+      location = Core.Nothing,+      name = Core.Nothing,+      pageSize = Core.Nothing,+      pageToken = Core.Nothing,+      projectId = projectId,+      uploadType = Core.Nothing,+      uploadProtocol = Core.Nothing,+      view = Core.Nothing+    }++instance Core.GoogleRequest DataflowProjectsJobsAggregated where+  type Rs DataflowProjectsJobsAggregated = ListJobsResponse+  type+    Scopes DataflowProjectsJobsAggregated =+      '[CloudPlatform'FullControl, Compute'FullControl]+  requestClient DataflowProjectsJobsAggregated {..} =+    go+      projectId+      xgafv+      accessToken+      callback+      filter+      location+      name+      pageSize+      pageToken+      uploadType+      uploadProtocol+      view+      (Core.Just Core.AltJSON)+      dataflowService+    where+      go =+        Core.buildClient+          (Core.Proxy :: Core.Proxy DataflowProjectsJobsAggregatedResource)+          Core.mempty
+ gen/Gogol/Dataflow/Projects/Jobs/Create.hs view
@@ -0,0 +1,133 @@+{-# LANGUAGE DataKinds #-}+{-# LANGUAGE DerivingStrategies #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE ImportQualifiedPost #-}+{-# LANGUAGE LambdaCase #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TypeFamilies #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-duplicate-exports #-}+{-# OPTIONS_GHC -fno-warn-name-shadowing #-}+{-# OPTIONS_GHC -fno-warn-unused-binds #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- |+-- Module      : Gogol.Dataflow.Projects.Jobs.Create+-- Copyright   : (c) 2015-2025 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay <brendan.g.hay+gogol@gmail.com>+--               Toni Cebrián <toni@tonicebrian.com>+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- 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@. Do not enter confidential information when you supply string values using the API.+--+-- /See:/ <https://cloud.google.com/dataflow Dataflow API Reference> for @dataflow.projects.jobs.create@.+module Gogol.Dataflow.Projects.Jobs.Create+  ( -- * Resource+    DataflowProjectsJobsCreateResource,++    -- ** Constructing a Request+    DataflowProjectsJobsCreate (..),+    newDataflowProjectsJobsCreate,+  )+where++import Gogol.Dataflow.Types+import Gogol.Prelude qualified as Core++-- | A resource alias for @dataflow.projects.jobs.create@ method which the+-- 'DataflowProjectsJobsCreate' request conforms to.+type DataflowProjectsJobsCreateResource =+  "v1b3"+    Core.:> "projects"+    Core.:> Core.Capture "projectId" Core.Text+    Core.:> "jobs"+    Core.:> Core.QueryParam "$.xgafv" Xgafv+    Core.:> Core.QueryParam "access_token" Core.Text+    Core.:> Core.QueryParam "callback" Core.Text+    Core.:> Core.QueryParam "location" Core.Text+    Core.:> Core.QueryParam "replaceJobId" Core.Text+    Core.:> Core.QueryParam "uploadType" Core.Text+    Core.:> Core.QueryParam "upload_protocol" Core.Text+    Core.:> Core.QueryParam "view" ProjectsJobsCreateView+    Core.:> Core.QueryParam "alt" Core.AltJSON+    Core.:> Core.ReqBody '[Core.JSON] Job+    Core.:> Core.Post '[Core.JSON] 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@. Do not enter confidential information when you supply string values using the API.+--+-- /See:/ 'newDataflowProjectsJobsCreate' smart constructor.+data DataflowProjectsJobsCreate = DataflowProjectsJobsCreate+  { -- | V1 error format.+    xgafv :: (Core.Maybe Xgafv),+    -- | OAuth access token.+    accessToken :: (Core.Maybe Core.Text),+    -- | JSONP+    callback :: (Core.Maybe Core.Text),+    -- | The [regional endpoint] (https:\/\/cloud.google.com\/dataflow\/docs\/concepts\/regional-endpoints) that contains this job.+    location :: (Core.Maybe Core.Text),+    -- | Multipart request metadata.+    payload :: Job,+    -- | The ID of the Cloud Platform project that the job belongs to.+    projectId :: Core.Text,+    -- | Deprecated. This field is now in the Job message.+    replaceJobId :: (Core.Maybe Core.Text),+    -- | Legacy upload protocol for media (e.g. \"media\", \"multipart\").+    uploadType :: (Core.Maybe Core.Text),+    -- | Upload protocol for media (e.g. \"raw\", \"multipart\").+    uploadProtocol :: (Core.Maybe Core.Text),+    -- | The level of information requested in response.+    view :: (Core.Maybe ProjectsJobsCreateView)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'DataflowProjectsJobsCreate' with the minimum fields required to make a request.+newDataflowProjectsJobsCreate ::+  -- |  Multipart request metadata. See 'payload'.+  Job ->+  -- |  The ID of the Cloud Platform project that the job belongs to. See 'projectId'.+  Core.Text ->+  DataflowProjectsJobsCreate+newDataflowProjectsJobsCreate payload projectId =+  DataflowProjectsJobsCreate+    { xgafv = Core.Nothing,+      accessToken = Core.Nothing,+      callback = Core.Nothing,+      location = Core.Nothing,+      payload = payload,+      projectId = projectId,+      replaceJobId = Core.Nothing,+      uploadType = Core.Nothing,+      uploadProtocol = Core.Nothing,+      view = Core.Nothing+    }++instance Core.GoogleRequest DataflowProjectsJobsCreate where+  type Rs DataflowProjectsJobsCreate = Job+  type+    Scopes DataflowProjectsJobsCreate =+      '[CloudPlatform'FullControl, Compute'FullControl]+  requestClient DataflowProjectsJobsCreate {..} =+    go+      projectId+      xgafv+      accessToken+      callback+      location+      replaceJobId+      uploadType+      uploadProtocol+      view+      (Core.Just Core.AltJSON)+      payload+      dataflowService+    where+      go =+        Core.buildClient+          (Core.Proxy :: Core.Proxy DataflowProjectsJobsCreateResource)+          Core.mempty
+ gen/Gogol/Dataflow/Projects/Jobs/Debug/GetConfig.hs view
@@ -0,0 +1,129 @@+{-# LANGUAGE DataKinds #-}+{-# LANGUAGE DerivingStrategies #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE ImportQualifiedPost #-}+{-# LANGUAGE LambdaCase #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TypeFamilies #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-duplicate-exports #-}+{-# OPTIONS_GHC -fno-warn-name-shadowing #-}+{-# OPTIONS_GHC -fno-warn-unused-binds #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- |+-- Module      : Gogol.Dataflow.Projects.Jobs.Debug.GetConfig+-- Copyright   : (c) 2015-2025 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay <brendan.g.hay+gogol@gmail.com>+--               Toni Cebrián <toni@tonicebrian.com>+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Get encoded debug configuration for component. Not cacheable.+--+-- /See:/ <https://cloud.google.com/dataflow Dataflow API Reference> for @dataflow.projects.jobs.debug.getConfig@.+module Gogol.Dataflow.Projects.Jobs.Debug.GetConfig+  ( -- * Resource+    DataflowProjectsJobsDebugGetConfigResource,++    -- ** Constructing a Request+    DataflowProjectsJobsDebugGetConfig (..),+    newDataflowProjectsJobsDebugGetConfig,+  )+where++import Gogol.Dataflow.Types+import Gogol.Prelude qualified as Core++-- | A resource alias for @dataflow.projects.jobs.debug.getConfig@ method which the+-- 'DataflowProjectsJobsDebugGetConfig' request conforms to.+type DataflowProjectsJobsDebugGetConfigResource =+  "v1b3"+    Core.:> "projects"+    Core.:> Core.Capture "projectId" Core.Text+    Core.:> "jobs"+    Core.:> Core.Capture "jobId" Core.Text+    Core.:> "debug"+    Core.:> "getConfig"+    Core.:> Core.QueryParam "$.xgafv" Xgafv+    Core.:> Core.QueryParam "access_token" Core.Text+    Core.:> Core.QueryParam "callback" Core.Text+    Core.:> Core.QueryParam "uploadType" Core.Text+    Core.:> Core.QueryParam "upload_protocol" Core.Text+    Core.:> Core.QueryParam "alt" Core.AltJSON+    Core.:> Core.ReqBody '[Core.JSON] GetDebugConfigRequest+    Core.:> Core.Post '[Core.JSON] GetDebugConfigResponse++-- | Get encoded debug configuration for component. Not cacheable.+--+-- /See:/ 'newDataflowProjectsJobsDebugGetConfig' smart constructor.+data DataflowProjectsJobsDebugGetConfig = DataflowProjectsJobsDebugGetConfig+  { -- | V1 error format.+    xgafv :: (Core.Maybe Xgafv),+    -- | OAuth access token.+    accessToken :: (Core.Maybe Core.Text),+    -- | JSONP+    callback :: (Core.Maybe Core.Text),+    -- | The job id.+    jobId :: Core.Text,+    -- | Multipart request metadata.+    payload :: GetDebugConfigRequest,+    -- | The project id.+    projectId :: Core.Text,+    -- | Legacy upload protocol for media (e.g. \"media\", \"multipart\").+    uploadType :: (Core.Maybe Core.Text),+    -- | Upload protocol for media (e.g. \"raw\", \"multipart\").+    uploadProtocol :: (Core.Maybe Core.Text)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'DataflowProjectsJobsDebugGetConfig' with the minimum fields required to make a request.+newDataflowProjectsJobsDebugGetConfig ::+  -- |  The job id. See 'jobId'.+  Core.Text ->+  -- |  Multipart request metadata. See 'payload'.+  GetDebugConfigRequest ->+  -- |  The project id. See 'projectId'.+  Core.Text ->+  DataflowProjectsJobsDebugGetConfig+newDataflowProjectsJobsDebugGetConfig jobId payload projectId =+  DataflowProjectsJobsDebugGetConfig+    { xgafv = Core.Nothing,+      accessToken = Core.Nothing,+      callback = Core.Nothing,+      jobId = jobId,+      payload = payload,+      projectId = projectId,+      uploadType = Core.Nothing,+      uploadProtocol = Core.Nothing+    }++instance Core.GoogleRequest DataflowProjectsJobsDebugGetConfig where+  type Rs DataflowProjectsJobsDebugGetConfig = GetDebugConfigResponse+  type+    Scopes DataflowProjectsJobsDebugGetConfig =+      '[CloudPlatform'FullControl, Compute'FullControl]+  requestClient DataflowProjectsJobsDebugGetConfig {..} =+    go+      projectId+      jobId+      xgafv+      accessToken+      callback+      uploadType+      uploadProtocol+      (Core.Just Core.AltJSON)+      payload+      dataflowService+    where+      go =+        Core.buildClient+          ( Core.Proxy ::+              Core.Proxy DataflowProjectsJobsDebugGetConfigResource+          )+          Core.mempty
+ gen/Gogol/Dataflow/Projects/Jobs/Debug/SendCapture.hs view
@@ -0,0 +1,131 @@+{-# LANGUAGE DataKinds #-}+{-# LANGUAGE DerivingStrategies #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE ImportQualifiedPost #-}+{-# LANGUAGE LambdaCase #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TypeFamilies #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-duplicate-exports #-}+{-# OPTIONS_GHC -fno-warn-name-shadowing #-}+{-# OPTIONS_GHC -fno-warn-unused-binds #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- |+-- Module      : Gogol.Dataflow.Projects.Jobs.Debug.SendCapture+-- Copyright   : (c) 2015-2025 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay <brendan.g.hay+gogol@gmail.com>+--               Toni Cebrián <toni@tonicebrian.com>+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Send encoded debug capture data for component.+--+-- /See:/ <https://cloud.google.com/dataflow Dataflow API Reference> for @dataflow.projects.jobs.debug.sendCapture@.+module Gogol.Dataflow.Projects.Jobs.Debug.SendCapture+  ( -- * Resource+    DataflowProjectsJobsDebugSendCaptureResource,++    -- ** Constructing a Request+    DataflowProjectsJobsDebugSendCapture (..),+    newDataflowProjectsJobsDebugSendCapture,+  )+where++import Gogol.Dataflow.Types+import Gogol.Prelude qualified as Core++-- | A resource alias for @dataflow.projects.jobs.debug.sendCapture@ method which the+-- 'DataflowProjectsJobsDebugSendCapture' request conforms to.+type DataflowProjectsJobsDebugSendCaptureResource =+  "v1b3"+    Core.:> "projects"+    Core.:> Core.Capture "projectId" Core.Text+    Core.:> "jobs"+    Core.:> Core.Capture "jobId" Core.Text+    Core.:> "debug"+    Core.:> "sendCapture"+    Core.:> Core.QueryParam "$.xgafv" Xgafv+    Core.:> Core.QueryParam "access_token" Core.Text+    Core.:> Core.QueryParam "callback" Core.Text+    Core.:> Core.QueryParam "uploadType" Core.Text+    Core.:> Core.QueryParam "upload_protocol" Core.Text+    Core.:> Core.QueryParam "alt" Core.AltJSON+    Core.:> Core.ReqBody '[Core.JSON] SendDebugCaptureRequest+    Core.:> Core.Post '[Core.JSON] SendDebugCaptureResponse++-- | Send encoded debug capture data for component.+--+-- /See:/ 'newDataflowProjectsJobsDebugSendCapture' smart constructor.+data DataflowProjectsJobsDebugSendCapture = DataflowProjectsJobsDebugSendCapture+  { -- | V1 error format.+    xgafv :: (Core.Maybe Xgafv),+    -- | OAuth access token.+    accessToken :: (Core.Maybe Core.Text),+    -- | JSONP+    callback :: (Core.Maybe Core.Text),+    -- | The job id.+    jobId :: Core.Text,+    -- | Multipart request metadata.+    payload :: SendDebugCaptureRequest,+    -- | The project id.+    projectId :: Core.Text,+    -- | Legacy upload protocol for media (e.g. \"media\", \"multipart\").+    uploadType :: (Core.Maybe Core.Text),+    -- | Upload protocol for media (e.g. \"raw\", \"multipart\").+    uploadProtocol :: (Core.Maybe Core.Text)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'DataflowProjectsJobsDebugSendCapture' with the minimum fields required to make a request.+newDataflowProjectsJobsDebugSendCapture ::+  -- |  The job id. See 'jobId'.+  Core.Text ->+  -- |  Multipart request metadata. See 'payload'.+  SendDebugCaptureRequest ->+  -- |  The project id. See 'projectId'.+  Core.Text ->+  DataflowProjectsJobsDebugSendCapture+newDataflowProjectsJobsDebugSendCapture jobId payload projectId =+  DataflowProjectsJobsDebugSendCapture+    { xgafv = Core.Nothing,+      accessToken = Core.Nothing,+      callback = Core.Nothing,+      jobId = jobId,+      payload = payload,+      projectId = projectId,+      uploadType = Core.Nothing,+      uploadProtocol = Core.Nothing+    }++instance Core.GoogleRequest DataflowProjectsJobsDebugSendCapture where+  type+    Rs DataflowProjectsJobsDebugSendCapture =+      SendDebugCaptureResponse+  type+    Scopes DataflowProjectsJobsDebugSendCapture =+      '[CloudPlatform'FullControl, Compute'FullControl]+  requestClient DataflowProjectsJobsDebugSendCapture {..} =+    go+      projectId+      jobId+      xgafv+      accessToken+      callback+      uploadType+      uploadProtocol+      (Core.Just Core.AltJSON)+      payload+      dataflowService+    where+      go =+        Core.buildClient+          ( Core.Proxy ::+              Core.Proxy DataflowProjectsJobsDebugSendCaptureResource+          )+          Core.mempty
+ gen/Gogol/Dataflow/Projects/Jobs/Get.hs view
@@ -0,0 +1,128 @@+{-# LANGUAGE DataKinds #-}+{-# LANGUAGE DerivingStrategies #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE ImportQualifiedPost #-}+{-# LANGUAGE LambdaCase #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TypeFamilies #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-duplicate-exports #-}+{-# OPTIONS_GHC -fno-warn-name-shadowing #-}+{-# OPTIONS_GHC -fno-warn-unused-binds #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- |+-- Module      : Gogol.Dataflow.Projects.Jobs.Get+-- Copyright   : (c) 2015-2025 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay <brendan.g.hay+gogol@gmail.com>+--               Toni Cebrián <toni@tonicebrian.com>+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- 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 Gogol.Dataflow.Projects.Jobs.Get+  ( -- * Resource+    DataflowProjectsJobsGetResource,++    -- ** Constructing a Request+    DataflowProjectsJobsGet (..),+    newDataflowProjectsJobsGet,+  )+where++import Gogol.Dataflow.Types+import Gogol.Prelude qualified as Core++-- | A resource alias for @dataflow.projects.jobs.get@ method which the+-- 'DataflowProjectsJobsGet' request conforms to.+type DataflowProjectsJobsGetResource =+  "v1b3"+    Core.:> "projects"+    Core.:> Core.Capture "projectId" Core.Text+    Core.:> "jobs"+    Core.:> Core.Capture "jobId" Core.Text+    Core.:> Core.QueryParam "$.xgafv" Xgafv+    Core.:> Core.QueryParam "access_token" Core.Text+    Core.:> Core.QueryParam "callback" Core.Text+    Core.:> Core.QueryParam "location" Core.Text+    Core.:> Core.QueryParam "uploadType" Core.Text+    Core.:> Core.QueryParam "upload_protocol" Core.Text+    Core.:> Core.QueryParam "view" ProjectsJobsGetView+    Core.:> Core.QueryParam "alt" Core.AltJSON+    Core.:> Core.Get '[Core.JSON] 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:/ 'newDataflowProjectsJobsGet' smart constructor.+data DataflowProjectsJobsGet = DataflowProjectsJobsGet+  { -- | V1 error format.+    xgafv :: (Core.Maybe Xgafv),+    -- | OAuth access token.+    accessToken :: (Core.Maybe Core.Text),+    -- | JSONP+    callback :: (Core.Maybe Core.Text),+    -- | The job ID.+    jobId :: Core.Text,+    -- | The [regional endpoint] (https:\/\/cloud.google.com\/dataflow\/docs\/concepts\/regional-endpoints) that contains this job.+    location :: (Core.Maybe Core.Text),+    -- | The ID of the Cloud Platform project that the job belongs to.+    projectId :: Core.Text,+    -- | Legacy upload protocol for media (e.g. \"media\", \"multipart\").+    uploadType :: (Core.Maybe Core.Text),+    -- | Upload protocol for media (e.g. \"raw\", \"multipart\").+    uploadProtocol :: (Core.Maybe Core.Text),+    -- | The level of information requested in response.+    view :: (Core.Maybe ProjectsJobsGetView)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'DataflowProjectsJobsGet' with the minimum fields required to make a request.+newDataflowProjectsJobsGet ::+  -- |  The job ID. See 'jobId'.+  Core.Text ->+  -- |  The ID of the Cloud Platform project that the job belongs to. See 'projectId'.+  Core.Text ->+  DataflowProjectsJobsGet+newDataflowProjectsJobsGet jobId projectId =+  DataflowProjectsJobsGet+    { xgafv = Core.Nothing,+      accessToken = Core.Nothing,+      callback = Core.Nothing,+      jobId = jobId,+      location = Core.Nothing,+      projectId = projectId,+      uploadType = Core.Nothing,+      uploadProtocol = Core.Nothing,+      view = Core.Nothing+    }++instance Core.GoogleRequest DataflowProjectsJobsGet where+  type Rs DataflowProjectsJobsGet = Job+  type+    Scopes DataflowProjectsJobsGet =+      '[CloudPlatform'FullControl, Compute'FullControl]+  requestClient DataflowProjectsJobsGet {..} =+    go+      projectId+      jobId+      xgafv+      accessToken+      callback+      location+      uploadType+      uploadProtocol+      view+      (Core.Just Core.AltJSON)+      dataflowService+    where+      go =+        Core.buildClient+          (Core.Proxy :: Core.Proxy DataflowProjectsJobsGetResource)+          Core.mempty
+ gen/Gogol/Dataflow/Projects/Jobs/GetMetrics.hs view
@@ -0,0 +1,129 @@+{-# LANGUAGE DataKinds #-}+{-# LANGUAGE DerivingStrategies #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE ImportQualifiedPost #-}+{-# LANGUAGE LambdaCase #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TypeFamilies #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-duplicate-exports #-}+{-# OPTIONS_GHC -fno-warn-name-shadowing #-}+{-# OPTIONS_GHC -fno-warn-unused-binds #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- |+-- Module      : Gogol.Dataflow.Projects.Jobs.GetMetrics+-- Copyright   : (c) 2015-2025 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay <brendan.g.hay+gogol@gmail.com>+--               Toni Cebrián <toni@tonicebrian.com>+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- 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 Gogol.Dataflow.Projects.Jobs.GetMetrics+  ( -- * Resource+    DataflowProjectsJobsGetMetricsResource,++    -- ** Constructing a Request+    DataflowProjectsJobsGetMetrics (..),+    newDataflowProjectsJobsGetMetrics,+  )+where++import Gogol.Dataflow.Types+import Gogol.Prelude qualified as Core++-- | A resource alias for @dataflow.projects.jobs.getMetrics@ method which the+-- 'DataflowProjectsJobsGetMetrics' request conforms to.+type DataflowProjectsJobsGetMetricsResource =+  "v1b3"+    Core.:> "projects"+    Core.:> Core.Capture "projectId" Core.Text+    Core.:> "jobs"+    Core.:> Core.Capture "jobId" Core.Text+    Core.:> "metrics"+    Core.:> Core.QueryParam "$.xgafv" Xgafv+    Core.:> Core.QueryParam "access_token" Core.Text+    Core.:> Core.QueryParam "callback" Core.Text+    Core.:> Core.QueryParam "location" Core.Text+    Core.:> Core.QueryParam "startTime" Core.DateTime+    Core.:> Core.QueryParam "uploadType" Core.Text+    Core.:> Core.QueryParam "upload_protocol" Core.Text+    Core.:> Core.QueryParam "alt" Core.AltJSON+    Core.:> Core.Get '[Core.JSON] JobMetrics++-- | 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:/ 'newDataflowProjectsJobsGetMetrics' smart constructor.+data DataflowProjectsJobsGetMetrics = DataflowProjectsJobsGetMetrics+  { -- | V1 error format.+    xgafv :: (Core.Maybe Xgafv),+    -- | OAuth access token.+    accessToken :: (Core.Maybe Core.Text),+    -- | JSONP+    callback :: (Core.Maybe Core.Text),+    -- | The job to get metrics for.+    jobId :: Core.Text,+    -- | The [regional endpoint] (https:\/\/cloud.google.com\/dataflow\/docs\/concepts\/regional-endpoints) that contains the job specified by job_id.+    location :: (Core.Maybe Core.Text),+    -- | A project id.+    projectId :: Core.Text,+    -- | Return only metric data that has changed since this time. Default is to return all information about all metrics for the job.+    startTime :: (Core.Maybe Core.DateTime),+    -- | Legacy upload protocol for media (e.g. \"media\", \"multipart\").+    uploadType :: (Core.Maybe Core.Text),+    -- | Upload protocol for media (e.g. \"raw\", \"multipart\").+    uploadProtocol :: (Core.Maybe Core.Text)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'DataflowProjectsJobsGetMetrics' with the minimum fields required to make a request.+newDataflowProjectsJobsGetMetrics ::+  -- |  The job to get metrics for. See 'jobId'.+  Core.Text ->+  -- |  A project id. See 'projectId'.+  Core.Text ->+  DataflowProjectsJobsGetMetrics+newDataflowProjectsJobsGetMetrics jobId projectId =+  DataflowProjectsJobsGetMetrics+    { xgafv = Core.Nothing,+      accessToken = Core.Nothing,+      callback = Core.Nothing,+      jobId = jobId,+      location = Core.Nothing,+      projectId = projectId,+      startTime = Core.Nothing,+      uploadType = Core.Nothing,+      uploadProtocol = Core.Nothing+    }++instance Core.GoogleRequest DataflowProjectsJobsGetMetrics where+  type Rs DataflowProjectsJobsGetMetrics = JobMetrics+  type+    Scopes DataflowProjectsJobsGetMetrics =+      '[CloudPlatform'FullControl, Compute'FullControl]+  requestClient DataflowProjectsJobsGetMetrics {..} =+    go+      projectId+      jobId+      xgafv+      accessToken+      callback+      location+      startTime+      uploadType+      uploadProtocol+      (Core.Just Core.AltJSON)+      dataflowService+    where+      go =+        Core.buildClient+          (Core.Proxy :: Core.Proxy DataflowProjectsJobsGetMetricsResource)+          Core.mempty
+ gen/Gogol/Dataflow/Projects/Jobs/List.hs view
@@ -0,0 +1,141 @@+{-# LANGUAGE DataKinds #-}+{-# LANGUAGE DerivingStrategies #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE ImportQualifiedPost #-}+{-# LANGUAGE LambdaCase #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TypeFamilies #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-duplicate-exports #-}+{-# OPTIONS_GHC -fno-warn-name-shadowing #-}+{-# OPTIONS_GHC -fno-warn-unused-binds #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- |+-- Module      : Gogol.Dataflow.Projects.Jobs.List+-- Copyright   : (c) 2015-2025 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay <brendan.g.hay+gogol@gmail.com>+--               Toni Cebrián <toni@tonicebrian.com>+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- List the jobs of a project. To list the jobs of a project in a region, we recommend using @projects.locations.jobs.list@ 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, because you can only get the list of jobs that are running in @us-central1@. @projects.locations.jobs.list@ and @projects.jobs.list@ support filtering the list of jobs by name. Filtering by name isn\'t supported by @projects.jobs.aggregated@.+--+-- /See:/ <https://cloud.google.com/dataflow Dataflow API Reference> for @dataflow.projects.jobs.list@.+module Gogol.Dataflow.Projects.Jobs.List+  ( -- * Resource+    DataflowProjectsJobsListResource,++    -- ** Constructing a Request+    DataflowProjectsJobsList (..),+    newDataflowProjectsJobsList,+  )+where++import Gogol.Dataflow.Types+import Gogol.Prelude qualified as Core++-- | A resource alias for @dataflow.projects.jobs.list@ method which the+-- 'DataflowProjectsJobsList' request conforms to.+type DataflowProjectsJobsListResource =+  "v1b3"+    Core.:> "projects"+    Core.:> Core.Capture "projectId" Core.Text+    Core.:> "jobs"+    Core.:> Core.QueryParam "$.xgafv" Xgafv+    Core.:> Core.QueryParam "access_token" Core.Text+    Core.:> Core.QueryParam "callback" Core.Text+    Core.:> Core.QueryParam "filter" ProjectsJobsListFilter+    Core.:> Core.QueryParam "location" Core.Text+    Core.:> Core.QueryParam "name" Core.Text+    Core.:> Core.QueryParam "pageSize" Core.Int32+    Core.:> Core.QueryParam "pageToken" Core.Text+    Core.:> Core.QueryParam "uploadType" Core.Text+    Core.:> Core.QueryParam "upload_protocol" Core.Text+    Core.:> Core.QueryParam "view" ProjectsJobsListView+    Core.:> Core.QueryParam "alt" Core.AltJSON+    Core.:> Core.Get '[Core.JSON] ListJobsResponse++-- | List the jobs of a project. To list the jobs of a project in a region, we recommend using @projects.locations.jobs.list@ 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, because you can only get the list of jobs that are running in @us-central1@. @projects.locations.jobs.list@ and @projects.jobs.list@ support filtering the list of jobs by name. Filtering by name isn\'t supported by @projects.jobs.aggregated@.+--+-- /See:/ 'newDataflowProjectsJobsList' smart constructor.+data DataflowProjectsJobsList = DataflowProjectsJobsList+  { -- | V1 error format.+    xgafv :: (Core.Maybe Xgafv),+    -- | OAuth access token.+    accessToken :: (Core.Maybe Core.Text),+    -- | JSONP+    callback :: (Core.Maybe Core.Text),+    -- | The kind of filter to use.+    filter :: (Core.Maybe ProjectsJobsListFilter),+    -- | The [regional endpoint] (https:\/\/cloud.google.com\/dataflow\/docs\/concepts\/regional-endpoints) that contains this job.+    location :: (Core.Maybe Core.Text),+    -- | Optional. The job name.+    name :: (Core.Maybe Core.Text),+    -- | If there are many jobs, limit response to at most this many. The actual number of jobs returned will be the lesser of max_responses and an unspecified server-defined limit.+    pageSize :: (Core.Maybe Core.Int32),+    -- | Set this to the \'next/page/token\' field of a previous response to request additional results in a long list.+    pageToken :: (Core.Maybe Core.Text),+    -- | The project which owns the jobs.+    projectId :: Core.Text,+    -- | Legacy upload protocol for media (e.g. \"media\", \"multipart\").+    uploadType :: (Core.Maybe Core.Text),+    -- | Upload protocol for media (e.g. \"raw\", \"multipart\").+    uploadProtocol :: (Core.Maybe Core.Text),+    -- | Deprecated. ListJobs always returns summaries now. Use GetJob for other JobViews.+    view :: (Core.Maybe ProjectsJobsListView)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'DataflowProjectsJobsList' with the minimum fields required to make a request.+newDataflowProjectsJobsList ::+  -- |  The project which owns the jobs. See 'projectId'.+  Core.Text ->+  DataflowProjectsJobsList+newDataflowProjectsJobsList projectId =+  DataflowProjectsJobsList+    { xgafv = Core.Nothing,+      accessToken = Core.Nothing,+      callback = Core.Nothing,+      filter = Core.Nothing,+      location = Core.Nothing,+      name = Core.Nothing,+      pageSize = Core.Nothing,+      pageToken = Core.Nothing,+      projectId = projectId,+      uploadType = Core.Nothing,+      uploadProtocol = Core.Nothing,+      view = Core.Nothing+    }++instance Core.GoogleRequest DataflowProjectsJobsList where+  type Rs DataflowProjectsJobsList = ListJobsResponse+  type+    Scopes DataflowProjectsJobsList =+      '[CloudPlatform'FullControl, Compute'FullControl]+  requestClient DataflowProjectsJobsList {..} =+    go+      projectId+      xgafv+      accessToken+      callback+      filter+      location+      name+      pageSize+      pageToken+      uploadType+      uploadProtocol+      view+      (Core.Just Core.AltJSON)+      dataflowService+    where+      go =+        Core.buildClient+          (Core.Proxy :: Core.Proxy DataflowProjectsJobsListResource)+          Core.mempty
+ gen/Gogol/Dataflow/Projects/Jobs/Messages/List.hs view
@@ -0,0 +1,151 @@+{-# LANGUAGE DataKinds #-}+{-# LANGUAGE DerivingStrategies #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE ImportQualifiedPost #-}+{-# LANGUAGE LambdaCase #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TypeFamilies #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-duplicate-exports #-}+{-# OPTIONS_GHC -fno-warn-name-shadowing #-}+{-# OPTIONS_GHC -fno-warn-unused-binds #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- |+-- Module      : Gogol.Dataflow.Projects.Jobs.Messages.List+-- Copyright   : (c) 2015-2025 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay <brendan.g.hay+gogol@gmail.com>+--               Toni Cebrián <toni@tonicebrian.com>+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- 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 Gogol.Dataflow.Projects.Jobs.Messages.List+  ( -- * Resource+    DataflowProjectsJobsMessagesListResource,++    -- ** Constructing a Request+    DataflowProjectsJobsMessagesList (..),+    newDataflowProjectsJobsMessagesList,+  )+where++import Gogol.Dataflow.Types+import Gogol.Prelude qualified as Core++-- | A resource alias for @dataflow.projects.jobs.messages.list@ method which the+-- 'DataflowProjectsJobsMessagesList' request conforms to.+type DataflowProjectsJobsMessagesListResource =+  "v1b3"+    Core.:> "projects"+    Core.:> Core.Capture "projectId" Core.Text+    Core.:> "jobs"+    Core.:> Core.Capture "jobId" Core.Text+    Core.:> "messages"+    Core.:> Core.QueryParam "$.xgafv" Xgafv+    Core.:> Core.QueryParam "access_token" Core.Text+    Core.:> Core.QueryParam "callback" Core.Text+    Core.:> Core.QueryParam "endTime" Core.DateTime+    Core.:> Core.QueryParam "location" Core.Text+    Core.:> Core.QueryParam+              "minimumImportance"+              ProjectsJobsMessagesListMinimumImportance+    Core.:> Core.QueryParam "pageSize" Core.Int32+    Core.:> Core.QueryParam "pageToken" Core.Text+    Core.:> Core.QueryParam "startTime" Core.DateTime+    Core.:> Core.QueryParam "uploadType" Core.Text+    Core.:> Core.QueryParam "upload_protocol" Core.Text+    Core.:> Core.QueryParam "alt" Core.AltJSON+    Core.:> Core.Get '[Core.JSON] ListJobMessagesResponse++-- | 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:/ 'newDataflowProjectsJobsMessagesList' smart constructor.+data DataflowProjectsJobsMessagesList = DataflowProjectsJobsMessagesList+  { -- | V1 error format.+    xgafv :: (Core.Maybe Xgafv),+    -- | OAuth access token.+    accessToken :: (Core.Maybe Core.Text),+    -- | JSONP+    callback :: (Core.Maybe Core.Text),+    -- | Return only messages with timestamps \< end_time. The default is now (i.e. return up to the latest messages available).+    endTime :: (Core.Maybe Core.DateTime),+    -- | The job to get messages about.+    jobId :: Core.Text,+    -- | The [regional endpoint] (https:\/\/cloud.google.com\/dataflow\/docs\/concepts\/regional-endpoints) that contains the job specified by job_id.+    location :: (Core.Maybe Core.Text),+    -- | Filter to only get messages with importance >= level+    minimumImportance :: (Core.Maybe ProjectsJobsMessagesListMinimumImportance),+    -- | If specified, determines the maximum number of messages to return. If unspecified, the service may choose an appropriate default, or may return an arbitrarily large number of results.+    pageSize :: (Core.Maybe Core.Int32),+    -- | If supplied, this should be the value of next/page/token returned by an earlier call. This will cause the next page of results to be returned.+    pageToken :: (Core.Maybe Core.Text),+    -- | A project id.+    projectId :: Core.Text,+    -- | If specified, return only messages with timestamps >= start_time. The default is the job creation time (i.e. beginning of messages).+    startTime :: (Core.Maybe Core.DateTime),+    -- | Legacy upload protocol for media (e.g. \"media\", \"multipart\").+    uploadType :: (Core.Maybe Core.Text),+    -- | Upload protocol for media (e.g. \"raw\", \"multipart\").+    uploadProtocol :: (Core.Maybe Core.Text)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'DataflowProjectsJobsMessagesList' with the minimum fields required to make a request.+newDataflowProjectsJobsMessagesList ::+  -- |  The job to get messages about. See 'jobId'.+  Core.Text ->+  -- |  A project id. See 'projectId'.+  Core.Text ->+  DataflowProjectsJobsMessagesList+newDataflowProjectsJobsMessagesList jobId projectId =+  DataflowProjectsJobsMessagesList+    { xgafv = Core.Nothing,+      accessToken = Core.Nothing,+      callback = Core.Nothing,+      endTime = Core.Nothing,+      jobId = jobId,+      location = Core.Nothing,+      minimumImportance = Core.Nothing,+      pageSize = Core.Nothing,+      pageToken = Core.Nothing,+      projectId = projectId,+      startTime = Core.Nothing,+      uploadType = Core.Nothing,+      uploadProtocol = Core.Nothing+    }++instance Core.GoogleRequest DataflowProjectsJobsMessagesList where+  type Rs DataflowProjectsJobsMessagesList = ListJobMessagesResponse+  type+    Scopes DataflowProjectsJobsMessagesList =+      '[CloudPlatform'FullControl, Compute'FullControl]+  requestClient DataflowProjectsJobsMessagesList {..} =+    go+      projectId+      jobId+      xgafv+      accessToken+      callback+      endTime+      location+      minimumImportance+      pageSize+      pageToken+      startTime+      uploadType+      uploadProtocol+      (Core.Just Core.AltJSON)+      dataflowService+    where+      go =+        Core.buildClient+          (Core.Proxy :: Core.Proxy DataflowProjectsJobsMessagesListResource)+          Core.mempty
+ gen/Gogol/Dataflow/Projects/Jobs/Snapshot.hs view
@@ -0,0 +1,125 @@+{-# LANGUAGE DataKinds #-}+{-# LANGUAGE DerivingStrategies #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE ImportQualifiedPost #-}+{-# LANGUAGE LambdaCase #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TypeFamilies #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-duplicate-exports #-}+{-# OPTIONS_GHC -fno-warn-name-shadowing #-}+{-# OPTIONS_GHC -fno-warn-unused-binds #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- |+-- Module      : Gogol.Dataflow.Projects.Jobs.Snapshot+-- Copyright   : (c) 2015-2025 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay <brendan.g.hay+gogol@gmail.com>+--               Toni Cebrián <toni@tonicebrian.com>+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Snapshot the state of a streaming job.+--+-- /See:/ <https://cloud.google.com/dataflow Dataflow API Reference> for @dataflow.projects.jobs.snapshot@.+module Gogol.Dataflow.Projects.Jobs.Snapshot+  ( -- * Resource+    DataflowProjectsJobsSnapshotResource,++    -- ** Constructing a Request+    DataflowProjectsJobsSnapshot (..),+    newDataflowProjectsJobsSnapshot,+  )+where++import Gogol.Dataflow.Types+import Gogol.Prelude qualified as Core++-- | A resource alias for @dataflow.projects.jobs.snapshot@ method which the+-- 'DataflowProjectsJobsSnapshot' request conforms to.+type DataflowProjectsJobsSnapshotResource =+  "v1b3"+    Core.:> "projects"+    Core.:> Core.Capture "projectId" Core.Text+    Core.:> "jobs"+    Core.:> Core.CaptureMode "jobId" "snapshot" Core.Text+    Core.:> Core.QueryParam "$.xgafv" Xgafv+    Core.:> Core.QueryParam "access_token" Core.Text+    Core.:> Core.QueryParam "callback" Core.Text+    Core.:> Core.QueryParam "uploadType" Core.Text+    Core.:> Core.QueryParam "upload_protocol" Core.Text+    Core.:> Core.QueryParam "alt" Core.AltJSON+    Core.:> Core.ReqBody '[Core.JSON] SnapshotJobRequest+    Core.:> Core.Post '[Core.JSON] Snapshot++-- | Snapshot the state of a streaming job.+--+-- /See:/ 'newDataflowProjectsJobsSnapshot' smart constructor.+data DataflowProjectsJobsSnapshot = DataflowProjectsJobsSnapshot+  { -- | V1 error format.+    xgafv :: (Core.Maybe Xgafv),+    -- | OAuth access token.+    accessToken :: (Core.Maybe Core.Text),+    -- | JSONP+    callback :: (Core.Maybe Core.Text),+    -- | The job to be snapshotted.+    jobId :: Core.Text,+    -- | Multipart request metadata.+    payload :: SnapshotJobRequest,+    -- | The project which owns the job to be snapshotted.+    projectId :: Core.Text,+    -- | Legacy upload protocol for media (e.g. \"media\", \"multipart\").+    uploadType :: (Core.Maybe Core.Text),+    -- | Upload protocol for media (e.g. \"raw\", \"multipart\").+    uploadProtocol :: (Core.Maybe Core.Text)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'DataflowProjectsJobsSnapshot' with the minimum fields required to make a request.+newDataflowProjectsJobsSnapshot ::+  -- |  The job to be snapshotted. See 'jobId'.+  Core.Text ->+  -- |  Multipart request metadata. See 'payload'.+  SnapshotJobRequest ->+  -- |  The project which owns the job to be snapshotted. See 'projectId'.+  Core.Text ->+  DataflowProjectsJobsSnapshot+newDataflowProjectsJobsSnapshot jobId payload projectId =+  DataflowProjectsJobsSnapshot+    { xgafv = Core.Nothing,+      accessToken = Core.Nothing,+      callback = Core.Nothing,+      jobId = jobId,+      payload = payload,+      projectId = projectId,+      uploadType = Core.Nothing,+      uploadProtocol = Core.Nothing+    }++instance Core.GoogleRequest DataflowProjectsJobsSnapshot where+  type Rs DataflowProjectsJobsSnapshot = Snapshot+  type+    Scopes DataflowProjectsJobsSnapshot =+      '[CloudPlatform'FullControl, Compute'FullControl]+  requestClient DataflowProjectsJobsSnapshot {..} =+    go+      projectId+      jobId+      xgafv+      accessToken+      callback+      uploadType+      uploadProtocol+      (Core.Just Core.AltJSON)+      payload+      dataflowService+    where+      go =+        Core.buildClient+          (Core.Proxy :: Core.Proxy DataflowProjectsJobsSnapshotResource)+          Core.mempty
+ gen/Gogol/Dataflow/Projects/Jobs/Update.hs view
@@ -0,0 +1,135 @@+{-# LANGUAGE DataKinds #-}+{-# LANGUAGE DerivingStrategies #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE ImportQualifiedPost #-}+{-# LANGUAGE LambdaCase #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TypeFamilies #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-duplicate-exports #-}+{-# OPTIONS_GHC -fno-warn-name-shadowing #-}+{-# OPTIONS_GHC -fno-warn-unused-binds #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- |+-- Module      : Gogol.Dataflow.Projects.Jobs.Update+-- Copyright   : (c) 2015-2025 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay <brendan.g.hay+gogol@gmail.com>+--               Toni Cebrián <toni@tonicebrian.com>+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- 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 Gogol.Dataflow.Projects.Jobs.Update+  ( -- * Resource+    DataflowProjectsJobsUpdateResource,++    -- ** Constructing a Request+    DataflowProjectsJobsUpdate (..),+    newDataflowProjectsJobsUpdate,+  )+where++import Gogol.Dataflow.Types+import Gogol.Prelude qualified as Core++-- | A resource alias for @dataflow.projects.jobs.update@ method which the+-- 'DataflowProjectsJobsUpdate' request conforms to.+type DataflowProjectsJobsUpdateResource =+  "v1b3"+    Core.:> "projects"+    Core.:> Core.Capture "projectId" Core.Text+    Core.:> "jobs"+    Core.:> Core.Capture "jobId" Core.Text+    Core.:> Core.QueryParam "$.xgafv" Xgafv+    Core.:> Core.QueryParam "access_token" Core.Text+    Core.:> Core.QueryParam "callback" Core.Text+    Core.:> Core.QueryParam "location" Core.Text+    Core.:> Core.QueryParam "updateMask" Core.FieldMask+    Core.:> Core.QueryParam "uploadType" Core.Text+    Core.:> Core.QueryParam "upload_protocol" Core.Text+    Core.:> Core.QueryParam "alt" Core.AltJSON+    Core.:> Core.ReqBody '[Core.JSON] Job+    Core.:> Core.Put '[Core.JSON] 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:/ 'newDataflowProjectsJobsUpdate' smart constructor.+data DataflowProjectsJobsUpdate = DataflowProjectsJobsUpdate+  { -- | V1 error format.+    xgafv :: (Core.Maybe Xgafv),+    -- | OAuth access token.+    accessToken :: (Core.Maybe Core.Text),+    -- | JSONP+    callback :: (Core.Maybe Core.Text),+    -- | The job ID.+    jobId :: Core.Text,+    -- | The [regional endpoint] (https:\/\/cloud.google.com\/dataflow\/docs\/concepts\/regional-endpoints) that contains this job.+    location :: (Core.Maybe Core.Text),+    -- | Multipart request metadata.+    payload :: Job,+    -- | The ID of the Cloud Platform project that the job belongs to.+    projectId :: Core.Text,+    -- | The list of fields to update relative to Job. If empty, only RequestedJobState will be considered for update. If the FieldMask is not empty and RequestedJobState is none\/empty, The fields specified in the update mask will be the only ones considered for update. If both RequestedJobState and update_mask are specified, an error will be returned as we cannot update both state and mask.+    updateMask :: (Core.Maybe Core.FieldMask),+    -- | Legacy upload protocol for media (e.g. \"media\", \"multipart\").+    uploadType :: (Core.Maybe Core.Text),+    -- | Upload protocol for media (e.g. \"raw\", \"multipart\").+    uploadProtocol :: (Core.Maybe Core.Text)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'DataflowProjectsJobsUpdate' with the minimum fields required to make a request.+newDataflowProjectsJobsUpdate ::+  -- |  The job ID. See 'jobId'.+  Core.Text ->+  -- |  Multipart request metadata. See 'payload'.+  Job ->+  -- |  The ID of the Cloud Platform project that the job belongs to. See 'projectId'.+  Core.Text ->+  DataflowProjectsJobsUpdate+newDataflowProjectsJobsUpdate jobId payload projectId =+  DataflowProjectsJobsUpdate+    { xgafv = Core.Nothing,+      accessToken = Core.Nothing,+      callback = Core.Nothing,+      jobId = jobId,+      location = Core.Nothing,+      payload = payload,+      projectId = projectId,+      updateMask = Core.Nothing,+      uploadType = Core.Nothing,+      uploadProtocol = Core.Nothing+    }++instance Core.GoogleRequest DataflowProjectsJobsUpdate where+  type Rs DataflowProjectsJobsUpdate = Job+  type+    Scopes DataflowProjectsJobsUpdate =+      '[CloudPlatform'FullControl, Compute'FullControl]+  requestClient DataflowProjectsJobsUpdate {..} =+    go+      projectId+      jobId+      xgafv+      accessToken+      callback+      location+      updateMask+      uploadType+      uploadProtocol+      (Core.Just Core.AltJSON)+      payload+      dataflowService+    where+      go =+        Core.buildClient+          (Core.Proxy :: Core.Proxy DataflowProjectsJobsUpdateResource)+          Core.mempty
+ gen/Gogol/Dataflow/Projects/Jobs/WorkItems/Lease.hs view
@@ -0,0 +1,128 @@+{-# LANGUAGE DataKinds #-}+{-# LANGUAGE DerivingStrategies #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE ImportQualifiedPost #-}+{-# LANGUAGE LambdaCase #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TypeFamilies #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-duplicate-exports #-}+{-# OPTIONS_GHC -fno-warn-name-shadowing #-}+{-# OPTIONS_GHC -fno-warn-unused-binds #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- |+-- Module      : Gogol.Dataflow.Projects.Jobs.WorkItems.Lease+-- Copyright   : (c) 2015-2025 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay <brendan.g.hay+gogol@gmail.com>+--               Toni Cebrián <toni@tonicebrian.com>+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Leases a dataflow WorkItem to run.+--+-- /See:/ <https://cloud.google.com/dataflow Dataflow API Reference> for @dataflow.projects.jobs.workItems.lease@.+module Gogol.Dataflow.Projects.Jobs.WorkItems.Lease+  ( -- * Resource+    DataflowProjectsJobsWorkItemsLeaseResource,++    -- ** Constructing a Request+    DataflowProjectsJobsWorkItemsLease (..),+    newDataflowProjectsJobsWorkItemsLease,+  )+where++import Gogol.Dataflow.Types+import Gogol.Prelude qualified as Core++-- | A resource alias for @dataflow.projects.jobs.workItems.lease@ method which the+-- 'DataflowProjectsJobsWorkItemsLease' request conforms to.+type DataflowProjectsJobsWorkItemsLeaseResource =+  "v1b3"+    Core.:> "projects"+    Core.:> Core.Capture "projectId" Core.Text+    Core.:> "jobs"+    Core.:> Core.Capture "jobId" Core.Text+    Core.:> "workItems:lease"+    Core.:> Core.QueryParam "$.xgafv" Xgafv+    Core.:> Core.QueryParam "access_token" Core.Text+    Core.:> Core.QueryParam "callback" Core.Text+    Core.:> Core.QueryParam "uploadType" Core.Text+    Core.:> Core.QueryParam "upload_protocol" Core.Text+    Core.:> Core.QueryParam "alt" Core.AltJSON+    Core.:> Core.ReqBody '[Core.JSON] LeaseWorkItemRequest+    Core.:> Core.Post '[Core.JSON] LeaseWorkItemResponse++-- | Leases a dataflow WorkItem to run.+--+-- /See:/ 'newDataflowProjectsJobsWorkItemsLease' smart constructor.+data DataflowProjectsJobsWorkItemsLease = DataflowProjectsJobsWorkItemsLease+  { -- | V1 error format.+    xgafv :: (Core.Maybe Xgafv),+    -- | OAuth access token.+    accessToken :: (Core.Maybe Core.Text),+    -- | JSONP+    callback :: (Core.Maybe Core.Text),+    -- | Identifies the workflow job this worker belongs to.+    jobId :: Core.Text,+    -- | Multipart request metadata.+    payload :: LeaseWorkItemRequest,+    -- | Identifies the project this worker belongs to.+    projectId :: Core.Text,+    -- | Legacy upload protocol for media (e.g. \"media\", \"multipart\").+    uploadType :: (Core.Maybe Core.Text),+    -- | Upload protocol for media (e.g. \"raw\", \"multipart\").+    uploadProtocol :: (Core.Maybe Core.Text)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'DataflowProjectsJobsWorkItemsLease' with the minimum fields required to make a request.+newDataflowProjectsJobsWorkItemsLease ::+  -- |  Identifies the workflow job this worker belongs to. See 'jobId'.+  Core.Text ->+  -- |  Multipart request metadata. See 'payload'.+  LeaseWorkItemRequest ->+  -- |  Identifies the project this worker belongs to. See 'projectId'.+  Core.Text ->+  DataflowProjectsJobsWorkItemsLease+newDataflowProjectsJobsWorkItemsLease jobId payload projectId =+  DataflowProjectsJobsWorkItemsLease+    { xgafv = Core.Nothing,+      accessToken = Core.Nothing,+      callback = Core.Nothing,+      jobId = jobId,+      payload = payload,+      projectId = projectId,+      uploadType = Core.Nothing,+      uploadProtocol = Core.Nothing+    }++instance Core.GoogleRequest DataflowProjectsJobsWorkItemsLease where+  type Rs DataflowProjectsJobsWorkItemsLease = LeaseWorkItemResponse+  type+    Scopes DataflowProjectsJobsWorkItemsLease =+      '[CloudPlatform'FullControl, Compute'FullControl]+  requestClient DataflowProjectsJobsWorkItemsLease {..} =+    go+      projectId+      jobId+      xgafv+      accessToken+      callback+      uploadType+      uploadProtocol+      (Core.Just Core.AltJSON)+      payload+      dataflowService+    where+      go =+        Core.buildClient+          ( Core.Proxy ::+              Core.Proxy DataflowProjectsJobsWorkItemsLeaseResource+          )+          Core.mempty
+ gen/Gogol/Dataflow/Projects/Jobs/WorkItems/ReportStatus.hs view
@@ -0,0 +1,136 @@+{-# LANGUAGE DataKinds #-}+{-# LANGUAGE DerivingStrategies #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE ImportQualifiedPost #-}+{-# LANGUAGE LambdaCase #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TypeFamilies #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-duplicate-exports #-}+{-# OPTIONS_GHC -fno-warn-name-shadowing #-}+{-# OPTIONS_GHC -fno-warn-unused-binds #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- |+-- Module      : Gogol.Dataflow.Projects.Jobs.WorkItems.ReportStatus+-- Copyright   : (c) 2015-2025 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay <brendan.g.hay+gogol@gmail.com>+--               Toni Cebrián <toni@tonicebrian.com>+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Reports the status of dataflow WorkItems leased by a worker.+--+-- /See:/ <https://cloud.google.com/dataflow Dataflow API Reference> for @dataflow.projects.jobs.workItems.reportStatus@.+module Gogol.Dataflow.Projects.Jobs.WorkItems.ReportStatus+  ( -- * Resource+    DataflowProjectsJobsWorkItemsReportStatusResource,++    -- ** Constructing a Request+    DataflowProjectsJobsWorkItemsReportStatus (..),+    newDataflowProjectsJobsWorkItemsReportStatus,+  )+where++import Gogol.Dataflow.Types+import Gogol.Prelude qualified as Core++-- | A resource alias for @dataflow.projects.jobs.workItems.reportStatus@ method which the+-- 'DataflowProjectsJobsWorkItemsReportStatus' request conforms to.+type DataflowProjectsJobsWorkItemsReportStatusResource =+  "v1b3"+    Core.:> "projects"+    Core.:> Core.Capture "projectId" Core.Text+    Core.:> "jobs"+    Core.:> Core.Capture "jobId" Core.Text+    Core.:> "workItems:reportStatus"+    Core.:> Core.QueryParam "$.xgafv" Xgafv+    Core.:> Core.QueryParam "access_token" Core.Text+    Core.:> Core.QueryParam "callback" Core.Text+    Core.:> Core.QueryParam "uploadType" Core.Text+    Core.:> Core.QueryParam "upload_protocol" Core.Text+    Core.:> Core.QueryParam "alt" Core.AltJSON+    Core.:> Core.ReqBody '[Core.JSON] ReportWorkItemStatusRequest+    Core.:> Core.Post '[Core.JSON] ReportWorkItemStatusResponse++-- | Reports the status of dataflow WorkItems leased by a worker.+--+-- /See:/ 'newDataflowProjectsJobsWorkItemsReportStatus' smart constructor.+data DataflowProjectsJobsWorkItemsReportStatus = DataflowProjectsJobsWorkItemsReportStatus+  { -- | V1 error format.+    xgafv :: (Core.Maybe Xgafv),+    -- | OAuth access token.+    accessToken :: (Core.Maybe Core.Text),+    -- | JSONP+    callback :: (Core.Maybe Core.Text),+    -- | The job which the WorkItem is part of.+    jobId :: Core.Text,+    -- | Multipart request metadata.+    payload :: ReportWorkItemStatusRequest,+    -- | The project which owns the WorkItem\'s job.+    projectId :: Core.Text,+    -- | Legacy upload protocol for media (e.g. \"media\", \"multipart\").+    uploadType :: (Core.Maybe Core.Text),+    -- | Upload protocol for media (e.g. \"raw\", \"multipart\").+    uploadProtocol :: (Core.Maybe Core.Text)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'DataflowProjectsJobsWorkItemsReportStatus' with the minimum fields required to make a request.+newDataflowProjectsJobsWorkItemsReportStatus ::+  -- |  The job which the WorkItem is part of. See 'jobId'.+  Core.Text ->+  -- |  Multipart request metadata. See 'payload'.+  ReportWorkItemStatusRequest ->+  -- |  The project which owns the WorkItem\'s job. See 'projectId'.+  Core.Text ->+  DataflowProjectsJobsWorkItemsReportStatus+newDataflowProjectsJobsWorkItemsReportStatus+  jobId+  payload+  projectId =+    DataflowProjectsJobsWorkItemsReportStatus+      { xgafv = Core.Nothing,+        accessToken = Core.Nothing,+        callback = Core.Nothing,+        jobId = jobId,+        payload = payload,+        projectId = projectId,+        uploadType = Core.Nothing,+        uploadProtocol = Core.Nothing+      }++instance+  Core.GoogleRequest+    DataflowProjectsJobsWorkItemsReportStatus+  where+  type+    Rs DataflowProjectsJobsWorkItemsReportStatus =+      ReportWorkItemStatusResponse+  type+    Scopes DataflowProjectsJobsWorkItemsReportStatus =+      '[CloudPlatform'FullControl, Compute'FullControl]+  requestClient DataflowProjectsJobsWorkItemsReportStatus {..} =+    go+      projectId+      jobId+      xgafv+      accessToken+      callback+      uploadType+      uploadProtocol+      (Core.Just Core.AltJSON)+      payload+      dataflowService+    where+      go =+        Core.buildClient+          ( Core.Proxy ::+              Core.Proxy DataflowProjectsJobsWorkItemsReportStatusResource+          )+          Core.mempty
+ gen/Gogol/Dataflow/Projects/Locations/FlexTemplates/Launch.hs view
@@ -0,0 +1,137 @@+{-# LANGUAGE DataKinds #-}+{-# LANGUAGE DerivingStrategies #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE ImportQualifiedPost #-}+{-# LANGUAGE LambdaCase #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TypeFamilies #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-duplicate-exports #-}+{-# OPTIONS_GHC -fno-warn-name-shadowing #-}+{-# OPTIONS_GHC -fno-warn-unused-binds #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- |+-- Module      : Gogol.Dataflow.Projects.Locations.FlexTemplates.Launch+-- Copyright   : (c) 2015-2025 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay <brendan.g.hay+gogol@gmail.com>+--               Toni Cebrián <toni@tonicebrian.com>+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Launch a job with a FlexTemplate.+--+-- /See:/ <https://cloud.google.com/dataflow Dataflow API Reference> for @dataflow.projects.locations.flexTemplates.launch@.+module Gogol.Dataflow.Projects.Locations.FlexTemplates.Launch+  ( -- * Resource+    DataflowProjectsLocationsFlexTemplatesLaunchResource,++    -- ** Constructing a Request+    DataflowProjectsLocationsFlexTemplatesLaunch (..),+    newDataflowProjectsLocationsFlexTemplatesLaunch,+  )+where++import Gogol.Dataflow.Types+import Gogol.Prelude qualified as Core++-- | A resource alias for @dataflow.projects.locations.flexTemplates.launch@ method which the+-- 'DataflowProjectsLocationsFlexTemplatesLaunch' request conforms to.+type DataflowProjectsLocationsFlexTemplatesLaunchResource =+  "v1b3"+    Core.:> "projects"+    Core.:> Core.Capture "projectId" Core.Text+    Core.:> "locations"+    Core.:> Core.Capture "location" Core.Text+    Core.:> "flexTemplates:launch"+    Core.:> Core.QueryParam "$.xgafv" Xgafv+    Core.:> Core.QueryParam "access_token" Core.Text+    Core.:> Core.QueryParam "callback" Core.Text+    Core.:> Core.QueryParam "uploadType" Core.Text+    Core.:> Core.QueryParam "upload_protocol" Core.Text+    Core.:> Core.QueryParam "alt" Core.AltJSON+    Core.:> Core.ReqBody '[Core.JSON] LaunchFlexTemplateRequest+    Core.:> Core.Post '[Core.JSON] LaunchFlexTemplateResponse++-- | Launch a job with a FlexTemplate.+--+-- /See:/ 'newDataflowProjectsLocationsFlexTemplatesLaunch' smart constructor.+data DataflowProjectsLocationsFlexTemplatesLaunch = DataflowProjectsLocationsFlexTemplatesLaunch+  { -- | V1 error format.+    xgafv :: (Core.Maybe Xgafv),+    -- | OAuth access token.+    accessToken :: (Core.Maybe Core.Text),+    -- | JSONP+    callback :: (Core.Maybe Core.Text),+    -- | Required. The [regional endpoint] (https:\/\/cloud.google.com\/dataflow\/docs\/concepts\/regional-endpoints) to which to direct the request. E.g., us-central1, us-west1.+    location :: Core.Text,+    -- | Multipart request metadata.+    payload :: LaunchFlexTemplateRequest,+    -- | Required. The ID of the Cloud Platform project that the job belongs to.+    projectId :: Core.Text,+    -- | Legacy upload protocol for media (e.g. \"media\", \"multipart\").+    uploadType :: (Core.Maybe Core.Text),+    -- | Upload protocol for media (e.g. \"raw\", \"multipart\").+    uploadProtocol :: (Core.Maybe Core.Text)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'DataflowProjectsLocationsFlexTemplatesLaunch' with the minimum fields required to make a request.+newDataflowProjectsLocationsFlexTemplatesLaunch ::+  -- |  Required. The [regional endpoint] (https:\/\/cloud.google.com\/dataflow\/docs\/concepts\/regional-endpoints) to which to direct the request. E.g., us-central1, us-west1. See 'location'.+  Core.Text ->+  -- |  Multipart request metadata. See 'payload'.+  LaunchFlexTemplateRequest ->+  -- |  Required. The ID of the Cloud Platform project that the job belongs to. See 'projectId'.+  Core.Text ->+  DataflowProjectsLocationsFlexTemplatesLaunch+newDataflowProjectsLocationsFlexTemplatesLaunch+  location+  payload+  projectId =+    DataflowProjectsLocationsFlexTemplatesLaunch+      { xgafv =+          Core.Nothing,+        accessToken = Core.Nothing,+        callback = Core.Nothing,+        location = location,+        payload = payload,+        projectId = projectId,+        uploadType = Core.Nothing,+        uploadProtocol = Core.Nothing+      }++instance+  Core.GoogleRequest+    DataflowProjectsLocationsFlexTemplatesLaunch+  where+  type+    Rs DataflowProjectsLocationsFlexTemplatesLaunch =+      LaunchFlexTemplateResponse+  type+    Scopes DataflowProjectsLocationsFlexTemplatesLaunch =+      '[CloudPlatform'FullControl, Compute'FullControl]+  requestClient DataflowProjectsLocationsFlexTemplatesLaunch {..} =+    go+      projectId+      location+      xgafv+      accessToken+      callback+      uploadType+      uploadProtocol+      (Core.Just Core.AltJSON)+      payload+      dataflowService+    where+      go =+        Core.buildClient+          ( Core.Proxy ::+              Core.Proxy DataflowProjectsLocationsFlexTemplatesLaunchResource+          )+          Core.mempty
+ gen/Gogol/Dataflow/Projects/Locations/Jobs/Create.hs view
@@ -0,0 +1,138 @@+{-# LANGUAGE DataKinds #-}+{-# LANGUAGE DerivingStrategies #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE ImportQualifiedPost #-}+{-# LANGUAGE LambdaCase #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TypeFamilies #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-duplicate-exports #-}+{-# OPTIONS_GHC -fno-warn-name-shadowing #-}+{-# OPTIONS_GHC -fno-warn-unused-binds #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- |+-- Module      : Gogol.Dataflow.Projects.Locations.Jobs.Create+-- Copyright   : (c) 2015-2025 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay <brendan.g.hay+gogol@gmail.com>+--               Toni Cebrián <toni@tonicebrian.com>+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- 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@. Do not enter confidential information when you supply string values using the API.+--+-- /See:/ <https://cloud.google.com/dataflow Dataflow API Reference> for @dataflow.projects.locations.jobs.create@.+module Gogol.Dataflow.Projects.Locations.Jobs.Create+  ( -- * Resource+    DataflowProjectsLocationsJobsCreateResource,++    -- ** Constructing a Request+    DataflowProjectsLocationsJobsCreate (..),+    newDataflowProjectsLocationsJobsCreate,+  )+where++import Gogol.Dataflow.Types+import Gogol.Prelude qualified as Core++-- | A resource alias for @dataflow.projects.locations.jobs.create@ method which the+-- 'DataflowProjectsLocationsJobsCreate' request conforms to.+type DataflowProjectsLocationsJobsCreateResource =+  "v1b3"+    Core.:> "projects"+    Core.:> Core.Capture "projectId" Core.Text+    Core.:> "locations"+    Core.:> Core.Capture "location" Core.Text+    Core.:> "jobs"+    Core.:> Core.QueryParam "$.xgafv" Xgafv+    Core.:> Core.QueryParam "access_token" Core.Text+    Core.:> Core.QueryParam "callback" Core.Text+    Core.:> Core.QueryParam "replaceJobId" Core.Text+    Core.:> Core.QueryParam "uploadType" Core.Text+    Core.:> Core.QueryParam "upload_protocol" Core.Text+    Core.:> Core.QueryParam "view" ProjectsLocationsJobsCreateView+    Core.:> Core.QueryParam "alt" Core.AltJSON+    Core.:> Core.ReqBody '[Core.JSON] Job+    Core.:> Core.Post '[Core.JSON] 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@. Do not enter confidential information when you supply string values using the API.+--+-- /See:/ 'newDataflowProjectsLocationsJobsCreate' smart constructor.+data DataflowProjectsLocationsJobsCreate = DataflowProjectsLocationsJobsCreate+  { -- | V1 error format.+    xgafv :: (Core.Maybe Xgafv),+    -- | OAuth access token.+    accessToken :: (Core.Maybe Core.Text),+    -- | JSONP+    callback :: (Core.Maybe Core.Text),+    -- | The [regional endpoint] (https:\/\/cloud.google.com\/dataflow\/docs\/concepts\/regional-endpoints) that contains this job.+    location :: Core.Text,+    -- | Multipart request metadata.+    payload :: Job,+    -- | The ID of the Cloud Platform project that the job belongs to.+    projectId :: Core.Text,+    -- | Deprecated. This field is now in the Job message.+    replaceJobId :: (Core.Maybe Core.Text),+    -- | Legacy upload protocol for media (e.g. \"media\", \"multipart\").+    uploadType :: (Core.Maybe Core.Text),+    -- | Upload protocol for media (e.g. \"raw\", \"multipart\").+    uploadProtocol :: (Core.Maybe Core.Text),+    -- | The level of information requested in response.+    view :: (Core.Maybe ProjectsLocationsJobsCreateView)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'DataflowProjectsLocationsJobsCreate' with the minimum fields required to make a request.+newDataflowProjectsLocationsJobsCreate ::+  -- |  The [regional endpoint] (https:\/\/cloud.google.com\/dataflow\/docs\/concepts\/regional-endpoints) that contains this job. See 'location'.+  Core.Text ->+  -- |  Multipart request metadata. See 'payload'.+  Job ->+  -- |  The ID of the Cloud Platform project that the job belongs to. See 'projectId'.+  Core.Text ->+  DataflowProjectsLocationsJobsCreate+newDataflowProjectsLocationsJobsCreate location payload projectId =+  DataflowProjectsLocationsJobsCreate+    { xgafv = Core.Nothing,+      accessToken = Core.Nothing,+      callback = Core.Nothing,+      location = location,+      payload = payload,+      projectId = projectId,+      replaceJobId = Core.Nothing,+      uploadType = Core.Nothing,+      uploadProtocol = Core.Nothing,+      view = Core.Nothing+    }++instance Core.GoogleRequest DataflowProjectsLocationsJobsCreate where+  type Rs DataflowProjectsLocationsJobsCreate = Job+  type+    Scopes DataflowProjectsLocationsJobsCreate =+      '[CloudPlatform'FullControl, Compute'FullControl]+  requestClient DataflowProjectsLocationsJobsCreate {..} =+    go+      projectId+      location+      xgafv+      accessToken+      callback+      replaceJobId+      uploadType+      uploadProtocol+      view+      (Core.Just Core.AltJSON)+      payload+      dataflowService+    where+      go =+        Core.buildClient+          ( Core.Proxy ::+              Core.Proxy DataflowProjectsLocationsJobsCreateResource+          )+          Core.mempty
+ gen/Gogol/Dataflow/Projects/Locations/Jobs/Debug/GetConfig.hs view
@@ -0,0 +1,146 @@+{-# LANGUAGE DataKinds #-}+{-# LANGUAGE DerivingStrategies #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE ImportQualifiedPost #-}+{-# LANGUAGE LambdaCase #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TypeFamilies #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-duplicate-exports #-}+{-# OPTIONS_GHC -fno-warn-name-shadowing #-}+{-# OPTIONS_GHC -fno-warn-unused-binds #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- |+-- Module      : Gogol.Dataflow.Projects.Locations.Jobs.Debug.GetConfig+-- Copyright   : (c) 2015-2025 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay <brendan.g.hay+gogol@gmail.com>+--               Toni Cebrián <toni@tonicebrian.com>+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Get encoded debug configuration for component. Not cacheable.+--+-- /See:/ <https://cloud.google.com/dataflow Dataflow API Reference> for @dataflow.projects.locations.jobs.debug.getConfig@.+module Gogol.Dataflow.Projects.Locations.Jobs.Debug.GetConfig+  ( -- * Resource+    DataflowProjectsLocationsJobsDebugGetConfigResource,++    -- ** Constructing a Request+    DataflowProjectsLocationsJobsDebugGetConfig (..),+    newDataflowProjectsLocationsJobsDebugGetConfig,+  )+where++import Gogol.Dataflow.Types+import Gogol.Prelude qualified as Core++-- | A resource alias for @dataflow.projects.locations.jobs.debug.getConfig@ method which the+-- 'DataflowProjectsLocationsJobsDebugGetConfig' request conforms to.+type DataflowProjectsLocationsJobsDebugGetConfigResource =+  "v1b3"+    Core.:> "projects"+    Core.:> Core.Capture "projectId" Core.Text+    Core.:> "locations"+    Core.:> Core.Capture "location" Core.Text+    Core.:> "jobs"+    Core.:> Core.Capture "jobId" Core.Text+    Core.:> "debug"+    Core.:> "getConfig"+    Core.:> Core.QueryParam "$.xgafv" Xgafv+    Core.:> Core.QueryParam "access_token" Core.Text+    Core.:> Core.QueryParam "callback" Core.Text+    Core.:> Core.QueryParam "uploadType" Core.Text+    Core.:> Core.QueryParam "upload_protocol" Core.Text+    Core.:> Core.QueryParam "alt" Core.AltJSON+    Core.:> Core.ReqBody '[Core.JSON] GetDebugConfigRequest+    Core.:> Core.Post '[Core.JSON] GetDebugConfigResponse++-- | Get encoded debug configuration for component. Not cacheable.+--+-- /See:/ 'newDataflowProjectsLocationsJobsDebugGetConfig' smart constructor.+data DataflowProjectsLocationsJobsDebugGetConfig = DataflowProjectsLocationsJobsDebugGetConfig+  { -- | V1 error format.+    xgafv :: (Core.Maybe Xgafv),+    -- | OAuth access token.+    accessToken :: (Core.Maybe Core.Text),+    -- | JSONP+    callback :: (Core.Maybe Core.Text),+    -- | The job id.+    jobId :: Core.Text,+    -- | The [regional endpoint] (https:\/\/cloud.google.com\/dataflow\/docs\/concepts\/regional-endpoints) that contains the job specified by job_id.+    location :: Core.Text,+    -- | Multipart request metadata.+    payload :: GetDebugConfigRequest,+    -- | The project id.+    projectId :: Core.Text,+    -- | Legacy upload protocol for media (e.g. \"media\", \"multipart\").+    uploadType :: (Core.Maybe Core.Text),+    -- | Upload protocol for media (e.g. \"raw\", \"multipart\").+    uploadProtocol :: (Core.Maybe Core.Text)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'DataflowProjectsLocationsJobsDebugGetConfig' with the minimum fields required to make a request.+newDataflowProjectsLocationsJobsDebugGetConfig ::+  -- |  The job id. See 'jobId'.+  Core.Text ->+  -- |  The [regional endpoint] (https:\/\/cloud.google.com\/dataflow\/docs\/concepts\/regional-endpoints) that contains the job specified by job_id. See 'location'.+  Core.Text ->+  -- |  Multipart request metadata. See 'payload'.+  GetDebugConfigRequest ->+  -- |  The project id. See 'projectId'.+  Core.Text ->+  DataflowProjectsLocationsJobsDebugGetConfig+newDataflowProjectsLocationsJobsDebugGetConfig+  jobId+  location+  payload+  projectId =+    DataflowProjectsLocationsJobsDebugGetConfig+      { xgafv = Core.Nothing,+        accessToken = Core.Nothing,+        callback = Core.Nothing,+        jobId = jobId,+        location = location,+        payload = payload,+        projectId = projectId,+        uploadType = Core.Nothing,+        uploadProtocol = Core.Nothing+      }++instance+  Core.GoogleRequest+    DataflowProjectsLocationsJobsDebugGetConfig+  where+  type+    Rs DataflowProjectsLocationsJobsDebugGetConfig =+      GetDebugConfigResponse+  type+    Scopes DataflowProjectsLocationsJobsDebugGetConfig =+      '[CloudPlatform'FullControl, Compute'FullControl]+  requestClient DataflowProjectsLocationsJobsDebugGetConfig {..} =+    go+      projectId+      location+      jobId+      xgafv+      accessToken+      callback+      uploadType+      uploadProtocol+      (Core.Just Core.AltJSON)+      payload+      dataflowService+    where+      go =+        Core.buildClient+          ( Core.Proxy ::+              Core.Proxy DataflowProjectsLocationsJobsDebugGetConfigResource+          )+          Core.mempty
+ gen/Gogol/Dataflow/Projects/Locations/Jobs/Debug/SendCapture.hs view
@@ -0,0 +1,147 @@+{-# LANGUAGE DataKinds #-}+{-# LANGUAGE DerivingStrategies #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE ImportQualifiedPost #-}+{-# LANGUAGE LambdaCase #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TypeFamilies #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-duplicate-exports #-}+{-# OPTIONS_GHC -fno-warn-name-shadowing #-}+{-# OPTIONS_GHC -fno-warn-unused-binds #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- |+-- Module      : Gogol.Dataflow.Projects.Locations.Jobs.Debug.SendCapture+-- Copyright   : (c) 2015-2025 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay <brendan.g.hay+gogol@gmail.com>+--               Toni Cebrián <toni@tonicebrian.com>+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Send encoded debug capture data for component.+--+-- /See:/ <https://cloud.google.com/dataflow Dataflow API Reference> for @dataflow.projects.locations.jobs.debug.sendCapture@.+module Gogol.Dataflow.Projects.Locations.Jobs.Debug.SendCapture+  ( -- * Resource+    DataflowProjectsLocationsJobsDebugSendCaptureResource,++    -- ** Constructing a Request+    DataflowProjectsLocationsJobsDebugSendCapture (..),+    newDataflowProjectsLocationsJobsDebugSendCapture,+  )+where++import Gogol.Dataflow.Types+import Gogol.Prelude qualified as Core++-- | A resource alias for @dataflow.projects.locations.jobs.debug.sendCapture@ method which the+-- 'DataflowProjectsLocationsJobsDebugSendCapture' request conforms to.+type DataflowProjectsLocationsJobsDebugSendCaptureResource =+  "v1b3"+    Core.:> "projects"+    Core.:> Core.Capture "projectId" Core.Text+    Core.:> "locations"+    Core.:> Core.Capture "location" Core.Text+    Core.:> "jobs"+    Core.:> Core.Capture "jobId" Core.Text+    Core.:> "debug"+    Core.:> "sendCapture"+    Core.:> Core.QueryParam "$.xgafv" Xgafv+    Core.:> Core.QueryParam "access_token" Core.Text+    Core.:> Core.QueryParam "callback" Core.Text+    Core.:> Core.QueryParam "uploadType" Core.Text+    Core.:> Core.QueryParam "upload_protocol" Core.Text+    Core.:> Core.QueryParam "alt" Core.AltJSON+    Core.:> Core.ReqBody '[Core.JSON] SendDebugCaptureRequest+    Core.:> Core.Post '[Core.JSON] SendDebugCaptureResponse++-- | Send encoded debug capture data for component.+--+-- /See:/ 'newDataflowProjectsLocationsJobsDebugSendCapture' smart constructor.+data DataflowProjectsLocationsJobsDebugSendCapture = DataflowProjectsLocationsJobsDebugSendCapture+  { -- | V1 error format.+    xgafv :: (Core.Maybe Xgafv),+    -- | OAuth access token.+    accessToken :: (Core.Maybe Core.Text),+    -- | JSONP+    callback :: (Core.Maybe Core.Text),+    -- | The job id.+    jobId :: Core.Text,+    -- | The [regional endpoint] (https:\/\/cloud.google.com\/dataflow\/docs\/concepts\/regional-endpoints) that contains the job specified by job_id.+    location :: Core.Text,+    -- | Multipart request metadata.+    payload :: SendDebugCaptureRequest,+    -- | The project id.+    projectId :: Core.Text,+    -- | Legacy upload protocol for media (e.g. \"media\", \"multipart\").+    uploadType :: (Core.Maybe Core.Text),+    -- | Upload protocol for media (e.g. \"raw\", \"multipart\").+    uploadProtocol :: (Core.Maybe Core.Text)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'DataflowProjectsLocationsJobsDebugSendCapture' with the minimum fields required to make a request.+newDataflowProjectsLocationsJobsDebugSendCapture ::+  -- |  The job id. See 'jobId'.+  Core.Text ->+  -- |  The [regional endpoint] (https:\/\/cloud.google.com\/dataflow\/docs\/concepts\/regional-endpoints) that contains the job specified by job_id. See 'location'.+  Core.Text ->+  -- |  Multipart request metadata. See 'payload'.+  SendDebugCaptureRequest ->+  -- |  The project id. See 'projectId'.+  Core.Text ->+  DataflowProjectsLocationsJobsDebugSendCapture+newDataflowProjectsLocationsJobsDebugSendCapture+  jobId+  location+  payload+  projectId =+    DataflowProjectsLocationsJobsDebugSendCapture+      { xgafv =+          Core.Nothing,+        accessToken = Core.Nothing,+        callback = Core.Nothing,+        jobId = jobId,+        location = location,+        payload = payload,+        projectId = projectId,+        uploadType = Core.Nothing,+        uploadProtocol = Core.Nothing+      }++instance+  Core.GoogleRequest+    DataflowProjectsLocationsJobsDebugSendCapture+  where+  type+    Rs DataflowProjectsLocationsJobsDebugSendCapture =+      SendDebugCaptureResponse+  type+    Scopes DataflowProjectsLocationsJobsDebugSendCapture =+      '[CloudPlatform'FullControl, Compute'FullControl]+  requestClient DataflowProjectsLocationsJobsDebugSendCapture {..} =+    go+      projectId+      location+      jobId+      xgafv+      accessToken+      callback+      uploadType+      uploadProtocol+      (Core.Just Core.AltJSON)+      payload+      dataflowService+    where+      go =+        Core.buildClient+          ( Core.Proxy ::+              Core.Proxy DataflowProjectsLocationsJobsDebugSendCaptureResource+          )+          Core.mempty
+ gen/Gogol/Dataflow/Projects/Locations/Jobs/Get.hs view
@@ -0,0 +1,131 @@+{-# LANGUAGE DataKinds #-}+{-# LANGUAGE DerivingStrategies #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE ImportQualifiedPost #-}+{-# LANGUAGE LambdaCase #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TypeFamilies #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-duplicate-exports #-}+{-# OPTIONS_GHC -fno-warn-name-shadowing #-}+{-# OPTIONS_GHC -fno-warn-unused-binds #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- |+-- Module      : Gogol.Dataflow.Projects.Locations.Jobs.Get+-- Copyright   : (c) 2015-2025 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay <brendan.g.hay+gogol@gmail.com>+--               Toni Cebrián <toni@tonicebrian.com>+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- 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 Gogol.Dataflow.Projects.Locations.Jobs.Get+  ( -- * Resource+    DataflowProjectsLocationsJobsGetResource,++    -- ** Constructing a Request+    DataflowProjectsLocationsJobsGet (..),+    newDataflowProjectsLocationsJobsGet,+  )+where++import Gogol.Dataflow.Types+import Gogol.Prelude qualified as Core++-- | A resource alias for @dataflow.projects.locations.jobs.get@ method which the+-- 'DataflowProjectsLocationsJobsGet' request conforms to.+type DataflowProjectsLocationsJobsGetResource =+  "v1b3"+    Core.:> "projects"+    Core.:> Core.Capture "projectId" Core.Text+    Core.:> "locations"+    Core.:> Core.Capture "location" Core.Text+    Core.:> "jobs"+    Core.:> Core.Capture "jobId" Core.Text+    Core.:> Core.QueryParam "$.xgafv" Xgafv+    Core.:> Core.QueryParam "access_token" Core.Text+    Core.:> Core.QueryParam "callback" Core.Text+    Core.:> Core.QueryParam "uploadType" Core.Text+    Core.:> Core.QueryParam "upload_protocol" Core.Text+    Core.:> Core.QueryParam "view" ProjectsLocationsJobsGetView+    Core.:> Core.QueryParam "alt" Core.AltJSON+    Core.:> Core.Get '[Core.JSON] 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:/ 'newDataflowProjectsLocationsJobsGet' smart constructor.+data DataflowProjectsLocationsJobsGet = DataflowProjectsLocationsJobsGet+  { -- | V1 error format.+    xgafv :: (Core.Maybe Xgafv),+    -- | OAuth access token.+    accessToken :: (Core.Maybe Core.Text),+    -- | JSONP+    callback :: (Core.Maybe Core.Text),+    -- | The job ID.+    jobId :: Core.Text,+    -- | The [regional endpoint] (https:\/\/cloud.google.com\/dataflow\/docs\/concepts\/regional-endpoints) that contains this job.+    location :: Core.Text,+    -- | The ID of the Cloud Platform project that the job belongs to.+    projectId :: Core.Text,+    -- | Legacy upload protocol for media (e.g. \"media\", \"multipart\").+    uploadType :: (Core.Maybe Core.Text),+    -- | Upload protocol for media (e.g. \"raw\", \"multipart\").+    uploadProtocol :: (Core.Maybe Core.Text),+    -- | The level of information requested in response.+    view :: (Core.Maybe ProjectsLocationsJobsGetView)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'DataflowProjectsLocationsJobsGet' with the minimum fields required to make a request.+newDataflowProjectsLocationsJobsGet ::+  -- |  The job ID. See 'jobId'.+  Core.Text ->+  -- |  The [regional endpoint] (https:\/\/cloud.google.com\/dataflow\/docs\/concepts\/regional-endpoints) that contains this job. See 'location'.+  Core.Text ->+  -- |  The ID of the Cloud Platform project that the job belongs to. See 'projectId'.+  Core.Text ->+  DataflowProjectsLocationsJobsGet+newDataflowProjectsLocationsJobsGet jobId location projectId =+  DataflowProjectsLocationsJobsGet+    { xgafv = Core.Nothing,+      accessToken = Core.Nothing,+      callback = Core.Nothing,+      jobId = jobId,+      location = location,+      projectId = projectId,+      uploadType = Core.Nothing,+      uploadProtocol = Core.Nothing,+      view = Core.Nothing+    }++instance Core.GoogleRequest DataflowProjectsLocationsJobsGet where+  type Rs DataflowProjectsLocationsJobsGet = Job+  type+    Scopes DataflowProjectsLocationsJobsGet =+      '[CloudPlatform'FullControl, Compute'FullControl]+  requestClient DataflowProjectsLocationsJobsGet {..} =+    go+      projectId+      location+      jobId+      xgafv+      accessToken+      callback+      uploadType+      uploadProtocol+      view+      (Core.Just Core.AltJSON)+      dataflowService+    where+      go =+        Core.buildClient+          (Core.Proxy :: Core.Proxy DataflowProjectsLocationsJobsGetResource)+          Core.mempty
+ gen/Gogol/Dataflow/Projects/Locations/Jobs/GetExecutionDetails.hs view
@@ -0,0 +1,149 @@+{-# LANGUAGE DataKinds #-}+{-# LANGUAGE DerivingStrategies #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE ImportQualifiedPost #-}+{-# LANGUAGE LambdaCase #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TypeFamilies #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-duplicate-exports #-}+{-# OPTIONS_GHC -fno-warn-name-shadowing #-}+{-# OPTIONS_GHC -fno-warn-unused-binds #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- |+-- Module      : Gogol.Dataflow.Projects.Locations.Jobs.GetExecutionDetails+-- Copyright   : (c) 2015-2025 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay <brendan.g.hay+gogol@gmail.com>+--               Toni Cebrián <toni@tonicebrian.com>+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Request detailed information about the execution status of the job. EXPERIMENTAL. This API is subject to change or removal without notice.+--+-- /See:/ <https://cloud.google.com/dataflow Dataflow API Reference> for @dataflow.projects.locations.jobs.getExecutionDetails@.+module Gogol.Dataflow.Projects.Locations.Jobs.GetExecutionDetails+  ( -- * Resource+    DataflowProjectsLocationsJobsGetExecutionDetailsResource,++    -- ** Constructing a Request+    DataflowProjectsLocationsJobsGetExecutionDetails (..),+    newDataflowProjectsLocationsJobsGetExecutionDetails,+  )+where++import Gogol.Dataflow.Types+import Gogol.Prelude qualified as Core++-- | A resource alias for @dataflow.projects.locations.jobs.getExecutionDetails@ method which the+-- 'DataflowProjectsLocationsJobsGetExecutionDetails' request conforms to.+type DataflowProjectsLocationsJobsGetExecutionDetailsResource =+  "v1b3"+    Core.:> "projects"+    Core.:> Core.Capture "projectId" Core.Text+    Core.:> "locations"+    Core.:> Core.Capture "location" Core.Text+    Core.:> "jobs"+    Core.:> Core.Capture "jobId" Core.Text+    Core.:> "executionDetails"+    Core.:> Core.QueryParam "$.xgafv" Xgafv+    Core.:> Core.QueryParam "access_token" Core.Text+    Core.:> Core.QueryParam "callback" Core.Text+    Core.:> Core.QueryParam "pageSize" Core.Int32+    Core.:> Core.QueryParam "pageToken" Core.Text+    Core.:> Core.QueryParam "uploadType" Core.Text+    Core.:> Core.QueryParam "upload_protocol" Core.Text+    Core.:> Core.QueryParam "alt" Core.AltJSON+    Core.:> Core.Get '[Core.JSON] JobExecutionDetails++-- | Request detailed information about the execution status of the job. EXPERIMENTAL. This API is subject to change or removal without notice.+--+-- /See:/ 'newDataflowProjectsLocationsJobsGetExecutionDetails' smart constructor.+data DataflowProjectsLocationsJobsGetExecutionDetails = DataflowProjectsLocationsJobsGetExecutionDetails+  { -- | V1 error format.+    xgafv :: (Core.Maybe Xgafv),+    -- | OAuth access token.+    accessToken :: (Core.Maybe Core.Text),+    -- | JSONP+    callback :: (Core.Maybe Core.Text),+    -- | The job to get execution details for.+    jobId :: Core.Text,+    -- | The [regional endpoint] (https:\/\/cloud.google.com\/dataflow\/docs\/concepts\/regional-endpoints) that contains the job specified by job_id.+    location :: Core.Text,+    -- | If specified, determines the maximum number of stages to return. If unspecified, the service may choose an appropriate default, or may return an arbitrarily large number of results.+    pageSize :: (Core.Maybe Core.Int32),+    -- | If supplied, this should be the value of next/page/token returned by an earlier call. This will cause the next page of results to be returned.+    pageToken :: (Core.Maybe Core.Text),+    -- | A project id.+    projectId :: Core.Text,+    -- | Legacy upload protocol for media (e.g. \"media\", \"multipart\").+    uploadType :: (Core.Maybe Core.Text),+    -- | Upload protocol for media (e.g. \"raw\", \"multipart\").+    uploadProtocol :: (Core.Maybe Core.Text)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'DataflowProjectsLocationsJobsGetExecutionDetails' with the minimum fields required to make a request.+newDataflowProjectsLocationsJobsGetExecutionDetails ::+  -- |  The job to get execution details for. See 'jobId'.+  Core.Text ->+  -- |  The [regional endpoint] (https:\/\/cloud.google.com\/dataflow\/docs\/concepts\/regional-endpoints) that contains the job specified by job_id. See 'location'.+  Core.Text ->+  -- |  A project id. See 'projectId'.+  Core.Text ->+  DataflowProjectsLocationsJobsGetExecutionDetails+newDataflowProjectsLocationsJobsGetExecutionDetails+  jobId+  location+  projectId =+    DataflowProjectsLocationsJobsGetExecutionDetails+      { xgafv =+          Core.Nothing,+        accessToken = Core.Nothing,+        callback = Core.Nothing,+        jobId = jobId,+        location = location,+        pageSize = Core.Nothing,+        pageToken = Core.Nothing,+        projectId = projectId,+        uploadType = Core.Nothing,+        uploadProtocol = Core.Nothing+      }++instance+  Core.GoogleRequest+    DataflowProjectsLocationsJobsGetExecutionDetails+  where+  type+    Rs DataflowProjectsLocationsJobsGetExecutionDetails =+      JobExecutionDetails+  type+    Scopes DataflowProjectsLocationsJobsGetExecutionDetails =+      '[CloudPlatform'FullControl, Compute'FullControl]+  requestClient DataflowProjectsLocationsJobsGetExecutionDetails {..} =+    go+      projectId+      location+      jobId+      xgafv+      accessToken+      callback+      pageSize+      pageToken+      uploadType+      uploadProtocol+      (Core.Just Core.AltJSON)+      dataflowService+    where+      go =+        Core.buildClient+          ( Core.Proxy ::+              Core.Proxy+                DataflowProjectsLocationsJobsGetExecutionDetailsResource+          )+          Core.mempty
+ gen/Gogol/Dataflow/Projects/Locations/Jobs/GetMetrics.hs view
@@ -0,0 +1,134 @@+{-# LANGUAGE DataKinds #-}+{-# LANGUAGE DerivingStrategies #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE ImportQualifiedPost #-}+{-# LANGUAGE LambdaCase #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TypeFamilies #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-duplicate-exports #-}+{-# OPTIONS_GHC -fno-warn-name-shadowing #-}+{-# OPTIONS_GHC -fno-warn-unused-binds #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- |+-- Module      : Gogol.Dataflow.Projects.Locations.Jobs.GetMetrics+-- Copyright   : (c) 2015-2025 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay <brendan.g.hay+gogol@gmail.com>+--               Toni Cebrián <toni@tonicebrian.com>+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- 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 Gogol.Dataflow.Projects.Locations.Jobs.GetMetrics+  ( -- * Resource+    DataflowProjectsLocationsJobsGetMetricsResource,++    -- ** Constructing a Request+    DataflowProjectsLocationsJobsGetMetrics (..),+    newDataflowProjectsLocationsJobsGetMetrics,+  )+where++import Gogol.Dataflow.Types+import Gogol.Prelude qualified as Core++-- | A resource alias for @dataflow.projects.locations.jobs.getMetrics@ method which the+-- 'DataflowProjectsLocationsJobsGetMetrics' request conforms to.+type DataflowProjectsLocationsJobsGetMetricsResource =+  "v1b3"+    Core.:> "projects"+    Core.:> Core.Capture "projectId" Core.Text+    Core.:> "locations"+    Core.:> Core.Capture "location" Core.Text+    Core.:> "jobs"+    Core.:> Core.Capture "jobId" Core.Text+    Core.:> "metrics"+    Core.:> Core.QueryParam "$.xgafv" Xgafv+    Core.:> Core.QueryParam "access_token" Core.Text+    Core.:> Core.QueryParam "callback" Core.Text+    Core.:> Core.QueryParam "startTime" Core.DateTime+    Core.:> Core.QueryParam "uploadType" Core.Text+    Core.:> Core.QueryParam "upload_protocol" Core.Text+    Core.:> Core.QueryParam "alt" Core.AltJSON+    Core.:> Core.Get '[Core.JSON] JobMetrics++-- | 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:/ 'newDataflowProjectsLocationsJobsGetMetrics' smart constructor.+data DataflowProjectsLocationsJobsGetMetrics = DataflowProjectsLocationsJobsGetMetrics+  { -- | V1 error format.+    xgafv :: (Core.Maybe Xgafv),+    -- | OAuth access token.+    accessToken :: (Core.Maybe Core.Text),+    -- | JSONP+    callback :: (Core.Maybe Core.Text),+    -- | The job to get metrics for.+    jobId :: Core.Text,+    -- | The [regional endpoint] (https:\/\/cloud.google.com\/dataflow\/docs\/concepts\/regional-endpoints) that contains the job specified by job_id.+    location :: Core.Text,+    -- | A project id.+    projectId :: Core.Text,+    -- | Return only metric data that has changed since this time. Default is to return all information about all metrics for the job.+    startTime :: (Core.Maybe Core.DateTime),+    -- | Legacy upload protocol for media (e.g. \"media\", \"multipart\").+    uploadType :: (Core.Maybe Core.Text),+    -- | Upload protocol for media (e.g. \"raw\", \"multipart\").+    uploadProtocol :: (Core.Maybe Core.Text)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'DataflowProjectsLocationsJobsGetMetrics' with the minimum fields required to make a request.+newDataflowProjectsLocationsJobsGetMetrics ::+  -- |  The job to get metrics for. See 'jobId'.+  Core.Text ->+  -- |  The [regional endpoint] (https:\/\/cloud.google.com\/dataflow\/docs\/concepts\/regional-endpoints) that contains the job specified by job_id. See 'location'.+  Core.Text ->+  -- |  A project id. See 'projectId'.+  Core.Text ->+  DataflowProjectsLocationsJobsGetMetrics+newDataflowProjectsLocationsJobsGetMetrics jobId location projectId =+  DataflowProjectsLocationsJobsGetMetrics+    { xgafv = Core.Nothing,+      accessToken = Core.Nothing,+      callback = Core.Nothing,+      jobId = jobId,+      location = location,+      projectId = projectId,+      startTime = Core.Nothing,+      uploadType = Core.Nothing,+      uploadProtocol = Core.Nothing+    }++instance Core.GoogleRequest DataflowProjectsLocationsJobsGetMetrics where+  type Rs DataflowProjectsLocationsJobsGetMetrics = JobMetrics+  type+    Scopes DataflowProjectsLocationsJobsGetMetrics =+      '[CloudPlatform'FullControl, Compute'FullControl]+  requestClient DataflowProjectsLocationsJobsGetMetrics {..} =+    go+      projectId+      location+      jobId+      xgafv+      accessToken+      callback+      startTime+      uploadType+      uploadProtocol+      (Core.Just Core.AltJSON)+      dataflowService+    where+      go =+        Core.buildClient+          ( Core.Proxy ::+              Core.Proxy DataflowProjectsLocationsJobsGetMetricsResource+          )+          Core.mempty
+ gen/Gogol/Dataflow/Projects/Locations/Jobs/List.hs view
@@ -0,0 +1,146 @@+{-# LANGUAGE DataKinds #-}+{-# LANGUAGE DerivingStrategies #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE ImportQualifiedPost #-}+{-# LANGUAGE LambdaCase #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TypeFamilies #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-duplicate-exports #-}+{-# OPTIONS_GHC -fno-warn-name-shadowing #-}+{-# OPTIONS_GHC -fno-warn-unused-binds #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- |+-- Module      : Gogol.Dataflow.Projects.Locations.Jobs.List+-- Copyright   : (c) 2015-2025 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay <brendan.g.hay+gogol@gmail.com>+--               Toni Cebrián <toni@tonicebrian.com>+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- List the jobs of a project. To list the jobs of a project in a region, we recommend using @projects.locations.jobs.list@ 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, because you can only get the list of jobs that are running in @us-central1@. @projects.locations.jobs.list@ and @projects.jobs.list@ support filtering the list of jobs by name. Filtering by name isn\'t supported by @projects.jobs.aggregated@.+--+-- /See:/ <https://cloud.google.com/dataflow Dataflow API Reference> for @dataflow.projects.locations.jobs.list@.+module Gogol.Dataflow.Projects.Locations.Jobs.List+  ( -- * Resource+    DataflowProjectsLocationsJobsListResource,++    -- ** Constructing a Request+    DataflowProjectsLocationsJobsList (..),+    newDataflowProjectsLocationsJobsList,+  )+where++import Gogol.Dataflow.Types+import Gogol.Prelude qualified as Core++-- | A resource alias for @dataflow.projects.locations.jobs.list@ method which the+-- 'DataflowProjectsLocationsJobsList' request conforms to.+type DataflowProjectsLocationsJobsListResource =+  "v1b3"+    Core.:> "projects"+    Core.:> Core.Capture "projectId" Core.Text+    Core.:> "locations"+    Core.:> Core.Capture "location" Core.Text+    Core.:> "jobs"+    Core.:> Core.QueryParam "$.xgafv" Xgafv+    Core.:> Core.QueryParam "access_token" Core.Text+    Core.:> Core.QueryParam "callback" Core.Text+    Core.:> Core.QueryParam "filter" ProjectsLocationsJobsListFilter+    Core.:> Core.QueryParam "name" Core.Text+    Core.:> Core.QueryParam "pageSize" Core.Int32+    Core.:> Core.QueryParam "pageToken" Core.Text+    Core.:> Core.QueryParam "uploadType" Core.Text+    Core.:> Core.QueryParam "upload_protocol" Core.Text+    Core.:> Core.QueryParam "view" ProjectsLocationsJobsListView+    Core.:> Core.QueryParam "alt" Core.AltJSON+    Core.:> Core.Get '[Core.JSON] ListJobsResponse++-- | List the jobs of a project. To list the jobs of a project in a region, we recommend using @projects.locations.jobs.list@ 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, because you can only get the list of jobs that are running in @us-central1@. @projects.locations.jobs.list@ and @projects.jobs.list@ support filtering the list of jobs by name. Filtering by name isn\'t supported by @projects.jobs.aggregated@.+--+-- /See:/ 'newDataflowProjectsLocationsJobsList' smart constructor.+data DataflowProjectsLocationsJobsList = DataflowProjectsLocationsJobsList+  { -- | V1 error format.+    xgafv :: (Core.Maybe Xgafv),+    -- | OAuth access token.+    accessToken :: (Core.Maybe Core.Text),+    -- | JSONP+    callback :: (Core.Maybe Core.Text),+    -- | The kind of filter to use.+    filter :: (Core.Maybe ProjectsLocationsJobsListFilter),+    -- | The [regional endpoint] (https:\/\/cloud.google.com\/dataflow\/docs\/concepts\/regional-endpoints) that contains this job.+    location :: Core.Text,+    -- | Optional. The job name.+    name :: (Core.Maybe Core.Text),+    -- | If there are many jobs, limit response to at most this many. The actual number of jobs returned will be the lesser of max_responses and an unspecified server-defined limit.+    pageSize :: (Core.Maybe Core.Int32),+    -- | Set this to the \'next/page/token\' field of a previous response to request additional results in a long list.+    pageToken :: (Core.Maybe Core.Text),+    -- | The project which owns the jobs.+    projectId :: Core.Text,+    -- | Legacy upload protocol for media (e.g. \"media\", \"multipart\").+    uploadType :: (Core.Maybe Core.Text),+    -- | Upload protocol for media (e.g. \"raw\", \"multipart\").+    uploadProtocol :: (Core.Maybe Core.Text),+    -- | Deprecated. ListJobs always returns summaries now. Use GetJob for other JobViews.+    view :: (Core.Maybe ProjectsLocationsJobsListView)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'DataflowProjectsLocationsJobsList' with the minimum fields required to make a request.+newDataflowProjectsLocationsJobsList ::+  -- |  The [regional endpoint] (https:\/\/cloud.google.com\/dataflow\/docs\/concepts\/regional-endpoints) that contains this job. See 'location'.+  Core.Text ->+  -- |  The project which owns the jobs. See 'projectId'.+  Core.Text ->+  DataflowProjectsLocationsJobsList+newDataflowProjectsLocationsJobsList location projectId =+  DataflowProjectsLocationsJobsList+    { xgafv = Core.Nothing,+      accessToken = Core.Nothing,+      callback = Core.Nothing,+      filter = Core.Nothing,+      location = location,+      name = Core.Nothing,+      pageSize = Core.Nothing,+      pageToken = Core.Nothing,+      projectId = projectId,+      uploadType = Core.Nothing,+      uploadProtocol = Core.Nothing,+      view = Core.Nothing+    }++instance Core.GoogleRequest DataflowProjectsLocationsJobsList where+  type Rs DataflowProjectsLocationsJobsList = ListJobsResponse+  type+    Scopes DataflowProjectsLocationsJobsList =+      '[CloudPlatform'FullControl, Compute'FullControl]+  requestClient DataflowProjectsLocationsJobsList {..} =+    go+      projectId+      location+      xgafv+      accessToken+      callback+      filter+      name+      pageSize+      pageToken+      uploadType+      uploadProtocol+      view+      (Core.Just Core.AltJSON)+      dataflowService+    where+      go =+        Core.buildClient+          ( Core.Proxy ::+              Core.Proxy DataflowProjectsLocationsJobsListResource+          )+          Core.mempty
+ gen/Gogol/Dataflow/Projects/Locations/Jobs/Messages/List.hs view
@@ -0,0 +1,164 @@+{-# LANGUAGE DataKinds #-}+{-# LANGUAGE DerivingStrategies #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE ImportQualifiedPost #-}+{-# LANGUAGE LambdaCase #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TypeFamilies #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-duplicate-exports #-}+{-# OPTIONS_GHC -fno-warn-name-shadowing #-}+{-# OPTIONS_GHC -fno-warn-unused-binds #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- |+-- Module      : Gogol.Dataflow.Projects.Locations.Jobs.Messages.List+-- Copyright   : (c) 2015-2025 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay <brendan.g.hay+gogol@gmail.com>+--               Toni Cebrián <toni@tonicebrian.com>+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- 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 Gogol.Dataflow.Projects.Locations.Jobs.Messages.List+  ( -- * Resource+    DataflowProjectsLocationsJobsMessagesListResource,++    -- ** Constructing a Request+    DataflowProjectsLocationsJobsMessagesList (..),+    newDataflowProjectsLocationsJobsMessagesList,+  )+where++import Gogol.Dataflow.Types+import Gogol.Prelude qualified as Core++-- | A resource alias for @dataflow.projects.locations.jobs.messages.list@ method which the+-- 'DataflowProjectsLocationsJobsMessagesList' request conforms to.+type DataflowProjectsLocationsJobsMessagesListResource =+  "v1b3"+    Core.:> "projects"+    Core.:> Core.Capture "projectId" Core.Text+    Core.:> "locations"+    Core.:> Core.Capture "location" Core.Text+    Core.:> "jobs"+    Core.:> Core.Capture "jobId" Core.Text+    Core.:> "messages"+    Core.:> Core.QueryParam "$.xgafv" Xgafv+    Core.:> Core.QueryParam "access_token" Core.Text+    Core.:> Core.QueryParam "callback" Core.Text+    Core.:> Core.QueryParam "endTime" Core.DateTime+    Core.:> Core.QueryParam+              "minimumImportance"+              ProjectsLocationsJobsMessagesListMinimumImportance+    Core.:> Core.QueryParam "pageSize" Core.Int32+    Core.:> Core.QueryParam "pageToken" Core.Text+    Core.:> Core.QueryParam "startTime" Core.DateTime+    Core.:> Core.QueryParam "uploadType" Core.Text+    Core.:> Core.QueryParam "upload_protocol" Core.Text+    Core.:> Core.QueryParam "alt" Core.AltJSON+    Core.:> Core.Get '[Core.JSON] ListJobMessagesResponse++-- | 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:/ 'newDataflowProjectsLocationsJobsMessagesList' smart constructor.+data DataflowProjectsLocationsJobsMessagesList = DataflowProjectsLocationsJobsMessagesList+  { -- | V1 error format.+    xgafv :: (Core.Maybe Xgafv),+    -- | OAuth access token.+    accessToken :: (Core.Maybe Core.Text),+    -- | JSONP+    callback :: (Core.Maybe Core.Text),+    -- | Return only messages with timestamps \< end_time. The default is now (i.e. return up to the latest messages available).+    endTime :: (Core.Maybe Core.DateTime),+    -- | The job to get messages about.+    jobId :: Core.Text,+    -- | The [regional endpoint] (https:\/\/cloud.google.com\/dataflow\/docs\/concepts\/regional-endpoints) that contains the job specified by job_id.+    location :: Core.Text,+    -- | Filter to only get messages with importance >= level+    minimumImportance :: (Core.Maybe ProjectsLocationsJobsMessagesListMinimumImportance),+    -- | If specified, determines the maximum number of messages to return. If unspecified, the service may choose an appropriate default, or may return an arbitrarily large number of results.+    pageSize :: (Core.Maybe Core.Int32),+    -- | If supplied, this should be the value of next/page/token returned by an earlier call. This will cause the next page of results to be returned.+    pageToken :: (Core.Maybe Core.Text),+    -- | A project id.+    projectId :: Core.Text,+    -- | If specified, return only messages with timestamps >= start_time. The default is the job creation time (i.e. beginning of messages).+    startTime :: (Core.Maybe Core.DateTime),+    -- | Legacy upload protocol for media (e.g. \"media\", \"multipart\").+    uploadType :: (Core.Maybe Core.Text),+    -- | Upload protocol for media (e.g. \"raw\", \"multipart\").+    uploadProtocol :: (Core.Maybe Core.Text)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'DataflowProjectsLocationsJobsMessagesList' with the minimum fields required to make a request.+newDataflowProjectsLocationsJobsMessagesList ::+  -- |  The job to get messages about. See 'jobId'.+  Core.Text ->+  -- |  The [regional endpoint] (https:\/\/cloud.google.com\/dataflow\/docs\/concepts\/regional-endpoints) that contains the job specified by job_id. See 'location'.+  Core.Text ->+  -- |  A project id. See 'projectId'.+  Core.Text ->+  DataflowProjectsLocationsJobsMessagesList+newDataflowProjectsLocationsJobsMessagesList+  jobId+  location+  projectId =+    DataflowProjectsLocationsJobsMessagesList+      { xgafv = Core.Nothing,+        accessToken = Core.Nothing,+        callback = Core.Nothing,+        endTime = Core.Nothing,+        jobId = jobId,+        location = location,+        minimumImportance = Core.Nothing,+        pageSize = Core.Nothing,+        pageToken = Core.Nothing,+        projectId = projectId,+        startTime = Core.Nothing,+        uploadType = Core.Nothing,+        uploadProtocol = Core.Nothing+      }++instance+  Core.GoogleRequest+    DataflowProjectsLocationsJobsMessagesList+  where+  type+    Rs DataflowProjectsLocationsJobsMessagesList =+      ListJobMessagesResponse+  type+    Scopes DataflowProjectsLocationsJobsMessagesList =+      '[CloudPlatform'FullControl, Compute'FullControl]+  requestClient DataflowProjectsLocationsJobsMessagesList {..} =+    go+      projectId+      location+      jobId+      xgafv+      accessToken+      callback+      endTime+      minimumImportance+      pageSize+      pageToken+      startTime+      uploadType+      uploadProtocol+      (Core.Just Core.AltJSON)+      dataflowService+    where+      go =+        Core.buildClient+          ( Core.Proxy ::+              Core.Proxy DataflowProjectsLocationsJobsMessagesListResource+          )+          Core.mempty
+ gen/Gogol/Dataflow/Projects/Locations/Jobs/Snapshot.hs view
@@ -0,0 +1,139 @@+{-# LANGUAGE DataKinds #-}+{-# LANGUAGE DerivingStrategies #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE ImportQualifiedPost #-}+{-# LANGUAGE LambdaCase #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TypeFamilies #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-duplicate-exports #-}+{-# OPTIONS_GHC -fno-warn-name-shadowing #-}+{-# OPTIONS_GHC -fno-warn-unused-binds #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- |+-- Module      : Gogol.Dataflow.Projects.Locations.Jobs.Snapshot+-- Copyright   : (c) 2015-2025 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay <brendan.g.hay+gogol@gmail.com>+--               Toni Cebrián <toni@tonicebrian.com>+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Snapshot the state of a streaming job.+--+-- /See:/ <https://cloud.google.com/dataflow Dataflow API Reference> for @dataflow.projects.locations.jobs.snapshot@.+module Gogol.Dataflow.Projects.Locations.Jobs.Snapshot+  ( -- * Resource+    DataflowProjectsLocationsJobsSnapshotResource,++    -- ** Constructing a Request+    DataflowProjectsLocationsJobsSnapshot (..),+    newDataflowProjectsLocationsJobsSnapshot,+  )+where++import Gogol.Dataflow.Types+import Gogol.Prelude qualified as Core++-- | A resource alias for @dataflow.projects.locations.jobs.snapshot@ method which the+-- 'DataflowProjectsLocationsJobsSnapshot' request conforms to.+type DataflowProjectsLocationsJobsSnapshotResource =+  "v1b3"+    Core.:> "projects"+    Core.:> Core.Capture "projectId" Core.Text+    Core.:> "locations"+    Core.:> Core.Capture "location" Core.Text+    Core.:> "jobs"+    Core.:> Core.CaptureMode "jobId" "snapshot" Core.Text+    Core.:> Core.QueryParam "$.xgafv" Xgafv+    Core.:> Core.QueryParam "access_token" Core.Text+    Core.:> Core.QueryParam "callback" Core.Text+    Core.:> Core.QueryParam "uploadType" Core.Text+    Core.:> Core.QueryParam "upload_protocol" Core.Text+    Core.:> Core.QueryParam "alt" Core.AltJSON+    Core.:> Core.ReqBody '[Core.JSON] SnapshotJobRequest+    Core.:> Core.Post '[Core.JSON] Snapshot++-- | Snapshot the state of a streaming job.+--+-- /See:/ 'newDataflowProjectsLocationsJobsSnapshot' smart constructor.+data DataflowProjectsLocationsJobsSnapshot = DataflowProjectsLocationsJobsSnapshot+  { -- | V1 error format.+    xgafv :: (Core.Maybe Xgafv),+    -- | OAuth access token.+    accessToken :: (Core.Maybe Core.Text),+    -- | JSONP+    callback :: (Core.Maybe Core.Text),+    -- | The job to be snapshotted.+    jobId :: Core.Text,+    -- | The location that contains this job.+    location :: Core.Text,+    -- | Multipart request metadata.+    payload :: SnapshotJobRequest,+    -- | The project which owns the job to be snapshotted.+    projectId :: Core.Text,+    -- | Legacy upload protocol for media (e.g. \"media\", \"multipart\").+    uploadType :: (Core.Maybe Core.Text),+    -- | Upload protocol for media (e.g. \"raw\", \"multipart\").+    uploadProtocol :: (Core.Maybe Core.Text)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'DataflowProjectsLocationsJobsSnapshot' with the minimum fields required to make a request.+newDataflowProjectsLocationsJobsSnapshot ::+  -- |  The job to be snapshotted. See 'jobId'.+  Core.Text ->+  -- |  The location that contains this job. See 'location'.+  Core.Text ->+  -- |  Multipart request metadata. See 'payload'.+  SnapshotJobRequest ->+  -- |  The project which owns the job to be snapshotted. See 'projectId'.+  Core.Text ->+  DataflowProjectsLocationsJobsSnapshot+newDataflowProjectsLocationsJobsSnapshot+  jobId+  location+  payload+  projectId =+    DataflowProjectsLocationsJobsSnapshot+      { xgafv = Core.Nothing,+        accessToken = Core.Nothing,+        callback = Core.Nothing,+        jobId = jobId,+        location = location,+        payload = payload,+        projectId = projectId,+        uploadType = Core.Nothing,+        uploadProtocol = Core.Nothing+      }++instance Core.GoogleRequest DataflowProjectsLocationsJobsSnapshot where+  type Rs DataflowProjectsLocationsJobsSnapshot = Snapshot+  type+    Scopes DataflowProjectsLocationsJobsSnapshot =+      '[CloudPlatform'FullControl, Compute'FullControl]+  requestClient DataflowProjectsLocationsJobsSnapshot {..} =+    go+      projectId+      location+      jobId+      xgafv+      accessToken+      callback+      uploadType+      uploadProtocol+      (Core.Just Core.AltJSON)+      payload+      dataflowService+    where+      go =+        Core.buildClient+          ( Core.Proxy ::+              Core.Proxy DataflowProjectsLocationsJobsSnapshotResource+          )+          Core.mempty
+ gen/Gogol/Dataflow/Projects/Locations/Jobs/Snapshots/List.hs view
@@ -0,0 +1,137 @@+{-# LANGUAGE DataKinds #-}+{-# LANGUAGE DerivingStrategies #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE ImportQualifiedPost #-}+{-# LANGUAGE LambdaCase #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TypeFamilies #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-duplicate-exports #-}+{-# OPTIONS_GHC -fno-warn-name-shadowing #-}+{-# OPTIONS_GHC -fno-warn-unused-binds #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- |+-- Module      : Gogol.Dataflow.Projects.Locations.Jobs.Snapshots.List+-- Copyright   : (c) 2015-2025 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay <brendan.g.hay+gogol@gmail.com>+--               Toni Cebrián <toni@tonicebrian.com>+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Lists snapshots.+--+-- /See:/ <https://cloud.google.com/dataflow Dataflow API Reference> for @dataflow.projects.locations.jobs.snapshots.list@.+module Gogol.Dataflow.Projects.Locations.Jobs.Snapshots.List+  ( -- * Resource+    DataflowProjectsLocationsJobsSnapshotsListResource,++    -- ** Constructing a Request+    DataflowProjectsLocationsJobsSnapshotsList (..),+    newDataflowProjectsLocationsJobsSnapshotsList,+  )+where++import Gogol.Dataflow.Types+import Gogol.Prelude qualified as Core++-- | A resource alias for @dataflow.projects.locations.jobs.snapshots.list@ method which the+-- 'DataflowProjectsLocationsJobsSnapshotsList' request conforms to.+type DataflowProjectsLocationsJobsSnapshotsListResource =+  "v1b3"+    Core.:> "projects"+    Core.:> Core.Capture "projectId" Core.Text+    Core.:> "locations"+    Core.:> Core.Capture "location" Core.Text+    Core.:> "jobs"+    Core.:> Core.Capture "jobId" Core.Text+    Core.:> "snapshots"+    Core.:> Core.QueryParam "$.xgafv" Xgafv+    Core.:> Core.QueryParam "access_token" Core.Text+    Core.:> Core.QueryParam "callback" Core.Text+    Core.:> Core.QueryParam "uploadType" Core.Text+    Core.:> Core.QueryParam "upload_protocol" Core.Text+    Core.:> Core.QueryParam "alt" Core.AltJSON+    Core.:> Core.Get '[Core.JSON] ListSnapshotsResponse++-- | Lists snapshots.+--+-- /See:/ 'newDataflowProjectsLocationsJobsSnapshotsList' smart constructor.+data DataflowProjectsLocationsJobsSnapshotsList = DataflowProjectsLocationsJobsSnapshotsList+  { -- | V1 error format.+    xgafv :: (Core.Maybe Xgafv),+    -- | OAuth access token.+    accessToken :: (Core.Maybe Core.Text),+    -- | JSONP+    callback :: (Core.Maybe Core.Text),+    -- | If specified, list snapshots created from this job.+    jobId :: Core.Text,+    -- | The location to list snapshots in.+    location :: Core.Text,+    -- | The project ID to list snapshots for.+    projectId :: Core.Text,+    -- | Legacy upload protocol for media (e.g. \"media\", \"multipart\").+    uploadType :: (Core.Maybe Core.Text),+    -- | Upload protocol for media (e.g. \"raw\", \"multipart\").+    uploadProtocol :: (Core.Maybe Core.Text)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'DataflowProjectsLocationsJobsSnapshotsList' with the minimum fields required to make a request.+newDataflowProjectsLocationsJobsSnapshotsList ::+  -- |  If specified, list snapshots created from this job. See 'jobId'.+  Core.Text ->+  -- |  The location to list snapshots in. See 'location'.+  Core.Text ->+  -- |  The project ID to list snapshots for. See 'projectId'.+  Core.Text ->+  DataflowProjectsLocationsJobsSnapshotsList+newDataflowProjectsLocationsJobsSnapshotsList+  jobId+  location+  projectId =+    DataflowProjectsLocationsJobsSnapshotsList+      { xgafv = Core.Nothing,+        accessToken = Core.Nothing,+        callback = Core.Nothing,+        jobId = jobId,+        location = location,+        projectId = projectId,+        uploadType = Core.Nothing,+        uploadProtocol = Core.Nothing+      }++instance+  Core.GoogleRequest+    DataflowProjectsLocationsJobsSnapshotsList+  where+  type+    Rs DataflowProjectsLocationsJobsSnapshotsList =+      ListSnapshotsResponse+  type+    Scopes DataflowProjectsLocationsJobsSnapshotsList =+      '[CloudPlatform'FullControl, Compute'FullControl]+  requestClient DataflowProjectsLocationsJobsSnapshotsList {..} =+    go+      projectId+      location+      jobId+      xgafv+      accessToken+      callback+      uploadType+      uploadProtocol+      (Core.Just Core.AltJSON)+      dataflowService+    where+      go =+        Core.buildClient+          ( Core.Proxy ::+              Core.Proxy DataflowProjectsLocationsJobsSnapshotsListResource+          )+          Core.mempty
+ gen/Gogol/Dataflow/Projects/Locations/Jobs/Stages/GetExecutionDetails.hs view
@@ -0,0 +1,169 @@+{-# LANGUAGE DataKinds #-}+{-# LANGUAGE DerivingStrategies #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE ImportQualifiedPost #-}+{-# LANGUAGE LambdaCase #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TypeFamilies #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-duplicate-exports #-}+{-# OPTIONS_GHC -fno-warn-name-shadowing #-}+{-# OPTIONS_GHC -fno-warn-unused-binds #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- |+-- Module      : Gogol.Dataflow.Projects.Locations.Jobs.Stages.GetExecutionDetails+-- Copyright   : (c) 2015-2025 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay <brendan.g.hay+gogol@gmail.com>+--               Toni Cebrián <toni@tonicebrian.com>+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Request detailed information about the execution status of a stage of the job. EXPERIMENTAL. This API is subject to change or removal without notice.+--+-- /See:/ <https://cloud.google.com/dataflow Dataflow API Reference> for @dataflow.projects.locations.jobs.stages.getExecutionDetails@.+module Gogol.Dataflow.Projects.Locations.Jobs.Stages.GetExecutionDetails+  ( -- * Resource+    DataflowProjectsLocationsJobsStagesGetExecutionDetailsResource,++    -- ** Constructing a Request+    DataflowProjectsLocationsJobsStagesGetExecutionDetails (..),+    newDataflowProjectsLocationsJobsStagesGetExecutionDetails,+  )+where++import Gogol.Dataflow.Types+import Gogol.Prelude qualified as Core++-- | A resource alias for @dataflow.projects.locations.jobs.stages.getExecutionDetails@ method which the+-- 'DataflowProjectsLocationsJobsStagesGetExecutionDetails' request conforms to.+type DataflowProjectsLocationsJobsStagesGetExecutionDetailsResource =+  "v1b3"+    Core.:> "projects"+    Core.:> Core.Capture "projectId" Core.Text+    Core.:> "locations"+    Core.:> Core.Capture "location" Core.Text+    Core.:> "jobs"+    Core.:> Core.Capture "jobId" Core.Text+    Core.:> "stages"+    Core.:> Core.Capture "stageId" Core.Text+    Core.:> "executionDetails"+    Core.:> Core.QueryParam "$.xgafv" Xgafv+    Core.:> Core.QueryParam "access_token" Core.Text+    Core.:> Core.QueryParam "callback" Core.Text+    Core.:> Core.QueryParam "endTime" Core.DateTime+    Core.:> Core.QueryParam "pageSize" Core.Int32+    Core.:> Core.QueryParam "pageToken" Core.Text+    Core.:> Core.QueryParam "startTime" Core.DateTime+    Core.:> Core.QueryParam "uploadType" Core.Text+    Core.:> Core.QueryParam "upload_protocol" Core.Text+    Core.:> Core.QueryParam "alt" Core.AltJSON+    Core.:> Core.Get '[Core.JSON] StageExecutionDetails++-- | Request detailed information about the execution status of a stage of the job. EXPERIMENTAL. This API is subject to change or removal without notice.+--+-- /See:/ 'newDataflowProjectsLocationsJobsStagesGetExecutionDetails' smart constructor.+data DataflowProjectsLocationsJobsStagesGetExecutionDetails = DataflowProjectsLocationsJobsStagesGetExecutionDetails+  { -- | V1 error format.+    xgafv :: (Core.Maybe Xgafv),+    -- | OAuth access token.+    accessToken :: (Core.Maybe Core.Text),+    -- | JSONP+    callback :: (Core.Maybe Core.Text),+    -- | Upper time bound of work items to include, by start time.+    endTime :: (Core.Maybe Core.DateTime),+    -- | The job to get execution details for.+    jobId :: Core.Text,+    -- | The [regional endpoint] (https:\/\/cloud.google.com\/dataflow\/docs\/concepts\/regional-endpoints) that contains the job specified by job_id.+    location :: Core.Text,+    -- | If specified, determines the maximum number of work items to return. If unspecified, the service may choose an appropriate default, or may return an arbitrarily large number of results.+    pageSize :: (Core.Maybe Core.Int32),+    -- | If supplied, this should be the value of next/page/token returned by an earlier call. This will cause the next page of results to be returned.+    pageToken :: (Core.Maybe Core.Text),+    -- | A project id.+    projectId :: Core.Text,+    -- | The stage for which to fetch information.+    stageId :: Core.Text,+    -- | Lower time bound of work items to include, by start time.+    startTime :: (Core.Maybe Core.DateTime),+    -- | Legacy upload protocol for media (e.g. \"media\", \"multipart\").+    uploadType :: (Core.Maybe Core.Text),+    -- | Upload protocol for media (e.g. \"raw\", \"multipart\").+    uploadProtocol :: (Core.Maybe Core.Text)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'DataflowProjectsLocationsJobsStagesGetExecutionDetails' with the minimum fields required to make a request.+newDataflowProjectsLocationsJobsStagesGetExecutionDetails ::+  -- |  The job to get execution details for. See 'jobId'.+  Core.Text ->+  -- |  The [regional endpoint] (https:\/\/cloud.google.com\/dataflow\/docs\/concepts\/regional-endpoints) that contains the job specified by job_id. See 'location'.+  Core.Text ->+  -- |  A project id. See 'projectId'.+  Core.Text ->+  -- |  The stage for which to fetch information. See 'stageId'.+  Core.Text ->+  DataflowProjectsLocationsJobsStagesGetExecutionDetails+newDataflowProjectsLocationsJobsStagesGetExecutionDetails+  jobId+  location+  projectId+  stageId =+    DataflowProjectsLocationsJobsStagesGetExecutionDetails+      { xgafv =+          Core.Nothing,+        accessToken = Core.Nothing,+        callback = Core.Nothing,+        endTime = Core.Nothing,+        jobId = jobId,+        location = location,+        pageSize = Core.Nothing,+        pageToken = Core.Nothing,+        projectId = projectId,+        stageId = stageId,+        startTime = Core.Nothing,+        uploadType = Core.Nothing,+        uploadProtocol = Core.Nothing+      }++instance+  Core.GoogleRequest+    DataflowProjectsLocationsJobsStagesGetExecutionDetails+  where+  type+    Rs DataflowProjectsLocationsJobsStagesGetExecutionDetails =+      StageExecutionDetails+  type+    Scopes DataflowProjectsLocationsJobsStagesGetExecutionDetails =+      '[CloudPlatform'FullControl, Compute'FullControl]+  requestClient+    DataflowProjectsLocationsJobsStagesGetExecutionDetails {..} =+      go+        projectId+        location+        jobId+        stageId+        xgafv+        accessToken+        callback+        endTime+        pageSize+        pageToken+        startTime+        uploadType+        uploadProtocol+        (Core.Just Core.AltJSON)+        dataflowService+      where+        go =+          Core.buildClient+            ( Core.Proxy ::+                Core.Proxy+                  DataflowProjectsLocationsJobsStagesGetExecutionDetailsResource+            )+            Core.mempty
+ gen/Gogol/Dataflow/Projects/Locations/Jobs/Update.hs view
@@ -0,0 +1,144 @@+{-# LANGUAGE DataKinds #-}+{-# LANGUAGE DerivingStrategies #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE ImportQualifiedPost #-}+{-# LANGUAGE LambdaCase #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TypeFamilies #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-duplicate-exports #-}+{-# OPTIONS_GHC -fno-warn-name-shadowing #-}+{-# OPTIONS_GHC -fno-warn-unused-binds #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- |+-- Module      : Gogol.Dataflow.Projects.Locations.Jobs.Update+-- Copyright   : (c) 2015-2025 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay <brendan.g.hay+gogol@gmail.com>+--               Toni Cebrián <toni@tonicebrian.com>+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- 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 Gogol.Dataflow.Projects.Locations.Jobs.Update+  ( -- * Resource+    DataflowProjectsLocationsJobsUpdateResource,++    -- ** Constructing a Request+    DataflowProjectsLocationsJobsUpdate (..),+    newDataflowProjectsLocationsJobsUpdate,+  )+where++import Gogol.Dataflow.Types+import Gogol.Prelude qualified as Core++-- | A resource alias for @dataflow.projects.locations.jobs.update@ method which the+-- 'DataflowProjectsLocationsJobsUpdate' request conforms to.+type DataflowProjectsLocationsJobsUpdateResource =+  "v1b3"+    Core.:> "projects"+    Core.:> Core.Capture "projectId" Core.Text+    Core.:> "locations"+    Core.:> Core.Capture "location" Core.Text+    Core.:> "jobs"+    Core.:> Core.Capture "jobId" Core.Text+    Core.:> Core.QueryParam "$.xgafv" Xgafv+    Core.:> Core.QueryParam "access_token" Core.Text+    Core.:> Core.QueryParam "callback" Core.Text+    Core.:> Core.QueryParam "updateMask" Core.FieldMask+    Core.:> Core.QueryParam "uploadType" Core.Text+    Core.:> Core.QueryParam "upload_protocol" Core.Text+    Core.:> Core.QueryParam "alt" Core.AltJSON+    Core.:> Core.ReqBody '[Core.JSON] Job+    Core.:> Core.Put '[Core.JSON] 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:/ 'newDataflowProjectsLocationsJobsUpdate' smart constructor.+data DataflowProjectsLocationsJobsUpdate = DataflowProjectsLocationsJobsUpdate+  { -- | V1 error format.+    xgafv :: (Core.Maybe Xgafv),+    -- | OAuth access token.+    accessToken :: (Core.Maybe Core.Text),+    -- | JSONP+    callback :: (Core.Maybe Core.Text),+    -- | The job ID.+    jobId :: Core.Text,+    -- | The [regional endpoint] (https:\/\/cloud.google.com\/dataflow\/docs\/concepts\/regional-endpoints) that contains this job.+    location :: Core.Text,+    -- | Multipart request metadata.+    payload :: Job,+    -- | The ID of the Cloud Platform project that the job belongs to.+    projectId :: Core.Text,+    -- | The list of fields to update relative to Job. If empty, only RequestedJobState will be considered for update. If the FieldMask is not empty and RequestedJobState is none\/empty, The fields specified in the update mask will be the only ones considered for update. If both RequestedJobState and update_mask are specified, an error will be returned as we cannot update both state and mask.+    updateMask :: (Core.Maybe Core.FieldMask),+    -- | Legacy upload protocol for media (e.g. \"media\", \"multipart\").+    uploadType :: (Core.Maybe Core.Text),+    -- | Upload protocol for media (e.g. \"raw\", \"multipart\").+    uploadProtocol :: (Core.Maybe Core.Text)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'DataflowProjectsLocationsJobsUpdate' with the minimum fields required to make a request.+newDataflowProjectsLocationsJobsUpdate ::+  -- |  The job ID. See 'jobId'.+  Core.Text ->+  -- |  The [regional endpoint] (https:\/\/cloud.google.com\/dataflow\/docs\/concepts\/regional-endpoints) that contains this job. See 'location'.+  Core.Text ->+  -- |  Multipart request metadata. See 'payload'.+  Job ->+  -- |  The ID of the Cloud Platform project that the job belongs to. See 'projectId'.+  Core.Text ->+  DataflowProjectsLocationsJobsUpdate+newDataflowProjectsLocationsJobsUpdate+  jobId+  location+  payload+  projectId =+    DataflowProjectsLocationsJobsUpdate+      { xgafv = Core.Nothing,+        accessToken = Core.Nothing,+        callback = Core.Nothing,+        jobId = jobId,+        location = location,+        payload = payload,+        projectId = projectId,+        updateMask = Core.Nothing,+        uploadType = Core.Nothing,+        uploadProtocol = Core.Nothing+      }++instance Core.GoogleRequest DataflowProjectsLocationsJobsUpdate where+  type Rs DataflowProjectsLocationsJobsUpdate = Job+  type+    Scopes DataflowProjectsLocationsJobsUpdate =+      '[CloudPlatform'FullControl, Compute'FullControl]+  requestClient DataflowProjectsLocationsJobsUpdate {..} =+    go+      projectId+      location+      jobId+      xgafv+      accessToken+      callback+      updateMask+      uploadType+      uploadProtocol+      (Core.Just Core.AltJSON)+      payload+      dataflowService+    where+      go =+        Core.buildClient+          ( Core.Proxy ::+              Core.Proxy DataflowProjectsLocationsJobsUpdateResource+          )+          Core.mempty
+ gen/Gogol/Dataflow/Projects/Locations/Jobs/WorkItems/Lease.hs view
@@ -0,0 +1,145 @@+{-# LANGUAGE DataKinds #-}+{-# LANGUAGE DerivingStrategies #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE ImportQualifiedPost #-}+{-# LANGUAGE LambdaCase #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TypeFamilies #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-duplicate-exports #-}+{-# OPTIONS_GHC -fno-warn-name-shadowing #-}+{-# OPTIONS_GHC -fno-warn-unused-binds #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- |+-- Module      : Gogol.Dataflow.Projects.Locations.Jobs.WorkItems.Lease+-- Copyright   : (c) 2015-2025 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay <brendan.g.hay+gogol@gmail.com>+--               Toni Cebrián <toni@tonicebrian.com>+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Leases a dataflow WorkItem to run.+--+-- /See:/ <https://cloud.google.com/dataflow Dataflow API Reference> for @dataflow.projects.locations.jobs.workItems.lease@.+module Gogol.Dataflow.Projects.Locations.Jobs.WorkItems.Lease+  ( -- * Resource+    DataflowProjectsLocationsJobsWorkItemsLeaseResource,++    -- ** Constructing a Request+    DataflowProjectsLocationsJobsWorkItemsLease (..),+    newDataflowProjectsLocationsJobsWorkItemsLease,+  )+where++import Gogol.Dataflow.Types+import Gogol.Prelude qualified as Core++-- | A resource alias for @dataflow.projects.locations.jobs.workItems.lease@ method which the+-- 'DataflowProjectsLocationsJobsWorkItemsLease' request conforms to.+type DataflowProjectsLocationsJobsWorkItemsLeaseResource =+  "v1b3"+    Core.:> "projects"+    Core.:> Core.Capture "projectId" Core.Text+    Core.:> "locations"+    Core.:> Core.Capture "location" Core.Text+    Core.:> "jobs"+    Core.:> Core.Capture "jobId" Core.Text+    Core.:> "workItems:lease"+    Core.:> Core.QueryParam "$.xgafv" Xgafv+    Core.:> Core.QueryParam "access_token" Core.Text+    Core.:> Core.QueryParam "callback" Core.Text+    Core.:> Core.QueryParam "uploadType" Core.Text+    Core.:> Core.QueryParam "upload_protocol" Core.Text+    Core.:> Core.QueryParam "alt" Core.AltJSON+    Core.:> Core.ReqBody '[Core.JSON] LeaseWorkItemRequest+    Core.:> Core.Post '[Core.JSON] LeaseWorkItemResponse++-- | Leases a dataflow WorkItem to run.+--+-- /See:/ 'newDataflowProjectsLocationsJobsWorkItemsLease' smart constructor.+data DataflowProjectsLocationsJobsWorkItemsLease = DataflowProjectsLocationsJobsWorkItemsLease+  { -- | V1 error format.+    xgafv :: (Core.Maybe Xgafv),+    -- | OAuth access token.+    accessToken :: (Core.Maybe Core.Text),+    -- | JSONP+    callback :: (Core.Maybe Core.Text),+    -- | Identifies the workflow job this worker belongs to.+    jobId :: Core.Text,+    -- | The [regional endpoint] (https:\/\/cloud.google.com\/dataflow\/docs\/concepts\/regional-endpoints) that contains the WorkItem\'s job.+    location :: Core.Text,+    -- | Multipart request metadata.+    payload :: LeaseWorkItemRequest,+    -- | Identifies the project this worker belongs to.+    projectId :: Core.Text,+    -- | Legacy upload protocol for media (e.g. \"media\", \"multipart\").+    uploadType :: (Core.Maybe Core.Text),+    -- | Upload protocol for media (e.g. \"raw\", \"multipart\").+    uploadProtocol :: (Core.Maybe Core.Text)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'DataflowProjectsLocationsJobsWorkItemsLease' with the minimum fields required to make a request.+newDataflowProjectsLocationsJobsWorkItemsLease ::+  -- |  Identifies the workflow job this worker belongs to. See 'jobId'.+  Core.Text ->+  -- |  The [regional endpoint] (https:\/\/cloud.google.com\/dataflow\/docs\/concepts\/regional-endpoints) that contains the WorkItem\'s job. See 'location'.+  Core.Text ->+  -- |  Multipart request metadata. See 'payload'.+  LeaseWorkItemRequest ->+  -- |  Identifies the project this worker belongs to. See 'projectId'.+  Core.Text ->+  DataflowProjectsLocationsJobsWorkItemsLease+newDataflowProjectsLocationsJobsWorkItemsLease+  jobId+  location+  payload+  projectId =+    DataflowProjectsLocationsJobsWorkItemsLease+      { xgafv = Core.Nothing,+        accessToken = Core.Nothing,+        callback = Core.Nothing,+        jobId = jobId,+        location = location,+        payload = payload,+        projectId = projectId,+        uploadType = Core.Nothing,+        uploadProtocol = Core.Nothing+      }++instance+  Core.GoogleRequest+    DataflowProjectsLocationsJobsWorkItemsLease+  where+  type+    Rs DataflowProjectsLocationsJobsWorkItemsLease =+      LeaseWorkItemResponse+  type+    Scopes DataflowProjectsLocationsJobsWorkItemsLease =+      '[CloudPlatform'FullControl, Compute'FullControl]+  requestClient DataflowProjectsLocationsJobsWorkItemsLease {..} =+    go+      projectId+      location+      jobId+      xgafv+      accessToken+      callback+      uploadType+      uploadProtocol+      (Core.Just Core.AltJSON)+      payload+      dataflowService+    where+      go =+        Core.buildClient+          ( Core.Proxy ::+              Core.Proxy DataflowProjectsLocationsJobsWorkItemsLeaseResource+          )+          Core.mempty
+ gen/Gogol/Dataflow/Projects/Locations/Jobs/WorkItems/ReportStatus.hs view
@@ -0,0 +1,148 @@+{-# LANGUAGE DataKinds #-}+{-# LANGUAGE DerivingStrategies #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE ImportQualifiedPost #-}+{-# LANGUAGE LambdaCase #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TypeFamilies #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-duplicate-exports #-}+{-# OPTIONS_GHC -fno-warn-name-shadowing #-}+{-# OPTIONS_GHC -fno-warn-unused-binds #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- |+-- Module      : Gogol.Dataflow.Projects.Locations.Jobs.WorkItems.ReportStatus+-- Copyright   : (c) 2015-2025 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay <brendan.g.hay+gogol@gmail.com>+--               Toni Cebrián <toni@tonicebrian.com>+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Reports the status of dataflow WorkItems leased by a worker.+--+-- /See:/ <https://cloud.google.com/dataflow Dataflow API Reference> for @dataflow.projects.locations.jobs.workItems.reportStatus@.+module Gogol.Dataflow.Projects.Locations.Jobs.WorkItems.ReportStatus+  ( -- * Resource+    DataflowProjectsLocationsJobsWorkItemsReportStatusResource,++    -- ** Constructing a Request+    DataflowProjectsLocationsJobsWorkItemsReportStatus (..),+    newDataflowProjectsLocationsJobsWorkItemsReportStatus,+  )+where++import Gogol.Dataflow.Types+import Gogol.Prelude qualified as Core++-- | A resource alias for @dataflow.projects.locations.jobs.workItems.reportStatus@ method which the+-- 'DataflowProjectsLocationsJobsWorkItemsReportStatus' request conforms to.+type DataflowProjectsLocationsJobsWorkItemsReportStatusResource =+  "v1b3"+    Core.:> "projects"+    Core.:> Core.Capture "projectId" Core.Text+    Core.:> "locations"+    Core.:> Core.Capture "location" Core.Text+    Core.:> "jobs"+    Core.:> Core.Capture "jobId" Core.Text+    Core.:> "workItems:reportStatus"+    Core.:> Core.QueryParam "$.xgafv" Xgafv+    Core.:> Core.QueryParam "access_token" Core.Text+    Core.:> Core.QueryParam "callback" Core.Text+    Core.:> Core.QueryParam "uploadType" Core.Text+    Core.:> Core.QueryParam "upload_protocol" Core.Text+    Core.:> Core.QueryParam "alt" Core.AltJSON+    Core.:> Core.ReqBody '[Core.JSON] ReportWorkItemStatusRequest+    Core.:> Core.Post '[Core.JSON] ReportWorkItemStatusResponse++-- | Reports the status of dataflow WorkItems leased by a worker.+--+-- /See:/ 'newDataflowProjectsLocationsJobsWorkItemsReportStatus' smart constructor.+data DataflowProjectsLocationsJobsWorkItemsReportStatus = DataflowProjectsLocationsJobsWorkItemsReportStatus+  { -- | V1 error format.+    xgafv :: (Core.Maybe Xgafv),+    -- | OAuth access token.+    accessToken :: (Core.Maybe Core.Text),+    -- | JSONP+    callback :: (Core.Maybe Core.Text),+    -- | The job which the WorkItem is part of.+    jobId :: Core.Text,+    -- | The [regional endpoint] (https:\/\/cloud.google.com\/dataflow\/docs\/concepts\/regional-endpoints) that contains the WorkItem\'s job.+    location :: Core.Text,+    -- | Multipart request metadata.+    payload :: ReportWorkItemStatusRequest,+    -- | The project which owns the WorkItem\'s job.+    projectId :: Core.Text,+    -- | Legacy upload protocol for media (e.g. \"media\", \"multipart\").+    uploadType :: (Core.Maybe Core.Text),+    -- | Upload protocol for media (e.g. \"raw\", \"multipart\").+    uploadProtocol :: (Core.Maybe Core.Text)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'DataflowProjectsLocationsJobsWorkItemsReportStatus' with the minimum fields required to make a request.+newDataflowProjectsLocationsJobsWorkItemsReportStatus ::+  -- |  The job which the WorkItem is part of. See 'jobId'.+  Core.Text ->+  -- |  The [regional endpoint] (https:\/\/cloud.google.com\/dataflow\/docs\/concepts\/regional-endpoints) that contains the WorkItem\'s job. See 'location'.+  Core.Text ->+  -- |  Multipart request metadata. See 'payload'.+  ReportWorkItemStatusRequest ->+  -- |  The project which owns the WorkItem\'s job. See 'projectId'.+  Core.Text ->+  DataflowProjectsLocationsJobsWorkItemsReportStatus+newDataflowProjectsLocationsJobsWorkItemsReportStatus+  jobId+  location+  payload+  projectId =+    DataflowProjectsLocationsJobsWorkItemsReportStatus+      { xgafv =+          Core.Nothing,+        accessToken = Core.Nothing,+        callback = Core.Nothing,+        jobId = jobId,+        location = location,+        payload = payload,+        projectId = projectId,+        uploadType = Core.Nothing,+        uploadProtocol = Core.Nothing+      }++instance+  Core.GoogleRequest+    DataflowProjectsLocationsJobsWorkItemsReportStatus+  where+  type+    Rs DataflowProjectsLocationsJobsWorkItemsReportStatus =+      ReportWorkItemStatusResponse+  type+    Scopes DataflowProjectsLocationsJobsWorkItemsReportStatus =+      '[CloudPlatform'FullControl, Compute'FullControl]+  requestClient+    DataflowProjectsLocationsJobsWorkItemsReportStatus {..} =+      go+        projectId+        location+        jobId+        xgafv+        accessToken+        callback+        uploadType+        uploadProtocol+        (Core.Just Core.AltJSON)+        payload+        dataflowService+      where+        go =+          Core.buildClient+            ( Core.Proxy ::+                Core.Proxy+                  DataflowProjectsLocationsJobsWorkItemsReportStatusResource+            )+            Core.mempty
+ gen/Gogol/Dataflow/Projects/Locations/Snapshots/Delete.hs view
@@ -0,0 +1,136 @@+{-# LANGUAGE DataKinds #-}+{-# LANGUAGE DerivingStrategies #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE ImportQualifiedPost #-}+{-# LANGUAGE LambdaCase #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TypeFamilies #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-duplicate-exports #-}+{-# OPTIONS_GHC -fno-warn-name-shadowing #-}+{-# OPTIONS_GHC -fno-warn-unused-binds #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- |+-- Module      : Gogol.Dataflow.Projects.Locations.Snapshots.Delete+-- Copyright   : (c) 2015-2025 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay <brendan.g.hay+gogol@gmail.com>+--               Toni Cebrián <toni@tonicebrian.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 Gogol.Dataflow.Projects.Locations.Snapshots.Delete+  ( -- * Resource+    DataflowProjectsLocationsSnapshotsDeleteResource,++    -- ** Constructing a Request+    DataflowProjectsLocationsSnapshotsDelete (..),+    newDataflowProjectsLocationsSnapshotsDelete,+  )+where++import Gogol.Dataflow.Types+import Gogol.Prelude qualified as Core++-- | A resource alias for @dataflow.projects.locations.snapshots.delete@ method which the+-- 'DataflowProjectsLocationsSnapshotsDelete' request conforms to.+type DataflowProjectsLocationsSnapshotsDeleteResource =+  "v1b3"+    Core.:> "projects"+    Core.:> Core.Capture "projectId" Core.Text+    Core.:> "locations"+    Core.:> Core.Capture "location" Core.Text+    Core.:> "snapshots"+    Core.:> Core.Capture "snapshotId" Core.Text+    Core.:> Core.QueryParam "$.xgafv" Xgafv+    Core.:> Core.QueryParam "access_token" Core.Text+    Core.:> Core.QueryParam "callback" Core.Text+    Core.:> Core.QueryParam "uploadType" Core.Text+    Core.:> Core.QueryParam "upload_protocol" Core.Text+    Core.:> Core.QueryParam "alt" Core.AltJSON+    Core.:> Core.Delete '[Core.JSON] DeleteSnapshotResponse++-- | Deletes a snapshot.+--+-- /See:/ 'newDataflowProjectsLocationsSnapshotsDelete' smart constructor.+data DataflowProjectsLocationsSnapshotsDelete = DataflowProjectsLocationsSnapshotsDelete+  { -- | V1 error format.+    xgafv :: (Core.Maybe Xgafv),+    -- | OAuth access token.+    accessToken :: (Core.Maybe Core.Text),+    -- | JSONP+    callback :: (Core.Maybe Core.Text),+    -- | The location that contains this snapshot.+    location :: Core.Text,+    -- | The ID of the Cloud Platform project that the snapshot belongs to.+    projectId :: Core.Text,+    -- | The ID of the snapshot.+    snapshotId :: Core.Text,+    -- | Legacy upload protocol for media (e.g. \"media\", \"multipart\").+    uploadType :: (Core.Maybe Core.Text),+    -- | Upload protocol for media (e.g. \"raw\", \"multipart\").+    uploadProtocol :: (Core.Maybe Core.Text)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'DataflowProjectsLocationsSnapshotsDelete' with the minimum fields required to make a request.+newDataflowProjectsLocationsSnapshotsDelete ::+  -- |  The location that contains this snapshot. See 'location'.+  Core.Text ->+  -- |  The ID of the Cloud Platform project that the snapshot belongs to. See 'projectId'.+  Core.Text ->+  -- |  The ID of the snapshot. See 'snapshotId'.+  Core.Text ->+  DataflowProjectsLocationsSnapshotsDelete+newDataflowProjectsLocationsSnapshotsDelete+  location+  projectId+  snapshotId =+    DataflowProjectsLocationsSnapshotsDelete+      { xgafv = Core.Nothing,+        accessToken = Core.Nothing,+        callback = Core.Nothing,+        location = location,+        projectId = projectId,+        snapshotId = snapshotId,+        uploadType = Core.Nothing,+        uploadProtocol = Core.Nothing+      }++instance+  Core.GoogleRequest+    DataflowProjectsLocationsSnapshotsDelete+  where+  type+    Rs DataflowProjectsLocationsSnapshotsDelete =+      DeleteSnapshotResponse+  type+    Scopes DataflowProjectsLocationsSnapshotsDelete =+      '[CloudPlatform'FullControl, Compute'FullControl]+  requestClient DataflowProjectsLocationsSnapshotsDelete {..} =+    go+      projectId+      location+      snapshotId+      xgafv+      accessToken+      callback+      uploadType+      uploadProtocol+      (Core.Just Core.AltJSON)+      dataflowService+    where+      go =+        Core.buildClient+          ( Core.Proxy ::+              Core.Proxy DataflowProjectsLocationsSnapshotsDeleteResource+          )+          Core.mempty
+ gen/Gogol/Dataflow/Projects/Locations/Snapshots/Get.hs view
@@ -0,0 +1,131 @@+{-# LANGUAGE DataKinds #-}+{-# LANGUAGE DerivingStrategies #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE ImportQualifiedPost #-}+{-# LANGUAGE LambdaCase #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TypeFamilies #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-duplicate-exports #-}+{-# OPTIONS_GHC -fno-warn-name-shadowing #-}+{-# OPTIONS_GHC -fno-warn-unused-binds #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- |+-- Module      : Gogol.Dataflow.Projects.Locations.Snapshots.Get+-- Copyright   : (c) 2015-2025 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay <brendan.g.hay+gogol@gmail.com>+--               Toni Cebrián <toni@tonicebrian.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 Gogol.Dataflow.Projects.Locations.Snapshots.Get+  ( -- * Resource+    DataflowProjectsLocationsSnapshotsGetResource,++    -- ** Constructing a Request+    DataflowProjectsLocationsSnapshotsGet (..),+    newDataflowProjectsLocationsSnapshotsGet,+  )+where++import Gogol.Dataflow.Types+import Gogol.Prelude qualified as Core++-- | A resource alias for @dataflow.projects.locations.snapshots.get@ method which the+-- 'DataflowProjectsLocationsSnapshotsGet' request conforms to.+type DataflowProjectsLocationsSnapshotsGetResource =+  "v1b3"+    Core.:> "projects"+    Core.:> Core.Capture "projectId" Core.Text+    Core.:> "locations"+    Core.:> Core.Capture "location" Core.Text+    Core.:> "snapshots"+    Core.:> Core.Capture "snapshotId" Core.Text+    Core.:> Core.QueryParam "$.xgafv" Xgafv+    Core.:> Core.QueryParam "access_token" Core.Text+    Core.:> Core.QueryParam "callback" Core.Text+    Core.:> Core.QueryParam "uploadType" Core.Text+    Core.:> Core.QueryParam "upload_protocol" Core.Text+    Core.:> Core.QueryParam "alt" Core.AltJSON+    Core.:> Core.Get '[Core.JSON] Snapshot++-- | Gets information about a snapshot.+--+-- /See:/ 'newDataflowProjectsLocationsSnapshotsGet' smart constructor.+data DataflowProjectsLocationsSnapshotsGet = DataflowProjectsLocationsSnapshotsGet+  { -- | V1 error format.+    xgafv :: (Core.Maybe Xgafv),+    -- | OAuth access token.+    accessToken :: (Core.Maybe Core.Text),+    -- | JSONP+    callback :: (Core.Maybe Core.Text),+    -- | The location that contains this snapshot.+    location :: Core.Text,+    -- | The ID of the Cloud Platform project that the snapshot belongs to.+    projectId :: Core.Text,+    -- | The ID of the snapshot.+    snapshotId :: Core.Text,+    -- | Legacy upload protocol for media (e.g. \"media\", \"multipart\").+    uploadType :: (Core.Maybe Core.Text),+    -- | Upload protocol for media (e.g. \"raw\", \"multipart\").+    uploadProtocol :: (Core.Maybe Core.Text)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'DataflowProjectsLocationsSnapshotsGet' with the minimum fields required to make a request.+newDataflowProjectsLocationsSnapshotsGet ::+  -- |  The location that contains this snapshot. See 'location'.+  Core.Text ->+  -- |  The ID of the Cloud Platform project that the snapshot belongs to. See 'projectId'.+  Core.Text ->+  -- |  The ID of the snapshot. See 'snapshotId'.+  Core.Text ->+  DataflowProjectsLocationsSnapshotsGet+newDataflowProjectsLocationsSnapshotsGet+  location+  projectId+  snapshotId =+    DataflowProjectsLocationsSnapshotsGet+      { xgafv = Core.Nothing,+        accessToken = Core.Nothing,+        callback = Core.Nothing,+        location = location,+        projectId = projectId,+        snapshotId = snapshotId,+        uploadType = Core.Nothing,+        uploadProtocol = Core.Nothing+      }++instance Core.GoogleRequest DataflowProjectsLocationsSnapshotsGet where+  type Rs DataflowProjectsLocationsSnapshotsGet = Snapshot+  type+    Scopes DataflowProjectsLocationsSnapshotsGet =+      '[CloudPlatform'FullControl, Compute'FullControl]+  requestClient DataflowProjectsLocationsSnapshotsGet {..} =+    go+      projectId+      location+      snapshotId+      xgafv+      accessToken+      callback+      uploadType+      uploadProtocol+      (Core.Just Core.AltJSON)+      dataflowService+    where+      go =+        Core.buildClient+          ( Core.Proxy ::+              Core.Proxy DataflowProjectsLocationsSnapshotsGetResource+          )+          Core.mempty
+ gen/Gogol/Dataflow/Projects/Locations/Snapshots/List.hs view
@@ -0,0 +1,128 @@+{-# LANGUAGE DataKinds #-}+{-# LANGUAGE DerivingStrategies #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE ImportQualifiedPost #-}+{-# LANGUAGE LambdaCase #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TypeFamilies #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-duplicate-exports #-}+{-# OPTIONS_GHC -fno-warn-name-shadowing #-}+{-# OPTIONS_GHC -fno-warn-unused-binds #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- |+-- Module      : Gogol.Dataflow.Projects.Locations.Snapshots.List+-- Copyright   : (c) 2015-2025 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay <brendan.g.hay+gogol@gmail.com>+--               Toni Cebrián <toni@tonicebrian.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 Gogol.Dataflow.Projects.Locations.Snapshots.List+  ( -- * Resource+    DataflowProjectsLocationsSnapshotsListResource,++    -- ** Constructing a Request+    DataflowProjectsLocationsSnapshotsList (..),+    newDataflowProjectsLocationsSnapshotsList,+  )+where++import Gogol.Dataflow.Types+import Gogol.Prelude qualified as Core++-- | A resource alias for @dataflow.projects.locations.snapshots.list@ method which the+-- 'DataflowProjectsLocationsSnapshotsList' request conforms to.+type DataflowProjectsLocationsSnapshotsListResource =+  "v1b3"+    Core.:> "projects"+    Core.:> Core.Capture "projectId" Core.Text+    Core.:> "locations"+    Core.:> Core.Capture "location" Core.Text+    Core.:> "snapshots"+    Core.:> Core.QueryParam "$.xgafv" Xgafv+    Core.:> Core.QueryParam "access_token" Core.Text+    Core.:> Core.QueryParam "callback" Core.Text+    Core.:> Core.QueryParam "jobId" Core.Text+    Core.:> Core.QueryParam "uploadType" Core.Text+    Core.:> Core.QueryParam "upload_protocol" Core.Text+    Core.:> Core.QueryParam "alt" Core.AltJSON+    Core.:> Core.Get '[Core.JSON] ListSnapshotsResponse++-- | Lists snapshots.+--+-- /See:/ 'newDataflowProjectsLocationsSnapshotsList' smart constructor.+data DataflowProjectsLocationsSnapshotsList = DataflowProjectsLocationsSnapshotsList+  { -- | V1 error format.+    xgafv :: (Core.Maybe Xgafv),+    -- | OAuth access token.+    accessToken :: (Core.Maybe Core.Text),+    -- | JSONP+    callback :: (Core.Maybe Core.Text),+    -- | If specified, list snapshots created from this job.+    jobId :: (Core.Maybe Core.Text),+    -- | The location to list snapshots in.+    location :: Core.Text,+    -- | The project ID to list snapshots for.+    projectId :: Core.Text,+    -- | Legacy upload protocol for media (e.g. \"media\", \"multipart\").+    uploadType :: (Core.Maybe Core.Text),+    -- | Upload protocol for media (e.g. \"raw\", \"multipart\").+    uploadProtocol :: (Core.Maybe Core.Text)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'DataflowProjectsLocationsSnapshotsList' with the minimum fields required to make a request.+newDataflowProjectsLocationsSnapshotsList ::+  -- |  The location to list snapshots in. See 'location'.+  Core.Text ->+  -- |  The project ID to list snapshots for. See 'projectId'.+  Core.Text ->+  DataflowProjectsLocationsSnapshotsList+newDataflowProjectsLocationsSnapshotsList location projectId =+  DataflowProjectsLocationsSnapshotsList+    { xgafv = Core.Nothing,+      accessToken = Core.Nothing,+      callback = Core.Nothing,+      jobId = Core.Nothing,+      location = location,+      projectId = projectId,+      uploadType = Core.Nothing,+      uploadProtocol = Core.Nothing+    }++instance Core.GoogleRequest DataflowProjectsLocationsSnapshotsList where+  type+    Rs DataflowProjectsLocationsSnapshotsList =+      ListSnapshotsResponse+  type+    Scopes DataflowProjectsLocationsSnapshotsList =+      '[CloudPlatform'FullControl, Compute'FullControl]+  requestClient DataflowProjectsLocationsSnapshotsList {..} =+    go+      projectId+      location+      xgafv+      accessToken+      callback+      jobId+      uploadType+      uploadProtocol+      (Core.Just Core.AltJSON)+      dataflowService+    where+      go =+        Core.buildClient+          ( Core.Proxy ::+              Core.Proxy DataflowProjectsLocationsSnapshotsListResource+          )+          Core.mempty
+ gen/Gogol/Dataflow/Projects/Locations/Templates/Create.hs view
@@ -0,0 +1,134 @@+{-# LANGUAGE DataKinds #-}+{-# LANGUAGE DerivingStrategies #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE ImportQualifiedPost #-}+{-# LANGUAGE LambdaCase #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TypeFamilies #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-duplicate-exports #-}+{-# OPTIONS_GHC -fno-warn-name-shadowing #-}+{-# OPTIONS_GHC -fno-warn-unused-binds #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- |+-- Module      : Gogol.Dataflow.Projects.Locations.Templates.Create+-- Copyright   : (c) 2015-2025 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay <brendan.g.hay+gogol@gmail.com>+--               Toni Cebrián <toni@tonicebrian.com>+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Creates a Cloud Dataflow job from a template. Do not enter confidential information when you supply string values using the API. To create a job, we recommend using @projects.locations.templates.create@ with a [regional endpoint] (https:\/\/cloud.google.com\/dataflow\/docs\/concepts\/regional-endpoints). Using @projects.templates.create@ is not recommended, because your job will always start in @us-central1@.+--+-- /See:/ <https://cloud.google.com/dataflow Dataflow API Reference> for @dataflow.projects.locations.templates.create@.+module Gogol.Dataflow.Projects.Locations.Templates.Create+  ( -- * Resource+    DataflowProjectsLocationsTemplatesCreateResource,++    -- ** Constructing a Request+    DataflowProjectsLocationsTemplatesCreate (..),+    newDataflowProjectsLocationsTemplatesCreate,+  )+where++import Gogol.Dataflow.Types+import Gogol.Prelude qualified as Core++-- | A resource alias for @dataflow.projects.locations.templates.create@ method which the+-- 'DataflowProjectsLocationsTemplatesCreate' request conforms to.+type DataflowProjectsLocationsTemplatesCreateResource =+  "v1b3"+    Core.:> "projects"+    Core.:> Core.Capture "projectId" Core.Text+    Core.:> "locations"+    Core.:> Core.Capture "location" Core.Text+    Core.:> "templates"+    Core.:> Core.QueryParam "$.xgafv" Xgafv+    Core.:> Core.QueryParam "access_token" Core.Text+    Core.:> Core.QueryParam "callback" Core.Text+    Core.:> Core.QueryParam "uploadType" Core.Text+    Core.:> Core.QueryParam "upload_protocol" Core.Text+    Core.:> Core.QueryParam "alt" Core.AltJSON+    Core.:> Core.ReqBody '[Core.JSON] CreateJobFromTemplateRequest+    Core.:> Core.Post '[Core.JSON] Job++-- | Creates a Cloud Dataflow job from a template. Do not enter confidential information when you supply string values using the API. To create a job, we recommend using @projects.locations.templates.create@ with a [regional endpoint] (https:\/\/cloud.google.com\/dataflow\/docs\/concepts\/regional-endpoints). Using @projects.templates.create@ is not recommended, because your job will always start in @us-central1@.+--+-- /See:/ 'newDataflowProjectsLocationsTemplatesCreate' smart constructor.+data DataflowProjectsLocationsTemplatesCreate = DataflowProjectsLocationsTemplatesCreate+  { -- | V1 error format.+    xgafv :: (Core.Maybe Xgafv),+    -- | OAuth access token.+    accessToken :: (Core.Maybe Core.Text),+    -- | JSONP+    callback :: (Core.Maybe Core.Text),+    -- | The [regional endpoint] (https:\/\/cloud.google.com\/dataflow\/docs\/concepts\/regional-endpoints) to which to direct the request.+    location :: Core.Text,+    -- | Multipart request metadata.+    payload :: CreateJobFromTemplateRequest,+    -- | Required. The ID of the Cloud Platform project that the job belongs to.+    projectId :: Core.Text,+    -- | Legacy upload protocol for media (e.g. \"media\", \"multipart\").+    uploadType :: (Core.Maybe Core.Text),+    -- | Upload protocol for media (e.g. \"raw\", \"multipart\").+    uploadProtocol :: (Core.Maybe Core.Text)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'DataflowProjectsLocationsTemplatesCreate' with the minimum fields required to make a request.+newDataflowProjectsLocationsTemplatesCreate ::+  -- |  The [regional endpoint] (https:\/\/cloud.google.com\/dataflow\/docs\/concepts\/regional-endpoints) to which to direct the request. See 'location'.+  Core.Text ->+  -- |  Multipart request metadata. See 'payload'.+  CreateJobFromTemplateRequest ->+  -- |  Required. The ID of the Cloud Platform project that the job belongs to. See 'projectId'.+  Core.Text ->+  DataflowProjectsLocationsTemplatesCreate+newDataflowProjectsLocationsTemplatesCreate+  location+  payload+  projectId =+    DataflowProjectsLocationsTemplatesCreate+      { xgafv = Core.Nothing,+        accessToken = Core.Nothing,+        callback = Core.Nothing,+        location = location,+        payload = payload,+        projectId = projectId,+        uploadType = Core.Nothing,+        uploadProtocol = Core.Nothing+      }++instance+  Core.GoogleRequest+    DataflowProjectsLocationsTemplatesCreate+  where+  type Rs DataflowProjectsLocationsTemplatesCreate = Job+  type+    Scopes DataflowProjectsLocationsTemplatesCreate =+      '[CloudPlatform'FullControl, Compute'FullControl]+  requestClient DataflowProjectsLocationsTemplatesCreate {..} =+    go+      projectId+      location+      xgafv+      accessToken+      callback+      uploadType+      uploadProtocol+      (Core.Just Core.AltJSON)+      payload+      dataflowService+    where+      go =+        Core.buildClient+          ( Core.Proxy ::+              Core.Proxy DataflowProjectsLocationsTemplatesCreateResource+          )+          Core.mempty
+ gen/Gogol/Dataflow/Projects/Locations/Templates/Get.hs view
@@ -0,0 +1,131 @@+{-# LANGUAGE DataKinds #-}+{-# LANGUAGE DerivingStrategies #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE ImportQualifiedPost #-}+{-# LANGUAGE LambdaCase #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TypeFamilies #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-duplicate-exports #-}+{-# OPTIONS_GHC -fno-warn-name-shadowing #-}+{-# OPTIONS_GHC -fno-warn-unused-binds #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- |+-- Module      : Gogol.Dataflow.Projects.Locations.Templates.Get+-- Copyright   : (c) 2015-2025 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay <brendan.g.hay+gogol@gmail.com>+--               Toni Cebrián <toni@tonicebrian.com>+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Get the template associated with a template. To get the template, we recommend using @projects.locations.templates.get@ with a [regional endpoint] (https:\/\/cloud.google.com\/dataflow\/docs\/concepts\/regional-endpoints). Using @projects.templates.get@ is not recommended, because only templates that are running in @us-central1@ are retrieved.+--+-- /See:/ <https://cloud.google.com/dataflow Dataflow API Reference> for @dataflow.projects.locations.templates.get@.+module Gogol.Dataflow.Projects.Locations.Templates.Get+  ( -- * Resource+    DataflowProjectsLocationsTemplatesGetResource,++    -- ** Constructing a Request+    DataflowProjectsLocationsTemplatesGet (..),+    newDataflowProjectsLocationsTemplatesGet,+  )+where++import Gogol.Dataflow.Types+import Gogol.Prelude qualified as Core++-- | A resource alias for @dataflow.projects.locations.templates.get@ method which the+-- 'DataflowProjectsLocationsTemplatesGet' request conforms to.+type DataflowProjectsLocationsTemplatesGetResource =+  "v1b3"+    Core.:> "projects"+    Core.:> Core.Capture "projectId" Core.Text+    Core.:> "locations"+    Core.:> Core.Capture "location" Core.Text+    Core.:> "templates:get"+    Core.:> Core.QueryParam "$.xgafv" Xgafv+    Core.:> Core.QueryParam "access_token" Core.Text+    Core.:> Core.QueryParam "callback" Core.Text+    Core.:> Core.QueryParam "gcsPath" Core.Text+    Core.:> Core.QueryParam "uploadType" Core.Text+    Core.:> Core.QueryParam "upload_protocol" Core.Text+    Core.:> Core.QueryParam "view" ProjectsLocationsTemplatesGetView+    Core.:> Core.QueryParam "alt" Core.AltJSON+    Core.:> Core.Get '[Core.JSON] GetTemplateResponse++-- | Get the template associated with a template. To get the template, we recommend using @projects.locations.templates.get@ with a [regional endpoint] (https:\/\/cloud.google.com\/dataflow\/docs\/concepts\/regional-endpoints). Using @projects.templates.get@ is not recommended, because only templates that are running in @us-central1@ are retrieved.+--+-- /See:/ 'newDataflowProjectsLocationsTemplatesGet' smart constructor.+data DataflowProjectsLocationsTemplatesGet = DataflowProjectsLocationsTemplatesGet+  { -- | V1 error format.+    xgafv :: (Core.Maybe Xgafv),+    -- | OAuth access token.+    accessToken :: (Core.Maybe Core.Text),+    -- | JSONP+    callback :: (Core.Maybe Core.Text),+    -- | Required. A Cloud Storage path to the template from which to create the job. Must be valid Cloud Storage URL, beginning with \'gs:\/\/\'.+    gcsPath :: (Core.Maybe Core.Text),+    -- | The [regional endpoint] (https:\/\/cloud.google.com\/dataflow\/docs\/concepts\/regional-endpoints) to which to direct the request.+    location :: Core.Text,+    -- | Required. The ID of the Cloud Platform project that the job belongs to.+    projectId :: Core.Text,+    -- | Legacy upload protocol for media (e.g. \"media\", \"multipart\").+    uploadType :: (Core.Maybe Core.Text),+    -- | Upload protocol for media (e.g. \"raw\", \"multipart\").+    uploadProtocol :: (Core.Maybe Core.Text),+    -- | The view to retrieve. Defaults to METADATA_ONLY.+    view :: (Core.Maybe ProjectsLocationsTemplatesGetView)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'DataflowProjectsLocationsTemplatesGet' with the minimum fields required to make a request.+newDataflowProjectsLocationsTemplatesGet ::+  -- |  The [regional endpoint] (https:\/\/cloud.google.com\/dataflow\/docs\/concepts\/regional-endpoints) to which to direct the request. See 'location'.+  Core.Text ->+  -- |  Required. The ID of the Cloud Platform project that the job belongs to. See 'projectId'.+  Core.Text ->+  DataflowProjectsLocationsTemplatesGet+newDataflowProjectsLocationsTemplatesGet location projectId =+  DataflowProjectsLocationsTemplatesGet+    { xgafv = Core.Nothing,+      accessToken = Core.Nothing,+      callback = Core.Nothing,+      gcsPath = Core.Nothing,+      location = location,+      projectId = projectId,+      uploadType = Core.Nothing,+      uploadProtocol = Core.Nothing,+      view = Core.Nothing+    }++instance Core.GoogleRequest DataflowProjectsLocationsTemplatesGet where+  type Rs DataflowProjectsLocationsTemplatesGet = GetTemplateResponse+  type+    Scopes DataflowProjectsLocationsTemplatesGet =+      '[CloudPlatform'FullControl, Compute'FullControl]+  requestClient DataflowProjectsLocationsTemplatesGet {..} =+    go+      projectId+      location+      xgafv+      accessToken+      callback+      gcsPath+      uploadType+      uploadProtocol+      view+      (Core.Just Core.AltJSON)+      dataflowService+    where+      go =+        Core.buildClient+          ( Core.Proxy ::+              Core.Proxy DataflowProjectsLocationsTemplatesGetResource+          )+          Core.mempty
+ gen/Gogol/Dataflow/Projects/Locations/Templates/Launch.hs view
@@ -0,0 +1,156 @@+{-# LANGUAGE DataKinds #-}+{-# LANGUAGE DerivingStrategies #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE ImportQualifiedPost #-}+{-# LANGUAGE LambdaCase #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TypeFamilies #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-duplicate-exports #-}+{-# OPTIONS_GHC -fno-warn-name-shadowing #-}+{-# OPTIONS_GHC -fno-warn-unused-binds #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- |+-- Module      : Gogol.Dataflow.Projects.Locations.Templates.Launch+-- Copyright   : (c) 2015-2025 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay <brendan.g.hay+gogol@gmail.com>+--               Toni Cebrián <toni@tonicebrian.com>+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Launches a template. To launch a template, we recommend using @projects.locations.templates.launch@ with a [regional endpoint] (https:\/\/cloud.google.com\/dataflow\/docs\/concepts\/regional-endpoints). Using @projects.templates.launch@ is not recommended, because jobs launched from the template will always start in @us-central1@.+--+-- /See:/ <https://cloud.google.com/dataflow Dataflow API Reference> for @dataflow.projects.locations.templates.launch@.+module Gogol.Dataflow.Projects.Locations.Templates.Launch+  ( -- * Resource+    DataflowProjectsLocationsTemplatesLaunchResource,++    -- ** Constructing a Request+    DataflowProjectsLocationsTemplatesLaunch (..),+    newDataflowProjectsLocationsTemplatesLaunch,+  )+where++import Gogol.Dataflow.Types+import Gogol.Prelude qualified as Core++-- | A resource alias for @dataflow.projects.locations.templates.launch@ method which the+-- 'DataflowProjectsLocationsTemplatesLaunch' request conforms to.+type DataflowProjectsLocationsTemplatesLaunchResource =+  "v1b3"+    Core.:> "projects"+    Core.:> Core.Capture "projectId" Core.Text+    Core.:> "locations"+    Core.:> Core.Capture "location" Core.Text+    Core.:> "templates:launch"+    Core.:> Core.QueryParam "$.xgafv" Xgafv+    Core.:> Core.QueryParam "access_token" Core.Text+    Core.:> Core.QueryParam "callback" Core.Text+    Core.:> Core.QueryParam "dynamicTemplate.gcsPath" Core.Text+    Core.:> Core.QueryParam "dynamicTemplate.stagingLocation" Core.Text+    Core.:> Core.QueryParam "gcsPath" Core.Text+    Core.:> Core.QueryParam "uploadType" Core.Text+    Core.:> Core.QueryParam "upload_protocol" Core.Text+    Core.:> Core.QueryParam "validateOnly" Core.Bool+    Core.:> Core.QueryParam "alt" Core.AltJSON+    Core.:> Core.ReqBody '[Core.JSON] LaunchTemplateParameters+    Core.:> Core.Post '[Core.JSON] LaunchTemplateResponse++-- | Launches a template. To launch a template, we recommend using @projects.locations.templates.launch@ with a [regional endpoint] (https:\/\/cloud.google.com\/dataflow\/docs\/concepts\/regional-endpoints). Using @projects.templates.launch@ is not recommended, because jobs launched from the template will always start in @us-central1@.+--+-- /See:/ 'newDataflowProjectsLocationsTemplatesLaunch' smart constructor.+data DataflowProjectsLocationsTemplatesLaunch = DataflowProjectsLocationsTemplatesLaunch+  { -- | V1 error format.+    xgafv :: (Core.Maybe Xgafv),+    -- | OAuth access token.+    accessToken :: (Core.Maybe Core.Text),+    -- | JSONP+    callback :: (Core.Maybe Core.Text),+    -- | Path to the dynamic template specification file on Cloud Storage. The file must be a JSON serialized @DynamicTemplateFileSpec@ object.+    dynamicTemplateGcsPath :: (Core.Maybe Core.Text),+    -- | Cloud Storage path for staging dependencies. Must be a valid Cloud Storage URL, beginning with @gs:\/\/@.+    dynamicTemplateStagingLocation :: (Core.Maybe Core.Text),+    -- | A Cloud Storage path to the template to use to create the job. Must be valid Cloud Storage URL, beginning with @gs:\/\/@.+    gcsPath :: (Core.Maybe Core.Text),+    -- | The [regional endpoint] (https:\/\/cloud.google.com\/dataflow\/docs\/concepts\/regional-endpoints) to which to direct the request.+    location :: Core.Text,+    -- | Multipart request metadata.+    payload :: LaunchTemplateParameters,+    -- | Required. The ID of the Cloud Platform project that the job belongs to.+    projectId :: Core.Text,+    -- | Legacy upload protocol for media (e.g. \"media\", \"multipart\").+    uploadType :: (Core.Maybe Core.Text),+    -- | Upload protocol for media (e.g. \"raw\", \"multipart\").+    uploadProtocol :: (Core.Maybe Core.Text),+    -- | If true, the request is validated but not actually executed. Defaults to false.+    validateOnly :: (Core.Maybe Core.Bool)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'DataflowProjectsLocationsTemplatesLaunch' with the minimum fields required to make a request.+newDataflowProjectsLocationsTemplatesLaunch ::+  -- |  The [regional endpoint] (https:\/\/cloud.google.com\/dataflow\/docs\/concepts\/regional-endpoints) to which to direct the request. See 'location'.+  Core.Text ->+  -- |  Multipart request metadata. See 'payload'.+  LaunchTemplateParameters ->+  -- |  Required. The ID of the Cloud Platform project that the job belongs to. See 'projectId'.+  Core.Text ->+  DataflowProjectsLocationsTemplatesLaunch+newDataflowProjectsLocationsTemplatesLaunch+  location+  payload+  projectId =+    DataflowProjectsLocationsTemplatesLaunch+      { xgafv = Core.Nothing,+        accessToken = Core.Nothing,+        callback = Core.Nothing,+        dynamicTemplateGcsPath = Core.Nothing,+        dynamicTemplateStagingLocation = Core.Nothing,+        gcsPath = Core.Nothing,+        location = location,+        payload = payload,+        projectId = projectId,+        uploadType = Core.Nothing,+        uploadProtocol = Core.Nothing,+        validateOnly = Core.Nothing+      }++instance+  Core.GoogleRequest+    DataflowProjectsLocationsTemplatesLaunch+  where+  type+    Rs DataflowProjectsLocationsTemplatesLaunch =+      LaunchTemplateResponse+  type+    Scopes DataflowProjectsLocationsTemplatesLaunch =+      '[CloudPlatform'FullControl, Compute'FullControl]+  requestClient DataflowProjectsLocationsTemplatesLaunch {..} =+    go+      projectId+      location+      xgafv+      accessToken+      callback+      dynamicTemplateGcsPath+      dynamicTemplateStagingLocation+      gcsPath+      uploadType+      uploadProtocol+      validateOnly+      (Core.Just Core.AltJSON)+      payload+      dataflowService+    where+      go =+        Core.buildClient+          ( Core.Proxy ::+              Core.Proxy DataflowProjectsLocationsTemplatesLaunchResource+          )+          Core.mempty
+ gen/Gogol/Dataflow/Projects/Locations/WorkerMessages.hs view
@@ -0,0 +1,133 @@+{-# LANGUAGE DataKinds #-}+{-# LANGUAGE DerivingStrategies #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE ImportQualifiedPost #-}+{-# LANGUAGE LambdaCase #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TypeFamilies #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-duplicate-exports #-}+{-# OPTIONS_GHC -fno-warn-name-shadowing #-}+{-# OPTIONS_GHC -fno-warn-unused-binds #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- |+-- Module      : Gogol.Dataflow.Projects.Locations.WorkerMessages+-- Copyright   : (c) 2015-2025 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay <brendan.g.hay+gogol@gmail.com>+--               Toni Cebrián <toni@tonicebrian.com>+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Send a worker_message to the service.+--+-- /See:/ <https://cloud.google.com/dataflow Dataflow API Reference> for @dataflow.projects.locations.workerMessages@.+module Gogol.Dataflow.Projects.Locations.WorkerMessages+  ( -- * Resource+    DataflowProjectsLocationsWorkerMessagesResource,++    -- ** Constructing a Request+    DataflowProjectsLocationsWorkerMessages (..),+    newDataflowProjectsLocationsWorkerMessages,+  )+where++import Gogol.Dataflow.Types+import Gogol.Prelude qualified as Core++-- | A resource alias for @dataflow.projects.locations.workerMessages@ method which the+-- 'DataflowProjectsLocationsWorkerMessages' request conforms to.+type DataflowProjectsLocationsWorkerMessagesResource =+  "v1b3"+    Core.:> "projects"+    Core.:> Core.Capture "projectId" Core.Text+    Core.:> "locations"+    Core.:> Core.Capture "location" Core.Text+    Core.:> "WorkerMessages"+    Core.:> Core.QueryParam "$.xgafv" Xgafv+    Core.:> Core.QueryParam "access_token" Core.Text+    Core.:> Core.QueryParam "callback" Core.Text+    Core.:> Core.QueryParam "uploadType" Core.Text+    Core.:> Core.QueryParam "upload_protocol" Core.Text+    Core.:> Core.QueryParam "alt" Core.AltJSON+    Core.:> Core.ReqBody '[Core.JSON] SendWorkerMessagesRequest+    Core.:> Core.Post '[Core.JSON] SendWorkerMessagesResponse++-- | Send a worker_message to the service.+--+-- /See:/ 'newDataflowProjectsLocationsWorkerMessages' smart constructor.+data DataflowProjectsLocationsWorkerMessages = DataflowProjectsLocationsWorkerMessages+  { -- | V1 error format.+    xgafv :: (Core.Maybe Xgafv),+    -- | OAuth access token.+    accessToken :: (Core.Maybe Core.Text),+    -- | JSONP+    callback :: (Core.Maybe Core.Text),+    -- | The [regional endpoint] (https:\/\/cloud.google.com\/dataflow\/docs\/concepts\/regional-endpoints) that contains the job.+    location :: Core.Text,+    -- | Multipart request metadata.+    payload :: SendWorkerMessagesRequest,+    -- | The project to send the WorkerMessages to.+    projectId :: Core.Text,+    -- | Legacy upload protocol for media (e.g. \"media\", \"multipart\").+    uploadType :: (Core.Maybe Core.Text),+    -- | Upload protocol for media (e.g. \"raw\", \"multipart\").+    uploadProtocol :: (Core.Maybe Core.Text)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'DataflowProjectsLocationsWorkerMessages' with the minimum fields required to make a request.+newDataflowProjectsLocationsWorkerMessages ::+  -- |  The [regional endpoint] (https:\/\/cloud.google.com\/dataflow\/docs\/concepts\/regional-endpoints) that contains the job. See 'location'.+  Core.Text ->+  -- |  Multipart request metadata. See 'payload'.+  SendWorkerMessagesRequest ->+  -- |  The project to send the WorkerMessages to. See 'projectId'.+  Core.Text ->+  DataflowProjectsLocationsWorkerMessages+newDataflowProjectsLocationsWorkerMessages+  location+  payload+  projectId =+    DataflowProjectsLocationsWorkerMessages+      { xgafv = Core.Nothing,+        accessToken = Core.Nothing,+        callback = Core.Nothing,+        location = location,+        payload = payload,+        projectId = projectId,+        uploadType = Core.Nothing,+        uploadProtocol = Core.Nothing+      }++instance Core.GoogleRequest DataflowProjectsLocationsWorkerMessages where+  type+    Rs DataflowProjectsLocationsWorkerMessages =+      SendWorkerMessagesResponse+  type+    Scopes DataflowProjectsLocationsWorkerMessages =+      '[CloudPlatform'FullControl, Compute'FullControl]+  requestClient DataflowProjectsLocationsWorkerMessages {..} =+    go+      projectId+      location+      xgafv+      accessToken+      callback+      uploadType+      uploadProtocol+      (Core.Just Core.AltJSON)+      payload+      dataflowService+    where+      go =+        Core.buildClient+          ( Core.Proxy ::+              Core.Proxy DataflowProjectsLocationsWorkerMessagesResource+          )+          Core.mempty
+ gen/Gogol/Dataflow/Projects/Snapshots/Get.hs view
@@ -0,0 +1,123 @@+{-# LANGUAGE DataKinds #-}+{-# LANGUAGE DerivingStrategies #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE ImportQualifiedPost #-}+{-# LANGUAGE LambdaCase #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TypeFamilies #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-duplicate-exports #-}+{-# OPTIONS_GHC -fno-warn-name-shadowing #-}+{-# OPTIONS_GHC -fno-warn-unused-binds #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- |+-- Module      : Gogol.Dataflow.Projects.Snapshots.Get+-- Copyright   : (c) 2015-2025 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay <brendan.g.hay+gogol@gmail.com>+--               Toni Cebrián <toni@tonicebrian.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 Gogol.Dataflow.Projects.Snapshots.Get+  ( -- * Resource+    DataflowProjectsSnapshotsGetResource,++    -- ** Constructing a Request+    DataflowProjectsSnapshotsGet (..),+    newDataflowProjectsSnapshotsGet,+  )+where++import Gogol.Dataflow.Types+import Gogol.Prelude qualified as Core++-- | A resource alias for @dataflow.projects.snapshots.get@ method which the+-- 'DataflowProjectsSnapshotsGet' request conforms to.+type DataflowProjectsSnapshotsGetResource =+  "v1b3"+    Core.:> "projects"+    Core.:> Core.Capture "projectId" Core.Text+    Core.:> "snapshots"+    Core.:> Core.Capture "snapshotId" Core.Text+    Core.:> Core.QueryParam "$.xgafv" Xgafv+    Core.:> Core.QueryParam "access_token" Core.Text+    Core.:> Core.QueryParam "callback" Core.Text+    Core.:> Core.QueryParam "location" Core.Text+    Core.:> Core.QueryParam "uploadType" Core.Text+    Core.:> Core.QueryParam "upload_protocol" Core.Text+    Core.:> Core.QueryParam "alt" Core.AltJSON+    Core.:> Core.Get '[Core.JSON] Snapshot++-- | Gets information about a snapshot.+--+-- /See:/ 'newDataflowProjectsSnapshotsGet' smart constructor.+data DataflowProjectsSnapshotsGet = DataflowProjectsSnapshotsGet+  { -- | V1 error format.+    xgafv :: (Core.Maybe Xgafv),+    -- | OAuth access token.+    accessToken :: (Core.Maybe Core.Text),+    -- | JSONP+    callback :: (Core.Maybe Core.Text),+    -- | The location that contains this snapshot.+    location :: (Core.Maybe Core.Text),+    -- | The ID of the Cloud Platform project that the snapshot belongs to.+    projectId :: Core.Text,+    -- | The ID of the snapshot.+    snapshotId :: Core.Text,+    -- | Legacy upload protocol for media (e.g. \"media\", \"multipart\").+    uploadType :: (Core.Maybe Core.Text),+    -- | Upload protocol for media (e.g. \"raw\", \"multipart\").+    uploadProtocol :: (Core.Maybe Core.Text)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'DataflowProjectsSnapshotsGet' with the minimum fields required to make a request.+newDataflowProjectsSnapshotsGet ::+  -- |  The ID of the Cloud Platform project that the snapshot belongs to. See 'projectId'.+  Core.Text ->+  -- |  The ID of the snapshot. See 'snapshotId'.+  Core.Text ->+  DataflowProjectsSnapshotsGet+newDataflowProjectsSnapshotsGet projectId snapshotId =+  DataflowProjectsSnapshotsGet+    { xgafv = Core.Nothing,+      accessToken = Core.Nothing,+      callback = Core.Nothing,+      location = Core.Nothing,+      projectId = projectId,+      snapshotId = snapshotId,+      uploadType = Core.Nothing,+      uploadProtocol = Core.Nothing+    }++instance Core.GoogleRequest DataflowProjectsSnapshotsGet where+  type Rs DataflowProjectsSnapshotsGet = Snapshot+  type+    Scopes DataflowProjectsSnapshotsGet =+      '[CloudPlatform'FullControl, Compute'FullControl]+  requestClient DataflowProjectsSnapshotsGet {..} =+    go+      projectId+      snapshotId+      xgafv+      accessToken+      callback+      location+      uploadType+      uploadProtocol+      (Core.Just Core.AltJSON)+      dataflowService+    where+      go =+        Core.buildClient+          (Core.Proxy :: Core.Proxy DataflowProjectsSnapshotsGetResource)+          Core.mempty
+ gen/Gogol/Dataflow/Projects/Snapshots/List.hs view
@@ -0,0 +1,121 @@+{-# LANGUAGE DataKinds #-}+{-# LANGUAGE DerivingStrategies #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE ImportQualifiedPost #-}+{-# LANGUAGE LambdaCase #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TypeFamilies #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-duplicate-exports #-}+{-# OPTIONS_GHC -fno-warn-name-shadowing #-}+{-# OPTIONS_GHC -fno-warn-unused-binds #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- |+-- Module      : Gogol.Dataflow.Projects.Snapshots.List+-- Copyright   : (c) 2015-2025 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay <brendan.g.hay+gogol@gmail.com>+--               Toni Cebrián <toni@tonicebrian.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 Gogol.Dataflow.Projects.Snapshots.List+  ( -- * Resource+    DataflowProjectsSnapshotsListResource,++    -- ** Constructing a Request+    DataflowProjectsSnapshotsList (..),+    newDataflowProjectsSnapshotsList,+  )+where++import Gogol.Dataflow.Types+import Gogol.Prelude qualified as Core++-- | A resource alias for @dataflow.projects.snapshots.list@ method which the+-- 'DataflowProjectsSnapshotsList' request conforms to.+type DataflowProjectsSnapshotsListResource =+  "v1b3"+    Core.:> "projects"+    Core.:> Core.Capture "projectId" Core.Text+    Core.:> "snapshots"+    Core.:> Core.QueryParam "$.xgafv" Xgafv+    Core.:> Core.QueryParam "access_token" Core.Text+    Core.:> Core.QueryParam "callback" Core.Text+    Core.:> Core.QueryParam "jobId" Core.Text+    Core.:> Core.QueryParam "location" Core.Text+    Core.:> Core.QueryParam "uploadType" Core.Text+    Core.:> Core.QueryParam "upload_protocol" Core.Text+    Core.:> Core.QueryParam "alt" Core.AltJSON+    Core.:> Core.Get '[Core.JSON] ListSnapshotsResponse++-- | Lists snapshots.+--+-- /See:/ 'newDataflowProjectsSnapshotsList' smart constructor.+data DataflowProjectsSnapshotsList = DataflowProjectsSnapshotsList+  { -- | V1 error format.+    xgafv :: (Core.Maybe Xgafv),+    -- | OAuth access token.+    accessToken :: (Core.Maybe Core.Text),+    -- | JSONP+    callback :: (Core.Maybe Core.Text),+    -- | If specified, list snapshots created from this job.+    jobId :: (Core.Maybe Core.Text),+    -- | The location to list snapshots in.+    location :: (Core.Maybe Core.Text),+    -- | The project ID to list snapshots for.+    projectId :: Core.Text,+    -- | Legacy upload protocol for media (e.g. \"media\", \"multipart\").+    uploadType :: (Core.Maybe Core.Text),+    -- | Upload protocol for media (e.g. \"raw\", \"multipart\").+    uploadProtocol :: (Core.Maybe Core.Text)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'DataflowProjectsSnapshotsList' with the minimum fields required to make a request.+newDataflowProjectsSnapshotsList ::+  -- |  The project ID to list snapshots for. See 'projectId'.+  Core.Text ->+  DataflowProjectsSnapshotsList+newDataflowProjectsSnapshotsList projectId =+  DataflowProjectsSnapshotsList+    { xgafv = Core.Nothing,+      accessToken = Core.Nothing,+      callback = Core.Nothing,+      jobId = Core.Nothing,+      location = Core.Nothing,+      projectId = projectId,+      uploadType = Core.Nothing,+      uploadProtocol = Core.Nothing+    }++instance Core.GoogleRequest DataflowProjectsSnapshotsList where+  type Rs DataflowProjectsSnapshotsList = ListSnapshotsResponse+  type+    Scopes DataflowProjectsSnapshotsList =+      '[CloudPlatform'FullControl, Compute'FullControl]+  requestClient DataflowProjectsSnapshotsList {..} =+    go+      projectId+      xgafv+      accessToken+      callback+      jobId+      location+      uploadType+      uploadProtocol+      (Core.Just Core.AltJSON)+      dataflowService+    where+      go =+        Core.buildClient+          (Core.Proxy :: Core.Proxy DataflowProjectsSnapshotsListResource)+          Core.mempty
+ gen/Gogol/Dataflow/Projects/Templates/Create.hs view
@@ -0,0 +1,118 @@+{-# LANGUAGE DataKinds #-}+{-# LANGUAGE DerivingStrategies #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE ImportQualifiedPost #-}+{-# LANGUAGE LambdaCase #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TypeFamilies #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-duplicate-exports #-}+{-# OPTIONS_GHC -fno-warn-name-shadowing #-}+{-# OPTIONS_GHC -fno-warn-unused-binds #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- |+-- Module      : Gogol.Dataflow.Projects.Templates.Create+-- Copyright   : (c) 2015-2025 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay <brendan.g.hay+gogol@gmail.com>+--               Toni Cebrián <toni@tonicebrian.com>+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Creates a Cloud Dataflow job from a template. Do not enter confidential information when you supply string values using the API. To create a job, we recommend using @projects.locations.templates.create@ with a [regional endpoint] (https:\/\/cloud.google.com\/dataflow\/docs\/concepts\/regional-endpoints). Using @projects.templates.create@ is not recommended, because your job will always start in @us-central1@.+--+-- /See:/ <https://cloud.google.com/dataflow Dataflow API Reference> for @dataflow.projects.templates.create@.+module Gogol.Dataflow.Projects.Templates.Create+  ( -- * Resource+    DataflowProjectsTemplatesCreateResource,++    -- ** Constructing a Request+    DataflowProjectsTemplatesCreate (..),+    newDataflowProjectsTemplatesCreate,+  )+where++import Gogol.Dataflow.Types+import Gogol.Prelude qualified as Core++-- | A resource alias for @dataflow.projects.templates.create@ method which the+-- 'DataflowProjectsTemplatesCreate' request conforms to.+type DataflowProjectsTemplatesCreateResource =+  "v1b3"+    Core.:> "projects"+    Core.:> Core.Capture "projectId" Core.Text+    Core.:> "templates"+    Core.:> Core.QueryParam "$.xgafv" Xgafv+    Core.:> Core.QueryParam "access_token" Core.Text+    Core.:> Core.QueryParam "callback" Core.Text+    Core.:> Core.QueryParam "uploadType" Core.Text+    Core.:> Core.QueryParam "upload_protocol" Core.Text+    Core.:> Core.QueryParam "alt" Core.AltJSON+    Core.:> Core.ReqBody '[Core.JSON] CreateJobFromTemplateRequest+    Core.:> Core.Post '[Core.JSON] Job++-- | Creates a Cloud Dataflow job from a template. Do not enter confidential information when you supply string values using the API. To create a job, we recommend using @projects.locations.templates.create@ with a [regional endpoint] (https:\/\/cloud.google.com\/dataflow\/docs\/concepts\/regional-endpoints). Using @projects.templates.create@ is not recommended, because your job will always start in @us-central1@.+--+-- /See:/ 'newDataflowProjectsTemplatesCreate' smart constructor.+data DataflowProjectsTemplatesCreate = DataflowProjectsTemplatesCreate+  { -- | V1 error format.+    xgafv :: (Core.Maybe Xgafv),+    -- | OAuth access token.+    accessToken :: (Core.Maybe Core.Text),+    -- | JSONP+    callback :: (Core.Maybe Core.Text),+    -- | Multipart request metadata.+    payload :: CreateJobFromTemplateRequest,+    -- | Required. The ID of the Cloud Platform project that the job belongs to.+    projectId :: Core.Text,+    -- | Legacy upload protocol for media (e.g. \"media\", \"multipart\").+    uploadType :: (Core.Maybe Core.Text),+    -- | Upload protocol for media (e.g. \"raw\", \"multipart\").+    uploadProtocol :: (Core.Maybe Core.Text)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'DataflowProjectsTemplatesCreate' with the minimum fields required to make a request.+newDataflowProjectsTemplatesCreate ::+  -- |  Multipart request metadata. See 'payload'.+  CreateJobFromTemplateRequest ->+  -- |  Required. The ID of the Cloud Platform project that the job belongs to. See 'projectId'.+  Core.Text ->+  DataflowProjectsTemplatesCreate+newDataflowProjectsTemplatesCreate payload projectId =+  DataflowProjectsTemplatesCreate+    { xgafv = Core.Nothing,+      accessToken = Core.Nothing,+      callback = Core.Nothing,+      payload = payload,+      projectId = projectId,+      uploadType = Core.Nothing,+      uploadProtocol = Core.Nothing+    }++instance Core.GoogleRequest DataflowProjectsTemplatesCreate where+  type Rs DataflowProjectsTemplatesCreate = Job+  type+    Scopes DataflowProjectsTemplatesCreate =+      '[CloudPlatform'FullControl, Compute'FullControl]+  requestClient DataflowProjectsTemplatesCreate {..} =+    go+      projectId+      xgafv+      accessToken+      callback+      uploadType+      uploadProtocol+      (Core.Just Core.AltJSON)+      payload+      dataflowService+    where+      go =+        Core.buildClient+          (Core.Proxy :: Core.Proxy DataflowProjectsTemplatesCreateResource)+          Core.mempty
+ gen/Gogol/Dataflow/Projects/Templates/Get.hs view
@@ -0,0 +1,126 @@+{-# LANGUAGE DataKinds #-}+{-# LANGUAGE DerivingStrategies #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE ImportQualifiedPost #-}+{-# LANGUAGE LambdaCase #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TypeFamilies #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-duplicate-exports #-}+{-# OPTIONS_GHC -fno-warn-name-shadowing #-}+{-# OPTIONS_GHC -fno-warn-unused-binds #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- |+-- Module      : Gogol.Dataflow.Projects.Templates.Get+-- Copyright   : (c) 2015-2025 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay <brendan.g.hay+gogol@gmail.com>+--               Toni Cebrián <toni@tonicebrian.com>+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Get the template associated with a template. To get the template, we recommend using @projects.locations.templates.get@ with a [regional endpoint] (https:\/\/cloud.google.com\/dataflow\/docs\/concepts\/regional-endpoints). Using @projects.templates.get@ is not recommended, because only templates that are running in @us-central1@ are retrieved.+--+-- /See:/ <https://cloud.google.com/dataflow Dataflow API Reference> for @dataflow.projects.templates.get@.+module Gogol.Dataflow.Projects.Templates.Get+  ( -- * Resource+    DataflowProjectsTemplatesGetResource,++    -- ** Constructing a Request+    DataflowProjectsTemplatesGet (..),+    newDataflowProjectsTemplatesGet,+  )+where++import Gogol.Dataflow.Types+import Gogol.Prelude qualified as Core++-- | A resource alias for @dataflow.projects.templates.get@ method which the+-- 'DataflowProjectsTemplatesGet' request conforms to.+type DataflowProjectsTemplatesGetResource =+  "v1b3"+    Core.:> "projects"+    Core.:> Core.Capture "projectId" Core.Text+    Core.:> "templates:get"+    Core.:> Core.QueryParam "$.xgafv" Xgafv+    Core.:> Core.QueryParam "access_token" Core.Text+    Core.:> Core.QueryParam "callback" Core.Text+    Core.:> Core.QueryParam "gcsPath" Core.Text+    Core.:> Core.QueryParam "location" Core.Text+    Core.:> Core.QueryParam "uploadType" Core.Text+    Core.:> Core.QueryParam "upload_protocol" Core.Text+    Core.:> Core.QueryParam "view" ProjectsTemplatesGetView+    Core.:> Core.QueryParam "alt" Core.AltJSON+    Core.:> Core.Get '[Core.JSON] GetTemplateResponse++-- | Get the template associated with a template. To get the template, we recommend using @projects.locations.templates.get@ with a [regional endpoint] (https:\/\/cloud.google.com\/dataflow\/docs\/concepts\/regional-endpoints). Using @projects.templates.get@ is not recommended, because only templates that are running in @us-central1@ are retrieved.+--+-- /See:/ 'newDataflowProjectsTemplatesGet' smart constructor.+data DataflowProjectsTemplatesGet = DataflowProjectsTemplatesGet+  { -- | V1 error format.+    xgafv :: (Core.Maybe Xgafv),+    -- | OAuth access token.+    accessToken :: (Core.Maybe Core.Text),+    -- | JSONP+    callback :: (Core.Maybe Core.Text),+    -- | Required. A Cloud Storage path to the template from which to create the job. Must be valid Cloud Storage URL, beginning with \'gs:\/\/\'.+    gcsPath :: (Core.Maybe Core.Text),+    -- | The [regional endpoint] (https:\/\/cloud.google.com\/dataflow\/docs\/concepts\/regional-endpoints) to which to direct the request.+    location :: (Core.Maybe Core.Text),+    -- | Required. The ID of the Cloud Platform project that the job belongs to.+    projectId :: Core.Text,+    -- | Legacy upload protocol for media (e.g. \"media\", \"multipart\").+    uploadType :: (Core.Maybe Core.Text),+    -- | Upload protocol for media (e.g. \"raw\", \"multipart\").+    uploadProtocol :: (Core.Maybe Core.Text),+    -- | The view to retrieve. Defaults to METADATA_ONLY.+    view :: (Core.Maybe ProjectsTemplatesGetView)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'DataflowProjectsTemplatesGet' with the minimum fields required to make a request.+newDataflowProjectsTemplatesGet ::+  -- |  Required. The ID of the Cloud Platform project that the job belongs to. See 'projectId'.+  Core.Text ->+  DataflowProjectsTemplatesGet+newDataflowProjectsTemplatesGet projectId =+  DataflowProjectsTemplatesGet+    { xgafv = Core.Nothing,+      accessToken = Core.Nothing,+      callback = Core.Nothing,+      gcsPath = Core.Nothing,+      location = Core.Nothing,+      projectId = projectId,+      uploadType = Core.Nothing,+      uploadProtocol = Core.Nothing,+      view = Core.Nothing+    }++instance Core.GoogleRequest DataflowProjectsTemplatesGet where+  type Rs DataflowProjectsTemplatesGet = GetTemplateResponse+  type+    Scopes DataflowProjectsTemplatesGet =+      '[CloudPlatform'FullControl, Compute'FullControl]+  requestClient DataflowProjectsTemplatesGet {..} =+    go+      projectId+      xgafv+      accessToken+      callback+      gcsPath+      location+      uploadType+      uploadProtocol+      view+      (Core.Just Core.AltJSON)+      dataflowService+    where+      go =+        Core.buildClient+          (Core.Proxy :: Core.Proxy DataflowProjectsTemplatesGetResource)+          Core.mempty
+ gen/Gogol/Dataflow/Projects/Templates/Launch.hs view
@@ -0,0 +1,143 @@+{-# LANGUAGE DataKinds #-}+{-# LANGUAGE DerivingStrategies #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE ImportQualifiedPost #-}+{-# LANGUAGE LambdaCase #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TypeFamilies #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-duplicate-exports #-}+{-# OPTIONS_GHC -fno-warn-name-shadowing #-}+{-# OPTIONS_GHC -fno-warn-unused-binds #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- |+-- Module      : Gogol.Dataflow.Projects.Templates.Launch+-- Copyright   : (c) 2015-2025 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay <brendan.g.hay+gogol@gmail.com>+--               Toni Cebrián <toni@tonicebrian.com>+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Launches a template. To launch a template, we recommend using @projects.locations.templates.launch@ with a [regional endpoint] (https:\/\/cloud.google.com\/dataflow\/docs\/concepts\/regional-endpoints). Using @projects.templates.launch@ is not recommended, because jobs launched from the template will always start in @us-central1@.+--+-- /See:/ <https://cloud.google.com/dataflow Dataflow API Reference> for @dataflow.projects.templates.launch@.+module Gogol.Dataflow.Projects.Templates.Launch+  ( -- * Resource+    DataflowProjectsTemplatesLaunchResource,++    -- ** Constructing a Request+    DataflowProjectsTemplatesLaunch (..),+    newDataflowProjectsTemplatesLaunch,+  )+where++import Gogol.Dataflow.Types+import Gogol.Prelude qualified as Core++-- | A resource alias for @dataflow.projects.templates.launch@ method which the+-- 'DataflowProjectsTemplatesLaunch' request conforms to.+type DataflowProjectsTemplatesLaunchResource =+  "v1b3"+    Core.:> "projects"+    Core.:> Core.Capture "projectId" Core.Text+    Core.:> "templates:launch"+    Core.:> Core.QueryParam "$.xgafv" Xgafv+    Core.:> Core.QueryParam "access_token" Core.Text+    Core.:> Core.QueryParam "callback" Core.Text+    Core.:> Core.QueryParam "dynamicTemplate.gcsPath" Core.Text+    Core.:> Core.QueryParam "dynamicTemplate.stagingLocation" Core.Text+    Core.:> Core.QueryParam "gcsPath" Core.Text+    Core.:> Core.QueryParam "location" Core.Text+    Core.:> Core.QueryParam "uploadType" Core.Text+    Core.:> Core.QueryParam "upload_protocol" Core.Text+    Core.:> Core.QueryParam "validateOnly" Core.Bool+    Core.:> Core.QueryParam "alt" Core.AltJSON+    Core.:> Core.ReqBody '[Core.JSON] LaunchTemplateParameters+    Core.:> Core.Post '[Core.JSON] LaunchTemplateResponse++-- | Launches a template. To launch a template, we recommend using @projects.locations.templates.launch@ with a [regional endpoint] (https:\/\/cloud.google.com\/dataflow\/docs\/concepts\/regional-endpoints). Using @projects.templates.launch@ is not recommended, because jobs launched from the template will always start in @us-central1@.+--+-- /See:/ 'newDataflowProjectsTemplatesLaunch' smart constructor.+data DataflowProjectsTemplatesLaunch = DataflowProjectsTemplatesLaunch+  { -- | V1 error format.+    xgafv :: (Core.Maybe Xgafv),+    -- | OAuth access token.+    accessToken :: (Core.Maybe Core.Text),+    -- | JSONP+    callback :: (Core.Maybe Core.Text),+    -- | Path to the dynamic template specification file on Cloud Storage. The file must be a JSON serialized @DynamicTemplateFileSpec@ object.+    dynamicTemplateGcsPath :: (Core.Maybe Core.Text),+    -- | Cloud Storage path for staging dependencies. Must be a valid Cloud Storage URL, beginning with @gs:\/\/@.+    dynamicTemplateStagingLocation :: (Core.Maybe Core.Text),+    -- | A Cloud Storage path to the template to use to create the job. Must be valid Cloud Storage URL, beginning with @gs:\/\/@.+    gcsPath :: (Core.Maybe Core.Text),+    -- | The [regional endpoint] (https:\/\/cloud.google.com\/dataflow\/docs\/concepts\/regional-endpoints) to which to direct the request.+    location :: (Core.Maybe Core.Text),+    -- | Multipart request metadata.+    payload :: LaunchTemplateParameters,+    -- | Required. The ID of the Cloud Platform project that the job belongs to.+    projectId :: Core.Text,+    -- | Legacy upload protocol for media (e.g. \"media\", \"multipart\").+    uploadType :: (Core.Maybe Core.Text),+    -- | Upload protocol for media (e.g. \"raw\", \"multipart\").+    uploadProtocol :: (Core.Maybe Core.Text),+    -- | If true, the request is validated but not actually executed. Defaults to false.+    validateOnly :: (Core.Maybe Core.Bool)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'DataflowProjectsTemplatesLaunch' with the minimum fields required to make a request.+newDataflowProjectsTemplatesLaunch ::+  -- |  Multipart request metadata. See 'payload'.+  LaunchTemplateParameters ->+  -- |  Required. The ID of the Cloud Platform project that the job belongs to. See 'projectId'.+  Core.Text ->+  DataflowProjectsTemplatesLaunch+newDataflowProjectsTemplatesLaunch payload projectId =+  DataflowProjectsTemplatesLaunch+    { xgafv = Core.Nothing,+      accessToken = Core.Nothing,+      callback = Core.Nothing,+      dynamicTemplateGcsPath = Core.Nothing,+      dynamicTemplateStagingLocation = Core.Nothing,+      gcsPath = Core.Nothing,+      location = Core.Nothing,+      payload = payload,+      projectId = projectId,+      uploadType = Core.Nothing,+      uploadProtocol = Core.Nothing,+      validateOnly = Core.Nothing+    }++instance Core.GoogleRequest DataflowProjectsTemplatesLaunch where+  type Rs DataflowProjectsTemplatesLaunch = LaunchTemplateResponse+  type+    Scopes DataflowProjectsTemplatesLaunch =+      '[CloudPlatform'FullControl, Compute'FullControl]+  requestClient DataflowProjectsTemplatesLaunch {..} =+    go+      projectId+      xgafv+      accessToken+      callback+      dynamicTemplateGcsPath+      dynamicTemplateStagingLocation+      gcsPath+      location+      uploadType+      uploadProtocol+      validateOnly+      (Core.Just Core.AltJSON)+      payload+      dataflowService+    where+      go =+        Core.buildClient+          (Core.Proxy :: Core.Proxy DataflowProjectsTemplatesLaunchResource)+          Core.mempty
+ gen/Gogol/Dataflow/Projects/WorkerMessages.hs view
@@ -0,0 +1,118 @@+{-# LANGUAGE DataKinds #-}+{-# LANGUAGE DerivingStrategies #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE ImportQualifiedPost #-}+{-# LANGUAGE LambdaCase #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TypeFamilies #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-duplicate-exports #-}+{-# OPTIONS_GHC -fno-warn-name-shadowing #-}+{-# OPTIONS_GHC -fno-warn-unused-binds #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- |+-- Module      : Gogol.Dataflow.Projects.WorkerMessages+-- Copyright   : (c) 2015-2025 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay <brendan.g.hay+gogol@gmail.com>+--               Toni Cebrián <toni@tonicebrian.com>+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Send a worker_message to the service.+--+-- /See:/ <https://cloud.google.com/dataflow Dataflow API Reference> for @dataflow.projects.workerMessages@.+module Gogol.Dataflow.Projects.WorkerMessages+  ( -- * Resource+    DataflowProjectsWorkerMessagesResource,++    -- ** Constructing a Request+    DataflowProjectsWorkerMessages (..),+    newDataflowProjectsWorkerMessages,+  )+where++import Gogol.Dataflow.Types+import Gogol.Prelude qualified as Core++-- | A resource alias for @dataflow.projects.workerMessages@ method which the+-- 'DataflowProjectsWorkerMessages' request conforms to.+type DataflowProjectsWorkerMessagesResource =+  "v1b3"+    Core.:> "projects"+    Core.:> Core.Capture "projectId" Core.Text+    Core.:> "WorkerMessages"+    Core.:> Core.QueryParam "$.xgafv" Xgafv+    Core.:> Core.QueryParam "access_token" Core.Text+    Core.:> Core.QueryParam "callback" Core.Text+    Core.:> Core.QueryParam "uploadType" Core.Text+    Core.:> Core.QueryParam "upload_protocol" Core.Text+    Core.:> Core.QueryParam "alt" Core.AltJSON+    Core.:> Core.ReqBody '[Core.JSON] SendWorkerMessagesRequest+    Core.:> Core.Post '[Core.JSON] SendWorkerMessagesResponse++-- | Send a worker_message to the service.+--+-- /See:/ 'newDataflowProjectsWorkerMessages' smart constructor.+data DataflowProjectsWorkerMessages = DataflowProjectsWorkerMessages+  { -- | V1 error format.+    xgafv :: (Core.Maybe Xgafv),+    -- | OAuth access token.+    accessToken :: (Core.Maybe Core.Text),+    -- | JSONP+    callback :: (Core.Maybe Core.Text),+    -- | Multipart request metadata.+    payload :: SendWorkerMessagesRequest,+    -- | The project to send the WorkerMessages to.+    projectId :: Core.Text,+    -- | Legacy upload protocol for media (e.g. \"media\", \"multipart\").+    uploadType :: (Core.Maybe Core.Text),+    -- | Upload protocol for media (e.g. \"raw\", \"multipart\").+    uploadProtocol :: (Core.Maybe Core.Text)+  }+  deriving (Core.Eq, Core.Show, Core.Generic)++-- | Creates a value of 'DataflowProjectsWorkerMessages' with the minimum fields required to make a request.+newDataflowProjectsWorkerMessages ::+  -- |  Multipart request metadata. See 'payload'.+  SendWorkerMessagesRequest ->+  -- |  The project to send the WorkerMessages to. See 'projectId'.+  Core.Text ->+  DataflowProjectsWorkerMessages+newDataflowProjectsWorkerMessages payload projectId =+  DataflowProjectsWorkerMessages+    { xgafv = Core.Nothing,+      accessToken = Core.Nothing,+      callback = Core.Nothing,+      payload = payload,+      projectId = projectId,+      uploadType = Core.Nothing,+      uploadProtocol = Core.Nothing+    }++instance Core.GoogleRequest DataflowProjectsWorkerMessages where+  type Rs DataflowProjectsWorkerMessages = SendWorkerMessagesResponse+  type+    Scopes DataflowProjectsWorkerMessages =+      '[CloudPlatform'FullControl, Compute'FullControl]+  requestClient DataflowProjectsWorkerMessages {..} =+    go+      projectId+      xgafv+      accessToken+      callback+      uploadType+      uploadProtocol+      (Core.Just Core.AltJSON)+      payload+      dataflowService+    where+      go =+        Core.buildClient+          (Core.Proxy :: Core.Proxy DataflowProjectsWorkerMessagesResource)+          Core.mempty
+ gen/Gogol/Dataflow/Types.hs view
@@ -0,0 +1,1190 @@+{-# LANGUAGE DataKinds #-}+{-# LANGUAGE DerivingStrategies #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE ImportQualifiedPost #-}+{-# LANGUAGE LambdaCase #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TypeFamilies #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-duplicate-exports #-}+{-# OPTIONS_GHC -fno-warn-name-shadowing #-}+{-# OPTIONS_GHC -fno-warn-unused-binds #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- |+-- Module      : Gogol.Dataflow.Types+-- Copyright   : (c) 2015-2025 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay <brendan.g.hay+gogol@gmail.com>+--               Toni Cebrián <toni@tonicebrian.com>+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+module Gogol.Dataflow.Types+  ( -- * Configuration+    dataflowService,++    -- * OAuth Scopes+    CloudPlatform'FullControl,+    Compute'FullControl,++    -- * Types++    -- ** Xgafv+    Xgafv (..),++    -- ** ApproximateProgress+    ApproximateProgress (..),+    newApproximateProgress,++    -- ** ApproximateReportedProgress+    ApproximateReportedProgress (..),+    newApproximateReportedProgress,++    -- ** ApproximateSplitRequest+    ApproximateSplitRequest (..),+    newApproximateSplitRequest,++    -- ** AutoscalingEvent+    AutoscalingEvent (..),+    newAutoscalingEvent,++    -- ** AutoscalingEvent_EventType+    AutoscalingEvent_EventType (..),++    -- ** AutoscalingSettings+    AutoscalingSettings (..),+    newAutoscalingSettings,++    -- ** AutoscalingSettings_Algorithm+    AutoscalingSettings_Algorithm (..),++    -- ** Base2Exponent+    Base2Exponent (..),+    newBase2Exponent,++    -- ** BigQueryIODetails+    BigQueryIODetails (..),+    newBigQueryIODetails,++    -- ** BigTableIODetails+    BigTableIODetails (..),+    newBigTableIODetails,++    -- ** BoundedTrie+    BoundedTrie (..),+    newBoundedTrie,++    -- ** BoundedTrieNode+    BoundedTrieNode (..),+    newBoundedTrieNode,++    -- ** BoundedTrieNode_Children+    BoundedTrieNode_Children (..),+    newBoundedTrieNode_Children,++    -- ** BucketOptions+    BucketOptions (..),+    newBucketOptions,++    -- ** CPUTime+    CPUTime (..),+    newCPUTime,++    -- ** ComponentSource+    ComponentSource (..),+    newComponentSource,++    -- ** ComponentTransform+    ComponentTransform (..),+    newComponentTransform,++    -- ** ComputationTopology+    ComputationTopology (..),+    newComputationTopology,++    -- ** ConcatPosition+    ConcatPosition (..),+    newConcatPosition,++    -- ** ContainerSpec+    ContainerSpec (..),+    newContainerSpec,++    -- ** CounterMetadata+    CounterMetadata (..),+    newCounterMetadata,++    -- ** CounterMetadata_Kind+    CounterMetadata_Kind (..),++    -- ** CounterMetadata_StandardUnits+    CounterMetadata_StandardUnits (..),++    -- ** CounterStructuredName+    CounterStructuredName (..),+    newCounterStructuredName,++    -- ** CounterStructuredName_Origin+    CounterStructuredName_Origin (..),++    -- ** CounterStructuredName_Portion+    CounterStructuredName_Portion (..),++    -- ** CounterStructuredNameAndMetadata+    CounterStructuredNameAndMetadata (..),+    newCounterStructuredNameAndMetadata,++    -- ** CounterUpdate+    CounterUpdate (..),+    newCounterUpdate,++    -- ** CreateJobFromTemplateRequest+    CreateJobFromTemplateRequest (..),+    newCreateJobFromTemplateRequest,++    -- ** CreateJobFromTemplateRequest_Parameters+    CreateJobFromTemplateRequest_Parameters (..),+    newCreateJobFromTemplateRequest_Parameters,++    -- ** CustomSourceLocation+    CustomSourceLocation (..),+    newCustomSourceLocation,++    -- ** DataDiskAssignment+    DataDiskAssignment (..),+    newDataDiskAssignment,++    -- ** DataSamplingConfig+    DataSamplingConfig (..),+    newDataSamplingConfig,++    -- ** DataSamplingConfig_BehaviorsItem+    DataSamplingConfig_BehaviorsItem (..),++    -- ** DataSamplingReport+    DataSamplingReport (..),+    newDataSamplingReport,++    -- ** DataflowGaugeValue+    DataflowGaugeValue (..),+    newDataflowGaugeValue,++    -- ** DataflowHistogramValue+    DataflowHistogramValue (..),+    newDataflowHistogramValue,++    -- ** DatastoreIODetails+    DatastoreIODetails (..),+    newDatastoreIODetails,++    -- ** DebugOptions+    DebugOptions (..),+    newDebugOptions,++    -- ** DeleteSnapshotResponse+    DeleteSnapshotResponse (..),+    newDeleteSnapshotResponse,++    -- ** DerivedSource+    DerivedSource (..),+    newDerivedSource,++    -- ** DerivedSource_DerivationMode+    DerivedSource_DerivationMode (..),++    -- ** Disk+    Disk (..),+    newDisk,++    -- ** DisplayData+    DisplayData (..),+    newDisplayData,++    -- ** DistributionUpdate+    DistributionUpdate (..),+    newDistributionUpdate,++    -- ** DynamicSourceSplit+    DynamicSourceSplit (..),+    newDynamicSourceSplit,++    -- ** Environment+    Environment (..),+    newEnvironment,++    -- ** Environment_FlexResourceSchedulingGoal+    Environment_FlexResourceSchedulingGoal (..),++    -- ** Environment_InternalExperiments+    Environment_InternalExperiments (..),+    newEnvironment_InternalExperiments,++    -- ** Environment_SdkPipelineOptions+    Environment_SdkPipelineOptions (..),+    newEnvironment_SdkPipelineOptions,++    -- ** Environment_ShuffleMode+    Environment_ShuffleMode (..),++    -- ** Environment_StreamingMode+    Environment_StreamingMode (..),++    -- ** Environment_UserAgent+    Environment_UserAgent (..),+    newEnvironment_UserAgent,++    -- ** Environment_Version+    Environment_Version (..),+    newEnvironment_Version,++    -- ** ExecutionStageState+    ExecutionStageState (..),+    newExecutionStageState,++    -- ** ExecutionStageState_ExecutionStageState+    ExecutionStageState_ExecutionStageState (..),++    -- ** ExecutionStageSummary+    ExecutionStageSummary (..),+    newExecutionStageSummary,++    -- ** ExecutionStageSummary_Kind+    ExecutionStageSummary_Kind (..),++    -- ** FailedLocation+    FailedLocation (..),+    newFailedLocation,++    -- ** FileIODetails+    FileIODetails (..),+    newFileIODetails,++    -- ** FlattenInstruction+    FlattenInstruction (..),+    newFlattenInstruction,++    -- ** FlexTemplateRuntimeEnvironment+    FlexTemplateRuntimeEnvironment (..),+    newFlexTemplateRuntimeEnvironment,++    -- ** FlexTemplateRuntimeEnvironment_AdditionalUserLabels+    FlexTemplateRuntimeEnvironment_AdditionalUserLabels (..),+    newFlexTemplateRuntimeEnvironment_AdditionalUserLabels,++    -- ** FlexTemplateRuntimeEnvironment_AutoscalingAlgorithm+    FlexTemplateRuntimeEnvironment_AutoscalingAlgorithm (..),++    -- ** FlexTemplateRuntimeEnvironment_FlexrsGoal+    FlexTemplateRuntimeEnvironment_FlexrsGoal (..),++    -- ** FlexTemplateRuntimeEnvironment_IpConfiguration+    FlexTemplateRuntimeEnvironment_IpConfiguration (..),++    -- ** FlexTemplateRuntimeEnvironment_StreamingMode+    FlexTemplateRuntimeEnvironment_StreamingMode (..),++    -- ** FloatingPointList+    FloatingPointList (..),+    newFloatingPointList,++    -- ** FloatingPointMean+    FloatingPointMean (..),+    newFloatingPointMean,++    -- ** GPUUsage+    GPUUsage (..),+    newGPUUsage,++    -- ** GPUUtilization+    GPUUtilization (..),+    newGPUUtilization,++    -- ** GetDebugConfigRequest+    GetDebugConfigRequest (..),+    newGetDebugConfigRequest,++    -- ** GetDebugConfigResponse+    GetDebugConfigResponse (..),+    newGetDebugConfigResponse,++    -- ** GetTemplateResponse+    GetTemplateResponse (..),+    newGetTemplateResponse,++    -- ** GetTemplateResponse_TemplateType+    GetTemplateResponse_TemplateType (..),++    -- ** Histogram+    Histogram (..),+    newHistogram,++    -- ** HotKeyDebuggingInfo+    HotKeyDebuggingInfo (..),+    newHotKeyDebuggingInfo,++    -- ** HotKeyDebuggingInfo_DetectedHotKeys+    HotKeyDebuggingInfo_DetectedHotKeys (..),+    newHotKeyDebuggingInfo_DetectedHotKeys,++    -- ** HotKeyDetection+    HotKeyDetection (..),+    newHotKeyDetection,++    -- ** HotKeyInfo+    HotKeyInfo (..),+    newHotKeyInfo,++    -- ** InstructionInput+    InstructionInput (..),+    newInstructionInput,++    -- ** InstructionOutput+    InstructionOutput (..),+    newInstructionOutput,++    -- ** InstructionOutput_Codec+    InstructionOutput_Codec (..),+    newInstructionOutput_Codec,++    -- ** IntegerGauge+    IntegerGauge (..),+    newIntegerGauge,++    -- ** IntegerList+    IntegerList (..),+    newIntegerList,++    -- ** IntegerMean+    IntegerMean (..),+    newIntegerMean,++    -- ** Job+    Job (..),+    newJob,++    -- ** Job_CurrentState+    Job_CurrentState (..),++    -- ** Job_Labels+    Job_Labels (..),+    newJob_Labels,++    -- ** Job_RequestedState+    Job_RequestedState (..),++    -- ** Job_TransformNameMapping+    Job_TransformNameMapping (..),+    newJob_TransformNameMapping,++    -- ** Job_Type+    Job_Type (..),++    -- ** JobExecutionDetails+    JobExecutionDetails (..),+    newJobExecutionDetails,++    -- ** JobExecutionInfo+    JobExecutionInfo (..),+    newJobExecutionInfo,++    -- ** JobExecutionInfo_Stages+    JobExecutionInfo_Stages (..),+    newJobExecutionInfo_Stages,++    -- ** JobExecutionStageInfo+    JobExecutionStageInfo (..),+    newJobExecutionStageInfo,++    -- ** JobMessage+    JobMessage (..),+    newJobMessage,++    -- ** JobMessage_MessageImportance+    JobMessage_MessageImportance (..),++    -- ** JobMetadata+    JobMetadata (..),+    newJobMetadata,++    -- ** JobMetadata_UserDisplayProperties+    JobMetadata_UserDisplayProperties (..),+    newJobMetadata_UserDisplayProperties,++    -- ** JobMetrics+    JobMetrics (..),+    newJobMetrics,++    -- ** KeyRangeDataDiskAssignment+    KeyRangeDataDiskAssignment (..),+    newKeyRangeDataDiskAssignment,++    -- ** KeyRangeLocation+    KeyRangeLocation (..),+    newKeyRangeLocation,++    -- ** LaunchFlexTemplateParameter+    LaunchFlexTemplateParameter (..),+    newLaunchFlexTemplateParameter,++    -- ** LaunchFlexTemplateParameter_LaunchOptions+    LaunchFlexTemplateParameter_LaunchOptions (..),+    newLaunchFlexTemplateParameter_LaunchOptions,++    -- ** LaunchFlexTemplateParameter_Parameters+    LaunchFlexTemplateParameter_Parameters (..),+    newLaunchFlexTemplateParameter_Parameters,++    -- ** LaunchFlexTemplateParameter_TransformNameMappings+    LaunchFlexTemplateParameter_TransformNameMappings (..),+    newLaunchFlexTemplateParameter_TransformNameMappings,++    -- ** LaunchFlexTemplateRequest+    LaunchFlexTemplateRequest (..),+    newLaunchFlexTemplateRequest,++    -- ** LaunchFlexTemplateResponse+    LaunchFlexTemplateResponse (..),+    newLaunchFlexTemplateResponse,++    -- ** LaunchTemplateParameters+    LaunchTemplateParameters (..),+    newLaunchTemplateParameters,++    -- ** LaunchTemplateParameters_Parameters+    LaunchTemplateParameters_Parameters (..),+    newLaunchTemplateParameters_Parameters,++    -- ** LaunchTemplateParameters_TransformNameMapping+    LaunchTemplateParameters_TransformNameMapping (..),+    newLaunchTemplateParameters_TransformNameMapping,++    -- ** LaunchTemplateResponse+    LaunchTemplateResponse (..),+    newLaunchTemplateResponse,++    -- ** LeaseWorkItemRequest+    LeaseWorkItemRequest (..),+    newLeaseWorkItemRequest,++    -- ** LeaseWorkItemRequest_UnifiedWorkerRequest+    LeaseWorkItemRequest_UnifiedWorkerRequest (..),+    newLeaseWorkItemRequest_UnifiedWorkerRequest,++    -- ** LeaseWorkItemResponse+    LeaseWorkItemResponse (..),+    newLeaseWorkItemResponse,++    -- ** LeaseWorkItemResponse_UnifiedWorkerResponse+    LeaseWorkItemResponse_UnifiedWorkerResponse (..),+    newLeaseWorkItemResponse_UnifiedWorkerResponse,++    -- ** Linear+    Linear (..),+    newLinear,++    -- ** ListJobMessagesResponse+    ListJobMessagesResponse (..),+    newListJobMessagesResponse,++    -- ** ListJobsResponse+    ListJobsResponse (..),+    newListJobsResponse,++    -- ** ListSnapshotsResponse+    ListSnapshotsResponse (..),+    newListSnapshotsResponse,++    -- ** MapTask+    MapTask (..),+    newMapTask,++    -- ** MemInfo+    MemInfo (..),+    newMemInfo,++    -- ** MetricShortId+    MetricShortId (..),+    newMetricShortId,++    -- ** MetricStructuredName+    MetricStructuredName (..),+    newMetricStructuredName,++    -- ** MetricStructuredName_Context+    MetricStructuredName_Context (..),+    newMetricStructuredName_Context,++    -- ** MetricUpdate+    MetricUpdate (..),+    newMetricUpdate,++    -- ** MetricValue+    MetricValue (..),+    newMetricValue,++    -- ** MetricValue_MetricLabels+    MetricValue_MetricLabels (..),+    newMetricValue_MetricLabels,++    -- ** MountedDataDisk+    MountedDataDisk (..),+    newMountedDataDisk,++    -- ** MultiOutputInfo+    MultiOutputInfo (..),+    newMultiOutputInfo,++    -- ** NameAndKind+    NameAndKind (..),+    newNameAndKind,++    -- ** NameAndKind_Kind+    NameAndKind_Kind (..),++    -- ** OutlierStats+    OutlierStats (..),+    newOutlierStats,++    -- ** Package+    Package (..),+    newPackage,++    -- ** ParDoInstruction+    ParDoInstruction (..),+    newParDoInstruction,++    -- ** ParDoInstruction_UserFn+    ParDoInstruction_UserFn (..),+    newParDoInstruction_UserFn,++    -- ** ParallelInstruction+    ParallelInstruction (..),+    newParallelInstruction,++    -- ** Parameter+    Parameter (..),+    newParameter,++    -- ** ParameterMetadata+    ParameterMetadata (..),+    newParameterMetadata,++    -- ** ParameterMetadata_CustomMetadata+    ParameterMetadata_CustomMetadata (..),+    newParameterMetadata_CustomMetadata,++    -- ** ParameterMetadata_ParamType+    ParameterMetadata_ParamType (..),++    -- ** ParameterMetadataEnumOption+    ParameterMetadataEnumOption (..),+    newParameterMetadataEnumOption,++    -- ** PartialGroupByKeyInstruction+    PartialGroupByKeyInstruction (..),+    newPartialGroupByKeyInstruction,++    -- ** PartialGroupByKeyInstruction_InputElementCodec+    PartialGroupByKeyInstruction_InputElementCodec (..),+    newPartialGroupByKeyInstruction_InputElementCodec,++    -- ** PartialGroupByKeyInstruction_ValueCombiningFn+    PartialGroupByKeyInstruction_ValueCombiningFn (..),+    newPartialGroupByKeyInstruction_ValueCombiningFn,++    -- ** PerStepNamespaceMetrics+    PerStepNamespaceMetrics (..),+    newPerStepNamespaceMetrics,++    -- ** PerWorkerMetrics+    PerWorkerMetrics (..),+    newPerWorkerMetrics,++    -- ** PipelineDescription+    PipelineDescription (..),+    newPipelineDescription,++    -- ** Point+    Point (..),+    newPoint,++    -- ** Position+    Position (..),+    newPosition,++    -- ** ProgressTimeseries+    ProgressTimeseries (..),+    newProgressTimeseries,++    -- ** PubSubIODetails+    PubSubIODetails (..),+    newPubSubIODetails,++    -- ** PubsubLocation+    PubsubLocation (..),+    newPubsubLocation,++    -- ** PubsubSnapshotMetadata+    PubsubSnapshotMetadata (..),+    newPubsubSnapshotMetadata,++    -- ** ReadInstruction+    ReadInstruction (..),+    newReadInstruction,++    -- ** ReportWorkItemStatusRequest+    ReportWorkItemStatusRequest (..),+    newReportWorkItemStatusRequest,++    -- ** ReportWorkItemStatusRequest_UnifiedWorkerRequest+    ReportWorkItemStatusRequest_UnifiedWorkerRequest (..),+    newReportWorkItemStatusRequest_UnifiedWorkerRequest,++    -- ** ReportWorkItemStatusResponse+    ReportWorkItemStatusResponse (..),+    newReportWorkItemStatusResponse,++    -- ** ReportWorkItemStatusResponse_UnifiedWorkerResponse+    ReportWorkItemStatusResponse_UnifiedWorkerResponse (..),+    newReportWorkItemStatusResponse_UnifiedWorkerResponse,++    -- ** ReportedParallelism+    ReportedParallelism (..),+    newReportedParallelism,++    -- ** ResourceUtilizationReport+    ResourceUtilizationReport (..),+    newResourceUtilizationReport,++    -- ** ResourceUtilizationReport_Containers+    ResourceUtilizationReport_Containers (..),+    newResourceUtilizationReport_Containers,++    -- ** ResourceUtilizationReportResponse+    ResourceUtilizationReportResponse (..),+    newResourceUtilizationReportResponse,++    -- ** RuntimeEnvironment+    RuntimeEnvironment (..),+    newRuntimeEnvironment,++    -- ** RuntimeEnvironment_AdditionalUserLabels+    RuntimeEnvironment_AdditionalUserLabels (..),+    newRuntimeEnvironment_AdditionalUserLabels,++    -- ** RuntimeEnvironment_IpConfiguration+    RuntimeEnvironment_IpConfiguration (..),++    -- ** RuntimeEnvironment_StreamingMode+    RuntimeEnvironment_StreamingMode (..),++    -- ** RuntimeMetadata+    RuntimeMetadata (..),+    newRuntimeMetadata,++    -- ** RuntimeUpdatableParams+    RuntimeUpdatableParams (..),+    newRuntimeUpdatableParams,++    -- ** SDKInfo+    SDKInfo (..),+    newSDKInfo,++    -- ** SDKInfo_Language+    SDKInfo_Language (..),++    -- ** SdkBug+    SdkBug (..),+    newSdkBug,++    -- ** SdkBug_Severity+    SdkBug_Severity (..),++    -- ** SdkBug_Type+    SdkBug_Type (..),++    -- ** SdkHarnessContainerImage+    SdkHarnessContainerImage (..),+    newSdkHarnessContainerImage,++    -- ** SdkVersion+    SdkVersion (..),+    newSdkVersion,++    -- ** SdkVersion_SdkSupportStatus+    SdkVersion_SdkSupportStatus (..),++    -- ** SendDebugCaptureRequest+    SendDebugCaptureRequest (..),+    newSendDebugCaptureRequest,++    -- ** SendDebugCaptureRequest_DataFormat+    SendDebugCaptureRequest_DataFormat (..),++    -- ** SendDebugCaptureResponse+    SendDebugCaptureResponse (..),+    newSendDebugCaptureResponse,++    -- ** SendWorkerMessagesRequest+    SendWorkerMessagesRequest (..),+    newSendWorkerMessagesRequest,++    -- ** SendWorkerMessagesResponse+    SendWorkerMessagesResponse (..),+    newSendWorkerMessagesResponse,++    -- ** SeqMapTask+    SeqMapTask (..),+    newSeqMapTask,++    -- ** SeqMapTask_UserFn+    SeqMapTask_UserFn (..),+    newSeqMapTask_UserFn,++    -- ** SeqMapTaskOutputInfo+    SeqMapTaskOutputInfo (..),+    newSeqMapTaskOutputInfo,++    -- ** ServiceResources+    ServiceResources (..),+    newServiceResources,++    -- ** ShellTask+    ShellTask (..),+    newShellTask,++    -- ** SideInputInfo+    SideInputInfo (..),+    newSideInputInfo,++    -- ** SideInputInfo_Kind+    SideInputInfo_Kind (..),+    newSideInputInfo_Kind,++    -- ** Sink+    Sink (..),+    newSink,++    -- ** Sink_Codec+    Sink_Codec (..),+    newSink_Codec,++    -- ** Sink_Spec+    Sink_Spec (..),+    newSink_Spec,++    -- ** Snapshot+    Snapshot (..),+    newSnapshot,++    -- ** Snapshot_State+    Snapshot_State (..),++    -- ** SnapshotJobRequest+    SnapshotJobRequest (..),+    newSnapshotJobRequest,++    -- ** Source+    Source (..),+    newSource,++    -- ** Source_BaseSpecsItem+    Source_BaseSpecsItem (..),+    newSource_BaseSpecsItem,++    -- ** Source_Codec+    Source_Codec (..),+    newSource_Codec,++    -- ** Source_Spec+    Source_Spec (..),+    newSource_Spec,++    -- ** SourceFork+    SourceFork (..),+    newSourceFork,++    -- ** SourceGetMetadataRequest+    SourceGetMetadataRequest (..),+    newSourceGetMetadataRequest,++    -- ** SourceGetMetadataResponse+    SourceGetMetadataResponse (..),+    newSourceGetMetadataResponse,++    -- ** SourceMetadata+    SourceMetadata (..),+    newSourceMetadata,++    -- ** SourceOperationRequest+    SourceOperationRequest (..),+    newSourceOperationRequest,++    -- ** SourceOperationResponse+    SourceOperationResponse (..),+    newSourceOperationResponse,++    -- ** SourceSplitOptions+    SourceSplitOptions (..),+    newSourceSplitOptions,++    -- ** SourceSplitRequest+    SourceSplitRequest (..),+    newSourceSplitRequest,++    -- ** SourceSplitResponse+    SourceSplitResponse (..),+    newSourceSplitResponse,++    -- ** SourceSplitResponse_Outcome+    SourceSplitResponse_Outcome (..),++    -- ** SourceSplitShard+    SourceSplitShard (..),+    newSourceSplitShard,++    -- ** SourceSplitShard_DerivationMode+    SourceSplitShard_DerivationMode (..),++    -- ** SpannerIODetails+    SpannerIODetails (..),+    newSpannerIODetails,++    -- ** SplitInt64+    SplitInt64 (..),+    newSplitInt64,++    -- ** StageExecutionDetails+    StageExecutionDetails (..),+    newStageExecutionDetails,++    -- ** StageSource+    StageSource (..),+    newStageSource,++    -- ** StageSummary+    StageSummary (..),+    newStageSummary,++    -- ** StageSummary_State+    StageSummary_State (..),++    -- ** StateFamilyConfig+    StateFamilyConfig (..),+    newStateFamilyConfig,++    -- ** Status+    Status (..),+    newStatus,++    -- ** Status_DetailsItem+    Status_DetailsItem (..),+    newStatus_DetailsItem,++    -- ** Step+    Step (..),+    newStep,++    -- ** Step_Properties+    Step_Properties (..),+    newStep_Properties,++    -- ** Straggler+    Straggler (..),+    newStraggler,++    -- ** StragglerDebuggingInfo+    StragglerDebuggingInfo (..),+    newStragglerDebuggingInfo,++    -- ** StragglerInfo+    StragglerInfo (..),+    newStragglerInfo,++    -- ** StragglerInfo_Causes+    StragglerInfo_Causes (..),+    newStragglerInfo_Causes,++    -- ** StragglerSummary+    StragglerSummary (..),+    newStragglerSummary,++    -- ** StragglerSummary_StragglerCauseCount+    StragglerSummary_StragglerCauseCount (..),+    newStragglerSummary_StragglerCauseCount,++    -- ** StreamLocation+    StreamLocation (..),+    newStreamLocation,++    -- ** StreamingApplianceSnapshotConfig+    StreamingApplianceSnapshotConfig (..),+    newStreamingApplianceSnapshotConfig,++    -- ** StreamingComputationConfig+    StreamingComputationConfig (..),+    newStreamingComputationConfig,++    -- ** StreamingComputationConfig_TransformUserNameToStateFamily+    StreamingComputationConfig_TransformUserNameToStateFamily (..),+    newStreamingComputationConfig_TransformUserNameToStateFamily,++    -- ** StreamingComputationRanges+    StreamingComputationRanges (..),+    newStreamingComputationRanges,++    -- ** StreamingComputationTask+    StreamingComputationTask (..),+    newStreamingComputationTask,++    -- ** StreamingComputationTask_TaskType+    StreamingComputationTask_TaskType (..),++    -- ** StreamingConfigTask+    StreamingConfigTask (..),+    newStreamingConfigTask,++    -- ** StreamingConfigTask_UserStepToStateFamilyNameMap+    StreamingConfigTask_UserStepToStateFamilyNameMap (..),+    newStreamingConfigTask_UserStepToStateFamilyNameMap,++    -- ** StreamingOperationalLimits+    StreamingOperationalLimits (..),+    newStreamingOperationalLimits,++    -- ** StreamingScalingReport+    StreamingScalingReport (..),+    newStreamingScalingReport,++    -- ** StreamingScalingReportResponse+    StreamingScalingReportResponse (..),+    newStreamingScalingReportResponse,++    -- ** StreamingSetupTask+    StreamingSetupTask (..),+    newStreamingSetupTask,++    -- ** StreamingSideInputLocation+    StreamingSideInputLocation (..),+    newStreamingSideInputLocation,++    -- ** StreamingStageLocation+    StreamingStageLocation (..),+    newStreamingStageLocation,++    -- ** StreamingStragglerInfo+    StreamingStragglerInfo (..),+    newStreamingStragglerInfo,++    -- ** StringList+    StringList (..),+    newStringList,++    -- ** StructuredMessage+    StructuredMessage (..),+    newStructuredMessage,++    -- ** TaskRunnerSettings+    TaskRunnerSettings (..),+    newTaskRunnerSettings,++    -- ** TemplateMetadata+    TemplateMetadata (..),+    newTemplateMetadata,++    -- ** TopologyConfig+    TopologyConfig (..),+    newTopologyConfig,++    -- ** TopologyConfig_UserStageToComputationNameMap+    TopologyConfig_UserStageToComputationNameMap (..),+    newTopologyConfig_UserStageToComputationNameMap,++    -- ** TransformSummary+    TransformSummary (..),+    newTransformSummary,++    -- ** TransformSummary_Kind+    TransformSummary_Kind (..),++    -- ** WorkItem+    WorkItem (..),+    newWorkItem,++    -- ** WorkItemDetails+    WorkItemDetails (..),+    newWorkItemDetails,++    -- ** WorkItemDetails_State+    WorkItemDetails_State (..),++    -- ** WorkItemServiceState+    WorkItemServiceState (..),+    newWorkItemServiceState,++    -- ** WorkItemServiceState_HarnessData+    WorkItemServiceState_HarnessData (..),+    newWorkItemServiceState_HarnessData,++    -- ** WorkItemStatus+    WorkItemStatus (..),+    newWorkItemStatus,++    -- ** WorkerDetails+    WorkerDetails (..),+    newWorkerDetails,++    -- ** WorkerHealthReport+    WorkerHealthReport (..),+    newWorkerHealthReport,++    -- ** WorkerHealthReport_PodsItem+    WorkerHealthReport_PodsItem (..),+    newWorkerHealthReport_PodsItem,++    -- ** WorkerHealthReportResponse+    WorkerHealthReportResponse (..),+    newWorkerHealthReportResponse,++    -- ** WorkerLifecycleEvent+    WorkerLifecycleEvent (..),+    newWorkerLifecycleEvent,++    -- ** WorkerLifecycleEvent_Event+    WorkerLifecycleEvent_Event (..),++    -- ** WorkerLifecycleEvent_Metadata+    WorkerLifecycleEvent_Metadata (..),+    newWorkerLifecycleEvent_Metadata,++    -- ** WorkerMessage+    WorkerMessage (..),+    newWorkerMessage,++    -- ** WorkerMessage_Labels+    WorkerMessage_Labels (..),+    newWorkerMessage_Labels,++    -- ** WorkerMessageCode+    WorkerMessageCode (..),+    newWorkerMessageCode,++    -- ** WorkerMessageCode_Parameters+    WorkerMessageCode_Parameters (..),+    newWorkerMessageCode_Parameters,++    -- ** WorkerMessageResponse+    WorkerMessageResponse (..),+    newWorkerMessageResponse,++    -- ** WorkerPool+    WorkerPool (..),+    newWorkerPool,++    -- ** WorkerPool_DefaultPackageSet+    WorkerPool_DefaultPackageSet (..),++    -- ** WorkerPool_IpConfiguration+    WorkerPool_IpConfiguration (..),++    -- ** WorkerPool_Metadata+    WorkerPool_Metadata (..),+    newWorkerPool_Metadata,++    -- ** WorkerPool_PoolArgs+    WorkerPool_PoolArgs (..),+    newWorkerPool_PoolArgs,++    -- ** WorkerPool_TeardownPolicy+    WorkerPool_TeardownPolicy (..),++    -- ** WorkerSettings+    WorkerSettings (..),+    newWorkerSettings,++    -- ** WorkerShutdownNotice+    WorkerShutdownNotice (..),+    newWorkerShutdownNotice,++    -- ** WorkerShutdownNoticeResponse+    WorkerShutdownNoticeResponse (..),+    newWorkerShutdownNoticeResponse,++    -- ** WorkerThreadScalingReport+    WorkerThreadScalingReport (..),+    newWorkerThreadScalingReport,++    -- ** WorkerThreadScalingReportResponse+    WorkerThreadScalingReportResponse (..),+    newWorkerThreadScalingReportResponse,++    -- ** WriteInstruction+    WriteInstruction (..),+    newWriteInstruction,++    -- ** ProjectsJobsAggregatedFilter+    ProjectsJobsAggregatedFilter (..),++    -- ** ProjectsJobsAggregatedView+    ProjectsJobsAggregatedView (..),++    -- ** ProjectsJobsCreateView+    ProjectsJobsCreateView (..),++    -- ** ProjectsJobsGetView+    ProjectsJobsGetView (..),++    -- ** ProjectsJobsListFilter+    ProjectsJobsListFilter (..),++    -- ** ProjectsJobsListView+    ProjectsJobsListView (..),++    -- ** ProjectsJobsMessagesListMinimumImportance+    ProjectsJobsMessagesListMinimumImportance (..),++    -- ** ProjectsLocationsJobsCreateView+    ProjectsLocationsJobsCreateView (..),++    -- ** ProjectsLocationsJobsGetView+    ProjectsLocationsJobsGetView (..),++    -- ** ProjectsLocationsJobsListFilter+    ProjectsLocationsJobsListFilter (..),++    -- ** ProjectsLocationsJobsListView+    ProjectsLocationsJobsListView (..),++    -- ** ProjectsLocationsJobsMessagesListMinimumImportance+    ProjectsLocationsJobsMessagesListMinimumImportance (..),++    -- ** ProjectsLocationsTemplatesGetView+    ProjectsLocationsTemplatesGetView (..),++    -- ** ProjectsTemplatesGetView+    ProjectsTemplatesGetView (..),+  )+where++import Gogol.Dataflow.Internal.Product+import Gogol.Dataflow.Internal.Sum+import Gogol.Prelude qualified as Core++-- | Default request referring to version @v1b3@ of the Dataflow API. This contains the host and root path used as a starting point for constructing service requests.+dataflowService :: Core.ServiceConfig+dataflowService =+  Core.defaultService+    (Core.ServiceId "dataflow:v1b3")+    "dataflow.googleapis.com"++-- | See, edit, configure, and delete your Google Cloud data and see the email address for your Google Account.+type CloudPlatform'FullControl =+  "https://www.googleapis.com/auth/cloud-platform"++-- | View and manage your Google Compute Engine resources+type Compute'FullControl =+  "https://www.googleapis.com/auth/compute"
− gen/Network/Google/Dataflow.hs 
@@ -1,1617 +0,0 @@-{-# LANGUAGE DataKinds         #-}-{-# LANGUAGE NoImplicitPrelude #-}-{-# LANGUAGE TypeOperators     #-}--{-# OPTIONS_GHC -fno-warn-unused-imports    #-}-{-# OPTIONS_GHC -fno-warn-duplicate-exports #-}---- |--- Module      : Network.Google.Dataflow--- 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)------ Manages Google Cloud Dataflow projects on Google Cloud Platform.------ /See:/ <https://cloud.google.com/dataflow Dataflow API Reference>-module Network.Google.Dataflow-    (-    -- * Service Configuration-      dataflowService--    -- * OAuth Scopes-    , computeScope-    , userInfoEmailScope-    , cloudPlatformScope-    , computeReadOnlyScope--    -- * API Declaration-    , DataflowAPI--    -- * Resources--    -- ** dataflow.projects.deleteSnapshots-    , module Network.Google.Resource.Dataflow.Projects.DeleteSnapshots--    -- ** dataflow.projects.jobs.aggregated-    , module Network.Google.Resource.Dataflow.Projects.Jobs.Aggregated--    -- ** dataflow.projects.jobs.create-    , module Network.Google.Resource.Dataflow.Projects.Jobs.Create--    -- ** dataflow.projects.jobs.debug.getConfig-    , module Network.Google.Resource.Dataflow.Projects.Jobs.Debug.GetConfig--    -- ** dataflow.projects.jobs.debug.sendCapture-    , module Network.Google.Resource.Dataflow.Projects.Jobs.Debug.SendCapture--    -- ** dataflow.projects.jobs.get-    , module Network.Google.Resource.Dataflow.Projects.Jobs.Get--    -- ** dataflow.projects.jobs.getMetrics-    , module Network.Google.Resource.Dataflow.Projects.Jobs.GetMetrics--    -- ** dataflow.projects.jobs.list-    , module Network.Google.Resource.Dataflow.Projects.Jobs.List--    -- ** dataflow.projects.jobs.messages.list-    , module Network.Google.Resource.Dataflow.Projects.Jobs.Messages.List--    -- ** dataflow.projects.jobs.snapshot-    , module Network.Google.Resource.Dataflow.Projects.Jobs.Snapshot--    -- ** dataflow.projects.jobs.update-    , module Network.Google.Resource.Dataflow.Projects.Jobs.Update--    -- ** dataflow.projects.jobs.workItems.lease-    , module Network.Google.Resource.Dataflow.Projects.Jobs.WorkItems.Lease--    -- ** dataflow.projects.jobs.workItems.reportStatus-    , module Network.Google.Resource.Dataflow.Projects.Jobs.WorkItems.ReportStatus--    -- ** dataflow.projects.locations.jobs.create-    , module Network.Google.Resource.Dataflow.Projects.Locations.Jobs.Create--    -- ** dataflow.projects.locations.jobs.debug.getConfig-    , module Network.Google.Resource.Dataflow.Projects.Locations.Jobs.Debug.GetConfig--    -- ** dataflow.projects.locations.jobs.debug.sendCapture-    , module Network.Google.Resource.Dataflow.Projects.Locations.Jobs.Debug.SendCapture--    -- ** dataflow.projects.locations.jobs.get-    , module Network.Google.Resource.Dataflow.Projects.Locations.Jobs.Get--    -- ** dataflow.projects.locations.jobs.getMetrics-    , module Network.Google.Resource.Dataflow.Projects.Locations.Jobs.GetMetrics--    -- ** dataflow.projects.locations.jobs.list-    , module Network.Google.Resource.Dataflow.Projects.Locations.Jobs.List--    -- ** dataflow.projects.locations.jobs.messages.list-    , module Network.Google.Resource.Dataflow.Projects.Locations.Jobs.Messages.List--    -- ** dataflow.projects.locations.jobs.snapshot-    , module Network.Google.Resource.Dataflow.Projects.Locations.Jobs.Snapshot--    -- ** dataflow.projects.locations.jobs.update-    , module Network.Google.Resource.Dataflow.Projects.Locations.Jobs.Update--    -- ** dataflow.projects.locations.jobs.workItems.lease-    , module Network.Google.Resource.Dataflow.Projects.Locations.Jobs.WorkItems.Lease--    -- ** 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--    -- ** dataflow.projects.locations.templates.get-    , module Network.Google.Resource.Dataflow.Projects.Locations.Templates.Get--    -- ** dataflow.projects.locations.templates.launch-    , module Network.Google.Resource.Dataflow.Projects.Locations.Templates.Launch--    -- ** 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--    -- ** dataflow.projects.templates.get-    , module Network.Google.Resource.Dataflow.Projects.Templates.Get--    -- ** dataflow.projects.templates.launch-    , module Network.Google.Resource.Dataflow.Projects.Templates.Launch--    -- ** dataflow.projects.workerMessages-    , module Network.Google.Resource.Dataflow.Projects.WorkerMessages--    -- * Types--    -- ** NameAndKindKind-    , NameAndKindKind (..)--    -- ** JobExecutionInfoStages-    , JobExecutionInfoStages-    , jobExecutionInfoStages-    , jeisAddtional--    -- ** ComputationTopology-    , ComputationTopology-    , computationTopology-    , ctStateFamilies-    , ctInputs-    , ctKeyRanges-    , ctOutputs-    , ctComputationId-    , ctSystemStageName--    -- ** SourceSplitResponse-    , SourceSplitResponse-    , sourceSplitResponse-    , ssrBundles-    , ssrShards-    , ssrOutcome--    -- ** ParameterMetadata-    , ParameterMetadata-    , parameterMetadata-    , pmHelpText-    , pmIsOptional-    , pmName-    , pmRegexes-    , pmLabel--    -- ** ReportWorkItemStatusRequestUnifiedWorkerRequest-    , ReportWorkItemStatusRequestUnifiedWorkerRequest-    , reportWorkItemStatusRequestUnifiedWorkerRequest-    , rwisruwrAddtional--    -- ** CreateJobFromTemplateRequest-    , CreateJobFromTemplateRequest-    , createJobFromTemplateRequest-    , cjftrLocation-    , cjftrEnvironment-    , cjftrJobName-    , cjftrGcsPath-    , cjftrParameters--    -- ** Status-    , Status-    , status-    , sDetails-    , sCode-    , sMessage--    -- ** NameAndKind-    , NameAndKind-    , nameAndKind-    , nakKind-    , nakName--    -- ** IntegerList-    , IntegerList-    , integerList-    , ilElements--    -- ** WorkItem-    , WorkItem-    , workItem-    , wiJobId-    , wiReportStatusInterval-    , wiShellTask-    , wiStreamingSetupTask-    , wiInitialReportIndex-    , wiMapTask-    , wiPackages-    , wiStreamingComputationTask-    , wiSourceOperationTask-    , wiId-    , wiProjectId-    , wiLeaseExpireTime-    , wiConfiguration-    , wiStreamingConfigTask-    , wiSeqMapTask--    -- ** WorkerHealthReport-    , WorkerHealthReport-    , workerHealthReport-    , whrVMIsHealthy-    , whrReportInterval-    , whrPods-    , whrVMStartupTime--    -- ** Snapshot-    , Snapshot-    , snapshot-    , sCreationTime-    , sTtl-    , sSourceJobId-    , sId-    , sProjectId--    -- ** SourceSplitOptions-    , SourceSplitOptions-    , sourceSplitOptions-    , ssoDesiredShardSizeBytes-    , ssoDesiredBundleSizeBytes--    -- ** WorkerPoolMetadata-    , WorkerPoolMetadata-    , workerPoolMetadata-    , wpmAddtional--    -- ** AutoscalingSettings-    , AutoscalingSettings-    , autoscalingSettings-    , asMaxNumWorkers-    , asAlgorithm--    -- ** JobExecutionStageInfo-    , JobExecutionStageInfo-    , jobExecutionStageInfo-    , jesiStepName--    -- ** InstructionOutput-    , InstructionOutput-    , instructionOutput-    , ioOnlyCountValueBytes-    , ioCodec-    , ioName-    , ioSystemName-    , ioOriginalName-    , ioOnlyCountKeyBytes--    -- ** IntegerGauge-    , IntegerGauge-    , integerGauge-    , igValue-    , igTimestamp--    -- ** LaunchTemplateParameters-    , LaunchTemplateParameters-    , launchTemplateParameters-    , ltpEnvironment-    , ltpJobName-    , ltpParameters--    -- ** ReportWorkItemStatusRequest-    , ReportWorkItemStatusRequest-    , reportWorkItemStatusRequest-    , rwisrCurrentWorkerTime-    , rwisrLocation-    , rwisrUnifiedWorkerRequest-    , rwisrWorkItemStatuses-    , rwisrWorkerId--    -- ** JobType-    , JobType (..)--    -- ** EnvironmentVersion-    , EnvironmentVersion-    , environmentVersion-    , evAddtional--    -- ** StreamingApplianceSnapshotConfig-    , StreamingApplianceSnapshotConfig-    , streamingApplianceSnapshotConfig-    , sascImportStateEndpoint-    , sascSnapshotId--    -- ** Sink-    , Sink-    , sink-    , sCodec-    , sSpec--    -- ** StringList-    , StringList-    , stringList-    , slElements--    -- ** WorkerHealthReportResponse-    , WorkerHealthReportResponse-    , workerHealthReportResponse-    , whrrReportInterval--    -- ** DisplayData-    , DisplayData-    , displayData-    , ddDurationValue-    , ddBoolValue-    , ddTimestampValue-    , ddURL-    , ddNamespace-    , ddJavaClassValue-    , ddShortStrValue-    , ddKey-    , ddInt64Value-    , ddFloatValue-    , ddStrValue-    , ddLabel--    -- ** SendDebugCaptureResponse-    , SendDebugCaptureResponse-    , sendDebugCaptureResponse--    -- ** StructuredMessage-    , StructuredMessage-    , structuredMessage-    , smMessageText-    , smMessageKey-    , smParameters--    -- ** JobLabels-    , JobLabels-    , jobLabels-    , jlAddtional--    -- ** MetricStructuredName-    , MetricStructuredName-    , metricStructuredName-    , msnOrigin-    , msnContext-    , msnName--    -- ** BigQueryIODetails-    , BigQueryIODetails-    , bigQueryIODetails-    , bqiodDataSet-    , bqiodQuery-    , bqiodProjectId-    , bqiodTable--    -- ** FileIODetails-    , FileIODetails-    , fileIODetails-    , fiodFilePattern--    -- ** WorkerPoolTeardownPolicy-    , WorkerPoolTeardownPolicy (..)--    -- ** CounterStructuredName-    , CounterStructuredName-    , counterStructuredName-    , csnOrigin-    , csnOriginNamespace-    , csnComponentStepName-    , csnPortion-    , csnOriginalStepName-    , csnName-    , csnExecutionStepName-    , csnOriginalRequestingStepName-    , csnInputIndex-    , csnWorkerId--    -- ** JobMetadata-    , JobMetadata-    , jobMetadata-    , jmSpannerDetails-    , jmBigTableDetails-    , jmSdkVersion-    , jmPubsubDetails-    , jmFileDetails-    , jmBigQueryDetails-    , jmDatastoreDetails--    -- ** ValidateResponse-    , ValidateResponse-    , validateResponse-    , vrErrorMessage--    -- ** GetTemplateResponse-    , GetTemplateResponse-    , getTemplateResponse-    , gtrStatus-    , gtrMetadata--    -- ** WriteInstruction-    , WriteInstruction-    , writeInstruction-    , wiSink-    , wiInput--    -- ** EnvironmentUserAgent-    , EnvironmentUserAgent-    , environmentUserAgent-    , euaAddtional--    -- ** Disk-    , Disk-    , disk-    , dSizeGb-    , dDiskType-    , dMountPoint--    -- ** EnvironmentFlexResourceSchedulingGoal-    , EnvironmentFlexResourceSchedulingGoal (..)--    -- ** MetricUpdate-    , MetricUpdate-    , metricUpdate-    , muMeanSum-    , muInternal-    , muSet-    , muDistribution-    , muCumulative-    , muKind-    , muGauge-    , muUpdateTime-    , muMeanCount-    , muName-    , muScalar--    -- ** SourceGetMetadataResponse-    , SourceGetMetadataResponse-    , sourceGetMetadataResponse-    , sgmrMetadata--    -- ** TemplateMetadata-    , TemplateMetadata-    , templateMetadata-    , tmName-    , tmParameters-    , tmDescription--    -- ** Environment-    , Environment-    , environment-    , eDataSet-    , eExperiments-    , eFlexResourceSchedulingGoal-    , eWorkerPools-    , eClusterManagerAPIService-    , eVersion-    , eInternalExperiments-    , eTempStoragePrefix-    , eServiceAccountEmail-    , eUserAgent-    , eServiceKmsKeyName-    , eSdkPipelineOptions--    -- ** ConcatPosition-    , ConcatPosition-    , concatPosition-    , cpIndex-    , cpPosition--    -- ** MetricStructuredNameContext-    , MetricStructuredNameContext-    , metricStructuredNameContext-    , msncAddtional--    -- ** CounterUpdate-    , CounterUpdate-    , counterUpdate-    , cuNameAndKind-    , cuIntegerList-    , cuFloatingPoint-    , cuInternal-    , cuStringList-    , cuShortId-    , cuIntegerGauge-    , cuDistribution-    , cuCumulative-    , cuStructuredNameAndMetadata-    , cuFloatingPointMean-    , cuIntegerMean-    , cuBoolean-    , cuFloatingPointList-    , cuInteger--    -- ** StreamingStageLocation-    , StreamingStageLocation-    , streamingStageLocation-    , sslStreamId--    -- ** AutoscalingSettingsAlgorithm-    , AutoscalingSettingsAlgorithm (..)--    -- ** LeaseWorkItemRequestUnifiedWorkerRequest-    , LeaseWorkItemRequestUnifiedWorkerRequest-    , leaseWorkItemRequestUnifiedWorkerRequest-    , lwiruwrAddtional--    -- ** DerivedSource-    , DerivedSource-    , derivedSource-    , dsDerivationMode-    , dsSource--    -- ** JobMetrics-    , JobMetrics-    , jobMetrics-    , jmMetrics-    , jmMetricTime--    -- ** TransformSummaryKind-    , TransformSummaryKind (..)--    -- ** SendDebugCaptureRequest-    , SendDebugCaptureRequest-    , sendDebugCaptureRequest-    , sdcrLocation-    , sdcrData-    , sdcrComponentId-    , sdcrWorkerId--    -- ** WorkItemStatus-    , WorkItemStatus-    , workItemStatus-    , wisReportedProgress-    , wisProgress-    , wisTotalThrottlerWaitTimeSeconds-    , wisSourceOperationResponse-    , wisStopPosition-    , wisDynamicSourceSplit-    , wisCompleted-    , wisSourceFork-    , wisReportIndex-    , wisRequestedLeaseDuration-    , wisErrors-    , wisCounterUpdates-    , wisMetricUpdates-    , wisWorkItemId--    -- ** WorkerMessageLabels-    , WorkerMessageLabels-    , workerMessageLabels-    , wmlAddtional--    -- ** FlattenInstruction-    , FlattenInstruction-    , flattenInstruction-    , fiInputs--    -- ** WorkerMessageCode-    , WorkerMessageCode-    , workerMessageCode-    , wmcParameters-    , wmcCode--    -- ** TransformSummary-    , TransformSummary-    , transformSummary-    , tsDisplayData-    , tsKind-    , tsOutputCollectionName-    , tsInputCollectionName-    , tsName-    , tsId--    -- ** JobTransformNameMApping-    , JobTransformNameMApping-    , jobTransformNameMApping-    , jtnmaAddtional--    -- ** SourceSpec-    , SourceSpec-    , sourceSpec-    , ssAddtional--    -- ** SourceMetadata-    , SourceMetadata-    , sourceMetadata-    , smEstimatedSizeBytes-    , smProducesSortedKeys-    , smInfinite--    -- ** EnvironmentInternalExperiments-    , EnvironmentInternalExperiments-    , environmentInternalExperiments-    , eieAddtional--    -- ** TaskRunnerSettings-    , TaskRunnerSettings-    , taskRunnerSettings-    , trsContinueOnException-    , trsHarnessCommand-    , trsWorkflowFileName-    , trsTaskGroup-    , trsAlsologtostderr-    , trsDataflowAPIVersion-    , trsLogDir-    , trsCommandlinesFileName-    , trsVMId-    , trsBaseURL-    , trsOAuthScopes-    , trsTaskUser-    , trsStreamingWorkerMainClass-    , trsBaseTaskDir-    , trsLogUploadLocation-    , trsTempStoragePrefix-    , trsLogToSerialconsole-    , trsParallelWorkerSettings-    , trsLanguageHint--    -- ** StreamingComputationConfig-    , StreamingComputationConfig-    , streamingComputationConfig-    , sccInstructions-    , sccSystemName-    , sccComputationId-    , sccTransformUserNameToStateFamily-    , sccStageName--    -- ** EnvironmentSdkPipelineOptions-    , EnvironmentSdkPipelineOptions-    , environmentSdkPipelineOptions-    , espoAddtional--    -- ** FloatingPointMean-    , FloatingPointMean-    , floatingPointMean-    , fpmCount-    , fpmSum--    -- ** CPUTime-    , CPUTime-    , cpuTime-    , ctTotalMs-    , ctRate-    , ctTimestamp--    -- ** LeaseWorkItemRequest-    , LeaseWorkItemRequest-    , leaseWorkItemRequest-    , lwirWorkItemTypes-    , lwirCurrentWorkerTime-    , lwirLocation-    , lwirWorkerCapabilities-    , lwirUnifiedWorkerRequest-    , lwirRequestedLeaseDuration-    , lwirWorkerId--    -- ** SourceOperationResponse-    , SourceOperationResponse-    , sourceOperationResponse-    , sorSplit-    , sorGetMetadata--    -- ** CounterStructuredNamePortion-    , CounterStructuredNamePortion (..)--    -- ** TopologyConfigUserStageToComputationNameMap-    , TopologyConfigUserStageToComputationNameMap-    , topologyConfigUserStageToComputationNameMap-    , tcustcnmAddtional--    -- ** ShellTask-    , ShellTask-    , shellTask-    , stCommand-    , stExitCode--    -- ** JobMessageMessageImportance-    , JobMessageMessageImportance (..)--    -- ** DatastoreIODetails-    , DatastoreIODetails-    , datastoreIODetails-    , diodNamespace-    , diodProjectId--    -- ** StatusDetailsItem-    , StatusDetailsItem-    , statusDetailsItem-    , sdiAddtional--    -- ** ReportedParallelism-    , ReportedParallelism-    , reportedParallelism-    , rpValue-    , rpIsInfinite--    -- ** StepProperties-    , StepProperties-    , stepProperties-    , spAddtional--    -- ** TopologyConfig-    , TopologyConfig-    , topologyConfig-    , tcDataDiskAssignments-    , tcPersistentStateVersion-    , tcForwardingKeyBits-    , tcUserStageToComputationNameMap-    , tcComputations--    -- ** ApproximateSplitRequest-    , ApproximateSplitRequest-    , approximateSplitRequest-    , asrFractionConsumed-    , asrFractionOfRemainder-    , asrPosition--    -- ** SplitInt64-    , SplitInt64-    , splitInt64-    , siHighBits-    , siLowBits--    -- ** WorkerSettings-    , WorkerSettings-    , workerSettings-    , wsServicePath-    , wsBaseURL-    , wsShuffleServicePath-    , wsTempStoragePrefix-    , wsReportingEnabled-    , wsWorkerId--    -- ** GetDebugConfigResponse-    , GetDebugConfigResponse-    , getDebugConfigResponse-    , gdcrConfig--    -- ** SdkVersion-    , SdkVersion-    , sdkVersion-    , svSdkSupportStatus-    , svVersionDisplayName-    , svVersion--    -- ** WorkItemServiceStateHarnessData-    , WorkItemServiceStateHarnessData-    , workItemServiceStateHarnessData-    , wisshdAddtional--    -- ** DeleteSnapshotResponse-    , DeleteSnapshotResponse-    , deleteSnapshotResponse--    -- ** DataDiskAssignment-    , DataDiskAssignment-    , dataDiskAssignment-    , ddaVMInstance-    , ddaDataDisks--    -- ** ResourceUtilizationReport-    , ResourceUtilizationReport-    , resourceUtilizationReport-    , rurCPUTime--    -- ** FailedLocation-    , FailedLocation-    , failedLocation-    , flName--    -- ** SourceSplitResponseOutcome-    , SourceSplitResponseOutcome (..)--    -- ** ListSnapshotsResponse-    , ListSnapshotsResponse-    , listSnapshotsResponse-    , lsrSnapshots--    -- ** WorkerMessageResponse-    , WorkerMessageResponse-    , workerMessageResponse-    , wmrWorkerHealthReportResponse-    , wmrWorkerMetricsResponse-    , wmrWorkerShutdownNoticeResponse--    -- ** CreateJobFromTemplateRequestParameters-    , CreateJobFromTemplateRequestParameters-    , createJobFromTemplateRequestParameters-    , cjftrpAddtional--    -- ** BigTableIODetails-    , BigTableIODetails-    , bigTableIODetails-    , btiodInstanceId-    , btiodProjectId-    , btiodTableId--    -- ** WorkItemServiceState-    , WorkItemServiceState-    , workItemServiceState-    , wissNextReportIndex-    , wissReportStatusInterval-    , wissHarnessData-    , wissSuggestedStopPoint-    , wissSuggestedStopPosition-    , wissLeaseExpireTime-    , wissSplitRequest-    , wissMetricShortId--    -- ** LaunchTemplateResponse-    , LaunchTemplateResponse-    , launchTemplateResponse-    , ltrJob--    -- ** StreamingSetupTask-    , StreamingSetupTask-    , streamingSetupTask-    , sstStreamingComputationTopology-    , sstReceiveWorkPort-    , sstWorkerHarnessPort-    , sstDrain-    , sstSnapshotConfig--    -- ** PartialGroupByKeyInstructionInputElementCodec-    , PartialGroupByKeyInstructionInputElementCodec-    , partialGroupByKeyInstructionInputElementCodec-    , pgbkiiecAddtional--    -- ** MapTask-    , MapTask-    , mapTask-    , mtInstructions-    , mtCounterPrefix-    , mtSystemName-    , mtStageName--    -- ** MountedDataDisk-    , MountedDataDisk-    , mountedDataDisk-    , mddDataDisk--    -- ** SinkCodec-    , SinkCodec-    , sinkCodec-    , scAddtional--    -- ** SourceSplitShardDerivationMode-    , SourceSplitShardDerivationMode (..)--    -- ** WorkerPoolDefaultPackageSet-    , WorkerPoolDefaultPackageSet (..)--    -- ** IntegerMean-    , IntegerMean-    , integerMean-    , imCount-    , imSum--    -- ** CounterMetadataKind-    , CounterMetadataKind (..)--    -- ** WorkerHealthReportPodsItem-    , WorkerHealthReportPodsItem-    , workerHealthReportPodsItem-    , whrpiAddtional--    -- ** ParDoInstructionUserFn-    , ParDoInstructionUserFn-    , parDoInstructionUserFn-    , pdiufAddtional--    -- ** InstructionOutputCodec-    , InstructionOutputCodec-    , instructionOutputCodec-    , iocAddtional--    -- ** StreamLocation-    , StreamLocation-    , streamLocation-    , slStreamingStageLocation-    , slSideInputLocation-    , slCustomSourceLocation-    , slPubsubLocation--    -- ** WorkerLifecycleEventMetadata-    , WorkerLifecycleEventMetadata-    , workerLifecycleEventMetadata-    , wlemAddtional--    -- ** WorkerPoolPoolArgs-    , WorkerPoolPoolArgs-    , workerPoolPoolArgs-    , wppaAddtional--    -- ** RuntimeEnvironment-    , RuntimeEnvironment-    , runtimeEnvironment-    , reNumWorkers-    , reNetwork-    , reZone-    , reBypassTempDirValidation-    , reSubnetwork-    , reMachineType-    , reAdditionalUserLabels-    , reServiceAccountEmail-    , reAdditionalExperiments-    , reMaxWorkers-    , reTempLocation--    -- ** CounterMetadata-    , CounterMetadata-    , counterMetadata-    , cmKind-    , cmDescription-    , cmStandardUnits-    , cmOtherUnits--    -- ** SendWorkerMessagesResponse-    , SendWorkerMessagesResponse-    , sendWorkerMessagesResponse-    , swmrWorkerMessageResponses--    -- ** JobCurrentState-    , JobCurrentState (..)--    -- ** StreamingSideInputLocation-    , StreamingSideInputLocation-    , streamingSideInputLocation-    , ssilTag-    , ssilStateFamily--    -- ** GetDebugConfigRequest-    , GetDebugConfigRequest-    , getDebugConfigRequest-    , gdcrLocation-    , gdcrComponentId-    , gdcrWorkerId--    -- ** CounterStructuredNameAndMetadata-    , CounterStructuredNameAndMetadata-    , counterStructuredNameAndMetadata-    , csnamName-    , csnamMetadata--    -- ** WorkerShutdownNotice-    , WorkerShutdownNotice-    , workerShutdownNotice-    , wsnReason--    -- ** StreamingComputationTask-    , StreamingComputationTask-    , streamingComputationTask-    , sctTaskType-    , sctDataDisks-    , sctComputationRanges--    -- ** PipelineDescription-    , PipelineDescription-    , pipelineDescription-    , pdExecutionPipelineStage-    , pdDisplayData-    , pdOriginalPipelineTransform--    -- ** JobMessage-    , JobMessage-    , jobMessage-    , jmTime-    , jmMessageText-    , jmMessageImportance-    , jmId--    -- ** WorkerLifecycleEvent-    , WorkerLifecycleEvent-    , workerLifecycleEvent-    , wleEvent-    , wleContainerStartTime-    , wleMetadata--    -- ** ReportWorkItemStatusResponseUnifiedWorkerResponse-    , ReportWorkItemStatusResponseUnifiedWorkerResponse-    , reportWorkItemStatusResponseUnifiedWorkerResponse-    , rAddtional--    -- ** RuntimeEnvironmentAdditionalUserLabels-    , RuntimeEnvironmentAdditionalUserLabels-    , runtimeEnvironmentAdditionalUserLabels-    , reaulAddtional--    -- ** CounterMetadataStandardUnits-    , CounterMetadataStandardUnits (..)--    -- ** SeqMapTaskOutputInfo-    , SeqMapTaskOutputInfo-    , seqMapTaskOutputInfo-    , smtoiSink-    , smtoiTag--    -- ** PubSubIODetails-    , PubSubIODetails-    , pubSubIODetails-    , psiodTopic-    , psiodSubscription--    -- ** SourceGetMetadataRequest-    , SourceGetMetadataRequest-    , sourceGetMetadataRequest-    , sgmrSource--    -- ** WorkerShutdownNoticeResponse-    , WorkerShutdownNoticeResponse-    , workerShutdownNoticeResponse--    -- ** SeqMapTaskUserFn-    , SeqMapTaskUserFn-    , seqMapTaskUserFn-    , smtufAddtional--    -- ** PartialGroupByKeyInstructionValueCombiningFn-    , PartialGroupByKeyInstructionValueCombiningFn-    , partialGroupByKeyInstructionValueCombiningFn-    , pgbkivcfAddtional--    -- ** Job-    , Job-    , job-    , jStepsLocation-    , jCreatedFromSnapshotId-    , jRequestedState-    , jJobMetadata-    , jLocation-    , jStartTime-    , jEnvironment-    , jClientRequestId-    , jStageStates-    , jCurrentState-    , jReplacedByJobId-    , jTempFiles-    , jSteps-    , jPipelineDescription-    , jExecutionInfo-    , jName-    , jTransformNameMApping-    , jId-    , jLabels-    , jProjectId-    , jType-    , jCurrentStateTime-    , jReplaceJobId-    , jCreateTime--    -- ** AutoscalingEventEventType-    , AutoscalingEventEventType (..)--    -- ** ReadInstruction-    , ReadInstruction-    , readInstruction-    , riSource--    -- ** ApproximateReportedProgress-    , ApproximateReportedProgress-    , approximateReportedProgress-    , arpFractionConsumed-    , arpConsumedParallelism-    , arpRemainingParallelism-    , arpPosition--    -- ** DerivedSourceDerivationMode-    , DerivedSourceDerivationMode (..)--    -- ** SinkSpec-    , SinkSpec-    , sinkSpec-    , sAddtional--    -- ** WorkerPool-    , WorkerPool-    , workerPool-    , wpAutoscalingSettings-    , wpNumThreadsPerWorker-    , wpDiskSizeGb-    , wpKind-    , wpTaskrunnerSettings-    , wpNumWorkers-    , wpNetwork-    , wpZone-    , wpIPConfiguration-    , wpPackages-    , wpOnHostMaintenance-    , wpDiskSourceImage-    , wpSubnetwork-    , wpMachineType-    , wpMetadata-    , wpDiskType-    , wpTeardownPolicy-    , wpDefaultPackageSet-    , wpPoolArgs-    , wpWorkerHarnessContainerImage-    , wpDataDisks--    -- ** Step-    , Step-    , step-    , sKind-    , sName-    , sProperties--    -- ** ComponentSource-    , ComponentSource-    , componentSource-    , csUserName-    , csName-    , csOriginalTransformOrCollection--    -- ** ExecutionStageSummaryKind-    , ExecutionStageSummaryKind (..)--    -- ** Xgafv-    , Xgafv (..)--    -- ** Package-    , Package-    , package-    , pLocation-    , pName--    -- ** ExecutionStageSummary-    , ExecutionStageSummary-    , executionStageSummary-    , essOutputSource-    , essKind-    , essInputSource-    , essName-    , essComponentSource-    , essId-    , essComponentTransform--    -- ** WorkerMessageCodeParameters-    , WorkerMessageCodeParameters-    , workerMessageCodeParameters-    , wmcpAddtional--    -- ** DynamicSourceSplit-    , DynamicSourceSplit-    , dynamicSourceSplit-    , dssResidual-    , dssPrimary--    -- ** SnapshotJobRequest-    , SnapshotJobRequest-    , snapshotJobRequest-    , sjrTtl-    , sjrLocation--    -- ** ReportWorkItemStatusResponse-    , ReportWorkItemStatusResponse-    , reportWorkItemStatusResponse-    , rwisrWorkItemServiceStates-    , rwisrUnifiedWorkerResponse--    -- ** SourceFork-    , SourceFork-    , sourceFork-    , sfResidual-    , sfPrimarySource-    , sfPrimary-    , sfResidualSource--    -- ** ResourceUtilizationReportResponse-    , ResourceUtilizationReportResponse-    , resourceUtilizationReportResponse--    -- ** StreamingComputationRanges-    , StreamingComputationRanges-    , streamingComputationRanges-    , scrRangeAssignments-    , scrComputationId--    -- ** ListJobsResponse-    , ListJobsResponse-    , listJobsResponse-    , ljrNextPageToken-    , ljrFailedLocation-    , ljrJobs--    -- ** LaunchTemplateParametersParameters-    , LaunchTemplateParametersParameters-    , launchTemplateParametersParameters-    , ltppAddtional--    -- ** Source-    , Source-    , source-    , souDoesNotNeedSplitting-    , souBaseSpecs-    , souCodec-    , souSpec-    , souMetadata--    -- ** ApproximateProgress-    , ApproximateProgress-    , approximateProgress-    , apRemainingTime-    , apPercentComplete-    , apPosition--    -- ** WorkerMessage-    , WorkerMessage-    , workerMessage-    , wmWorkerHealthReport-    , wmTime-    , wmWorkerMessageCode-    , wmWorkerMetrics-    , wmWorkerLifecycleEvent-    , wmWorkerShutdownNotice-    , wmLabels--    -- ** KeyRangeLocation-    , KeyRangeLocation-    , keyRangeLocation-    , krlDataDisk-    , krlDeprecatedPersistentDirectory-    , krlStart-    , krlDeliveryEndpoint-    , krlEnd--    -- ** Histogram-    , Histogram-    , histogram-    , hBucketCounts-    , hFirstBucketOffSet--    -- ** JobRequestedState-    , JobRequestedState (..)--    -- ** MultiOutputInfo-    , MultiOutputInfo-    , multiOutputInfo-    , moiTag--    -- ** PartialGroupByKeyInstruction-    , PartialGroupByKeyInstruction-    , partialGroupByKeyInstruction-    , pgbkiValueCombiningFn-    , pgbkiSideInputs-    , pgbkiInput-    , pgbkiOriginalCombineValuesStepName-    , pgbkiInputElementCodec-    , pgbkiOriginalCombineValuesInputStoreName--    -- ** LeaseWorkItemResponseUnifiedWorkerResponse-    , LeaseWorkItemResponseUnifiedWorkerResponse-    , leaseWorkItemResponseUnifiedWorkerResponse-    , lAddtional--    -- ** WorkerLifecycleEventEvent-    , WorkerLifecycleEventEvent (..)--    -- ** ExecutionStageStateExecutionStageState-    , ExecutionStageStateExecutionStageState (..)--    -- ** ParDoInstruction-    , ParDoInstruction-    , parDoInstruction-    , pdiNumOutputs-    , pdiMultiOutputInfos-    , pdiSideInputs-    , pdiInput-    , pdiUserFn--    -- ** CustomSourceLocation-    , CustomSourceLocation-    , customSourceLocation-    , cslStateful--    -- ** DistributionUpdate-    , DistributionUpdate-    , distributionUpdate-    , duMax-    , duCount-    , duMin-    , duHistogram-    , duSumOfSquares-    , duSum--    -- ** SourceBaseSpecsItem-    , SourceBaseSpecsItem-    , sourceBaseSpecsItem-    , sbsiAddtional--    -- ** ParallelInstruction-    , ParallelInstruction-    , parallelInstruction-    , piRead-    , piWrite-    , piParDo-    , piPartialGroupByKey-    , piOutputs-    , piName-    , piSystemName-    , piFlatten-    , piOriginalName--    -- ** SideInputInfoKind-    , SideInputInfoKind-    , sideInputInfoKind-    , siikAddtional--    -- ** StreamingConfigTask-    , StreamingConfigTask-    , streamingConfigTask-    , sctUserStepToStateFamilyNameMap-    , sctStreamingComputationConfigs-    , sctWindmillServiceEndpoint-    , sctWindmillServicePort-    , sctMaxWorkItemCommitBytes--    -- ** MetricShortId-    , MetricShortId-    , metricShortId-    , msiShortId-    , msiMetricIndex--    -- ** SendWorkerMessagesRequest-    , SendWorkerMessagesRequest-    , sendWorkerMessagesRequest-    , swmrLocation-    , swmrWorkerMessages--    -- ** SourceSplitShard-    , SourceSplitShard-    , sourceSplitShard-    , sssDerivationMode-    , sssSource--    -- ** SideInputInfo-    , SideInputInfo-    , sideInputInfo-    , siiTag-    , siiKind-    , siiSources--    -- ** ComponentTransform-    , ComponentTransform-    , componentTransform-    , ctOriginalTransform-    , ctUserName-    , ctName--    -- ** StreamingComputationConfigTransformUserNameToStateFamily-    , StreamingComputationConfigTransformUserNameToStateFamily-    , streamingComputationConfigTransformUserNameToStateFamily-    , scctuntsfAddtional--    -- ** WorkerPoolIPConfiguration-    , WorkerPoolIPConfiguration (..)--    -- ** JobExecutionInfo-    , JobExecutionInfo-    , jobExecutionInfo-    , jeiStages--    -- ** SourceCodec-    , SourceCodec-    , sourceCodec-    , souAddtional--    -- ** StateFamilyConfig-    , StateFamilyConfig-    , stateFamilyConfig-    , sfcIsRead-    , sfcStateFamily--    -- ** KeyRangeDataDiskAssignment-    , KeyRangeDataDiskAssignment-    , keyRangeDataDiskAssignment-    , krddaDataDisk-    , krddaStart-    , krddaEnd--    -- ** AutoscalingEvent-    , AutoscalingEvent-    , autoscalingEvent-    , aeCurrentNumWorkers-    , aeTime-    , aeEventType-    , aeTargetNumWorkers-    , aeWorkerPool-    , aeDescription--    -- ** SourceSplitRequest-    , SourceSplitRequest-    , sourceSplitRequest-    , ssrSource-    , ssrOptions--    -- ** ListJobMessagesResponse-    , ListJobMessagesResponse-    , listJobMessagesResponse-    , ljmrJobMessages-    , ljmrNextPageToken-    , ljmrAutoscalingEvents--    -- ** PubsubLocation-    , PubsubLocation-    , pubsubLocation-    , plTrackingSubscription-    , plDropLateData-    , plTimestampLabel-    , plIdLabel-    , plTopic-    , plWithAttributes-    , plSubscription--    -- ** FloatingPointList-    , FloatingPointList-    , floatingPointList-    , fplElements--    -- ** CounterStructuredNameOrigin-    , CounterStructuredNameOrigin (..)--    -- ** InstructionInput-    , InstructionInput-    , instructionInput-    , iiProducerInstructionIndex-    , iiOutputNum--    -- ** SeqMapTask-    , SeqMapTask-    , seqMapTask-    , smtInputs-    , smtName-    , smtOutputInfos-    , smtSystemName-    , smtStageName-    , smtUserFn--    -- ** StreamingComputationTaskTaskType-    , StreamingComputationTaskTaskType (..)--    -- ** StreamingConfigTaskUserStepToStateFamilyNameMap-    , StreamingConfigTaskUserStepToStateFamilyNameMap-    , streamingConfigTaskUserStepToStateFamilyNameMap-    , sctustsfnmAddtional--    -- ** ExecutionStageState-    , ExecutionStageState-    , executionStageState-    , essExecutionStageName-    , essCurrentStateTime-    , essExecutionStageState--    -- ** StageSource-    , StageSource-    , stageSource-    , ssSizeBytes-    , ssUserName-    , ssName-    , ssOriginalTransformOrCollection--    -- ** SourceOperationRequest-    , SourceOperationRequest-    , sourceOperationRequest-    , souSplit-    , souGetMetadata-    , souName-    , souSystemName-    , souStageName-    , souOriginalName--    -- ** SdkVersionSdkSupportStatus-    , SdkVersionSdkSupportStatus (..)--    -- ** SpannerIODetails-    , SpannerIODetails-    , spannerIODetails-    , siodInstanceId-    , siodDatabaseId-    , siodProjectId--    -- ** LeaseWorkItemResponse-    , LeaseWorkItemResponse-    , leaseWorkItemResponse-    , lwirWorkItems-    , lwirUnifiedWorkerResponse--    -- ** Position-    , Position-    , position-    , pByteOffSet-    , pConcatPosition-    , pRecordIndex-    , pShufflePosition-    , pKey-    , pEnd--    -- ** Parameter-    , Parameter-    , parameter-    , parValue-    , parKey-    ) where--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-import           Network.Google.Resource.Dataflow.Projects.Jobs.Debug.SendCapture-import           Network.Google.Resource.Dataflow.Projects.Jobs.Get-import           Network.Google.Resource.Dataflow.Projects.Jobs.GetMetrics-import           Network.Google.Resource.Dataflow.Projects.Jobs.List-import           Network.Google.Resource.Dataflow.Projects.Jobs.Messages.List-import           Network.Google.Resource.Dataflow.Projects.Jobs.Snapshot-import           Network.Google.Resource.Dataflow.Projects.Jobs.Update-import           Network.Google.Resource.Dataflow.Projects.Jobs.WorkItems.Lease-import           Network.Google.Resource.Dataflow.Projects.Jobs.WorkItems.ReportStatus-import           Network.Google.Resource.Dataflow.Projects.Locations.Jobs.Create-import           Network.Google.Resource.Dataflow.Projects.Locations.Jobs.Debug.GetConfig-import           Network.Google.Resource.Dataflow.Projects.Locations.Jobs.Debug.SendCapture-import           Network.Google.Resource.Dataflow.Projects.Locations.Jobs.Get-import           Network.Google.Resource.Dataflow.Projects.Locations.Jobs.GetMetrics-import           Network.Google.Resource.Dataflow.Projects.Locations.Jobs.List-import           Network.Google.Resource.Dataflow.Projects.Locations.Jobs.Messages.List-import           Network.Google.Resource.Dataflow.Projects.Locations.Jobs.Snapshot-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-import           Network.Google.Resource.Dataflow.Projects.WorkerMessages--{- $resources-TODO--}---- | Represents the entirety of the methods and resources available for the Dataflow API service.-type DataflowAPI =-     ProjectsTemplatesLaunchResource :<|>-       ProjectsTemplatesGetResource-       :<|> ProjectsTemplatesCreateResource-       :<|> ProjectsJobsDebugGetConfigResource-       :<|> ProjectsJobsDebugSendCaptureResource-       :<|> ProjectsJobsWorkItemsLeaseResource-       :<|> ProjectsJobsWorkItemsReportStatusResource-       :<|> ProjectsJobsMessagesListResource-       :<|> ProjectsJobsSnapshotResource-       :<|> ProjectsJobsListResource-       :<|> ProjectsJobsAggregatedResource-       :<|> ProjectsJobsGetResource-       :<|> ProjectsJobsCreateResource-       :<|> ProjectsJobsUpdateResource-       :<|> ProjectsJobsGetMetricsResource-       :<|> ProjectsSnapshotsListResource-       :<|> ProjectsSnapshotsGetResource-       :<|> ProjectsLocationsTemplatesLaunchResource-       :<|> ProjectsLocationsTemplatesGetResource-       :<|> ProjectsLocationsTemplatesCreateResource-       :<|> ProjectsLocationsJobsDebugGetConfigResource-       :<|> ProjectsLocationsJobsDebugSendCaptureResource-       :<|> ProjectsLocationsJobsWorkItemsLeaseResource-       :<|>-       ProjectsLocationsJobsWorkItemsReportStatusResource-       :<|> ProjectsLocationsJobsMessagesListResource-       :<|> ProjectsLocationsJobsSnapshotResource-       :<|> ProjectsLocationsJobsListResource-       :<|> ProjectsLocationsJobsGetResource-       :<|> ProjectsLocationsJobsCreateResource-       :<|> ProjectsLocationsJobsUpdateResource-       :<|> ProjectsLocationsJobsGetMetricsResource-       :<|> ProjectsLocationsSnapshotsListResource-       :<|> ProjectsLocationsSnapshotsGetResource-       :<|> ProjectsLocationsSnapshotsDeleteResource-       :<|> ProjectsLocationsSQLValidateResource-       :<|> ProjectsLocationsWorkerMessagesResource-       :<|> ProjectsDeleteSnapshotsResource-       :<|> ProjectsWorkerMessagesResource
− gen/Network/Google/Dataflow/Types.hs 
@@ -1,1433 +0,0 @@-{-# LANGUAGE DataKinds          #-}-{-# LANGUAGE DeriveDataTypeable #-}-{-# LANGUAGE DeriveGeneric      #-}-{-# LANGUAGE NoImplicitPrelude  #-}-{-# LANGUAGE OverloadedStrings  #-}--{-# OPTIONS_GHC -fno-warn-unused-imports #-}---- |--- Module      : Network.Google.Dataflow.Types--- 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)----module Network.Google.Dataflow.Types-    (-    -- * Service Configuration-      dataflowService--    -- * OAuth Scopes-    , computeScope-    , userInfoEmailScope-    , cloudPlatformScope-    , computeReadOnlyScope--    -- * NameAndKindKind-    , NameAndKindKind (..)--    -- * JobExecutionInfoStages-    , JobExecutionInfoStages-    , jobExecutionInfoStages-    , jeisAddtional--    -- * ComputationTopology-    , ComputationTopology-    , computationTopology-    , ctStateFamilies-    , ctInputs-    , ctKeyRanges-    , ctOutputs-    , ctComputationId-    , ctSystemStageName--    -- * SourceSplitResponse-    , SourceSplitResponse-    , sourceSplitResponse-    , ssrBundles-    , ssrShards-    , ssrOutcome--    -- * ParameterMetadata-    , ParameterMetadata-    , parameterMetadata-    , pmHelpText-    , pmIsOptional-    , pmName-    , pmRegexes-    , pmLabel--    -- * ReportWorkItemStatusRequestUnifiedWorkerRequest-    , ReportWorkItemStatusRequestUnifiedWorkerRequest-    , reportWorkItemStatusRequestUnifiedWorkerRequest-    , rwisruwrAddtional--    -- * CreateJobFromTemplateRequest-    , CreateJobFromTemplateRequest-    , createJobFromTemplateRequest-    , cjftrLocation-    , cjftrEnvironment-    , cjftrJobName-    , cjftrGcsPath-    , cjftrParameters--    -- * Status-    , Status-    , status-    , sDetails-    , sCode-    , sMessage--    -- * NameAndKind-    , NameAndKind-    , nameAndKind-    , nakKind-    , nakName--    -- * IntegerList-    , IntegerList-    , integerList-    , ilElements--    -- * WorkItem-    , WorkItem-    , workItem-    , wiJobId-    , wiReportStatusInterval-    , wiShellTask-    , wiStreamingSetupTask-    , wiInitialReportIndex-    , wiMapTask-    , wiPackages-    , wiStreamingComputationTask-    , wiSourceOperationTask-    , wiId-    , wiProjectId-    , wiLeaseExpireTime-    , wiConfiguration-    , wiStreamingConfigTask-    , wiSeqMapTask--    -- * WorkerHealthReport-    , WorkerHealthReport-    , workerHealthReport-    , whrVMIsHealthy-    , whrReportInterval-    , whrPods-    , whrVMStartupTime--    -- * Snapshot-    , Snapshot-    , snapshot-    , sCreationTime-    , sTtl-    , sSourceJobId-    , sId-    , sProjectId--    -- * SourceSplitOptions-    , SourceSplitOptions-    , sourceSplitOptions-    , ssoDesiredShardSizeBytes-    , ssoDesiredBundleSizeBytes--    -- * WorkerPoolMetadata-    , WorkerPoolMetadata-    , workerPoolMetadata-    , wpmAddtional--    -- * AutoscalingSettings-    , AutoscalingSettings-    , autoscalingSettings-    , asMaxNumWorkers-    , asAlgorithm--    -- * JobExecutionStageInfo-    , JobExecutionStageInfo-    , jobExecutionStageInfo-    , jesiStepName--    -- * InstructionOutput-    , InstructionOutput-    , instructionOutput-    , ioOnlyCountValueBytes-    , ioCodec-    , ioName-    , ioSystemName-    , ioOriginalName-    , ioOnlyCountKeyBytes--    -- * IntegerGauge-    , IntegerGauge-    , integerGauge-    , igValue-    , igTimestamp--    -- * LaunchTemplateParameters-    , LaunchTemplateParameters-    , launchTemplateParameters-    , ltpEnvironment-    , ltpJobName-    , ltpParameters--    -- * ReportWorkItemStatusRequest-    , ReportWorkItemStatusRequest-    , reportWorkItemStatusRequest-    , rwisrCurrentWorkerTime-    , rwisrLocation-    , rwisrUnifiedWorkerRequest-    , rwisrWorkItemStatuses-    , rwisrWorkerId--    -- * JobType-    , JobType (..)--    -- * EnvironmentVersion-    , EnvironmentVersion-    , environmentVersion-    , evAddtional--    -- * StreamingApplianceSnapshotConfig-    , StreamingApplianceSnapshotConfig-    , streamingApplianceSnapshotConfig-    , sascImportStateEndpoint-    , sascSnapshotId--    -- * Sink-    , Sink-    , sink-    , sCodec-    , sSpec--    -- * StringList-    , StringList-    , stringList-    , slElements--    -- * WorkerHealthReportResponse-    , WorkerHealthReportResponse-    , workerHealthReportResponse-    , whrrReportInterval--    -- * DisplayData-    , DisplayData-    , displayData-    , ddDurationValue-    , ddBoolValue-    , ddTimestampValue-    , ddURL-    , ddNamespace-    , ddJavaClassValue-    , ddShortStrValue-    , ddKey-    , ddInt64Value-    , ddFloatValue-    , ddStrValue-    , ddLabel--    -- * SendDebugCaptureResponse-    , SendDebugCaptureResponse-    , sendDebugCaptureResponse--    -- * StructuredMessage-    , StructuredMessage-    , structuredMessage-    , smMessageText-    , smMessageKey-    , smParameters--    -- * JobLabels-    , JobLabels-    , jobLabels-    , jlAddtional--    -- * MetricStructuredName-    , MetricStructuredName-    , metricStructuredName-    , msnOrigin-    , msnContext-    , msnName--    -- * BigQueryIODetails-    , BigQueryIODetails-    , bigQueryIODetails-    , bqiodDataSet-    , bqiodQuery-    , bqiodProjectId-    , bqiodTable--    -- * FileIODetails-    , FileIODetails-    , fileIODetails-    , fiodFilePattern--    -- * WorkerPoolTeardownPolicy-    , WorkerPoolTeardownPolicy (..)--    -- * CounterStructuredName-    , CounterStructuredName-    , counterStructuredName-    , csnOrigin-    , csnOriginNamespace-    , csnComponentStepName-    , csnPortion-    , csnOriginalStepName-    , csnName-    , csnExecutionStepName-    , csnOriginalRequestingStepName-    , csnInputIndex-    , csnWorkerId--    -- * JobMetadata-    , JobMetadata-    , jobMetadata-    , jmSpannerDetails-    , jmBigTableDetails-    , jmSdkVersion-    , jmPubsubDetails-    , jmFileDetails-    , jmBigQueryDetails-    , jmDatastoreDetails--    -- * ValidateResponse-    , ValidateResponse-    , validateResponse-    , vrErrorMessage--    -- * GetTemplateResponse-    , GetTemplateResponse-    , getTemplateResponse-    , gtrStatus-    , gtrMetadata--    -- * WriteInstruction-    , WriteInstruction-    , writeInstruction-    , wiSink-    , wiInput--    -- * EnvironmentUserAgent-    , EnvironmentUserAgent-    , environmentUserAgent-    , euaAddtional--    -- * Disk-    , Disk-    , disk-    , dSizeGb-    , dDiskType-    , dMountPoint--    -- * EnvironmentFlexResourceSchedulingGoal-    , EnvironmentFlexResourceSchedulingGoal (..)--    -- * MetricUpdate-    , MetricUpdate-    , metricUpdate-    , muMeanSum-    , muInternal-    , muSet-    , muDistribution-    , muCumulative-    , muKind-    , muGauge-    , muUpdateTime-    , muMeanCount-    , muName-    , muScalar--    -- * SourceGetMetadataResponse-    , SourceGetMetadataResponse-    , sourceGetMetadataResponse-    , sgmrMetadata--    -- * TemplateMetadata-    , TemplateMetadata-    , templateMetadata-    , tmName-    , tmParameters-    , tmDescription--    -- * Environment-    , Environment-    , environment-    , eDataSet-    , eExperiments-    , eFlexResourceSchedulingGoal-    , eWorkerPools-    , eClusterManagerAPIService-    , eVersion-    , eInternalExperiments-    , eTempStoragePrefix-    , eServiceAccountEmail-    , eUserAgent-    , eServiceKmsKeyName-    , eSdkPipelineOptions--    -- * ConcatPosition-    , ConcatPosition-    , concatPosition-    , cpIndex-    , cpPosition--    -- * MetricStructuredNameContext-    , MetricStructuredNameContext-    , metricStructuredNameContext-    , msncAddtional--    -- * CounterUpdate-    , CounterUpdate-    , counterUpdate-    , cuNameAndKind-    , cuIntegerList-    , cuFloatingPoint-    , cuInternal-    , cuStringList-    , cuShortId-    , cuIntegerGauge-    , cuDistribution-    , cuCumulative-    , cuStructuredNameAndMetadata-    , cuFloatingPointMean-    , cuIntegerMean-    , cuBoolean-    , cuFloatingPointList-    , cuInteger--    -- * StreamingStageLocation-    , StreamingStageLocation-    , streamingStageLocation-    , sslStreamId--    -- * AutoscalingSettingsAlgorithm-    , AutoscalingSettingsAlgorithm (..)--    -- * LeaseWorkItemRequestUnifiedWorkerRequest-    , LeaseWorkItemRequestUnifiedWorkerRequest-    , leaseWorkItemRequestUnifiedWorkerRequest-    , lwiruwrAddtional--    -- * DerivedSource-    , DerivedSource-    , derivedSource-    , dsDerivationMode-    , dsSource--    -- * JobMetrics-    , JobMetrics-    , jobMetrics-    , jmMetrics-    , jmMetricTime--    -- * TransformSummaryKind-    , TransformSummaryKind (..)--    -- * SendDebugCaptureRequest-    , SendDebugCaptureRequest-    , sendDebugCaptureRequest-    , sdcrLocation-    , sdcrData-    , sdcrComponentId-    , sdcrWorkerId--    -- * WorkItemStatus-    , WorkItemStatus-    , workItemStatus-    , wisReportedProgress-    , wisProgress-    , wisTotalThrottlerWaitTimeSeconds-    , wisSourceOperationResponse-    , wisStopPosition-    , wisDynamicSourceSplit-    , wisCompleted-    , wisSourceFork-    , wisReportIndex-    , wisRequestedLeaseDuration-    , wisErrors-    , wisCounterUpdates-    , wisMetricUpdates-    , wisWorkItemId--    -- * WorkerMessageLabels-    , WorkerMessageLabels-    , workerMessageLabels-    , wmlAddtional--    -- * FlattenInstruction-    , FlattenInstruction-    , flattenInstruction-    , fiInputs--    -- * WorkerMessageCode-    , WorkerMessageCode-    , workerMessageCode-    , wmcParameters-    , wmcCode--    -- * TransformSummary-    , TransformSummary-    , transformSummary-    , tsDisplayData-    , tsKind-    , tsOutputCollectionName-    , tsInputCollectionName-    , tsName-    , tsId--    -- * JobTransformNameMApping-    , JobTransformNameMApping-    , jobTransformNameMApping-    , jtnmaAddtional--    -- * SourceSpec-    , SourceSpec-    , sourceSpec-    , ssAddtional--    -- * SourceMetadata-    , SourceMetadata-    , sourceMetadata-    , smEstimatedSizeBytes-    , smProducesSortedKeys-    , smInfinite--    -- * EnvironmentInternalExperiments-    , EnvironmentInternalExperiments-    , environmentInternalExperiments-    , eieAddtional--    -- * TaskRunnerSettings-    , TaskRunnerSettings-    , taskRunnerSettings-    , trsContinueOnException-    , trsHarnessCommand-    , trsWorkflowFileName-    , trsTaskGroup-    , trsAlsologtostderr-    , trsDataflowAPIVersion-    , trsLogDir-    , trsCommandlinesFileName-    , trsVMId-    , trsBaseURL-    , trsOAuthScopes-    , trsTaskUser-    , trsStreamingWorkerMainClass-    , trsBaseTaskDir-    , trsLogUploadLocation-    , trsTempStoragePrefix-    , trsLogToSerialconsole-    , trsParallelWorkerSettings-    , trsLanguageHint--    -- * StreamingComputationConfig-    , StreamingComputationConfig-    , streamingComputationConfig-    , sccInstructions-    , sccSystemName-    , sccComputationId-    , sccTransformUserNameToStateFamily-    , sccStageName--    -- * EnvironmentSdkPipelineOptions-    , EnvironmentSdkPipelineOptions-    , environmentSdkPipelineOptions-    , espoAddtional--    -- * FloatingPointMean-    , FloatingPointMean-    , floatingPointMean-    , fpmCount-    , fpmSum--    -- * CPUTime-    , CPUTime-    , cpuTime-    , ctTotalMs-    , ctRate-    , ctTimestamp--    -- * LeaseWorkItemRequest-    , LeaseWorkItemRequest-    , leaseWorkItemRequest-    , lwirWorkItemTypes-    , lwirCurrentWorkerTime-    , lwirLocation-    , lwirWorkerCapabilities-    , lwirUnifiedWorkerRequest-    , lwirRequestedLeaseDuration-    , lwirWorkerId--    -- * SourceOperationResponse-    , SourceOperationResponse-    , sourceOperationResponse-    , sorSplit-    , sorGetMetadata--    -- * CounterStructuredNamePortion-    , CounterStructuredNamePortion (..)--    -- * TopologyConfigUserStageToComputationNameMap-    , TopologyConfigUserStageToComputationNameMap-    , topologyConfigUserStageToComputationNameMap-    , tcustcnmAddtional--    -- * ShellTask-    , ShellTask-    , shellTask-    , stCommand-    , stExitCode--    -- * JobMessageMessageImportance-    , JobMessageMessageImportance (..)--    -- * DatastoreIODetails-    , DatastoreIODetails-    , datastoreIODetails-    , diodNamespace-    , diodProjectId--    -- * StatusDetailsItem-    , StatusDetailsItem-    , statusDetailsItem-    , sdiAddtional--    -- * ReportedParallelism-    , ReportedParallelism-    , reportedParallelism-    , rpValue-    , rpIsInfinite--    -- * StepProperties-    , StepProperties-    , stepProperties-    , spAddtional--    -- * TopologyConfig-    , TopologyConfig-    , topologyConfig-    , tcDataDiskAssignments-    , tcPersistentStateVersion-    , tcForwardingKeyBits-    , tcUserStageToComputationNameMap-    , tcComputations--    -- * ApproximateSplitRequest-    , ApproximateSplitRequest-    , approximateSplitRequest-    , asrFractionConsumed-    , asrFractionOfRemainder-    , asrPosition--    -- * SplitInt64-    , SplitInt64-    , splitInt64-    , siHighBits-    , siLowBits--    -- * WorkerSettings-    , WorkerSettings-    , workerSettings-    , wsServicePath-    , wsBaseURL-    , wsShuffleServicePath-    , wsTempStoragePrefix-    , wsReportingEnabled-    , wsWorkerId--    -- * GetDebugConfigResponse-    , GetDebugConfigResponse-    , getDebugConfigResponse-    , gdcrConfig--    -- * SdkVersion-    , SdkVersion-    , sdkVersion-    , svSdkSupportStatus-    , svVersionDisplayName-    , svVersion--    -- * WorkItemServiceStateHarnessData-    , WorkItemServiceStateHarnessData-    , workItemServiceStateHarnessData-    , wisshdAddtional--    -- * DeleteSnapshotResponse-    , DeleteSnapshotResponse-    , deleteSnapshotResponse--    -- * DataDiskAssignment-    , DataDiskAssignment-    , dataDiskAssignment-    , ddaVMInstance-    , ddaDataDisks--    -- * ResourceUtilizationReport-    , ResourceUtilizationReport-    , resourceUtilizationReport-    , rurCPUTime--    -- * FailedLocation-    , FailedLocation-    , failedLocation-    , flName--    -- * SourceSplitResponseOutcome-    , SourceSplitResponseOutcome (..)--    -- * ListSnapshotsResponse-    , ListSnapshotsResponse-    , listSnapshotsResponse-    , lsrSnapshots--    -- * WorkerMessageResponse-    , WorkerMessageResponse-    , workerMessageResponse-    , wmrWorkerHealthReportResponse-    , wmrWorkerMetricsResponse-    , wmrWorkerShutdownNoticeResponse--    -- * CreateJobFromTemplateRequestParameters-    , CreateJobFromTemplateRequestParameters-    , createJobFromTemplateRequestParameters-    , cjftrpAddtional--    -- * BigTableIODetails-    , BigTableIODetails-    , bigTableIODetails-    , btiodInstanceId-    , btiodProjectId-    , btiodTableId--    -- * WorkItemServiceState-    , WorkItemServiceState-    , workItemServiceState-    , wissNextReportIndex-    , wissReportStatusInterval-    , wissHarnessData-    , wissSuggestedStopPoint-    , wissSuggestedStopPosition-    , wissLeaseExpireTime-    , wissSplitRequest-    , wissMetricShortId--    -- * LaunchTemplateResponse-    , LaunchTemplateResponse-    , launchTemplateResponse-    , ltrJob--    -- * StreamingSetupTask-    , StreamingSetupTask-    , streamingSetupTask-    , sstStreamingComputationTopology-    , sstReceiveWorkPort-    , sstWorkerHarnessPort-    , sstDrain-    , sstSnapshotConfig--    -- * PartialGroupByKeyInstructionInputElementCodec-    , PartialGroupByKeyInstructionInputElementCodec-    , partialGroupByKeyInstructionInputElementCodec-    , pgbkiiecAddtional--    -- * MapTask-    , MapTask-    , mapTask-    , mtInstructions-    , mtCounterPrefix-    , mtSystemName-    , mtStageName--    -- * MountedDataDisk-    , MountedDataDisk-    , mountedDataDisk-    , mddDataDisk--    -- * SinkCodec-    , SinkCodec-    , sinkCodec-    , scAddtional--    -- * SourceSplitShardDerivationMode-    , SourceSplitShardDerivationMode (..)--    -- * WorkerPoolDefaultPackageSet-    , WorkerPoolDefaultPackageSet (..)--    -- * IntegerMean-    , IntegerMean-    , integerMean-    , imCount-    , imSum--    -- * CounterMetadataKind-    , CounterMetadataKind (..)--    -- * WorkerHealthReportPodsItem-    , WorkerHealthReportPodsItem-    , workerHealthReportPodsItem-    , whrpiAddtional--    -- * ParDoInstructionUserFn-    , ParDoInstructionUserFn-    , parDoInstructionUserFn-    , pdiufAddtional--    -- * InstructionOutputCodec-    , InstructionOutputCodec-    , instructionOutputCodec-    , iocAddtional--    -- * StreamLocation-    , StreamLocation-    , streamLocation-    , slStreamingStageLocation-    , slSideInputLocation-    , slCustomSourceLocation-    , slPubsubLocation--    -- * WorkerLifecycleEventMetadata-    , WorkerLifecycleEventMetadata-    , workerLifecycleEventMetadata-    , wlemAddtional--    -- * WorkerPoolPoolArgs-    , WorkerPoolPoolArgs-    , workerPoolPoolArgs-    , wppaAddtional--    -- * RuntimeEnvironment-    , RuntimeEnvironment-    , runtimeEnvironment-    , reNumWorkers-    , reNetwork-    , reZone-    , reBypassTempDirValidation-    , reSubnetwork-    , reMachineType-    , reAdditionalUserLabels-    , reServiceAccountEmail-    , reAdditionalExperiments-    , reMaxWorkers-    , reTempLocation--    -- * CounterMetadata-    , CounterMetadata-    , counterMetadata-    , cmKind-    , cmDescription-    , cmStandardUnits-    , cmOtherUnits--    -- * SendWorkerMessagesResponse-    , SendWorkerMessagesResponse-    , sendWorkerMessagesResponse-    , swmrWorkerMessageResponses--    -- * JobCurrentState-    , JobCurrentState (..)--    -- * StreamingSideInputLocation-    , StreamingSideInputLocation-    , streamingSideInputLocation-    , ssilTag-    , ssilStateFamily--    -- * GetDebugConfigRequest-    , GetDebugConfigRequest-    , getDebugConfigRequest-    , gdcrLocation-    , gdcrComponentId-    , gdcrWorkerId--    -- * CounterStructuredNameAndMetadata-    , CounterStructuredNameAndMetadata-    , counterStructuredNameAndMetadata-    , csnamName-    , csnamMetadata--    -- * WorkerShutdownNotice-    , WorkerShutdownNotice-    , workerShutdownNotice-    , wsnReason--    -- * StreamingComputationTask-    , StreamingComputationTask-    , streamingComputationTask-    , sctTaskType-    , sctDataDisks-    , sctComputationRanges--    -- * PipelineDescription-    , PipelineDescription-    , pipelineDescription-    , pdExecutionPipelineStage-    , pdDisplayData-    , pdOriginalPipelineTransform--    -- * JobMessage-    , JobMessage-    , jobMessage-    , jmTime-    , jmMessageText-    , jmMessageImportance-    , jmId--    -- * WorkerLifecycleEvent-    , WorkerLifecycleEvent-    , workerLifecycleEvent-    , wleEvent-    , wleContainerStartTime-    , wleMetadata--    -- * ReportWorkItemStatusResponseUnifiedWorkerResponse-    , ReportWorkItemStatusResponseUnifiedWorkerResponse-    , reportWorkItemStatusResponseUnifiedWorkerResponse-    , rAddtional--    -- * RuntimeEnvironmentAdditionalUserLabels-    , RuntimeEnvironmentAdditionalUserLabels-    , runtimeEnvironmentAdditionalUserLabels-    , reaulAddtional--    -- * CounterMetadataStandardUnits-    , CounterMetadataStandardUnits (..)--    -- * SeqMapTaskOutputInfo-    , SeqMapTaskOutputInfo-    , seqMapTaskOutputInfo-    , smtoiSink-    , smtoiTag--    -- * PubSubIODetails-    , PubSubIODetails-    , pubSubIODetails-    , psiodTopic-    , psiodSubscription--    -- * SourceGetMetadataRequest-    , SourceGetMetadataRequest-    , sourceGetMetadataRequest-    , sgmrSource--    -- * WorkerShutdownNoticeResponse-    , WorkerShutdownNoticeResponse-    , workerShutdownNoticeResponse--    -- * SeqMapTaskUserFn-    , SeqMapTaskUserFn-    , seqMapTaskUserFn-    , smtufAddtional--    -- * PartialGroupByKeyInstructionValueCombiningFn-    , PartialGroupByKeyInstructionValueCombiningFn-    , partialGroupByKeyInstructionValueCombiningFn-    , pgbkivcfAddtional--    -- * Job-    , Job-    , job-    , jStepsLocation-    , jCreatedFromSnapshotId-    , jRequestedState-    , jJobMetadata-    , jLocation-    , jStartTime-    , jEnvironment-    , jClientRequestId-    , jStageStates-    , jCurrentState-    , jReplacedByJobId-    , jTempFiles-    , jSteps-    , jPipelineDescription-    , jExecutionInfo-    , jName-    , jTransformNameMApping-    , jId-    , jLabels-    , jProjectId-    , jType-    , jCurrentStateTime-    , jReplaceJobId-    , jCreateTime--    -- * AutoscalingEventEventType-    , AutoscalingEventEventType (..)--    -- * ReadInstruction-    , ReadInstruction-    , readInstruction-    , riSource--    -- * ApproximateReportedProgress-    , ApproximateReportedProgress-    , approximateReportedProgress-    , arpFractionConsumed-    , arpConsumedParallelism-    , arpRemainingParallelism-    , arpPosition--    -- * DerivedSourceDerivationMode-    , DerivedSourceDerivationMode (..)--    -- * SinkSpec-    , SinkSpec-    , sinkSpec-    , sAddtional--    -- * WorkerPool-    , WorkerPool-    , workerPool-    , wpAutoscalingSettings-    , wpNumThreadsPerWorker-    , wpDiskSizeGb-    , wpKind-    , wpTaskrunnerSettings-    , wpNumWorkers-    , wpNetwork-    , wpZone-    , wpIPConfiguration-    , wpPackages-    , wpOnHostMaintenance-    , wpDiskSourceImage-    , wpSubnetwork-    , wpMachineType-    , wpMetadata-    , wpDiskType-    , wpTeardownPolicy-    , wpDefaultPackageSet-    , wpPoolArgs-    , wpWorkerHarnessContainerImage-    , wpDataDisks--    -- * Step-    , Step-    , step-    , sKind-    , sName-    , sProperties--    -- * ComponentSource-    , ComponentSource-    , componentSource-    , csUserName-    , csName-    , csOriginalTransformOrCollection--    -- * ExecutionStageSummaryKind-    , ExecutionStageSummaryKind (..)--    -- * Xgafv-    , Xgafv (..)--    -- * Package-    , Package-    , package-    , pLocation-    , pName--    -- * ExecutionStageSummary-    , ExecutionStageSummary-    , executionStageSummary-    , essOutputSource-    , essKind-    , essInputSource-    , essName-    , essComponentSource-    , essId-    , essComponentTransform--    -- * WorkerMessageCodeParameters-    , WorkerMessageCodeParameters-    , workerMessageCodeParameters-    , wmcpAddtional--    -- * DynamicSourceSplit-    , DynamicSourceSplit-    , dynamicSourceSplit-    , dssResidual-    , dssPrimary--    -- * SnapshotJobRequest-    , SnapshotJobRequest-    , snapshotJobRequest-    , sjrTtl-    , sjrLocation--    -- * ReportWorkItemStatusResponse-    , ReportWorkItemStatusResponse-    , reportWorkItemStatusResponse-    , rwisrWorkItemServiceStates-    , rwisrUnifiedWorkerResponse--    -- * SourceFork-    , SourceFork-    , sourceFork-    , sfResidual-    , sfPrimarySource-    , sfPrimary-    , sfResidualSource--    -- * ResourceUtilizationReportResponse-    , ResourceUtilizationReportResponse-    , resourceUtilizationReportResponse--    -- * StreamingComputationRanges-    , StreamingComputationRanges-    , streamingComputationRanges-    , scrRangeAssignments-    , scrComputationId--    -- * ListJobsResponse-    , ListJobsResponse-    , listJobsResponse-    , ljrNextPageToken-    , ljrFailedLocation-    , ljrJobs--    -- * LaunchTemplateParametersParameters-    , LaunchTemplateParametersParameters-    , launchTemplateParametersParameters-    , ltppAddtional--    -- * Source-    , Source-    , source-    , souDoesNotNeedSplitting-    , souBaseSpecs-    , souCodec-    , souSpec-    , souMetadata--    -- * ApproximateProgress-    , ApproximateProgress-    , approximateProgress-    , apRemainingTime-    , apPercentComplete-    , apPosition--    -- * WorkerMessage-    , WorkerMessage-    , workerMessage-    , wmWorkerHealthReport-    , wmTime-    , wmWorkerMessageCode-    , wmWorkerMetrics-    , wmWorkerLifecycleEvent-    , wmWorkerShutdownNotice-    , wmLabels--    -- * KeyRangeLocation-    , KeyRangeLocation-    , keyRangeLocation-    , krlDataDisk-    , krlDeprecatedPersistentDirectory-    , krlStart-    , krlDeliveryEndpoint-    , krlEnd--    -- * Histogram-    , Histogram-    , histogram-    , hBucketCounts-    , hFirstBucketOffSet--    -- * JobRequestedState-    , JobRequestedState (..)--    -- * MultiOutputInfo-    , MultiOutputInfo-    , multiOutputInfo-    , moiTag--    -- * PartialGroupByKeyInstruction-    , PartialGroupByKeyInstruction-    , partialGroupByKeyInstruction-    , pgbkiValueCombiningFn-    , pgbkiSideInputs-    , pgbkiInput-    , pgbkiOriginalCombineValuesStepName-    , pgbkiInputElementCodec-    , pgbkiOriginalCombineValuesInputStoreName--    -- * LeaseWorkItemResponseUnifiedWorkerResponse-    , LeaseWorkItemResponseUnifiedWorkerResponse-    , leaseWorkItemResponseUnifiedWorkerResponse-    , lAddtional--    -- * WorkerLifecycleEventEvent-    , WorkerLifecycleEventEvent (..)--    -- * ExecutionStageStateExecutionStageState-    , ExecutionStageStateExecutionStageState (..)--    -- * ParDoInstruction-    , ParDoInstruction-    , parDoInstruction-    , pdiNumOutputs-    , pdiMultiOutputInfos-    , pdiSideInputs-    , pdiInput-    , pdiUserFn--    -- * CustomSourceLocation-    , CustomSourceLocation-    , customSourceLocation-    , cslStateful--    -- * DistributionUpdate-    , DistributionUpdate-    , distributionUpdate-    , duMax-    , duCount-    , duMin-    , duHistogram-    , duSumOfSquares-    , duSum--    -- * SourceBaseSpecsItem-    , SourceBaseSpecsItem-    , sourceBaseSpecsItem-    , sbsiAddtional--    -- * ParallelInstruction-    , ParallelInstruction-    , parallelInstruction-    , piRead-    , piWrite-    , piParDo-    , piPartialGroupByKey-    , piOutputs-    , piName-    , piSystemName-    , piFlatten-    , piOriginalName--    -- * SideInputInfoKind-    , SideInputInfoKind-    , sideInputInfoKind-    , siikAddtional--    -- * StreamingConfigTask-    , StreamingConfigTask-    , streamingConfigTask-    , sctUserStepToStateFamilyNameMap-    , sctStreamingComputationConfigs-    , sctWindmillServiceEndpoint-    , sctWindmillServicePort-    , sctMaxWorkItemCommitBytes--    -- * MetricShortId-    , MetricShortId-    , metricShortId-    , msiShortId-    , msiMetricIndex--    -- * SendWorkerMessagesRequest-    , SendWorkerMessagesRequest-    , sendWorkerMessagesRequest-    , swmrLocation-    , swmrWorkerMessages--    -- * SourceSplitShard-    , SourceSplitShard-    , sourceSplitShard-    , sssDerivationMode-    , sssSource--    -- * SideInputInfo-    , SideInputInfo-    , sideInputInfo-    , siiTag-    , siiKind-    , siiSources--    -- * ComponentTransform-    , ComponentTransform-    , componentTransform-    , ctOriginalTransform-    , ctUserName-    , ctName--    -- * StreamingComputationConfigTransformUserNameToStateFamily-    , StreamingComputationConfigTransformUserNameToStateFamily-    , streamingComputationConfigTransformUserNameToStateFamily-    , scctuntsfAddtional--    -- * WorkerPoolIPConfiguration-    , WorkerPoolIPConfiguration (..)--    -- * JobExecutionInfo-    , JobExecutionInfo-    , jobExecutionInfo-    , jeiStages--    -- * SourceCodec-    , SourceCodec-    , sourceCodec-    , souAddtional--    -- * StateFamilyConfig-    , StateFamilyConfig-    , stateFamilyConfig-    , sfcIsRead-    , sfcStateFamily--    -- * KeyRangeDataDiskAssignment-    , KeyRangeDataDiskAssignment-    , keyRangeDataDiskAssignment-    , krddaDataDisk-    , krddaStart-    , krddaEnd--    -- * AutoscalingEvent-    , AutoscalingEvent-    , autoscalingEvent-    , aeCurrentNumWorkers-    , aeTime-    , aeEventType-    , aeTargetNumWorkers-    , aeWorkerPool-    , aeDescription--    -- * SourceSplitRequest-    , SourceSplitRequest-    , sourceSplitRequest-    , ssrSource-    , ssrOptions--    -- * ListJobMessagesResponse-    , ListJobMessagesResponse-    , listJobMessagesResponse-    , ljmrJobMessages-    , ljmrNextPageToken-    , ljmrAutoscalingEvents--    -- * PubsubLocation-    , PubsubLocation-    , pubsubLocation-    , plTrackingSubscription-    , plDropLateData-    , plTimestampLabel-    , plIdLabel-    , plTopic-    , plWithAttributes-    , plSubscription--    -- * FloatingPointList-    , FloatingPointList-    , floatingPointList-    , fplElements--    -- * CounterStructuredNameOrigin-    , CounterStructuredNameOrigin (..)--    -- * InstructionInput-    , InstructionInput-    , instructionInput-    , iiProducerInstructionIndex-    , iiOutputNum--    -- * SeqMapTask-    , SeqMapTask-    , seqMapTask-    , smtInputs-    , smtName-    , smtOutputInfos-    , smtSystemName-    , smtStageName-    , smtUserFn--    -- * StreamingComputationTaskTaskType-    , StreamingComputationTaskTaskType (..)--    -- * StreamingConfigTaskUserStepToStateFamilyNameMap-    , StreamingConfigTaskUserStepToStateFamilyNameMap-    , streamingConfigTaskUserStepToStateFamilyNameMap-    , sctustsfnmAddtional--    -- * ExecutionStageState-    , ExecutionStageState-    , executionStageState-    , essExecutionStageName-    , essCurrentStateTime-    , essExecutionStageState--    -- * StageSource-    , StageSource-    , stageSource-    , ssSizeBytes-    , ssUserName-    , ssName-    , ssOriginalTransformOrCollection--    -- * SourceOperationRequest-    , SourceOperationRequest-    , sourceOperationRequest-    , souSplit-    , souGetMetadata-    , souName-    , souSystemName-    , souStageName-    , souOriginalName--    -- * SdkVersionSdkSupportStatus-    , SdkVersionSdkSupportStatus (..)--    -- * SpannerIODetails-    , SpannerIODetails-    , spannerIODetails-    , siodInstanceId-    , siodDatabaseId-    , siodProjectId--    -- * LeaseWorkItemResponse-    , LeaseWorkItemResponse-    , leaseWorkItemResponse-    , lwirWorkItems-    , lwirUnifiedWorkerResponse--    -- * Position-    , Position-    , position-    , pByteOffSet-    , pConcatPosition-    , pRecordIndex-    , pShufflePosition-    , pKey-    , pEnd--    -- * Parameter-    , Parameter-    , parameter-    , parValue-    , parKey-    ) where--import           Network.Google.Dataflow.Types.Product-import           Network.Google.Dataflow.Types.Sum-import           Network.Google.Prelude---- | Default request referring to version 'v1b3' of the Dataflow API. This contains the host and root path used as a starting point for constructing service requests.-dataflowService :: ServiceConfig-dataflowService-  = defaultService (ServiceId "dataflow:v1b3")-      "dataflow.googleapis.com"---- | View and manage your Google Compute Engine resources-computeScope :: Proxy '["https://www.googleapis.com/auth/compute"]-computeScope = Proxy---- | View your email address-userInfoEmailScope :: Proxy '["https://www.googleapis.com/auth/userinfo.email"]-userInfoEmailScope = Proxy---- | View and manage your data across Google Cloud Platform services-cloudPlatformScope :: Proxy '["https://www.googleapis.com/auth/cloud-platform"]-cloudPlatformScope = Proxy---- | View your Google Compute Engine resources-computeReadOnlyScope :: Proxy '["https://www.googleapis.com/auth/compute.readonly"]-computeReadOnlyScope = Proxy
− gen/Network/Google/Dataflow/Types/Product.hs 
@@ -1,12516 +0,0 @@-{-# LANGUAGE DeriveDataTypeable #-}-{-# LANGUAGE DeriveGeneric      #-}-{-# LANGUAGE NoImplicitPrelude  #-}-{-# LANGUAGE OverloadedStrings  #-}-{-# LANGUAGE RecordWildCards    #-}--{-# OPTIONS_GHC -fno-warn-unused-binds   #-}-{-# OPTIONS_GHC -fno-warn-unused-imports #-}---- |--- Module      : Network.Google.Dataflow.Types.Product--- 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)----module Network.Google.Dataflow.Types.Product where--import           Network.Google.Dataflow.Types.Sum-import           Network.Google.Prelude---- | A mapping from each stage to the information about that stage.------ /See:/ 'jobExecutionInfoStages' smart constructor.-newtype JobExecutionInfoStages =-  JobExecutionInfoStages'-    { _jeisAddtional :: HashMap Text JobExecutionStageInfo-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'JobExecutionInfoStages' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'jeisAddtional'-jobExecutionInfoStages-    :: HashMap Text JobExecutionStageInfo -- ^ 'jeisAddtional'-    -> JobExecutionInfoStages-jobExecutionInfoStages pJeisAddtional_ =-  JobExecutionInfoStages' {_jeisAddtional = _Coerce # pJeisAddtional_}---jeisAddtional :: Lens' JobExecutionInfoStages (HashMap Text JobExecutionStageInfo)-jeisAddtional-  = lens _jeisAddtional-      (\ s a -> s{_jeisAddtional = a})-      . _Coerce--instance FromJSON JobExecutionInfoStages where-        parseJSON-          = withObject "JobExecutionInfoStages"-              (\ o ->-                 JobExecutionInfoStages' <$> (parseJSONObject o))--instance ToJSON JobExecutionInfoStages where-        toJSON = toJSON . _jeisAddtional---- | All configuration data for a particular Computation.------ /See:/ 'computationTopology' smart constructor.-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)----- | Creates a value of 'ComputationTopology' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'ctStateFamilies'------ * 'ctInputs'------ * 'ctKeyRanges'------ * 'ctOutputs'------ * 'ctComputationId'------ * 'ctSystemStageName'-computationTopology-    :: ComputationTopology-computationTopology =-  ComputationTopology'-    { _ctStateFamilies = Nothing-    , _ctInputs = Nothing-    , _ctKeyRanges = Nothing-    , _ctOutputs = Nothing-    , _ctComputationId = Nothing-    , _ctSystemStageName = Nothing-    }----- | The state family values.-ctStateFamilies :: Lens' ComputationTopology [StateFamilyConfig]-ctStateFamilies-  = lens _ctStateFamilies-      (\ s a -> s{_ctStateFamilies = a})-      . _Default-      . _Coerce---- | The inputs to the computation.-ctInputs :: Lens' ComputationTopology [StreamLocation]-ctInputs-  = lens _ctInputs (\ s a -> s{_ctInputs = a}) .-      _Default-      . _Coerce---- | The key ranges processed by the computation.-ctKeyRanges :: Lens' ComputationTopology [KeyRangeLocation]-ctKeyRanges-  = lens _ctKeyRanges (\ s a -> s{_ctKeyRanges = a}) .-      _Default-      . _Coerce---- | The outputs from the computation.-ctOutputs :: Lens' ComputationTopology [StreamLocation]-ctOutputs-  = lens _ctOutputs (\ s a -> s{_ctOutputs = a}) .-      _Default-      . _Coerce---- | The ID of the computation.-ctComputationId :: Lens' ComputationTopology (Maybe Text)-ctComputationId-  = lens _ctComputationId-      (\ s a -> s{_ctComputationId = a})---- | The system stage name.-ctSystemStageName :: Lens' ComputationTopology (Maybe Text)-ctSystemStageName-  = lens _ctSystemStageName-      (\ s a -> s{_ctSystemStageName = a})--instance FromJSON ComputationTopology where-        parseJSON-          = withObject "ComputationTopology"-              (\ o ->-                 ComputationTopology' <$>-                   (o .:? "stateFamilies" .!= mempty) <*>-                     (o .:? "inputs" .!= mempty)-                     <*> (o .:? "keyRanges" .!= mempty)-                     <*> (o .:? "outputs" .!= mempty)-                     <*> (o .:? "computationId")-                     <*> (o .:? "systemStageName"))--instance ToJSON ComputationTopology where-        toJSON ComputationTopology'{..}-          = object-              (catMaybes-                 [("stateFamilies" .=) <$> _ctStateFamilies,-                  ("inputs" .=) <$> _ctInputs,-                  ("keyRanges" .=) <$> _ctKeyRanges,-                  ("outputs" .=) <$> _ctOutputs,-                  ("computationId" .=) <$> _ctComputationId,-                  ("systemStageName" .=) <$> _ctSystemStageName])---- | The response to a SourceSplitRequest.------ /See:/ 'sourceSplitResponse' smart constructor.-data SourceSplitResponse =-  SourceSplitResponse'-    { _ssrBundles :: !(Maybe [DerivedSource])-    , _ssrShards  :: !(Maybe [SourceSplitShard])-    , _ssrOutcome :: !(Maybe SourceSplitResponseOutcome)-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'SourceSplitResponse' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'ssrBundles'------ * 'ssrShards'------ * 'ssrOutcome'-sourceSplitResponse-    :: SourceSplitResponse-sourceSplitResponse =-  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--- can be empty, which means the source represents an empty input.-ssrBundles :: Lens' SourceSplitResponse [DerivedSource]-ssrBundles-  = lens _ssrBundles (\ s a -> s{_ssrBundles = a}) .-      _Default-      . _Coerce---- | DEPRECATED in favor of bundles.-ssrShards :: Lens' SourceSplitResponse [SourceSplitShard]-ssrShards-  = lens _ssrShards (\ s a -> s{_ssrShards = a}) .-      _Default-      . _Coerce---- | Indicates whether splitting happened and produced a list of bundles. If--- this is USE_CURRENT_SOURCE_AS_IS, the current source should be processed--- \"as is\" without splitting. \"bundles\" is ignored in this case. If--- this is SPLITTING_HAPPENED, then \"bundles\" contains a list of bundles--- into which the source was split.-ssrOutcome :: Lens' SourceSplitResponse (Maybe SourceSplitResponseOutcome)-ssrOutcome-  = lens _ssrOutcome (\ s a -> s{_ssrOutcome = a})--instance FromJSON SourceSplitResponse where-        parseJSON-          = withObject "SourceSplitResponse"-              (\ o ->-                 SourceSplitResponse' <$>-                   (o .:? "bundles" .!= mempty) <*>-                     (o .:? "shards" .!= mempty)-                     <*> (o .:? "outcome"))--instance ToJSON SourceSplitResponse where-        toJSON SourceSplitResponse'{..}-          = object-              (catMaybes-                 [("bundles" .=) <$> _ssrBundles,-                  ("shards" .=) <$> _ssrShards,-                  ("outcome" .=) <$> _ssrOutcome])---- | Metadata for a specific parameter.------ /See:/ 'parameterMetadata' smart constructor.-data ParameterMetadata =-  ParameterMetadata'-    { _pmHelpText   :: !(Maybe Text)-    , _pmIsOptional :: !(Maybe Bool)-    , _pmName       :: !(Maybe Text)-    , _pmRegexes    :: !(Maybe [Text])-    , _pmLabel      :: !(Maybe Text)-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'ParameterMetadata' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'pmHelpText'------ * 'pmIsOptional'------ * 'pmName'------ * 'pmRegexes'------ * 'pmLabel'-parameterMetadata-    :: ParameterMetadata-parameterMetadata =-  ParameterMetadata'-    { _pmHelpText = Nothing-    , _pmIsOptional = Nothing-    , _pmName = Nothing-    , _pmRegexes = Nothing-    , _pmLabel = Nothing-    }----- | Required. The help text to display for the parameter.-pmHelpText :: Lens' ParameterMetadata (Maybe Text)-pmHelpText-  = lens _pmHelpText (\ s a -> s{_pmHelpText = a})---- | Optional. Whether the parameter is optional. Defaults to false.-pmIsOptional :: Lens' ParameterMetadata (Maybe Bool)-pmIsOptional-  = lens _pmIsOptional (\ s a -> s{_pmIsOptional = a})---- | Required. The name of the parameter.-pmName :: Lens' ParameterMetadata (Maybe Text)-pmName = lens _pmName (\ s a -> s{_pmName = a})---- | Optional. Regexes that the parameter must match.-pmRegexes :: Lens' ParameterMetadata [Text]-pmRegexes-  = lens _pmRegexes (\ s a -> s{_pmRegexes = a}) .-      _Default-      . _Coerce---- | Required. The label to display for the parameter.-pmLabel :: Lens' ParameterMetadata (Maybe Text)-pmLabel = lens _pmLabel (\ s a -> s{_pmLabel = a})--instance FromJSON ParameterMetadata where-        parseJSON-          = withObject "ParameterMetadata"-              (\ o ->-                 ParameterMetadata' <$>-                   (o .:? "helpText") <*> (o .:? "isOptional") <*>-                     (o .:? "name")-                     <*> (o .:? "regexes" .!= mempty)-                     <*> (o .:? "label"))--instance ToJSON ParameterMetadata where-        toJSON ParameterMetadata'{..}-          = object-              (catMaybes-                 [("helpText" .=) <$> _pmHelpText,-                  ("isOptional" .=) <$> _pmIsOptional,-                  ("name" .=) <$> _pmName,-                  ("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'-    { _cjftrLocation    :: !(Maybe Text)-    , _cjftrEnvironment :: !(Maybe RuntimeEnvironment)-    , _cjftrJobName     :: !(Maybe Text)-    , _cjftrGcsPath     :: !(Maybe Text)-    , _cjftrParameters  :: !(Maybe CreateJobFromTemplateRequestParameters)-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'CreateJobFromTemplateRequest' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'cjftrLocation'------ * 'cjftrEnvironment'------ * 'cjftrJobName'------ * 'cjftrGcsPath'------ * 'cjftrParameters'-createJobFromTemplateRequest-    :: CreateJobFromTemplateRequest-createJobFromTemplateRequest =-  CreateJobFromTemplateRequest'-    { _cjftrLocation = Nothing-    , _cjftrEnvironment = Nothing-    , _cjftrJobName = Nothing-    , _cjftrGcsPath = Nothing-    , _cjftrParameters = Nothing-    }----- | 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-      (\ s a -> s{_cjftrLocation = a})---- | The runtime environment for the job.-cjftrEnvironment :: Lens' CreateJobFromTemplateRequest (Maybe RuntimeEnvironment)-cjftrEnvironment-  = lens _cjftrEnvironment-      (\ s a -> s{_cjftrEnvironment = a})---- | Required. The job name to use for the created job.-cjftrJobName :: Lens' CreateJobFromTemplateRequest (Maybe Text)-cjftrJobName-  = lens _cjftrJobName (\ s a -> s{_cjftrJobName = a})---- | Required. A Cloud Storage path to the template from which to create the--- job. Must be a valid Cloud Storage URL, beginning with \`gs:\/\/\`.-cjftrGcsPath :: Lens' CreateJobFromTemplateRequest (Maybe Text)-cjftrGcsPath-  = lens _cjftrGcsPath (\ s a -> s{_cjftrGcsPath = a})---- | The runtime parameters to pass to the job.-cjftrParameters :: Lens' CreateJobFromTemplateRequest (Maybe CreateJobFromTemplateRequestParameters)-cjftrParameters-  = lens _cjftrParameters-      (\ s a -> s{_cjftrParameters = a})--instance FromJSON CreateJobFromTemplateRequest where-        parseJSON-          = withObject "CreateJobFromTemplateRequest"-              (\ o ->-                 CreateJobFromTemplateRequest' <$>-                   (o .:? "location") <*> (o .:? "environment") <*>-                     (o .:? "jobName")-                     <*> (o .:? "gcsPath")-                     <*> (o .:? "parameters"))--instance ToJSON CreateJobFromTemplateRequest where-        toJSON CreateJobFromTemplateRequest'{..}-          = object-              (catMaybes-                 [("location" .=) <$> _cjftrLocation,-                  ("environment" .=) <$> _cjftrEnvironment,-                  ("jobName" .=) <$> _cjftrJobName,-                  ("gcsPath" .=) <$> _cjftrGcsPath,-                  ("parameters" .=) <$> _cjftrParameters])---- | The \`Status\` type defines a logical error model that is suitable for--- different programming environments, including REST APIs and RPC APIs. It--- is used by [gRPC](https:\/\/github.com\/grpc). The error model is--- designed to be: - Simple to use and understand for most users - Flexible--- enough to meet unexpected needs # Overview The \`Status\` message--- contains three pieces of data: error code, error message, and error--- details. The error code should be an enum value of google.rpc.Code, but--- it may accept additional error codes if needed. The error message should--- be a developer-facing English message that helps developers *understand*--- and *resolve* the error. If a localized user-facing error message is--- needed, put the localized message in the error details or localize it in--- the client. The optional error details may contain arbitrary information--- about the error. There is a predefined set of error detail types in the--- package \`google.rpc\` that can be used for common error conditions. #--- Language mapping The \`Status\` message is the logical representation of--- the error model, but it is not necessarily the actual wire format. When--- the \`Status\` message is exposed in different client libraries and--- different wire protocols, it can be mapped differently. For example, it--- will likely be mapped to some exceptions in Java, but more likely mapped--- to some error codes in C. # Other uses The error model and the--- \`Status\` message can be used in a variety of environments, either with--- or without APIs, to provide a consistent developer experience across--- different environments. Example uses of this error model include: ---- Partial errors. If a service needs to return partial errors to the--- client, it may embed the \`Status\` in the normal response to indicate--- the partial errors. - Workflow errors. A typical workflow has multiple--- steps. Each step may have a \`Status\` message for error reporting. ---- Batch operations. If a client uses batch request and batch response, the--- \`Status\` message should be used directly inside batch response, one--- for each error sub-response. - Asynchronous operations. If an API call--- embeds asynchronous operation results in its response, the status of--- those operations should be represented directly using the \`Status\`--- message. - Logging. If some API errors are stored in logs, the message--- \`Status\` could be used directly after any stripping needed for--- security\/privacy reasons.------ /See:/ 'status' smart constructor.-data Status =-  Status'-    { _sDetails :: !(Maybe [StatusDetailsItem])-    , _sCode    :: !(Maybe (Textual Int32))-    , _sMessage :: !(Maybe Text)-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'Status' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'sDetails'------ * 'sCode'------ * 'sMessage'-status-    :: Status-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.-sDetails :: Lens' Status [StatusDetailsItem]-sDetails-  = lens _sDetails (\ s a -> s{_sDetails = a}) .-      _Default-      . _Coerce---- | The status code, which should be an enum value of google.rpc.Code.-sCode :: Lens' Status (Maybe Int32)-sCode-  = lens _sCode (\ s a -> s{_sCode = a}) .-      mapping _Coerce---- | A developer-facing error message, which should be in English. Any--- user-facing error message should be localized and sent in the--- google.rpc.Status.details field, or localized by the client.-sMessage :: Lens' Status (Maybe Text)-sMessage = lens _sMessage (\ s a -> s{_sMessage = a})--instance FromJSON Status where-        parseJSON-          = withObject "Status"-              (\ o ->-                 Status' <$>-                   (o .:? "details" .!= mempty) <*> (o .:? "code") <*>-                     (o .:? "message"))--instance ToJSON Status where-        toJSON Status'{..}-          = object-              (catMaybes-                 [("details" .=) <$> _sDetails,-                  ("code" .=) <$> _sCode,-                  ("message" .=) <$> _sMessage])---- | Basic metadata about a counter.------ /See:/ 'nameAndKind' smart constructor.-data NameAndKind =-  NameAndKind'-    { _nakKind :: !(Maybe NameAndKindKind)-    , _nakName :: !(Maybe Text)-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'NameAndKind' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'nakKind'------ * 'nakName'-nameAndKind-    :: NameAndKind-nameAndKind = NameAndKind' {_nakKind = Nothing, _nakName = Nothing}----- | Counter aggregation kind.-nakKind :: Lens' NameAndKind (Maybe NameAndKindKind)-nakKind = lens _nakKind (\ s a -> s{_nakKind = a})---- | Name of the counter.-nakName :: Lens' NameAndKind (Maybe Text)-nakName = lens _nakName (\ s a -> s{_nakName = a})--instance FromJSON NameAndKind where-        parseJSON-          = withObject "NameAndKind"-              (\ o ->-                 NameAndKind' <$> (o .:? "kind") <*> (o .:? "name"))--instance ToJSON NameAndKind where-        toJSON NameAndKind'{..}-          = object-              (catMaybes-                 [("kind" .=) <$> _nakKind, ("name" .=) <$> _nakName])---- | A metric value representing a list of integers.------ /See:/ 'integerList' smart constructor.-newtype IntegerList =-  IntegerList'-    { _ilElements :: Maybe [SplitInt64]-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'IntegerList' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'ilElements'-integerList-    :: IntegerList-integerList = IntegerList' {_ilElements = Nothing}----- | Elements of the list.-ilElements :: Lens' IntegerList [SplitInt64]-ilElements-  = lens _ilElements (\ s a -> s{_ilElements = a}) .-      _Default-      . _Coerce--instance FromJSON IntegerList where-        parseJSON-          = withObject "IntegerList"-              (\ o ->-                 IntegerList' <$> (o .:? "elements" .!= mempty))--instance ToJSON IntegerList where-        toJSON IntegerList'{..}-          = object-              (catMaybes [("elements" .=) <$> _ilElements])---- | WorkItem represents basic information about a WorkItem to be executed in--- the cloud.------ /See:/ 'workItem' smart constructor.-data WorkItem =-  WorkItem'-    { _wiJobId                    :: !(Maybe Text)-    , _wiReportStatusInterval     :: !(Maybe GDuration)-    , _wiShellTask                :: !(Maybe ShellTask)-    , _wiStreamingSetupTask       :: !(Maybe StreamingSetupTask)-    , _wiInitialReportIndex       :: !(Maybe (Textual Int64))-    , _wiMapTask                  :: !(Maybe MapTask)-    , _wiPackages                 :: !(Maybe [Package])-    , _wiStreamingComputationTask :: !(Maybe StreamingComputationTask)-    , _wiSourceOperationTask      :: !(Maybe SourceOperationRequest)-    , _wiId                       :: !(Maybe (Textual Int64))-    , _wiProjectId                :: !(Maybe Text)-    , _wiLeaseExpireTime          :: !(Maybe DateTime')-    , _wiConfiguration            :: !(Maybe Text)-    , _wiStreamingConfigTask      :: !(Maybe StreamingConfigTask)-    , _wiSeqMapTask               :: !(Maybe SeqMapTask)-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'WorkItem' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'wiJobId'------ * 'wiReportStatusInterval'------ * 'wiShellTask'------ * 'wiStreamingSetupTask'------ * 'wiInitialReportIndex'------ * 'wiMapTask'------ * 'wiPackages'------ * 'wiStreamingComputationTask'------ * 'wiSourceOperationTask'------ * 'wiId'------ * 'wiProjectId'------ * 'wiLeaseExpireTime'------ * 'wiConfiguration'------ * 'wiStreamingConfigTask'------ * 'wiSeqMapTask'-workItem-    :: WorkItem-workItem =-  WorkItem'-    { _wiJobId = Nothing-    , _wiReportStatusInterval = Nothing-    , _wiShellTask = Nothing-    , _wiStreamingSetupTask = Nothing-    , _wiInitialReportIndex = Nothing-    , _wiMapTask = Nothing-    , _wiPackages = Nothing-    , _wiStreamingComputationTask = Nothing-    , _wiSourceOperationTask = Nothing-    , _wiId = Nothing-    , _wiProjectId = Nothing-    , _wiLeaseExpireTime = Nothing-    , _wiConfiguration = Nothing-    , _wiStreamingConfigTask = Nothing-    , _wiSeqMapTask = Nothing-    }----- | Identifies the workflow job this WorkItem belongs to.-wiJobId :: Lens' WorkItem (Maybe Text)-wiJobId = lens _wiJobId (\ s a -> s{_wiJobId = a})---- | Recommended reporting interval.-wiReportStatusInterval :: Lens' WorkItem (Maybe Scientific)-wiReportStatusInterval-  = lens _wiReportStatusInterval-      (\ s a -> s{_wiReportStatusInterval = a})-      . mapping _GDuration---- | Additional information for ShellTask WorkItems.-wiShellTask :: Lens' WorkItem (Maybe ShellTask)-wiShellTask-  = lens _wiShellTask (\ s a -> s{_wiShellTask = a})---- | Additional information for StreamingSetupTask WorkItems.-wiStreamingSetupTask :: Lens' WorkItem (Maybe StreamingSetupTask)-wiStreamingSetupTask-  = lens _wiStreamingSetupTask-      (\ s a -> s{_wiStreamingSetupTask = a})---- | The initial index to use when reporting the status of the WorkItem.-wiInitialReportIndex :: Lens' WorkItem (Maybe Int64)-wiInitialReportIndex-  = lens _wiInitialReportIndex-      (\ s a -> s{_wiInitialReportIndex = a})-      . mapping _Coerce---- | Additional information for MapTask WorkItems.-wiMapTask :: Lens' WorkItem (Maybe MapTask)-wiMapTask-  = lens _wiMapTask (\ s a -> s{_wiMapTask = a})---- | Any required packages that need to be fetched in order to execute this--- WorkItem.-wiPackages :: Lens' WorkItem [Package]-wiPackages-  = lens _wiPackages (\ s a -> s{_wiPackages = a}) .-      _Default-      . _Coerce---- | Additional information for StreamingComputationTask WorkItems.-wiStreamingComputationTask :: Lens' WorkItem (Maybe StreamingComputationTask)-wiStreamingComputationTask-  = lens _wiStreamingComputationTask-      (\ s a -> s{_wiStreamingComputationTask = a})---- | Additional information for source operation WorkItems.-wiSourceOperationTask :: Lens' WorkItem (Maybe SourceOperationRequest)-wiSourceOperationTask-  = lens _wiSourceOperationTask-      (\ s a -> s{_wiSourceOperationTask = a})---- | Identifies this WorkItem.-wiId :: Lens' WorkItem (Maybe Int64)-wiId-  = lens _wiId (\ s a -> s{_wiId = a}) .-      mapping _Coerce---- | Identifies the cloud project this WorkItem belongs to.-wiProjectId :: Lens' WorkItem (Maybe Text)-wiProjectId-  = lens _wiProjectId (\ s a -> s{_wiProjectId = a})---- | Time when the lease on this Work will expire.-wiLeaseExpireTime :: Lens' WorkItem (Maybe UTCTime)-wiLeaseExpireTime-  = lens _wiLeaseExpireTime-      (\ s a -> s{_wiLeaseExpireTime = a})-      . mapping _DateTime---- | Work item-specific configuration as an opaque blob.-wiConfiguration :: Lens' WorkItem (Maybe Text)-wiConfiguration-  = lens _wiConfiguration-      (\ s a -> s{_wiConfiguration = a})---- | Additional information for StreamingConfigTask WorkItems.-wiStreamingConfigTask :: Lens' WorkItem (Maybe StreamingConfigTask)-wiStreamingConfigTask-  = lens _wiStreamingConfigTask-      (\ s a -> s{_wiStreamingConfigTask = a})---- | Additional information for SeqMapTask WorkItems.-wiSeqMapTask :: Lens' WorkItem (Maybe SeqMapTask)-wiSeqMapTask-  = lens _wiSeqMapTask (\ s a -> s{_wiSeqMapTask = a})--instance FromJSON WorkItem where-        parseJSON-          = withObject "WorkItem"-              (\ o ->-                 WorkItem' <$>-                   (o .:? "jobId") <*> (o .:? "reportStatusInterval")-                     <*> (o .:? "shellTask")-                     <*> (o .:? "streamingSetupTask")-                     <*> (o .:? "initialReportIndex")-                     <*> (o .:? "mapTask")-                     <*> (o .:? "packages" .!= mempty)-                     <*> (o .:? "streamingComputationTask")-                     <*> (o .:? "sourceOperationTask")-                     <*> (o .:? "id")-                     <*> (o .:? "projectId")-                     <*> (o .:? "leaseExpireTime")-                     <*> (o .:? "configuration")-                     <*> (o .:? "streamingConfigTask")-                     <*> (o .:? "seqMapTask"))--instance ToJSON WorkItem where-        toJSON WorkItem'{..}-          = object-              (catMaybes-                 [("jobId" .=) <$> _wiJobId,-                  ("reportStatusInterval" .=) <$>-                    _wiReportStatusInterval,-                  ("shellTask" .=) <$> _wiShellTask,-                  ("streamingSetupTask" .=) <$> _wiStreamingSetupTask,-                  ("initialReportIndex" .=) <$> _wiInitialReportIndex,-                  ("mapTask" .=) <$> _wiMapTask,-                  ("packages" .=) <$> _wiPackages,-                  ("streamingComputationTask" .=) <$>-                    _wiStreamingComputationTask,-                  ("sourceOperationTask" .=) <$>-                    _wiSourceOperationTask,-                  ("id" .=) <$> _wiId,-                  ("projectId" .=) <$> _wiProjectId,-                  ("leaseExpireTime" .=) <$> _wiLeaseExpireTime,-                  ("configuration" .=) <$> _wiConfiguration,-                  ("streamingConfigTask" .=) <$>-                    _wiStreamingConfigTask,-                  ("seqMapTask" .=) <$> _wiSeqMapTask])---- | WorkerHealthReport contains information about the health of a worker.--- The VM should be identified by the labels attached to the WorkerMessage--- that this health ping belongs to.------ /See:/ 'workerHealthReport' smart constructor.-data WorkerHealthReport =-  WorkerHealthReport'-    { _whrVMIsHealthy    :: !(Maybe Bool)-    , _whrReportInterval :: !(Maybe GDuration)-    , _whrPods           :: !(Maybe [WorkerHealthReportPodsItem])-    , _whrVMStartupTime  :: !(Maybe DateTime')-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'WorkerHealthReport' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'whrVMIsHealthy'------ * 'whrReportInterval'------ * 'whrPods'------ * 'whrVMStartupTime'-workerHealthReport-    :: WorkerHealthReport-workerHealthReport =-  WorkerHealthReport'-    { _whrVMIsHealthy = Nothing-    , _whrReportInterval = Nothing-    , _whrPods = Nothing-    , _whrVMStartupTime = Nothing-    }----- | Whether the VM is healthy.-whrVMIsHealthy :: Lens' WorkerHealthReport (Maybe Bool)-whrVMIsHealthy-  = lens _whrVMIsHealthy-      (\ s a -> s{_whrVMIsHealthy = a})---- | The interval at which the worker is sending health reports. The default--- value of 0 should be interpreted as the field is not being explicitly--- set by the worker.-whrReportInterval :: Lens' WorkerHealthReport (Maybe Scientific)-whrReportInterval-  = lens _whrReportInterval-      (\ s a -> s{_whrReportInterval = a})-      . mapping _GDuration---- | The pods running on the worker. See:--- http:\/\/kubernetes.io\/v1.1\/docs\/api-reference\/v1\/definitions.html#_v1_pod--- This field is used by the worker to send the status of the indvidual--- containers running on each worker.-whrPods :: Lens' WorkerHealthReport [WorkerHealthReportPodsItem]-whrPods-  = lens _whrPods (\ s a -> s{_whrPods = a}) . _Default-      . _Coerce---- | The time the VM was booted.-whrVMStartupTime :: Lens' WorkerHealthReport (Maybe UTCTime)-whrVMStartupTime-  = lens _whrVMStartupTime-      (\ s a -> s{_whrVMStartupTime = a})-      . mapping _DateTime--instance FromJSON WorkerHealthReport where-        parseJSON-          = withObject "WorkerHealthReport"-              (\ o ->-                 WorkerHealthReport' <$>-                   (o .:? "vmIsHealthy") <*> (o .:? "reportInterval")-                     <*> (o .:? "pods" .!= mempty)-                     <*> (o .:? "vmStartupTime"))--instance ToJSON WorkerHealthReport where-        toJSON WorkerHealthReport'{..}-          = object-              (catMaybes-                 [("vmIsHealthy" .=) <$> _whrVMIsHealthy,-                  ("reportInterval" .=) <$> _whrReportInterval,-                  ("pods" .=) <$> _whrPods,-                  ("vmStartupTime" .=) <$> _whrVMStartupTime])---- | Represents a snapshot of a job.------ /See:/ 'snapshot' smart constructor.-data Snapshot =-  Snapshot'-    { _sCreationTime :: !(Maybe DateTime')-    , _sTtl          :: !(Maybe GDuration)-    , _sSourceJobId  :: !(Maybe Text)-    , _sId           :: !(Maybe Text)-    , _sProjectId    :: !(Maybe Text)-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'Snapshot' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'sCreationTime'------ * 'sTtl'------ * 'sSourceJobId'------ * 'sId'------ * 'sProjectId'-snapshot-    :: Snapshot-snapshot =-  Snapshot'-    { _sCreationTime = Nothing-    , _sTtl = Nothing-    , _sSourceJobId = Nothing-    , _sId = Nothing-    , _sProjectId = Nothing-    }----- | The time this snapshot was created.-sCreationTime :: Lens' Snapshot (Maybe UTCTime)-sCreationTime-  = lens _sCreationTime-      (\ s a -> s{_sCreationTime = a})-      . mapping _DateTime---- | The time after which this snapshot will be automatically deleted.-sTtl :: Lens' Snapshot (Maybe Scientific)-sTtl-  = lens _sTtl (\ s a -> s{_sTtl = a}) .-      mapping _GDuration---- | The job this snapshot was created from.-sSourceJobId :: Lens' Snapshot (Maybe Text)-sSourceJobId-  = lens _sSourceJobId (\ s a -> s{_sSourceJobId = a})---- | The unique ID of this snapshot.-sId :: Lens' Snapshot (Maybe Text)-sId = lens _sId (\ s a -> s{_sId = a})---- | The project this snapshot belongs to.-sProjectId :: Lens' Snapshot (Maybe Text)-sProjectId-  = lens _sProjectId (\ s a -> s{_sProjectId = a})--instance FromJSON Snapshot where-        parseJSON-          = withObject "Snapshot"-              (\ o ->-                 Snapshot' <$>-                   (o .:? "creationTime") <*> (o .:? "ttl") <*>-                     (o .:? "sourceJobId")-                     <*> (o .:? "id")-                     <*> (o .:? "projectId"))--instance ToJSON Snapshot where-        toJSON Snapshot'{..}-          = object-              (catMaybes-                 [("creationTime" .=) <$> _sCreationTime,-                  ("ttl" .=) <$> _sTtl,-                  ("sourceJobId" .=) <$> _sSourceJobId,-                  ("id" .=) <$> _sId,-                  ("projectId" .=) <$> _sProjectId])---- | Hints for splitting a Source into bundles (parts for parallel--- processing) using SourceSplitRequest.------ /See:/ 'sourceSplitOptions' smart constructor.-data SourceSplitOptions =-  SourceSplitOptions'-    { _ssoDesiredShardSizeBytes  :: !(Maybe (Textual Int64))-    , _ssoDesiredBundleSizeBytes :: !(Maybe (Textual Int64))-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'SourceSplitOptions' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'ssoDesiredShardSizeBytes'------ * 'ssoDesiredBundleSizeBytes'-sourceSplitOptions-    :: SourceSplitOptions-sourceSplitOptions =-  SourceSplitOptions'-    {_ssoDesiredShardSizeBytes = Nothing, _ssoDesiredBundleSizeBytes = Nothing}----- | DEPRECATED in favor of desired_bundle_size_bytes.-ssoDesiredShardSizeBytes :: Lens' SourceSplitOptions (Maybe Int64)-ssoDesiredShardSizeBytes-  = lens _ssoDesiredShardSizeBytes-      (\ s a -> s{_ssoDesiredShardSizeBytes = a})-      . mapping _Coerce---- | The source should be split into a set of bundles where the estimated--- size of each is approximately this many bytes.-ssoDesiredBundleSizeBytes :: Lens' SourceSplitOptions (Maybe Int64)-ssoDesiredBundleSizeBytes-  = lens _ssoDesiredBundleSizeBytes-      (\ s a -> s{_ssoDesiredBundleSizeBytes = a})-      . mapping _Coerce--instance FromJSON SourceSplitOptions where-        parseJSON-          = withObject "SourceSplitOptions"-              (\ o ->-                 SourceSplitOptions' <$>-                   (o .:? "desiredShardSizeBytes") <*>-                     (o .:? "desiredBundleSizeBytes"))--instance ToJSON SourceSplitOptions where-        toJSON SourceSplitOptions'{..}-          = object-              (catMaybes-                 [("desiredShardSizeBytes" .=) <$>-                    _ssoDesiredShardSizeBytes,-                  ("desiredBundleSizeBytes" .=) <$>-                    _ssoDesiredBundleSizeBytes])---- | Metadata to set on the Google Compute Engine VMs.------ /See:/ 'workerPoolMetadata' smart constructor.-newtype WorkerPoolMetadata =-  WorkerPoolMetadata'-    { _wpmAddtional :: HashMap Text Text-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'WorkerPoolMetadata' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'wpmAddtional'-workerPoolMetadata-    :: HashMap Text Text -- ^ 'wpmAddtional'-    -> WorkerPoolMetadata-workerPoolMetadata pWpmAddtional_ =-  WorkerPoolMetadata' {_wpmAddtional = _Coerce # pWpmAddtional_}---wpmAddtional :: Lens' WorkerPoolMetadata (HashMap Text Text)-wpmAddtional-  = lens _wpmAddtional (\ s a -> s{_wpmAddtional = a})-      . _Coerce--instance FromJSON WorkerPoolMetadata where-        parseJSON-          = withObject "WorkerPoolMetadata"-              (\ o -> WorkerPoolMetadata' <$> (parseJSONObject o))--instance ToJSON WorkerPoolMetadata where-        toJSON = toJSON . _wpmAddtional---- | Settings for WorkerPool autoscaling.------ /See:/ 'autoscalingSettings' smart constructor.-data AutoscalingSettings =-  AutoscalingSettings'-    { _asMaxNumWorkers :: !(Maybe (Textual Int32))-    , _asAlgorithm     :: !(Maybe AutoscalingSettingsAlgorithm)-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'AutoscalingSettings' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'asMaxNumWorkers'------ * 'asAlgorithm'-autoscalingSettings-    :: AutoscalingSettings-autoscalingSettings =-  AutoscalingSettings' {_asMaxNumWorkers = Nothing, _asAlgorithm = Nothing}----- | The maximum number of workers to cap scaling at.-asMaxNumWorkers :: Lens' AutoscalingSettings (Maybe Int32)-asMaxNumWorkers-  = lens _asMaxNumWorkers-      (\ s a -> s{_asMaxNumWorkers = a})-      . mapping _Coerce---- | The algorithm to use for autoscaling.-asAlgorithm :: Lens' AutoscalingSettings (Maybe AutoscalingSettingsAlgorithm)-asAlgorithm-  = lens _asAlgorithm (\ s a -> s{_asAlgorithm = a})--instance FromJSON AutoscalingSettings where-        parseJSON-          = withObject "AutoscalingSettings"-              (\ o ->-                 AutoscalingSettings' <$>-                   (o .:? "maxNumWorkers") <*> (o .:? "algorithm"))--instance ToJSON AutoscalingSettings where-        toJSON AutoscalingSettings'{..}-          = object-              (catMaybes-                 [("maxNumWorkers" .=) <$> _asMaxNumWorkers,-                  ("algorithm" .=) <$> _asAlgorithm])---- | Contains information about how a particular google.dataflow.v1beta3.Step--- will be executed.------ /See:/ 'jobExecutionStageInfo' smart constructor.-newtype JobExecutionStageInfo =-  JobExecutionStageInfo'-    { _jesiStepName :: Maybe [Text]-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'JobExecutionStageInfo' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'jesiStepName'-jobExecutionStageInfo-    :: JobExecutionStageInfo-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--- stage.-jesiStepName :: Lens' JobExecutionStageInfo [Text]-jesiStepName-  = lens _jesiStepName (\ s a -> s{_jesiStepName = a})-      . _Default-      . _Coerce--instance FromJSON JobExecutionStageInfo where-        parseJSON-          = withObject "JobExecutionStageInfo"-              (\ o ->-                 JobExecutionStageInfo' <$>-                   (o .:? "stepName" .!= mempty))--instance ToJSON JobExecutionStageInfo where-        toJSON JobExecutionStageInfo'{..}-          = object-              (catMaybes [("stepName" .=) <$> _jesiStepName])---- | An output of an instruction.------ /See:/ 'instructionOutput' smart constructor.-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)----- | Creates a value of 'InstructionOutput' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'ioOnlyCountValueBytes'------ * 'ioCodec'------ * 'ioName'------ * 'ioSystemName'------ * 'ioOriginalName'------ * 'ioOnlyCountKeyBytes'-instructionOutput-    :: InstructionOutput-instructionOutput =-  InstructionOutput'-    { _ioOnlyCountValueBytes = Nothing-    , _ioCodec = Nothing-    , _ioName = Nothing-    , _ioSystemName = Nothing-    , _ioOriginalName = Nothing-    , _ioOnlyCountKeyBytes = Nothing-    }----- | For system-generated byte and mean byte metrics, certain instructions--- should only report the value size.-ioOnlyCountValueBytes :: Lens' InstructionOutput (Maybe Bool)-ioOnlyCountValueBytes-  = lens _ioOnlyCountValueBytes-      (\ s a -> s{_ioOnlyCountValueBytes = a})---- | The codec to use to encode data being written via this output.-ioCodec :: Lens' InstructionOutput (Maybe InstructionOutputCodec)-ioCodec = lens _ioCodec (\ s a -> s{_ioCodec = a})---- | The user-provided name of this output.-ioName :: Lens' InstructionOutput (Maybe Text)-ioName = lens _ioName (\ s a -> s{_ioName = a})---- | System-defined name of this output. Unique across the workflow.-ioSystemName :: Lens' InstructionOutput (Maybe Text)-ioSystemName-  = lens _ioSystemName (\ s a -> s{_ioSystemName = a})---- | System-defined name for this output in the original workflow graph.--- Outputs that do not contribute to an original instruction do not set--- this.-ioOriginalName :: Lens' InstructionOutput (Maybe Text)-ioOriginalName-  = lens _ioOriginalName-      (\ s a -> s{_ioOriginalName = a})---- | For system-generated byte and mean byte metrics, certain instructions--- should only report the key size.-ioOnlyCountKeyBytes :: Lens' InstructionOutput (Maybe Bool)-ioOnlyCountKeyBytes-  = lens _ioOnlyCountKeyBytes-      (\ s a -> s{_ioOnlyCountKeyBytes = a})--instance FromJSON InstructionOutput where-        parseJSON-          = withObject "InstructionOutput"-              (\ o ->-                 InstructionOutput' <$>-                   (o .:? "onlyCountValueBytes") <*> (o .:? "codec") <*>-                     (o .:? "name")-                     <*> (o .:? "systemName")-                     <*> (o .:? "originalName")-                     <*> (o .:? "onlyCountKeyBytes"))--instance ToJSON InstructionOutput where-        toJSON InstructionOutput'{..}-          = object-              (catMaybes-                 [("onlyCountValueBytes" .=) <$>-                    _ioOnlyCountValueBytes,-                  ("codec" .=) <$> _ioCodec, ("name" .=) <$> _ioName,-                  ("systemName" .=) <$> _ioSystemName,-                  ("originalName" .=) <$> _ioOriginalName,-                  ("onlyCountKeyBytes" .=) <$> _ioOnlyCountKeyBytes])---- | A metric value representing temporal values of a variable.------ /See:/ 'integerGauge' smart constructor.-data IntegerGauge =-  IntegerGauge'-    { _igValue     :: !(Maybe SplitInt64)-    , _igTimestamp :: !(Maybe DateTime')-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'IntegerGauge' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'igValue'------ * 'igTimestamp'-integerGauge-    :: IntegerGauge-integerGauge = IntegerGauge' {_igValue = Nothing, _igTimestamp = Nothing}----- | The value of the variable represented by this gauge.-igValue :: Lens' IntegerGauge (Maybe SplitInt64)-igValue = lens _igValue (\ s a -> s{_igValue = a})---- | The time at which this value was measured. Measured as msecs from epoch.-igTimestamp :: Lens' IntegerGauge (Maybe UTCTime)-igTimestamp-  = lens _igTimestamp (\ s a -> s{_igTimestamp = a}) .-      mapping _DateTime--instance FromJSON IntegerGauge where-        parseJSON-          = withObject "IntegerGauge"-              (\ o ->-                 IntegerGauge' <$>-                   (o .:? "value") <*> (o .:? "timestamp"))--instance ToJSON IntegerGauge where-        toJSON IntegerGauge'{..}-          = object-              (catMaybes-                 [("value" .=) <$> _igValue,-                  ("timestamp" .=) <$> _igTimestamp])---- | Parameters to provide to the template being launched.------ /See:/ 'launchTemplateParameters' smart constructor.-data LaunchTemplateParameters =-  LaunchTemplateParameters'-    { _ltpEnvironment :: !(Maybe RuntimeEnvironment)-    , _ltpJobName     :: !(Maybe Text)-    , _ltpParameters  :: !(Maybe LaunchTemplateParametersParameters)-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'LaunchTemplateParameters' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'ltpEnvironment'------ * 'ltpJobName'------ * 'ltpParameters'-launchTemplateParameters-    :: LaunchTemplateParameters-launchTemplateParameters =-  LaunchTemplateParameters'-    {_ltpEnvironment = Nothing, _ltpJobName = Nothing, _ltpParameters = Nothing}----- | The runtime environment for the job.-ltpEnvironment :: Lens' LaunchTemplateParameters (Maybe RuntimeEnvironment)-ltpEnvironment-  = lens _ltpEnvironment-      (\ s a -> s{_ltpEnvironment = a})---- | Required. The job name to use for the created job.-ltpJobName :: Lens' LaunchTemplateParameters (Maybe Text)-ltpJobName-  = lens _ltpJobName (\ s a -> s{_ltpJobName = a})---- | The runtime parameters to pass to the job.-ltpParameters :: Lens' LaunchTemplateParameters (Maybe LaunchTemplateParametersParameters)-ltpParameters-  = lens _ltpParameters-      (\ s a -> s{_ltpParameters = a})--instance FromJSON LaunchTemplateParameters where-        parseJSON-          = withObject "LaunchTemplateParameters"-              (\ o ->-                 LaunchTemplateParameters' <$>-                   (o .:? "environment") <*> (o .:? "jobName") <*>-                     (o .:? "parameters"))--instance ToJSON LaunchTemplateParameters where-        toJSON LaunchTemplateParameters'{..}-          = object-              (catMaybes-                 [("environment" .=) <$> _ltpEnvironment,-                  ("jobName" .=) <$> _ltpJobName,-                  ("parameters" .=) <$> _ltpParameters])---- | Request to report the status of WorkItems.------ /See:/ 'reportWorkItemStatusRequest' smart constructor.-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.------ Use one of the following lenses to modify other fields as desired:------ * 'rwisrCurrentWorkerTime'------ * 'rwisrLocation'------ * 'rwisrUnifiedWorkerRequest'------ * 'rwisrWorkItemStatuses'------ * 'rwisrWorkerId'-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-  = lens _rwisrCurrentWorkerTime-      (\ s a -> s{_rwisrCurrentWorkerTime = a})-      . mapping _DateTime---- | 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.-rwisrWorkItemStatuses :: Lens' ReportWorkItemStatusRequest [WorkItemStatus]-rwisrWorkItemStatuses-  = lens _rwisrWorkItemStatuses-      (\ s a -> s{_rwisrWorkItemStatuses = a})-      . _Default-      . _Coerce---- | The ID of the worker reporting the WorkItem status. If this does not--- match the ID of the worker which the Dataflow service believes currently--- has the lease on the WorkItem, the report will be dropped (with an error--- response).-rwisrWorkerId :: Lens' ReportWorkItemStatusRequest (Maybe Text)-rwisrWorkerId-  = lens _rwisrWorkerId-      (\ s a -> s{_rwisrWorkerId = a})--instance FromJSON ReportWorkItemStatusRequest where-        parseJSON-          = withObject "ReportWorkItemStatusRequest"-              (\ o ->-                 ReportWorkItemStatusRequest' <$>-                   (o .:? "currentWorkerTime") <*> (o .:? "location")-                     <*> (o .:? "unifiedWorkerRequest")-                     <*> (o .:? "workItemStatuses" .!= mempty)-                     <*> (o .:? "workerId"))--instance ToJSON ReportWorkItemStatusRequest where-        toJSON ReportWorkItemStatusRequest'{..}-          = object-              (catMaybes-                 [("currentWorkerTime" .=) <$>-                    _rwisrCurrentWorkerTime,-                  ("location" .=) <$> _rwisrLocation,-                  ("unifiedWorkerRequest" .=) <$>-                    _rwisrUnifiedWorkerRequest,-                  ("workItemStatuses" .=) <$> _rwisrWorkItemStatuses,-                  ("workerId" .=) <$> _rwisrWorkerId])---- | A structure describing which components and their versions of the--- service are required in order to run the job.------ /See:/ 'environmentVersion' smart constructor.-newtype EnvironmentVersion =-  EnvironmentVersion'-    { _evAddtional :: HashMap Text JSONValue-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'EnvironmentVersion' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'evAddtional'-environmentVersion-    :: HashMap Text JSONValue -- ^ 'evAddtional'-    -> EnvironmentVersion-environmentVersion pEvAddtional_ =-  EnvironmentVersion' {_evAddtional = _Coerce # pEvAddtional_}----- | Properties of the object.-evAddtional :: Lens' EnvironmentVersion (HashMap Text JSONValue)-evAddtional-  = lens _evAddtional (\ s a -> s{_evAddtional = a}) .-      _Coerce--instance FromJSON EnvironmentVersion where-        parseJSON-          = withObject "EnvironmentVersion"-              (\ o -> EnvironmentVersion' <$> (parseJSONObject o))--instance ToJSON EnvironmentVersion where-        toJSON = toJSON . _evAddtional---- | Streaming appliance snapshot configuration.------ /See:/ 'streamingApplianceSnapshotConfig' smart constructor.-data StreamingApplianceSnapshotConfig =-  StreamingApplianceSnapshotConfig'-    { _sascImportStateEndpoint :: !(Maybe Text)-    , _sascSnapshotId          :: !(Maybe Text)-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'StreamingApplianceSnapshotConfig' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'sascImportStateEndpoint'------ * 'sascSnapshotId'-streamingApplianceSnapshotConfig-    :: StreamingApplianceSnapshotConfig-streamingApplianceSnapshotConfig =-  StreamingApplianceSnapshotConfig'-    {_sascImportStateEndpoint = Nothing, _sascSnapshotId = Nothing}----- | Indicates which endpoint is used to import appliance state.-sascImportStateEndpoint :: Lens' StreamingApplianceSnapshotConfig (Maybe Text)-sascImportStateEndpoint-  = lens _sascImportStateEndpoint-      (\ s a -> s{_sascImportStateEndpoint = a})---- | If set, indicates the snapshot id for the snapshot being performed.-sascSnapshotId :: Lens' StreamingApplianceSnapshotConfig (Maybe Text)-sascSnapshotId-  = lens _sascSnapshotId-      (\ s a -> s{_sascSnapshotId = a})--instance FromJSON StreamingApplianceSnapshotConfig-         where-        parseJSON-          = withObject "StreamingApplianceSnapshotConfig"-              (\ o ->-                 StreamingApplianceSnapshotConfig' <$>-                   (o .:? "importStateEndpoint") <*>-                     (o .:? "snapshotId"))--instance ToJSON StreamingApplianceSnapshotConfig-         where-        toJSON StreamingApplianceSnapshotConfig'{..}-          = object-              (catMaybes-                 [("importStateEndpoint" .=) <$>-                    _sascImportStateEndpoint,-                  ("snapshotId" .=) <$> _sascSnapshotId])---- | A sink that records can be encoded and written to.------ /See:/ 'sink' smart constructor.-data Sink =-  Sink'-    { _sCodec :: !(Maybe SinkCodec)-    , _sSpec  :: !(Maybe SinkSpec)-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'Sink' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'sCodec'------ * 'sSpec'-sink-    :: Sink-sink = Sink' {_sCodec = Nothing, _sSpec = Nothing}----- | The codec to use to encode data written to the sink.-sCodec :: Lens' Sink (Maybe SinkCodec)-sCodec = lens _sCodec (\ s a -> s{_sCodec = a})---- | The sink to write to, plus its parameters.-sSpec :: Lens' Sink (Maybe SinkSpec)-sSpec = lens _sSpec (\ s a -> s{_sSpec = a})--instance FromJSON Sink where-        parseJSON-          = withObject "Sink"-              (\ o -> Sink' <$> (o .:? "codec") <*> (o .:? "spec"))--instance ToJSON Sink where-        toJSON Sink'{..}-          = object-              (catMaybes-                 [("codec" .=) <$> _sCodec, ("spec" .=) <$> _sSpec])---- | A metric value representing a list of strings.------ /See:/ 'stringList' smart constructor.-newtype StringList =-  StringList'-    { _slElements :: Maybe [Text]-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'StringList' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'slElements'-stringList-    :: StringList-stringList = StringList' {_slElements = Nothing}----- | Elements of the list.-slElements :: Lens' StringList [Text]-slElements-  = lens _slElements (\ s a -> s{_slElements = a}) .-      _Default-      . _Coerce--instance FromJSON StringList where-        parseJSON-          = withObject "StringList"-              (\ o ->-                 StringList' <$> (o .:? "elements" .!= mempty))--instance ToJSON StringList where-        toJSON StringList'{..}-          = object-              (catMaybes [("elements" .=) <$> _slElements])---- | WorkerHealthReportResponse contains information returned to the worker--- in response to a health ping.------ /See:/ 'workerHealthReportResponse' smart constructor.-newtype WorkerHealthReportResponse =-  WorkerHealthReportResponse'-    { _whrrReportInterval :: Maybe GDuration-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'WorkerHealthReportResponse' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'whrrReportInterval'-workerHealthReportResponse-    :: WorkerHealthReportResponse-workerHealthReportResponse =-  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--- change in report rate is requested by the server.-whrrReportInterval :: Lens' WorkerHealthReportResponse (Maybe Scientific)-whrrReportInterval-  = lens _whrrReportInterval-      (\ s a -> s{_whrrReportInterval = a})-      . mapping _GDuration--instance FromJSON WorkerHealthReportResponse where-        parseJSON-          = withObject "WorkerHealthReportResponse"-              (\ o ->-                 WorkerHealthReportResponse' <$>-                   (o .:? "reportInterval"))--instance ToJSON WorkerHealthReportResponse where-        toJSON WorkerHealthReportResponse'{..}-          = object-              (catMaybes-                 [("reportInterval" .=) <$> _whrrReportInterval])---- | Data provided with a pipeline or transform to provide descriptive info.------ /See:/ 'displayData' smart constructor.-data DisplayData =-  DisplayData'-    { _ddDurationValue  :: !(Maybe GDuration)-    , _ddBoolValue      :: !(Maybe Bool)-    , _ddTimestampValue :: !(Maybe DateTime')-    , _ddURL            :: !(Maybe Text)-    , _ddNamespace      :: !(Maybe Text)-    , _ddJavaClassValue :: !(Maybe Text)-    , _ddShortStrValue  :: !(Maybe Text)-    , _ddKey            :: !(Maybe Text)-    , _ddInt64Value     :: !(Maybe (Textual Int64))-    , _ddFloatValue     :: !(Maybe (Textual Double))-    , _ddStrValue       :: !(Maybe Text)-    , _ddLabel          :: !(Maybe Text)-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'DisplayData' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'ddDurationValue'------ * 'ddBoolValue'------ * 'ddTimestampValue'------ * 'ddURL'------ * 'ddNamespace'------ * 'ddJavaClassValue'------ * 'ddShortStrValue'------ * 'ddKey'------ * 'ddInt64Value'------ * 'ddFloatValue'------ * 'ddStrValue'------ * 'ddLabel'-displayData-    :: DisplayData-displayData =-  DisplayData'-    { _ddDurationValue = Nothing-    , _ddBoolValue = Nothing-    , _ddTimestampValue = Nothing-    , _ddURL = Nothing-    , _ddNamespace = Nothing-    , _ddJavaClassValue = Nothing-    , _ddShortStrValue = Nothing-    , _ddKey = Nothing-    , _ddInt64Value = Nothing-    , _ddFloatValue = Nothing-    , _ddStrValue = Nothing-    , _ddLabel = Nothing-    }----- | Contains value if the data is of duration type.-ddDurationValue :: Lens' DisplayData (Maybe Scientific)-ddDurationValue-  = lens _ddDurationValue-      (\ s a -> s{_ddDurationValue = a})-      . mapping _GDuration---- | Contains value if the data is of a boolean type.-ddBoolValue :: Lens' DisplayData (Maybe Bool)-ddBoolValue-  = lens _ddBoolValue (\ s a -> s{_ddBoolValue = a})---- | Contains value if the data is of timestamp type.-ddTimestampValue :: Lens' DisplayData (Maybe UTCTime)-ddTimestampValue-  = lens _ddTimestampValue-      (\ s a -> s{_ddTimestampValue = a})-      . mapping _DateTime---- | An optional full URL.-ddURL :: Lens' DisplayData (Maybe Text)-ddURL = lens _ddURL (\ s a -> s{_ddURL = a})---- | The namespace for the key. This is usually a class name or programming--- language namespace (i.e. python module) which defines the display data.--- This allows a dax monitoring system to specially handle the data and--- perform custom rendering.-ddNamespace :: Lens' DisplayData (Maybe Text)-ddNamespace-  = lens _ddNamespace (\ s a -> s{_ddNamespace = a})---- | Contains value if the data is of java class type.-ddJavaClassValue :: Lens' DisplayData (Maybe Text)-ddJavaClassValue-  = lens _ddJavaClassValue-      (\ s a -> s{_ddJavaClassValue = a})---- | A possible additional shorter value to display. For example a--- java_class_name_value of com.mypackage.MyDoFn will be stored with MyDoFn--- as the short_str_value and com.mypackage.MyDoFn as the java_class_name--- value. short_str_value can be displayed and java_class_name_value will--- be displayed as a tooltip.-ddShortStrValue :: Lens' DisplayData (Maybe Text)-ddShortStrValue-  = lens _ddShortStrValue-      (\ s a -> s{_ddShortStrValue = a})---- | The key identifying the display data. This is intended to be used as a--- label for the display data when viewed in a dax monitoring system.-ddKey :: Lens' DisplayData (Maybe Text)-ddKey = lens _ddKey (\ s a -> s{_ddKey = a})---- | Contains value if the data is of int64 type.-ddInt64Value :: Lens' DisplayData (Maybe Int64)-ddInt64Value-  = lens _ddInt64Value (\ s a -> s{_ddInt64Value = a})-      . mapping _Coerce---- | Contains value if the data is of float type.-ddFloatValue :: Lens' DisplayData (Maybe Double)-ddFloatValue-  = lens _ddFloatValue (\ s a -> s{_ddFloatValue = a})-      . mapping _Coerce---- | Contains value if the data is of string type.-ddStrValue :: Lens' DisplayData (Maybe Text)-ddStrValue-  = lens _ddStrValue (\ s a -> s{_ddStrValue = a})---- | An optional label to display in a dax UI for the element.-ddLabel :: Lens' DisplayData (Maybe Text)-ddLabel = lens _ddLabel (\ s a -> s{_ddLabel = a})--instance FromJSON DisplayData where-        parseJSON-          = withObject "DisplayData"-              (\ o ->-                 DisplayData' <$>-                   (o .:? "durationValue") <*> (o .:? "boolValue") <*>-                     (o .:? "timestampValue")-                     <*> (o .:? "url")-                     <*> (o .:? "namespace")-                     <*> (o .:? "javaClassValue")-                     <*> (o .:? "shortStrValue")-                     <*> (o .:? "key")-                     <*> (o .:? "int64Value")-                     <*> (o .:? "floatValue")-                     <*> (o .:? "strValue")-                     <*> (o .:? "label"))--instance ToJSON DisplayData where-        toJSON DisplayData'{..}-          = object-              (catMaybes-                 [("durationValue" .=) <$> _ddDurationValue,-                  ("boolValue" .=) <$> _ddBoolValue,-                  ("timestampValue" .=) <$> _ddTimestampValue,-                  ("url" .=) <$> _ddURL,-                  ("namespace" .=) <$> _ddNamespace,-                  ("javaClassValue" .=) <$> _ddJavaClassValue,-                  ("shortStrValue" .=) <$> _ddShortStrValue,-                  ("key" .=) <$> _ddKey,-                  ("int64Value" .=) <$> _ddInt64Value,-                  ("floatValue" .=) <$> _ddFloatValue,-                  ("strValue" .=) <$> _ddStrValue,-                  ("label" .=) <$> _ddLabel])---- | Response to a send capture request. nothing------ /See:/ 'sendDebugCaptureResponse' smart constructor.-data SendDebugCaptureResponse =-  SendDebugCaptureResponse'-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'SendDebugCaptureResponse' with the minimum fields required to make a request.----sendDebugCaptureResponse-    :: SendDebugCaptureResponse-sendDebugCaptureResponse = SendDebugCaptureResponse'---instance FromJSON SendDebugCaptureResponse where-        parseJSON-          = withObject "SendDebugCaptureResponse"-              (\ o -> pure SendDebugCaptureResponse')--instance ToJSON SendDebugCaptureResponse where-        toJSON = const emptyObject---- | A rich message format, including a human readable string, a key for--- identifying the message, and structured data associated with the message--- for programmatic consumption.------ /See:/ 'structuredMessage' smart constructor.-data StructuredMessage =-  StructuredMessage'-    { _smMessageText :: !(Maybe Text)-    , _smMessageKey  :: !(Maybe Text)-    , _smParameters  :: !(Maybe [Parameter])-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'StructuredMessage' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'smMessageText'------ * 'smMessageKey'------ * 'smParameters'-structuredMessage-    :: StructuredMessage-structuredMessage =-  StructuredMessage'-    {_smMessageText = Nothing, _smMessageKey = Nothing, _smParameters = Nothing}----- | Human-readable version of message.-smMessageText :: Lens' StructuredMessage (Maybe Text)-smMessageText-  = lens _smMessageText-      (\ s a -> s{_smMessageText = a})---- | Identifier for this message type. Used by external systems to--- internationalize or personalize message.-smMessageKey :: Lens' StructuredMessage (Maybe Text)-smMessageKey-  = lens _smMessageKey (\ s a -> s{_smMessageKey = a})---- | The structured data associated with this message.-smParameters :: Lens' StructuredMessage [Parameter]-smParameters-  = lens _smParameters (\ s a -> s{_smParameters = a})-      . _Default-      . _Coerce--instance FromJSON StructuredMessage where-        parseJSON-          = withObject "StructuredMessage"-              (\ o ->-                 StructuredMessage' <$>-                   (o .:? "messageText") <*> (o .:? "messageKey") <*>-                     (o .:? "parameters" .!= mempty))--instance ToJSON StructuredMessage where-        toJSON StructuredMessage'{..}-          = object-              (catMaybes-                 [("messageText" .=) <$> _smMessageText,-                  ("messageKey" .=) <$> _smMessageKey,-                  ("parameters" .=) <$> _smParameters])---- | User-defined labels for this job. The labels map can contain no more--- than 64 entries. Entries of the labels map are UTF8 strings that comply--- with the following restrictions: * Keys must conform to regexp:--- \\p{Ll}\\p{Lo}{0,62} * Values must conform to regexp:--- [\\p{Ll}\\p{Lo}\\p{N}_-]{0,63} * Both keys and values are additionally--- constrained to be \<= 128 bytes in size.------ /See:/ 'jobLabels' smart constructor.-newtype JobLabels =-  JobLabels'-    { _jlAddtional :: HashMap Text Text-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'JobLabels' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'jlAddtional'-jobLabels-    :: HashMap Text Text -- ^ 'jlAddtional'-    -> JobLabels-jobLabels pJlAddtional_ = JobLabels' {_jlAddtional = _Coerce # pJlAddtional_}---jlAddtional :: Lens' JobLabels (HashMap Text Text)-jlAddtional-  = lens _jlAddtional (\ s a -> s{_jlAddtional = a}) .-      _Coerce--instance FromJSON JobLabels where-        parseJSON-          = withObject "JobLabels"-              (\ o -> JobLabels' <$> (parseJSONObject o))--instance ToJSON JobLabels where-        toJSON = toJSON . _jlAddtional---- | Identifies a metric, by describing the source which generated the--- metric.------ /See:/ 'metricStructuredName' smart constructor.-data MetricStructuredName =-  MetricStructuredName'-    { _msnOrigin  :: !(Maybe Text)-    , _msnContext :: !(Maybe MetricStructuredNameContext)-    , _msnName    :: !(Maybe Text)-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'MetricStructuredName' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'msnOrigin'------ * 'msnContext'------ * 'msnName'-metricStructuredName-    :: MetricStructuredName-metricStructuredName =-  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.-msnOrigin :: Lens' MetricStructuredName (Maybe Text)-msnOrigin-  = lens _msnOrigin (\ s a -> s{_msnOrigin = a})---- | Zero or more labeled fields which identify the part of the job this--- metric is associated with, such as the name of a step or collection. For--- example, built-in counters associated with steps will have--- context[\'step\'] = . Counters associated with PCollections in the SDK--- will have context[\'pcollection\'] = .-msnContext :: Lens' MetricStructuredName (Maybe MetricStructuredNameContext)-msnContext-  = lens _msnContext (\ s a -> s{_msnContext = a})---- | Worker-defined metric name.-msnName :: Lens' MetricStructuredName (Maybe Text)-msnName = lens _msnName (\ s a -> s{_msnName = a})--instance FromJSON MetricStructuredName where-        parseJSON-          = withObject "MetricStructuredName"-              (\ o ->-                 MetricStructuredName' <$>-                   (o .:? "origin") <*> (o .:? "context") <*>-                     (o .:? "name"))--instance ToJSON MetricStructuredName where-        toJSON MetricStructuredName'{..}-          = object-              (catMaybes-                 [("origin" .=) <$> _msnOrigin,-                  ("context" .=) <$> _msnContext,-                  ("name" .=) <$> _msnName])---- | Metadata for a BigQuery connector used by the job.------ /See:/ 'bigQueryIODetails' smart constructor.-data BigQueryIODetails =-  BigQueryIODetails'-    { _bqiodDataSet   :: !(Maybe Text)-    , _bqiodQuery     :: !(Maybe Text)-    , _bqiodProjectId :: !(Maybe Text)-    , _bqiodTable     :: !(Maybe Text)-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'BigQueryIODetails' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'bqiodDataSet'------ * 'bqiodQuery'------ * 'bqiodProjectId'------ * 'bqiodTable'-bigQueryIODetails-    :: BigQueryIODetails-bigQueryIODetails =-  BigQueryIODetails'-    { _bqiodDataSet = Nothing-    , _bqiodQuery = Nothing-    , _bqiodProjectId = Nothing-    , _bqiodTable = Nothing-    }----- | Dataset accessed in the connection.-bqiodDataSet :: Lens' BigQueryIODetails (Maybe Text)-bqiodDataSet-  = lens _bqiodDataSet (\ s a -> s{_bqiodDataSet = a})---- | Query used to access data in the connection.-bqiodQuery :: Lens' BigQueryIODetails (Maybe Text)-bqiodQuery-  = lens _bqiodQuery (\ s a -> s{_bqiodQuery = a})---- | Project accessed in the connection.-bqiodProjectId :: Lens' BigQueryIODetails (Maybe Text)-bqiodProjectId-  = lens _bqiodProjectId-      (\ s a -> s{_bqiodProjectId = a})---- | Table accessed in the connection.-bqiodTable :: Lens' BigQueryIODetails (Maybe Text)-bqiodTable-  = lens _bqiodTable (\ s a -> s{_bqiodTable = a})--instance FromJSON BigQueryIODetails where-        parseJSON-          = withObject "BigQueryIODetails"-              (\ o ->-                 BigQueryIODetails' <$>-                   (o .:? "dataset") <*> (o .:? "query") <*>-                     (o .:? "projectId")-                     <*> (o .:? "table"))--instance ToJSON BigQueryIODetails where-        toJSON BigQueryIODetails'{..}-          = object-              (catMaybes-                 [("dataset" .=) <$> _bqiodDataSet,-                  ("query" .=) <$> _bqiodQuery,-                  ("projectId" .=) <$> _bqiodProjectId,-                  ("table" .=) <$> _bqiodTable])---- | Metadata for a File connector used by the job.------ /See:/ 'fileIODetails' smart constructor.-newtype FileIODetails =-  FileIODetails'-    { _fiodFilePattern :: Maybe Text-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'FileIODetails' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'fiodFilePattern'-fileIODetails-    :: FileIODetails-fileIODetails = FileIODetails' {_fiodFilePattern = Nothing}----- | File Pattern used to access files by the connector.-fiodFilePattern :: Lens' FileIODetails (Maybe Text)-fiodFilePattern-  = lens _fiodFilePattern-      (\ s a -> s{_fiodFilePattern = a})--instance FromJSON FileIODetails where-        parseJSON-          = withObject "FileIODetails"-              (\ o -> FileIODetails' <$> (o .:? "filePattern"))--instance ToJSON FileIODetails where-        toJSON FileIODetails'{..}-          = object-              (catMaybes [("filePattern" .=) <$> _fiodFilePattern])---- | Identifies a counter within a per-job namespace. Counters whose--- structured names are the same get merged into a single value for the--- job.------ /See:/ 'counterStructuredName' smart constructor.-data CounterStructuredName =-  CounterStructuredName'-    { _csnOrigin                     :: !(Maybe CounterStructuredNameOrigin)-    , _csnOriginNamespace            :: !(Maybe Text)-    , _csnComponentStepName          :: !(Maybe Text)-    , _csnPortion                    :: !(Maybe CounterStructuredNamePortion)-    , _csnOriginalStepName           :: !(Maybe Text)-    , _csnName                       :: !(Maybe Text)-    , _csnExecutionStepName          :: !(Maybe Text)-    , _csnOriginalRequestingStepName :: !(Maybe Text)-    , _csnInputIndex                 :: !(Maybe (Textual Int32))-    , _csnWorkerId                   :: !(Maybe Text)-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'CounterStructuredName' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'csnOrigin'------ * 'csnOriginNamespace'------ * 'csnComponentStepName'------ * 'csnPortion'------ * 'csnOriginalStepName'------ * 'csnName'------ * 'csnExecutionStepName'------ * 'csnOriginalRequestingStepName'------ * 'csnInputIndex'------ * 'csnWorkerId'-counterStructuredName-    :: CounterStructuredName-counterStructuredName =-  CounterStructuredName'-    { _csnOrigin = Nothing-    , _csnOriginNamespace = Nothing-    , _csnComponentStepName = Nothing-    , _csnPortion = Nothing-    , _csnOriginalStepName = Nothing-    , _csnName = Nothing-    , _csnExecutionStepName = Nothing-    , _csnOriginalRequestingStepName = Nothing-    , _csnInputIndex = Nothing-    , _csnWorkerId = Nothing-    }----- | One of the standard Origins defined above.-csnOrigin :: Lens' CounterStructuredName (Maybe CounterStructuredNameOrigin)-csnOrigin-  = lens _csnOrigin (\ s a -> s{_csnOrigin = a})---- | A string containing a more specific namespace of the counter\'s origin.-csnOriginNamespace :: Lens' CounterStructuredName (Maybe Text)-csnOriginNamespace-  = lens _csnOriginNamespace-      (\ s a -> s{_csnOriginNamespace = a})---- | Name of the optimized step being executed by the workers.-csnComponentStepName :: Lens' CounterStructuredName (Maybe Text)-csnComponentStepName-  = lens _csnComponentStepName-      (\ s a -> s{_csnComponentStepName = a})---- | Portion of this counter, either key or value.-csnPortion :: Lens' CounterStructuredName (Maybe CounterStructuredNamePortion)-csnPortion-  = lens _csnPortion (\ s a -> s{_csnPortion = a})---- | System generated name of the original step in the user\'s graph, before--- optimization.-csnOriginalStepName :: Lens' CounterStructuredName (Maybe Text)-csnOriginalStepName-  = lens _csnOriginalStepName-      (\ s a -> s{_csnOriginalStepName = a})---- | Counter name. Not necessarily globally-unique, but unique within the--- context of the other fields. Required.-csnName :: Lens' CounterStructuredName (Maybe Text)-csnName = lens _csnName (\ s a -> s{_csnName = a})---- | Name of the stage. An execution step contains multiple component steps.-csnExecutionStepName :: Lens' CounterStructuredName (Maybe Text)-csnExecutionStepName-  = lens _csnExecutionStepName-      (\ s a -> s{_csnExecutionStepName = a})---- | The step name requesting an operation, such as GBK. I.e. the ParDo--- causing a read\/write from shuffle to occur, or a read from side inputs.-csnOriginalRequestingStepName :: Lens' CounterStructuredName (Maybe Text)-csnOriginalRequestingStepName-  = lens _csnOriginalRequestingStepName-      (\ s a -> s{_csnOriginalRequestingStepName = a})---- | Index of an input collection that\'s being read from\/written to as a--- side input. The index identifies a step\'s side inputs starting by 1--- (e.g. the first side input has input_index 1, the third has input_index--- 3). Side inputs are identified by a pair of (original_step_name,--- input_index). This field helps uniquely identify them.-csnInputIndex :: Lens' CounterStructuredName (Maybe Int32)-csnInputIndex-  = lens _csnInputIndex-      (\ s a -> s{_csnInputIndex = a})-      . mapping _Coerce---- | ID of a particular worker.-csnWorkerId :: Lens' CounterStructuredName (Maybe Text)-csnWorkerId-  = lens _csnWorkerId (\ s a -> s{_csnWorkerId = a})--instance FromJSON CounterStructuredName where-        parseJSON-          = withObject "CounterStructuredName"-              (\ o ->-                 CounterStructuredName' <$>-                   (o .:? "origin") <*> (o .:? "originNamespace") <*>-                     (o .:? "componentStepName")-                     <*> (o .:? "portion")-                     <*> (o .:? "originalStepName")-                     <*> (o .:? "name")-                     <*> (o .:? "executionStepName")-                     <*> (o .:? "originalRequestingStepName")-                     <*> (o .:? "inputIndex")-                     <*> (o .:? "workerId"))--instance ToJSON CounterStructuredName where-        toJSON CounterStructuredName'{..}-          = object-              (catMaybes-                 [("origin" .=) <$> _csnOrigin,-                  ("originNamespace" .=) <$> _csnOriginNamespace,-                  ("componentStepName" .=) <$> _csnComponentStepName,-                  ("portion" .=) <$> _csnPortion,-                  ("originalStepName" .=) <$> _csnOriginalStepName,-                  ("name" .=) <$> _csnName,-                  ("executionStepName" .=) <$> _csnExecutionStepName,-                  ("originalRequestingStepName" .=) <$>-                    _csnOriginalRequestingStepName,-                  ("inputIndex" .=) <$> _csnInputIndex,-                  ("workerId" .=) <$> _csnWorkerId])---- | Metadata available primarily for filtering jobs. Will be included in the--- ListJob response and Job SUMMARY view.------ /See:/ 'jobMetadata' smart constructor.-data JobMetadata =-  JobMetadata'-    { _jmSpannerDetails   :: !(Maybe [SpannerIODetails])-    , _jmBigTableDetails  :: !(Maybe [BigTableIODetails])-    , _jmSdkVersion       :: !(Maybe SdkVersion)-    , _jmPubsubDetails    :: !(Maybe [PubSubIODetails])-    , _jmFileDetails      :: !(Maybe [FileIODetails])-    , _jmBigQueryDetails  :: !(Maybe [BigQueryIODetails])-    , _jmDatastoreDetails :: !(Maybe [DatastoreIODetails])-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'JobMetadata' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'jmSpannerDetails'------ * 'jmBigTableDetails'------ * 'jmSdkVersion'------ * 'jmPubsubDetails'------ * 'jmFileDetails'------ * 'jmBigQueryDetails'------ * 'jmDatastoreDetails'-jobMetadata-    :: JobMetadata-jobMetadata =-  JobMetadata'-    { _jmSpannerDetails = Nothing-    , _jmBigTableDetails = Nothing-    , _jmSdkVersion = Nothing-    , _jmPubsubDetails = Nothing-    , _jmFileDetails = Nothing-    , _jmBigQueryDetails = Nothing-    , _jmDatastoreDetails = Nothing-    }----- | Identification of a Spanner source used in the Dataflow job.-jmSpannerDetails :: Lens' JobMetadata [SpannerIODetails]-jmSpannerDetails-  = lens _jmSpannerDetails-      (\ s a -> s{_jmSpannerDetails = a})-      . _Default-      . _Coerce---- | Identification of a BigTable source used in the Dataflow job.-jmBigTableDetails :: Lens' JobMetadata [BigTableIODetails]-jmBigTableDetails-  = lens _jmBigTableDetails-      (\ s a -> s{_jmBigTableDetails = a})-      . _Default-      . _Coerce---- | The SDK version used to run the job.-jmSdkVersion :: Lens' JobMetadata (Maybe SdkVersion)-jmSdkVersion-  = lens _jmSdkVersion (\ s a -> s{_jmSdkVersion = a})---- | Identification of a PubSub source used in the Dataflow job.-jmPubsubDetails :: Lens' JobMetadata [PubSubIODetails]-jmPubsubDetails-  = lens _jmPubsubDetails-      (\ s a -> s{_jmPubsubDetails = a})-      . _Default-      . _Coerce---- | Identification of a File source used in the Dataflow job.-jmFileDetails :: Lens' JobMetadata [FileIODetails]-jmFileDetails-  = lens _jmFileDetails-      (\ s a -> s{_jmFileDetails = a})-      . _Default-      . _Coerce---- | Identification of a BigQuery source used in the Dataflow job.-jmBigQueryDetails :: Lens' JobMetadata [BigQueryIODetails]-jmBigQueryDetails-  = lens _jmBigQueryDetails-      (\ s a -> s{_jmBigQueryDetails = a})-      . _Default-      . _Coerce---- | Identification of a Datastore source used in the Dataflow job.-jmDatastoreDetails :: Lens' JobMetadata [DatastoreIODetails]-jmDatastoreDetails-  = lens _jmDatastoreDetails-      (\ s a -> s{_jmDatastoreDetails = a})-      . _Default-      . _Coerce--instance FromJSON JobMetadata where-        parseJSON-          = withObject "JobMetadata"-              (\ o ->-                 JobMetadata' <$>-                   (o .:? "spannerDetails" .!= mempty) <*>-                     (o .:? "bigTableDetails" .!= mempty)-                     <*> (o .:? "sdkVersion")-                     <*> (o .:? "pubsubDetails" .!= mempty)-                     <*> (o .:? "fileDetails" .!= mempty)-                     <*> (o .:? "bigqueryDetails" .!= mempty)-                     <*> (o .:? "datastoreDetails" .!= mempty))--instance ToJSON JobMetadata where-        toJSON JobMetadata'{..}-          = object-              (catMaybes-                 [("spannerDetails" .=) <$> _jmSpannerDetails,-                  ("bigTableDetails" .=) <$> _jmBigTableDetails,-                  ("sdkVersion" .=) <$> _jmSdkVersion,-                  ("pubsubDetails" .=) <$> _jmPubsubDetails,-                  ("fileDetails" .=) <$> _jmFileDetails,-                  ("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'-    { _gtrStatus   :: !(Maybe Status)-    , _gtrMetadata :: !(Maybe TemplateMetadata)-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'GetTemplateResponse' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'gtrStatus'------ * 'gtrMetadata'-getTemplateResponse-    :: GetTemplateResponse-getTemplateResponse =-  GetTemplateResponse' {_gtrStatus = Nothing, _gtrMetadata = Nothing}----- | The status of the get template request. Any problems with the request--- will be indicated in the error_details.-gtrStatus :: Lens' GetTemplateResponse (Maybe Status)-gtrStatus-  = lens _gtrStatus (\ s a -> s{_gtrStatus = a})---- | The template metadata describing the template name, available--- parameters, etc.-gtrMetadata :: Lens' GetTemplateResponse (Maybe TemplateMetadata)-gtrMetadata-  = lens _gtrMetadata (\ s a -> s{_gtrMetadata = a})--instance FromJSON GetTemplateResponse where-        parseJSON-          = withObject "GetTemplateResponse"-              (\ o ->-                 GetTemplateResponse' <$>-                   (o .:? "status") <*> (o .:? "metadata"))--instance ToJSON GetTemplateResponse where-        toJSON GetTemplateResponse'{..}-          = object-              (catMaybes-                 [("status" .=) <$> _gtrStatus,-                  ("metadata" .=) <$> _gtrMetadata])---- | An instruction that writes records. Takes one input, produces no--- outputs.------ /See:/ 'writeInstruction' smart constructor.-data WriteInstruction =-  WriteInstruction'-    { _wiSink  :: !(Maybe Sink)-    , _wiInput :: !(Maybe InstructionInput)-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'WriteInstruction' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'wiSink'------ * 'wiInput'-writeInstruction-    :: WriteInstruction-writeInstruction = WriteInstruction' {_wiSink = Nothing, _wiInput = Nothing}----- | The sink to write to.-wiSink :: Lens' WriteInstruction (Maybe Sink)-wiSink = lens _wiSink (\ s a -> s{_wiSink = a})---- | The input.-wiInput :: Lens' WriteInstruction (Maybe InstructionInput)-wiInput = lens _wiInput (\ s a -> s{_wiInput = a})--instance FromJSON WriteInstruction where-        parseJSON-          = withObject "WriteInstruction"-              (\ o ->-                 WriteInstruction' <$>-                   (o .:? "sink") <*> (o .:? "input"))--instance ToJSON WriteInstruction where-        toJSON WriteInstruction'{..}-          = object-              (catMaybes-                 [("sink" .=) <$> _wiSink, ("input" .=) <$> _wiInput])---- | A description of the process that generated the request.------ /See:/ 'environmentUserAgent' smart constructor.-newtype EnvironmentUserAgent =-  EnvironmentUserAgent'-    { _euaAddtional :: HashMap Text JSONValue-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'EnvironmentUserAgent' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'euaAddtional'-environmentUserAgent-    :: HashMap Text JSONValue -- ^ 'euaAddtional'-    -> EnvironmentUserAgent-environmentUserAgent pEuaAddtional_ =-  EnvironmentUserAgent' {_euaAddtional = _Coerce # pEuaAddtional_}----- | Properties of the object.-euaAddtional :: Lens' EnvironmentUserAgent (HashMap Text JSONValue)-euaAddtional-  = lens _euaAddtional (\ s a -> s{_euaAddtional = a})-      . _Coerce--instance FromJSON EnvironmentUserAgent where-        parseJSON-          = withObject "EnvironmentUserAgent"-              (\ o ->-                 EnvironmentUserAgent' <$> (parseJSONObject o))--instance ToJSON EnvironmentUserAgent where-        toJSON = toJSON . _euaAddtional---- | Describes the data disk used by a workflow job.------ /See:/ 'disk' smart constructor.-data Disk =-  Disk'-    { _dSizeGb     :: !(Maybe (Textual Int32))-    , _dDiskType   :: !(Maybe Text)-    , _dMountPoint :: !(Maybe Text)-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'Disk' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'dSizeGb'------ * 'dDiskType'------ * 'dMountPoint'-disk-    :: Disk-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.-dSizeGb :: Lens' Disk (Maybe Int32)-dSizeGb-  = lens _dSizeGb (\ s a -> s{_dSizeGb = a}) .-      mapping _Coerce---- | Disk storage type, as defined by Google Compute Engine. This must be a--- disk type appropriate to the project and zone in which the workers will--- run. If unknown or unspecified, the service will attempt to choose a--- reasonable default. For example, the standard persistent disk type is a--- resource name typically ending in \"pd-standard\". If SSD persistent--- disks are available, the resource name typically ends with \"pd-ssd\".--- The actual valid values are defined the Google Compute Engine API, not--- by the Cloud Dataflow API; consult the Google Compute Engine--- documentation for more information about determining the set of--- available disk types for a particular project and zone. Google Compute--- Engine Disk types are local to a particular project in a particular--- zone, and so the resource name will typically look something like this:--- compute.googleapis.com\/projects\/project-id\/zones\/zone\/diskTypes\/pd-standard-dDiskType :: Lens' Disk (Maybe Text)-dDiskType-  = lens _dDiskType (\ s a -> s{_dDiskType = a})---- | Directory in a VM where disk is mounted.-dMountPoint :: Lens' Disk (Maybe Text)-dMountPoint-  = lens _dMountPoint (\ s a -> s{_dMountPoint = a})--instance FromJSON Disk where-        parseJSON-          = withObject "Disk"-              (\ o ->-                 Disk' <$>-                   (o .:? "sizeGb") <*> (o .:? "diskType") <*>-                     (o .:? "mountPoint"))--instance ToJSON Disk where-        toJSON Disk'{..}-          = object-              (catMaybes-                 [("sizeGb" .=) <$> _dSizeGb,-                  ("diskType" .=) <$> _dDiskType,-                  ("mountPoint" .=) <$> _dMountPoint])---- | Describes the state of a metric.------ /See:/ 'metricUpdate' smart constructor.-data MetricUpdate =-  MetricUpdate'-    { _muMeanSum      :: !(Maybe JSONValue)-    , _muInternal     :: !(Maybe JSONValue)-    , _muSet          :: !(Maybe JSONValue)-    , _muDistribution :: !(Maybe JSONValue)-    , _muCumulative   :: !(Maybe Bool)-    , _muKind         :: !(Maybe Text)-    , _muGauge        :: !(Maybe JSONValue)-    , _muUpdateTime   :: !(Maybe DateTime')-    , _muMeanCount    :: !(Maybe JSONValue)-    , _muName         :: !(Maybe MetricStructuredName)-    , _muScalar       :: !(Maybe JSONValue)-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'MetricUpdate' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'muMeanSum'------ * 'muInternal'------ * 'muSet'------ * 'muDistribution'------ * 'muCumulative'------ * 'muKind'------ * 'muGauge'------ * 'muUpdateTime'------ * 'muMeanCount'------ * 'muName'------ * 'muScalar'-metricUpdate-    :: MetricUpdate-metricUpdate =-  MetricUpdate'-    { _muMeanSum = Nothing-    , _muInternal = Nothing-    , _muSet = Nothing-    , _muDistribution = Nothing-    , _muCumulative = Nothing-    , _muKind = Nothing-    , _muGauge = Nothing-    , _muUpdateTime = Nothing-    , _muMeanCount = Nothing-    , _muName = Nothing-    , _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--- possible value types are Long and Double.-muMeanSum :: Lens' MetricUpdate (Maybe JSONValue)-muMeanSum-  = lens _muMeanSum (\ s a -> s{_muMeanSum = a})---- | Worker-computed aggregate value for internal use by the Dataflow--- service.-muInternal :: Lens' MetricUpdate (Maybe JSONValue)-muInternal-  = lens _muInternal (\ s a -> s{_muInternal = a})---- | Worker-computed aggregate value for the \"Set\" aggregation kind. The--- only possible value type is a list of Values whose type can be Long,--- Double, or String, according to the metric\'s type. All Values in the--- list must be of the same type.-muSet :: Lens' MetricUpdate (Maybe JSONValue)-muSet = lens _muSet (\ s a -> s{_muSet = a})---- | A struct value describing properties of a distribution of numeric--- values.-muDistribution :: Lens' MetricUpdate (Maybe JSONValue)-muDistribution-  = lens _muDistribution-      (\ s a -> s{_muDistribution = a})---- | True if this metric is reported as the total cumulative aggregate value--- accumulated since the worker started working on this WorkItem. By--- default this is false, indicating that this metric is reported as a--- delta that is not associated with any WorkItem.-muCumulative :: Lens' MetricUpdate (Maybe Bool)-muCumulative-  = lens _muCumulative (\ s a -> s{_muCumulative = a})---- | Metric aggregation kind. The possible metric aggregation kinds are--- \"Sum\", \"Max\", \"Min\", \"Mean\", \"Set\", \"And\", \"Or\", and--- \"Distribution\". The specified aggregation kind is case-insensitive. If--- omitted, this is not an aggregated value but instead a single metric--- sample value.-muKind :: Lens' MetricUpdate (Maybe Text)-muKind = lens _muKind (\ s a -> s{_muKind = a})---- | A struct value describing properties of a Gauge. Metrics of gauge type--- show the value of a metric across time, and is aggregated based on the--- newest value.-muGauge :: Lens' MetricUpdate (Maybe JSONValue)-muGauge = lens _muGauge (\ s a -> s{_muGauge = a})---- | Timestamp associated with the metric value. Optional when workers are--- reporting work progress; it will be filled in responses from the metrics--- API.-muUpdateTime :: Lens' MetricUpdate (Maybe UTCTime)-muUpdateTime-  = lens _muUpdateTime (\ s a -> s{_muUpdateTime = a})-      . mapping _DateTime---- | Worker-computed aggregate value for the \"Mean\" aggregation kind. This--- holds the count of the aggregated values and is used in combination with--- mean_sum above to obtain the actual mean aggregate value. The only--- possible value type is Long.-muMeanCount :: Lens' MetricUpdate (Maybe JSONValue)-muMeanCount-  = lens _muMeanCount (\ s a -> s{_muMeanCount = a})---- | Name of the metric.-muName :: Lens' MetricUpdate (Maybe MetricStructuredName)-muName = lens _muName (\ s a -> s{_muName = a})---- | Worker-computed aggregate value for aggregation kinds \"Sum\", \"Max\",--- \"Min\", \"And\", and \"Or\". The possible value types are Long, Double,--- and Boolean.-muScalar :: Lens' MetricUpdate (Maybe JSONValue)-muScalar = lens _muScalar (\ s a -> s{_muScalar = a})--instance FromJSON MetricUpdate where-        parseJSON-          = withObject "MetricUpdate"-              (\ o ->-                 MetricUpdate' <$>-                   (o .:? "meanSum") <*> (o .:? "internal") <*>-                     (o .:? "set")-                     <*> (o .:? "distribution")-                     <*> (o .:? "cumulative")-                     <*> (o .:? "kind")-                     <*> (o .:? "gauge")-                     <*> (o .:? "updateTime")-                     <*> (o .:? "meanCount")-                     <*> (o .:? "name")-                     <*> (o .:? "scalar"))--instance ToJSON MetricUpdate where-        toJSON MetricUpdate'{..}-          = object-              (catMaybes-                 [("meanSum" .=) <$> _muMeanSum,-                  ("internal" .=) <$> _muInternal,-                  ("set" .=) <$> _muSet,-                  ("distribution" .=) <$> _muDistribution,-                  ("cumulative" .=) <$> _muCumulative,-                  ("kind" .=) <$> _muKind, ("gauge" .=) <$> _muGauge,-                  ("updateTime" .=) <$> _muUpdateTime,-                  ("meanCount" .=) <$> _muMeanCount,-                  ("name" .=) <$> _muName,-                  ("scalar" .=) <$> _muScalar])---- | The result of a SourceGetMetadataOperation.------ /See:/ 'sourceGetMetadataResponse' smart constructor.-newtype SourceGetMetadataResponse =-  SourceGetMetadataResponse'-    { _sgmrMetadata :: Maybe SourceMetadata-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'SourceGetMetadataResponse' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'sgmrMetadata'-sourceGetMetadataResponse-    :: SourceGetMetadataResponse-sourceGetMetadataResponse = SourceGetMetadataResponse' {_sgmrMetadata = Nothing}----- | The computed metadata.-sgmrMetadata :: Lens' SourceGetMetadataResponse (Maybe SourceMetadata)-sgmrMetadata-  = lens _sgmrMetadata (\ s a -> s{_sgmrMetadata = a})--instance FromJSON SourceGetMetadataResponse where-        parseJSON-          = withObject "SourceGetMetadataResponse"-              (\ o ->-                 SourceGetMetadataResponse' <$> (o .:? "metadata"))--instance ToJSON SourceGetMetadataResponse where-        toJSON SourceGetMetadataResponse'{..}-          = object-              (catMaybes [("metadata" .=) <$> _sgmrMetadata])---- | Metadata describing a template.------ /See:/ 'templateMetadata' smart constructor.-data TemplateMetadata =-  TemplateMetadata'-    { _tmName        :: !(Maybe Text)-    , _tmParameters  :: !(Maybe [ParameterMetadata])-    , _tmDescription :: !(Maybe Text)-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'TemplateMetadata' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'tmName'------ * 'tmParameters'------ * 'tmDescription'-templateMetadata-    :: TemplateMetadata-templateMetadata =-  TemplateMetadata'-    {_tmName = Nothing, _tmParameters = Nothing, _tmDescription = Nothing}----- | Required. The name of the template.-tmName :: Lens' TemplateMetadata (Maybe Text)-tmName = lens _tmName (\ s a -> s{_tmName = a})---- | The parameters for the template.-tmParameters :: Lens' TemplateMetadata [ParameterMetadata]-tmParameters-  = lens _tmParameters (\ s a -> s{_tmParameters = a})-      . _Default-      . _Coerce---- | Optional. A description of the template.-tmDescription :: Lens' TemplateMetadata (Maybe Text)-tmDescription-  = lens _tmDescription-      (\ s a -> s{_tmDescription = a})--instance FromJSON TemplateMetadata where-        parseJSON-          = withObject "TemplateMetadata"-              (\ o ->-                 TemplateMetadata' <$>-                   (o .:? "name") <*> (o .:? "parameters" .!= mempty)-                     <*> (o .:? "description"))--instance ToJSON TemplateMetadata where-        toJSON TemplateMetadata'{..}-          = object-              (catMaybes-                 [("name" .=) <$> _tmName,-                  ("parameters" .=) <$> _tmParameters,-                  ("description" .=) <$> _tmDescription])---- | Describes the environment in which a Dataflow Job runs.------ /See:/ 'environment' smart constructor.-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.------ Use one of the following lenses to modify other fields as desired:------ * 'eDataSet'------ * 'eExperiments'------ * 'eFlexResourceSchedulingGoal'------ * 'eWorkerPools'------ * 'eClusterManagerAPIService'------ * 'eVersion'------ * 'eInternalExperiments'------ * 'eTempStoragePrefix'------ * 'eServiceAccountEmail'------ * 'eUserAgent'------ * 'eServiceKmsKeyName'------ * 'eSdkPipelineOptions'-environment-    :: Environment-environment =-  Environment'-    { _eDataSet = Nothing-    , _eExperiments = Nothing-    , _eFlexResourceSchedulingGoal = Nothing-    , _eWorkerPools = Nothing-    , _eClusterManagerAPIService = Nothing-    , _eVersion = Nothing-    , _eInternalExperiments = Nothing-    , _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}-eDataSet :: Lens' Environment (Maybe Text)-eDataSet = lens _eDataSet (\ s a -> s{_eDataSet = a})---- | The list of experiments to enable.-eExperiments :: Lens' Environment [Text]-eExperiments-  = lens _eExperiments (\ s a -> s{_eExperiments = a})-      . _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]-eWorkerPools-  = lens _eWorkerPools (\ s a -> s{_eWorkerPools = a})-      . _Default-      . _Coerce---- | The type of cluster manager API to use. If unknown or unspecified, the--- service will attempt to choose a reasonable default. This should be in--- the form of the API service name, e.g. \"compute.googleapis.com\".-eClusterManagerAPIService :: Lens' Environment (Maybe Text)-eClusterManagerAPIService-  = lens _eClusterManagerAPIService-      (\ s a -> s{_eClusterManagerAPIService = a})---- | A structure describing which components and their versions of the--- service are required in order to run the job.-eVersion :: Lens' Environment (Maybe EnvironmentVersion)-eVersion = lens _eVersion (\ s a -> s{_eVersion = a})---- | Experimental settings.-eInternalExperiments :: Lens' Environment (Maybe EnvironmentInternalExperiments)-eInternalExperiments-  = lens _eInternalExperiments-      (\ s a -> s{_eInternalExperiments = a})---- | The prefix of the resources the system should use for temporary storage.--- The system will append the suffix \"\/temp-{JOBNAME} to this resource--- prefix, where {JOBNAME} is the value of the job_name field. The--- resulting bucket and object prefix is used as the prefix of the--- resources used to store temporary data needed during the job execution.--- NOTE: This will override the value in taskrunner_settings. The supported--- resource type is: Google Cloud Storage:--- storage.googleapis.com\/{bucket}\/{object}--- bucket.storage.googleapis.com\/{object}-eTempStoragePrefix :: Lens' Environment (Maybe Text)-eTempStoragePrefix-  = lens _eTempStoragePrefix-      (\ s a -> s{_eTempStoragePrefix = a})---- | Identity to run virtual machines as. Defaults to the default account.-eServiceAccountEmail :: Lens' Environment (Maybe Text)-eServiceAccountEmail-  = lens _eServiceAccountEmail-      (\ s a -> s{_eServiceAccountEmail = a})---- | A description of the process that generated the request.-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--- independent way.-eSdkPipelineOptions :: Lens' Environment (Maybe EnvironmentSdkPipelineOptions)-eSdkPipelineOptions-  = lens _eSdkPipelineOptions-      (\ s a -> s{_eSdkPipelineOptions = a})--instance FromJSON Environment where-        parseJSON-          = withObject "Environment"-              (\ o ->-                 Environment' <$>-                   (o .:? "dataset") <*>-                     (o .:? "experiments" .!= mempty)-                     <*> (o .:? "flexResourceSchedulingGoal")-                     <*> (o .:? "workerPools" .!= mempty)-                     <*> (o .:? "clusterManagerApiService")-                     <*> (o .:? "version")-                     <*> (o .:? "internalExperiments")-                     <*> (o .:? "tempStoragePrefix")-                     <*> (o .:? "serviceAccountEmail")-                     <*> (o .:? "userAgent")-                     <*> (o .:? "serviceKmsKeyName")-                     <*> (o .:? "sdkPipelineOptions"))--instance ToJSON Environment where-        toJSON Environment'{..}-          = object-              (catMaybes-                 [("dataset" .=) <$> _eDataSet,-                  ("experiments" .=) <$> _eExperiments,-                  ("flexResourceSchedulingGoal" .=) <$>-                    _eFlexResourceSchedulingGoal,-                  ("workerPools" .=) <$> _eWorkerPools,-                  ("clusterManagerApiService" .=) <$>-                    _eClusterManagerAPIService,-                  ("version" .=) <$> _eVersion,-                  ("internalExperiments" .=) <$> _eInternalExperiments,-                  ("tempStoragePrefix" .=) <$> _eTempStoragePrefix,-                  ("serviceAccountEmail" .=) <$> _eServiceAccountEmail,-                  ("userAgent" .=) <$> _eUserAgent,-                  ("serviceKmsKeyName" .=) <$> _eServiceKmsKeyName,-                  ("sdkPipelineOptions" .=) <$> _eSdkPipelineOptions])---- | A position that encapsulates an inner position and an index for the--- inner position. A ConcatPosition can be used by a reader of a source--- that encapsulates a set of other sources.------ /See:/ 'concatPosition' smart constructor.-data ConcatPosition =-  ConcatPosition'-    { _cpIndex    :: !(Maybe (Textual Int32))-    , _cpPosition :: !(Maybe Position)-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'ConcatPosition' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'cpIndex'------ * 'cpPosition'-concatPosition-    :: ConcatPosition-concatPosition = ConcatPosition' {_cpIndex = Nothing, _cpPosition = Nothing}----- | Index of the inner source.-cpIndex :: Lens' ConcatPosition (Maybe Int32)-cpIndex-  = lens _cpIndex (\ s a -> s{_cpIndex = a}) .-      mapping _Coerce---- | Position within the inner source.-cpPosition :: Lens' ConcatPosition (Maybe Position)-cpPosition-  = lens _cpPosition (\ s a -> s{_cpPosition = a})--instance FromJSON ConcatPosition where-        parseJSON-          = withObject "ConcatPosition"-              (\ o ->-                 ConcatPosition' <$>-                   (o .:? "index") <*> (o .:? "position"))--instance ToJSON ConcatPosition where-        toJSON ConcatPosition'{..}-          = object-              (catMaybes-                 [("index" .=) <$> _cpIndex,-                  ("position" .=) <$> _cpPosition])---- | Zero or more labeled fields which identify the part of the job this--- metric is associated with, such as the name of a step or collection. For--- example, built-in counters associated with steps will have--- context[\'step\'] = . Counters associated with PCollections in the SDK--- will have context[\'pcollection\'] = .------ /See:/ 'metricStructuredNameContext' smart constructor.-newtype MetricStructuredNameContext =-  MetricStructuredNameContext'-    { _msncAddtional :: HashMap Text Text-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'MetricStructuredNameContext' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'msncAddtional'-metricStructuredNameContext-    :: HashMap Text Text -- ^ 'msncAddtional'-    -> MetricStructuredNameContext-metricStructuredNameContext pMsncAddtional_ =-  MetricStructuredNameContext' {_msncAddtional = _Coerce # pMsncAddtional_}---msncAddtional :: Lens' MetricStructuredNameContext (HashMap Text Text)-msncAddtional-  = lens _msncAddtional-      (\ s a -> s{_msncAddtional = a})-      . _Coerce--instance FromJSON MetricStructuredNameContext where-        parseJSON-          = withObject "MetricStructuredNameContext"-              (\ o ->-                 MetricStructuredNameContext' <$> (parseJSONObject o))--instance ToJSON MetricStructuredNameContext where-        toJSON = toJSON . _msncAddtional---- | An update to a Counter sent from a worker.------ /See:/ 'counterUpdate' smart constructor.-data CounterUpdate =-  CounterUpdate'-    { _cuNameAndKind               :: !(Maybe NameAndKind)-    , _cuIntegerList               :: !(Maybe IntegerList)-    , _cuFloatingPoint             :: !(Maybe (Textual Double))-    , _cuInternal                  :: !(Maybe JSONValue)-    , _cuStringList                :: !(Maybe StringList)-    , _cuShortId                   :: !(Maybe (Textual Int64))-    , _cuIntegerGauge              :: !(Maybe IntegerGauge)-    , _cuDistribution              :: !(Maybe DistributionUpdate)-    , _cuCumulative                :: !(Maybe Bool)-    , _cuStructuredNameAndMetadata :: !(Maybe CounterStructuredNameAndMetadata)-    , _cuFloatingPointMean         :: !(Maybe FloatingPointMean)-    , _cuIntegerMean               :: !(Maybe IntegerMean)-    , _cuBoolean                   :: !(Maybe Bool)-    , _cuFloatingPointList         :: !(Maybe FloatingPointList)-    , _cuInteger                   :: !(Maybe SplitInt64)-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'CounterUpdate' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'cuNameAndKind'------ * 'cuIntegerList'------ * 'cuFloatingPoint'------ * 'cuInternal'------ * 'cuStringList'------ * 'cuShortId'------ * 'cuIntegerGauge'------ * 'cuDistribution'------ * 'cuCumulative'------ * 'cuStructuredNameAndMetadata'------ * 'cuFloatingPointMean'------ * 'cuIntegerMean'------ * 'cuBoolean'------ * 'cuFloatingPointList'------ * 'cuInteger'-counterUpdate-    :: CounterUpdate-counterUpdate =-  CounterUpdate'-    { _cuNameAndKind = Nothing-    , _cuIntegerList = Nothing-    , _cuFloatingPoint = Nothing-    , _cuInternal = Nothing-    , _cuStringList = Nothing-    , _cuShortId = Nothing-    , _cuIntegerGauge = Nothing-    , _cuDistribution = Nothing-    , _cuCumulative = Nothing-    , _cuStructuredNameAndMetadata = Nothing-    , _cuFloatingPointMean = Nothing-    , _cuIntegerMean = Nothing-    , _cuBoolean = Nothing-    , _cuFloatingPointList = Nothing-    , _cuInteger = Nothing-    }----- | Counter name and aggregation type.-cuNameAndKind :: Lens' CounterUpdate (Maybe NameAndKind)-cuNameAndKind-  = lens _cuNameAndKind-      (\ s a -> s{_cuNameAndKind = a})---- | List of integers, for Set.-cuIntegerList :: Lens' CounterUpdate (Maybe IntegerList)-cuIntegerList-  = lens _cuIntegerList-      (\ s a -> s{_cuIntegerList = a})---- | Floating point value for Sum, Max, Min.-cuFloatingPoint :: Lens' CounterUpdate (Maybe Double)-cuFloatingPoint-  = lens _cuFloatingPoint-      (\ s a -> s{_cuFloatingPoint = a})-      . mapping _Coerce---- | Value for internally-defined counters used by the Dataflow service.-cuInternal :: Lens' CounterUpdate (Maybe JSONValue)-cuInternal-  = lens _cuInternal (\ s a -> s{_cuInternal = a})---- | List of strings, for Set.-cuStringList :: Lens' CounterUpdate (Maybe StringList)-cuStringList-  = lens _cuStringList (\ s a -> s{_cuStringList = a})---- | The service-generated short identifier for this counter. The short_id ->--- (name, metadata) mapping is constant for the lifetime of a job.-cuShortId :: Lens' CounterUpdate (Maybe Int64)-cuShortId-  = lens _cuShortId (\ s a -> s{_cuShortId = a}) .-      mapping _Coerce---- | Gauge data-cuIntegerGauge :: Lens' CounterUpdate (Maybe IntegerGauge)-cuIntegerGauge-  = lens _cuIntegerGauge-      (\ s a -> s{_cuIntegerGauge = a})---- | Distribution data-cuDistribution :: Lens' CounterUpdate (Maybe DistributionUpdate)-cuDistribution-  = lens _cuDistribution-      (\ s a -> s{_cuDistribution = a})---- | True if this counter is reported as the total cumulative aggregate value--- accumulated since the worker started working on this WorkItem. By--- default this is false, indicating that this counter is reported as a--- delta.-cuCumulative :: Lens' CounterUpdate (Maybe Bool)-cuCumulative-  = lens _cuCumulative (\ s a -> s{_cuCumulative = a})---- | Counter structured name and metadata.-cuStructuredNameAndMetadata :: Lens' CounterUpdate (Maybe CounterStructuredNameAndMetadata)-cuStructuredNameAndMetadata-  = lens _cuStructuredNameAndMetadata-      (\ s a -> s{_cuStructuredNameAndMetadata = a})---- | Floating point mean aggregation value for Mean.-cuFloatingPointMean :: Lens' CounterUpdate (Maybe FloatingPointMean)-cuFloatingPointMean-  = lens _cuFloatingPointMean-      (\ s a -> s{_cuFloatingPointMean = a})---- | Integer mean aggregation value for Mean.-cuIntegerMean :: Lens' CounterUpdate (Maybe IntegerMean)-cuIntegerMean-  = lens _cuIntegerMean-      (\ s a -> s{_cuIntegerMean = a})---- | Boolean value for And, Or.-cuBoolean :: Lens' CounterUpdate (Maybe Bool)-cuBoolean-  = lens _cuBoolean (\ s a -> s{_cuBoolean = a})---- | List of floating point numbers, for Set.-cuFloatingPointList :: Lens' CounterUpdate (Maybe FloatingPointList)-cuFloatingPointList-  = lens _cuFloatingPointList-      (\ s a -> s{_cuFloatingPointList = a})---- | Integer value for Sum, Max, Min.-cuInteger :: Lens' CounterUpdate (Maybe SplitInt64)-cuInteger-  = lens _cuInteger (\ s a -> s{_cuInteger = a})--instance FromJSON CounterUpdate where-        parseJSON-          = withObject "CounterUpdate"-              (\ o ->-                 CounterUpdate' <$>-                   (o .:? "nameAndKind") <*> (o .:? "integerList") <*>-                     (o .:? "floatingPoint")-                     <*> (o .:? "internal")-                     <*> (o .:? "stringList")-                     <*> (o .:? "shortId")-                     <*> (o .:? "integerGauge")-                     <*> (o .:? "distribution")-                     <*> (o .:? "cumulative")-                     <*> (o .:? "structuredNameAndMetadata")-                     <*> (o .:? "floatingPointMean")-                     <*> (o .:? "integerMean")-                     <*> (o .:? "boolean")-                     <*> (o .:? "floatingPointList")-                     <*> (o .:? "integer"))--instance ToJSON CounterUpdate where-        toJSON CounterUpdate'{..}-          = object-              (catMaybes-                 [("nameAndKind" .=) <$> _cuNameAndKind,-                  ("integerList" .=) <$> _cuIntegerList,-                  ("floatingPoint" .=) <$> _cuFloatingPoint,-                  ("internal" .=) <$> _cuInternal,-                  ("stringList" .=) <$> _cuStringList,-                  ("shortId" .=) <$> _cuShortId,-                  ("integerGauge" .=) <$> _cuIntegerGauge,-                  ("distribution" .=) <$> _cuDistribution,-                  ("cumulative" .=) <$> _cuCumulative,-                  ("structuredNameAndMetadata" .=) <$>-                    _cuStructuredNameAndMetadata,-                  ("floatingPointMean" .=) <$> _cuFloatingPointMean,-                  ("integerMean" .=) <$> _cuIntegerMean,-                  ("boolean" .=) <$> _cuBoolean,-                  ("floatingPointList" .=) <$> _cuFloatingPointList,-                  ("integer" .=) <$> _cuInteger])---- | Identifies the location of a streaming computation stage, for--- stage-to-stage communication.------ /See:/ 'streamingStageLocation' smart constructor.-newtype StreamingStageLocation =-  StreamingStageLocation'-    { _sslStreamId :: Maybe Text-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'StreamingStageLocation' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'sslStreamId'-streamingStageLocation-    :: StreamingStageLocation-streamingStageLocation = StreamingStageLocation' {_sslStreamId = Nothing}----- | Identifies the particular stream within the streaming Dataflow job.-sslStreamId :: Lens' StreamingStageLocation (Maybe Text)-sslStreamId-  = lens _sslStreamId (\ s a -> s{_sslStreamId = a})--instance FromJSON StreamingStageLocation where-        parseJSON-          = withObject "StreamingStageLocation"-              (\ o ->-                 StreamingStageLocation' <$> (o .:? "streamId"))--instance ToJSON StreamingStageLocation where-        toJSON StreamingStageLocation'{..}-          = 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'-    { _dsDerivationMode :: !(Maybe DerivedSourceDerivationMode)-    , _dsSource         :: !(Maybe Source)-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'DerivedSource' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'dsDerivationMode'------ * 'dsSource'-derivedSource-    :: DerivedSource-derivedSource =-  DerivedSource' {_dsDerivationMode = Nothing, _dsSource = Nothing}----- | What source to base the produced source on (if any).-dsDerivationMode :: Lens' DerivedSource (Maybe DerivedSourceDerivationMode)-dsDerivationMode-  = lens _dsDerivationMode-      (\ s a -> s{_dsDerivationMode = a})---- | Specification of the source.-dsSource :: Lens' DerivedSource (Maybe Source)-dsSource = lens _dsSource (\ s a -> s{_dsSource = a})--instance FromJSON DerivedSource where-        parseJSON-          = withObject "DerivedSource"-              (\ o ->-                 DerivedSource' <$>-                   (o .:? "derivationMode") <*> (o .:? "source"))--instance ToJSON DerivedSource where-        toJSON DerivedSource'{..}-          = object-              (catMaybes-                 [("derivationMode" .=) <$> _dsDerivationMode,-                  ("source" .=) <$> _dsSource])---- | 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'-    { _jmMetrics    :: !(Maybe [MetricUpdate])-    , _jmMetricTime :: !(Maybe DateTime')-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'JobMetrics' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'jmMetrics'------ * 'jmMetricTime'-jobMetrics-    :: JobMetrics-jobMetrics = JobMetrics' {_jmMetrics = Nothing, _jmMetricTime = Nothing}----- | All metrics for this job.-jmMetrics :: Lens' JobMetrics [MetricUpdate]-jmMetrics-  = lens _jmMetrics (\ s a -> s{_jmMetrics = a}) .-      _Default-      . _Coerce---- | Timestamp as of which metric values are current.-jmMetricTime :: Lens' JobMetrics (Maybe UTCTime)-jmMetricTime-  = lens _jmMetricTime (\ s a -> s{_jmMetricTime = a})-      . mapping _DateTime--instance FromJSON JobMetrics where-        parseJSON-          = withObject "JobMetrics"-              (\ o ->-                 JobMetrics' <$>-                   (o .:? "metrics" .!= mempty) <*>-                     (o .:? "metricTime"))--instance ToJSON JobMetrics where-        toJSON JobMetrics'{..}-          = object-              (catMaybes-                 [("metrics" .=) <$> _jmMetrics,-                  ("metricTime" .=) <$> _jmMetricTime])---- | Request to send encoded debug information.------ /See:/ 'sendDebugCaptureRequest' smart constructor.-data SendDebugCaptureRequest =-  SendDebugCaptureRequest'-    { _sdcrLocation    :: !(Maybe Text)-    , _sdcrData        :: !(Maybe Text)-    , _sdcrComponentId :: !(Maybe Text)-    , _sdcrWorkerId    :: !(Maybe Text)-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'SendDebugCaptureRequest' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'sdcrLocation'------ * 'sdcrData'------ * 'sdcrComponentId'------ * 'sdcrWorkerId'-sendDebugCaptureRequest-    :: SendDebugCaptureRequest-sendDebugCaptureRequest =-  SendDebugCaptureRequest'-    { _sdcrLocation = Nothing-    , _sdcrData = Nothing-    , _sdcrComponentId = Nothing-    , _sdcrWorkerId = Nothing-    }----- | 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})---- | The encoded debug information.-sdcrData :: Lens' SendDebugCaptureRequest (Maybe Text)-sdcrData = lens _sdcrData (\ s a -> s{_sdcrData = a})---- | The internal component id for which debug information is sent.-sdcrComponentId :: Lens' SendDebugCaptureRequest (Maybe Text)-sdcrComponentId-  = lens _sdcrComponentId-      (\ s a -> s{_sdcrComponentId = a})---- | The worker id, i.e., VM hostname.-sdcrWorkerId :: Lens' SendDebugCaptureRequest (Maybe Text)-sdcrWorkerId-  = lens _sdcrWorkerId (\ s a -> s{_sdcrWorkerId = a})--instance FromJSON SendDebugCaptureRequest where-        parseJSON-          = withObject "SendDebugCaptureRequest"-              (\ o ->-                 SendDebugCaptureRequest' <$>-                   (o .:? "location") <*> (o .:? "data") <*>-                     (o .:? "componentId")-                     <*> (o .:? "workerId"))--instance ToJSON SendDebugCaptureRequest where-        toJSON SendDebugCaptureRequest'{..}-          = object-              (catMaybes-                 [("location" .=) <$> _sdcrLocation,-                  ("data" .=) <$> _sdcrData,-                  ("componentId" .=) <$> _sdcrComponentId,-                  ("workerId" .=) <$> _sdcrWorkerId])---- | Conveys a worker\'s progress through the work described by a WorkItem.------ /See:/ 'workItemStatus' smart constructor.-data WorkItemStatus =-  WorkItemStatus'-    { _wisReportedProgress              :: !(Maybe ApproximateReportedProgress)-    , _wisProgress                      :: !(Maybe ApproximateProgress)-    , _wisTotalThrottlerWaitTimeSeconds :: !(Maybe (Textual Double))-    , _wisSourceOperationResponse       :: !(Maybe SourceOperationResponse)-    , _wisStopPosition                  :: !(Maybe Position)-    , _wisDynamicSourceSplit            :: !(Maybe DynamicSourceSplit)-    , _wisCompleted                     :: !(Maybe Bool)-    , _wisSourceFork                    :: !(Maybe SourceFork)-    , _wisReportIndex                   :: !(Maybe (Textual Int64))-    , _wisRequestedLeaseDuration        :: !(Maybe GDuration)-    , _wisErrors                        :: !(Maybe [Status])-    , _wisCounterUpdates                :: !(Maybe [CounterUpdate])-    , _wisMetricUpdates                 :: !(Maybe [MetricUpdate])-    , _wisWorkItemId                    :: !(Maybe Text)-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'WorkItemStatus' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'wisReportedProgress'------ * 'wisProgress'------ * 'wisTotalThrottlerWaitTimeSeconds'------ * 'wisSourceOperationResponse'------ * 'wisStopPosition'------ * 'wisDynamicSourceSplit'------ * 'wisCompleted'------ * 'wisSourceFork'------ * 'wisReportIndex'------ * 'wisRequestedLeaseDuration'------ * 'wisErrors'------ * 'wisCounterUpdates'------ * 'wisMetricUpdates'------ * 'wisWorkItemId'-workItemStatus-    :: WorkItemStatus-workItemStatus =-  WorkItemStatus'-    { _wisReportedProgress = Nothing-    , _wisProgress = Nothing-    , _wisTotalThrottlerWaitTimeSeconds = Nothing-    , _wisSourceOperationResponse = Nothing-    , _wisStopPosition = Nothing-    , _wisDynamicSourceSplit = Nothing-    , _wisCompleted = Nothing-    , _wisSourceFork = Nothing-    , _wisReportIndex = Nothing-    , _wisRequestedLeaseDuration = Nothing-    , _wisErrors = Nothing-    , _wisCounterUpdates = Nothing-    , _wisMetricUpdates = Nothing-    , _wisWorkItemId = Nothing-    }----- | The worker\'s progress through this WorkItem.-wisReportedProgress :: Lens' WorkItemStatus (Maybe ApproximateReportedProgress)-wisReportedProgress-  = lens _wisReportedProgress-      (\ s a -> s{_wisReportedProgress = a})---- | DEPRECATED in favor of reported_progress.-wisProgress :: Lens' WorkItemStatus (Maybe ApproximateProgress)-wisProgress-  = lens _wisProgress (\ s a -> s{_wisProgress = a})---- | Total time the worker spent being throttled by external systems.-wisTotalThrottlerWaitTimeSeconds :: Lens' WorkItemStatus (Maybe Double)-wisTotalThrottlerWaitTimeSeconds-  = lens _wisTotalThrottlerWaitTimeSeconds-      (\ s a -> s{_wisTotalThrottlerWaitTimeSeconds = a})-      . mapping _Coerce---- | If the work item represented a SourceOperationRequest, and the work is--- completed, contains the result of the operation.-wisSourceOperationResponse :: Lens' WorkItemStatus (Maybe SourceOperationResponse)-wisSourceOperationResponse-  = lens _wisSourceOperationResponse-      (\ s a -> s{_wisSourceOperationResponse = a})---- | A worker may split an active map task in two parts, \"primary\" and--- \"residual\", continuing to process the primary part and returning the--- residual part into the pool of available work. This event is called a--- \"dynamic split\" and is critical to the dynamic work rebalancing--- feature. The two obtained sub-tasks are called \"parts\" of the split.--- The parts, if concatenated, must represent the same input as would be--- read by the current task if the split did not happen. The exact way in--- which the original task is decomposed into the two parts is specified--- either as a position demarcating them (stop_position), or explicitly as--- two DerivedSources, if this task consumes a user-defined source type--- (dynamic_source_split). The \"current\" task is adjusted as a result of--- the split: after a task with range [A, B) sends a stop_position update--- at C, its range is considered to be [A, C), e.g.: * Progress should be--- interpreted relative to the new range, e.g. \"75% completed\" means--- \"75% of [A, C) completed\" * The worker should interpret--- proposed_stop_position relative to the new range, e.g. \"split at 68%\"--- should be interpreted as \"split at 68% of [A, C)\". * If the worker--- chooses to split again using stop_position, only stop_positions in [A,--- C) will be accepted. * Etc. dynamic_source_split has similar semantics:--- e.g., if a task with source S splits using dynamic_source_split into {P,--- R} (where P and R must be together equivalent to S), then subsequent--- progress and proposed_stop_position should be interpreted relative to P,--- and in a potential subsequent dynamic_source_split into {P\', R\'}, P\'--- and R\' must be together equivalent to P, etc.-wisStopPosition :: Lens' WorkItemStatus (Maybe Position)-wisStopPosition-  = lens _wisStopPosition-      (\ s a -> s{_wisStopPosition = a})---- | See documentation of stop_position.-wisDynamicSourceSplit :: Lens' WorkItemStatus (Maybe DynamicSourceSplit)-wisDynamicSourceSplit-  = lens _wisDynamicSourceSplit-      (\ s a -> s{_wisDynamicSourceSplit = a})---- | True if the WorkItem was completed (successfully or unsuccessfully).-wisCompleted :: Lens' WorkItemStatus (Maybe Bool)-wisCompleted-  = lens _wisCompleted (\ s a -> s{_wisCompleted = a})---- | DEPRECATED in favor of dynamic_source_split.-wisSourceFork :: Lens' WorkItemStatus (Maybe SourceFork)-wisSourceFork-  = lens _wisSourceFork-      (\ s a -> s{_wisSourceFork = a})---- | The report index. When a WorkItem is leased, the lease will contain an--- initial report index. When a WorkItem\'s status is reported to the--- system, the report should be sent with that report index, and the--- response will contain the index the worker should use for the next--- report. Reports received with unexpected index values will be rejected--- by the service. In order to preserve idempotency, the worker should not--- alter the contents of a report, even if the worker must submit the same--- report multiple times before getting back a response. The worker should--- not submit a subsequent report until the response for the previous--- report had been received from the service.-wisReportIndex :: Lens' WorkItemStatus (Maybe Int64)-wisReportIndex-  = lens _wisReportIndex-      (\ s a -> s{_wisReportIndex = a})-      . mapping _Coerce---- | Amount of time the worker requests for its lease.-wisRequestedLeaseDuration :: Lens' WorkItemStatus (Maybe Scientific)-wisRequestedLeaseDuration-  = lens _wisRequestedLeaseDuration-      (\ s a -> s{_wisRequestedLeaseDuration = a})-      . mapping _GDuration---- | Specifies errors which occurred during processing. If errors are--- provided, and completed = true, then the WorkItem is considered to have--- failed.-wisErrors :: Lens' WorkItemStatus [Status]-wisErrors-  = lens _wisErrors (\ s a -> s{_wisErrors = a}) .-      _Default-      . _Coerce---- | Worker output counters for this WorkItem.-wisCounterUpdates :: Lens' WorkItemStatus [CounterUpdate]-wisCounterUpdates-  = lens _wisCounterUpdates-      (\ s a -> s{_wisCounterUpdates = a})-      . _Default-      . _Coerce---- | DEPRECATED in favor of counter_updates.-wisMetricUpdates :: Lens' WorkItemStatus [MetricUpdate]-wisMetricUpdates-  = lens _wisMetricUpdates-      (\ s a -> s{_wisMetricUpdates = a})-      . _Default-      . _Coerce---- | Identifies the WorkItem.-wisWorkItemId :: Lens' WorkItemStatus (Maybe Text)-wisWorkItemId-  = lens _wisWorkItemId-      (\ s a -> s{_wisWorkItemId = a})--instance FromJSON WorkItemStatus where-        parseJSON-          = withObject "WorkItemStatus"-              (\ o ->-                 WorkItemStatus' <$>-                   (o .:? "reportedProgress") <*> (o .:? "progress") <*>-                     (o .:? "totalThrottlerWaitTimeSeconds")-                     <*> (o .:? "sourceOperationResponse")-                     <*> (o .:? "stopPosition")-                     <*> (o .:? "dynamicSourceSplit")-                     <*> (o .:? "completed")-                     <*> (o .:? "sourceFork")-                     <*> (o .:? "reportIndex")-                     <*> (o .:? "requestedLeaseDuration")-                     <*> (o .:? "errors" .!= mempty)-                     <*> (o .:? "counterUpdates" .!= mempty)-                     <*> (o .:? "metricUpdates" .!= mempty)-                     <*> (o .:? "workItemId"))--instance ToJSON WorkItemStatus where-        toJSON WorkItemStatus'{..}-          = object-              (catMaybes-                 [("reportedProgress" .=) <$> _wisReportedProgress,-                  ("progress" .=) <$> _wisProgress,-                  ("totalThrottlerWaitTimeSeconds" .=) <$>-                    _wisTotalThrottlerWaitTimeSeconds,-                  ("sourceOperationResponse" .=) <$>-                    _wisSourceOperationResponse,-                  ("stopPosition" .=) <$> _wisStopPosition,-                  ("dynamicSourceSplit" .=) <$> _wisDynamicSourceSplit,-                  ("completed" .=) <$> _wisCompleted,-                  ("sourceFork" .=) <$> _wisSourceFork,-                  ("reportIndex" .=) <$> _wisReportIndex,-                  ("requestedLeaseDuration" .=) <$>-                    _wisRequestedLeaseDuration,-                  ("errors" .=) <$> _wisErrors,-                  ("counterUpdates" .=) <$> _wisCounterUpdates,-                  ("metricUpdates" .=) <$> _wisMetricUpdates,-                  ("workItemId" .=) <$> _wisWorkItemId])---- | Labels are used to group WorkerMessages. For example, a worker_message--- about a particular container might have the labels: { \"JOB_ID\":--- \"2015-04-22\", \"WORKER_ID\": \"wordcount-vm-2015…\"--- \"CONTAINER_TYPE\": \"worker\", \"CONTAINER_ID\": \"ac1234def\"} Label--- tags typically correspond to Label enum values. However, for ease of--- development other strings can be used as tags. LABEL_UNSPECIFIED should--- not be used here.------ /See:/ 'workerMessageLabels' smart constructor.-newtype WorkerMessageLabels =-  WorkerMessageLabels'-    { _wmlAddtional :: HashMap Text Text-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'WorkerMessageLabels' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'wmlAddtional'-workerMessageLabels-    :: HashMap Text Text -- ^ 'wmlAddtional'-    -> WorkerMessageLabels-workerMessageLabels pWmlAddtional_ =-  WorkerMessageLabels' {_wmlAddtional = _Coerce # pWmlAddtional_}---wmlAddtional :: Lens' WorkerMessageLabels (HashMap Text Text)-wmlAddtional-  = lens _wmlAddtional (\ s a -> s{_wmlAddtional = a})-      . _Coerce--instance FromJSON WorkerMessageLabels where-        parseJSON-          = withObject "WorkerMessageLabels"-              (\ o -> WorkerMessageLabels' <$> (parseJSONObject o))--instance ToJSON WorkerMessageLabels where-        toJSON = toJSON . _wmlAddtional---- | An instruction that copies its inputs (zero or more) to its (single)--- output.------ /See:/ 'flattenInstruction' smart constructor.-newtype FlattenInstruction =-  FlattenInstruction'-    { _fiInputs :: Maybe [InstructionInput]-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'FlattenInstruction' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'fiInputs'-flattenInstruction-    :: FlattenInstruction-flattenInstruction = FlattenInstruction' {_fiInputs = Nothing}----- | Describes the inputs to the flatten instruction.-fiInputs :: Lens' FlattenInstruction [InstructionInput]-fiInputs-  = lens _fiInputs (\ s a -> s{_fiInputs = a}) .-      _Default-      . _Coerce--instance FromJSON FlattenInstruction where-        parseJSON-          = withObject "FlattenInstruction"-              (\ o ->-                 FlattenInstruction' <$> (o .:? "inputs" .!= mempty))--instance ToJSON FlattenInstruction where-        toJSON FlattenInstruction'{..}-          = object (catMaybes [("inputs" .=) <$> _fiInputs])---- | A message code is used to report status and error messages to the--- service. The message codes are intended to be machine readable. The--- service will take care of translating these into user understandable--- messages if necessary. Example use cases: 1. Worker processes reporting--- successful startup. 2. Worker processes reporting specific errors (e.g.--- package staging failure).------ /See:/ 'workerMessageCode' smart constructor.-data WorkerMessageCode =-  WorkerMessageCode'-    { _wmcParameters :: !(Maybe WorkerMessageCodeParameters)-    , _wmcCode       :: !(Maybe Text)-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'WorkerMessageCode' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'wmcParameters'------ * 'wmcCode'-workerMessageCode-    :: WorkerMessageCode-workerMessageCode =-  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--- \"HARNESS_STARTED\" message parameters might provide the name of the--- worker and additional data like timing information. 2. For a--- \"GCS_DOWNLOAD_ERROR\" parameters might contain fields listing the GCS--- objects being downloaded and fields containing errors. In general--- complex data structures should be avoided. If a worker needs to send a--- specific and complicated data structure then please consider defining a--- new proto and adding it to the data oneof in WorkerMessageResponse.--- Conventions: Parameters should only be used for information that isn\'t--- typically passed as a label. hostname and other worker identifiers--- should almost always be passed as labels since they will be included on--- most messages.-wmcParameters :: Lens' WorkerMessageCode (Maybe WorkerMessageCodeParameters)-wmcParameters-  = lens _wmcParameters-      (\ s a -> s{_wmcParameters = a})---- | The code is a string intended for consumption by a machine that--- identifies the type of message being sent. Examples: 1.--- \"HARNESS_STARTED\" might be used to indicate the worker harness has--- started. 2. \"GCS_DOWNLOAD_ERROR\" might be used to indicate an error--- downloading a GCS file as part of the boot process of one of the worker--- containers. This is a string and not an enum to make it easy to add new--- codes without waiting for an API change.-wmcCode :: Lens' WorkerMessageCode (Maybe Text)-wmcCode = lens _wmcCode (\ s a -> s{_wmcCode = a})--instance FromJSON WorkerMessageCode where-        parseJSON-          = withObject "WorkerMessageCode"-              (\ o ->-                 WorkerMessageCode' <$>-                   (o .:? "parameters") <*> (o .:? "code"))--instance ToJSON WorkerMessageCode where-        toJSON WorkerMessageCode'{..}-          = object-              (catMaybes-                 [("parameters" .=) <$> _wmcParameters,-                  ("code" .=) <$> _wmcCode])---- | Description of the type, names\/ids, and input\/outputs for a transform.------ /See:/ 'transformSummary' smart constructor.-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)----- | Creates a value of 'TransformSummary' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'tsDisplayData'------ * 'tsKind'------ * 'tsOutputCollectionName'------ * 'tsInputCollectionName'------ * 'tsName'------ * 'tsId'-transformSummary-    :: TransformSummary-transformSummary =-  TransformSummary'-    { _tsDisplayData = Nothing-    , _tsKind = Nothing-    , _tsOutputCollectionName = Nothing-    , _tsInputCollectionName = Nothing-    , _tsName = Nothing-    , _tsId = Nothing-    }----- | Transform-specific display data.-tsDisplayData :: Lens' TransformSummary [DisplayData]-tsDisplayData-  = lens _tsDisplayData-      (\ s a -> s{_tsDisplayData = a})-      . _Default-      . _Coerce---- | Type of transform.-tsKind :: Lens' TransformSummary (Maybe TransformSummaryKind)-tsKind = lens _tsKind (\ s a -> s{_tsKind = a})---- | User names for all collection outputs to this transform.-tsOutputCollectionName :: Lens' TransformSummary [Text]-tsOutputCollectionName-  = lens _tsOutputCollectionName-      (\ s a -> s{_tsOutputCollectionName = a})-      . _Default-      . _Coerce---- | User names for all collection inputs to this transform.-tsInputCollectionName :: Lens' TransformSummary [Text]-tsInputCollectionName-  = lens _tsInputCollectionName-      (\ s a -> s{_tsInputCollectionName = a})-      . _Default-      . _Coerce---- | User provided name for this transform instance.-tsName :: Lens' TransformSummary (Maybe Text)-tsName = lens _tsName (\ s a -> s{_tsName = a})---- | SDK generated id of this transform instance.-tsId :: Lens' TransformSummary (Maybe Text)-tsId = lens _tsId (\ s a -> s{_tsId = a})--instance FromJSON TransformSummary where-        parseJSON-          = withObject "TransformSummary"-              (\ o ->-                 TransformSummary' <$>-                   (o .:? "displayData" .!= mempty) <*> (o .:? "kind")-                     <*> (o .:? "outputCollectionName" .!= mempty)-                     <*> (o .:? "inputCollectionName" .!= mempty)-                     <*> (o .:? "name")-                     <*> (o .:? "id"))--instance ToJSON TransformSummary where-        toJSON TransformSummary'{..}-          = object-              (catMaybes-                 [("displayData" .=) <$> _tsDisplayData,-                  ("kind" .=) <$> _tsKind,-                  ("outputCollectionName" .=) <$>-                    _tsOutputCollectionName,-                  ("inputCollectionName" .=) <$>-                    _tsInputCollectionName,-                  ("name" .=) <$> _tsName, ("id" .=) <$> _tsId])---- | The map of transform name prefixes of the job to be replaced to the--- corresponding name prefixes of the new job.------ /See:/ 'jobTransformNameMApping' smart constructor.-newtype JobTransformNameMApping =-  JobTransformNameMApping'-    { _jtnmaAddtional :: HashMap Text Text-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'JobTransformNameMApping' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'jtnmaAddtional'-jobTransformNameMApping-    :: HashMap Text Text -- ^ 'jtnmaAddtional'-    -> JobTransformNameMApping-jobTransformNameMApping pJtnmaAddtional_ =-  JobTransformNameMApping' {_jtnmaAddtional = _Coerce # pJtnmaAddtional_}---jtnmaAddtional :: Lens' JobTransformNameMApping (HashMap Text Text)-jtnmaAddtional-  = lens _jtnmaAddtional-      (\ s a -> s{_jtnmaAddtional = a})-      . _Coerce--instance FromJSON JobTransformNameMApping where-        parseJSON-          = withObject "JobTransformNameMApping"-              (\ o ->-                 JobTransformNameMApping' <$> (parseJSONObject o))--instance ToJSON JobTransformNameMApping where-        toJSON = toJSON . _jtnmaAddtional---- | The source to read from, plus its parameters.------ /See:/ 'sourceSpec' smart constructor.-newtype SourceSpec =-  SourceSpec'-    { _ssAddtional :: HashMap Text JSONValue-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'SourceSpec' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'ssAddtional'-sourceSpec-    :: HashMap Text JSONValue -- ^ 'ssAddtional'-    -> SourceSpec-sourceSpec pSsAddtional_ = SourceSpec' {_ssAddtional = _Coerce # pSsAddtional_}----- | Properties of the object.-ssAddtional :: Lens' SourceSpec (HashMap Text JSONValue)-ssAddtional-  = lens _ssAddtional (\ s a -> s{_ssAddtional = a}) .-      _Coerce--instance FromJSON SourceSpec where-        parseJSON-          = withObject "SourceSpec"-              (\ o -> SourceSpec' <$> (parseJSONObject o))--instance ToJSON SourceSpec where-        toJSON = toJSON . _ssAddtional---- | Metadata about a Source useful for automatically optimizing and tuning--- the pipeline, etc.------ /See:/ 'sourceMetadata' smart constructor.-data SourceMetadata =-  SourceMetadata'-    { _smEstimatedSizeBytes :: !(Maybe (Textual Int64))-    , _smProducesSortedKeys :: !(Maybe Bool)-    , _smInfinite           :: !(Maybe Bool)-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'SourceMetadata' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'smEstimatedSizeBytes'------ * 'smProducesSortedKeys'------ * 'smInfinite'-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.-smEstimatedSizeBytes :: Lens' SourceMetadata (Maybe Int64)-smEstimatedSizeBytes-  = lens _smEstimatedSizeBytes-      (\ s a -> s{_smEstimatedSizeBytes = a})-      . mapping _Coerce---- | Whether this source is known to produce key\/value pairs with the--- (encoded) keys in lexicographically sorted order.-smProducesSortedKeys :: Lens' SourceMetadata (Maybe Bool)-smProducesSortedKeys-  = lens _smProducesSortedKeys-      (\ s a -> s{_smProducesSortedKeys = a})---- | Specifies that the size of this source is known to be infinite (this is--- a streaming source).-smInfinite :: Lens' SourceMetadata (Maybe Bool)-smInfinite-  = lens _smInfinite (\ s a -> s{_smInfinite = a})--instance FromJSON SourceMetadata where-        parseJSON-          = withObject "SourceMetadata"-              (\ o ->-                 SourceMetadata' <$>-                   (o .:? "estimatedSizeBytes") <*>-                     (o .:? "producesSortedKeys")-                     <*> (o .:? "infinite"))--instance ToJSON SourceMetadata where-        toJSON SourceMetadata'{..}-          = object-              (catMaybes-                 [("estimatedSizeBytes" .=) <$> _smEstimatedSizeBytes,-                  ("producesSortedKeys" .=) <$> _smProducesSortedKeys,-                  ("infinite" .=) <$> _smInfinite])---- | Experimental settings.------ /See:/ 'environmentInternalExperiments' smart constructor.-newtype EnvironmentInternalExperiments =-  EnvironmentInternalExperiments'-    { _eieAddtional :: HashMap Text JSONValue-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'EnvironmentInternalExperiments' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'eieAddtional'-environmentInternalExperiments-    :: HashMap Text JSONValue -- ^ 'eieAddtional'-    -> EnvironmentInternalExperiments-environmentInternalExperiments pEieAddtional_ =-  EnvironmentInternalExperiments' {_eieAddtional = _Coerce # pEieAddtional_}----- | Properties of the object. Contains field \'type with type URL.-eieAddtional :: Lens' EnvironmentInternalExperiments (HashMap Text JSONValue)-eieAddtional-  = lens _eieAddtional (\ s a -> s{_eieAddtional = a})-      . _Coerce--instance FromJSON EnvironmentInternalExperiments-         where-        parseJSON-          = withObject "EnvironmentInternalExperiments"-              (\ o ->-                 EnvironmentInternalExperiments' <$>-                   (parseJSONObject o))--instance ToJSON EnvironmentInternalExperiments where-        toJSON = toJSON . _eieAddtional---- | Taskrunner configuration settings.------ /See:/ 'taskRunnerSettings' smart constructor.-data TaskRunnerSettings =-  TaskRunnerSettings'-    { _trsContinueOnException      :: !(Maybe Bool)-    , _trsHarnessCommand           :: !(Maybe Text)-    , _trsWorkflowFileName         :: !(Maybe Text)-    , _trsTaskGroup                :: !(Maybe Text)-    , _trsAlsologtostderr          :: !(Maybe Bool)-    , _trsDataflowAPIVersion       :: !(Maybe Text)-    , _trsLogDir                   :: !(Maybe Text)-    , _trsCommandlinesFileName     :: !(Maybe Text)-    , _trsVMId                     :: !(Maybe Text)-    , _trsBaseURL                  :: !(Maybe Text)-    , _trsOAuthScopes              :: !(Maybe [Text])-    , _trsTaskUser                 :: !(Maybe Text)-    , _trsStreamingWorkerMainClass :: !(Maybe Text)-    , _trsBaseTaskDir              :: !(Maybe Text)-    , _trsLogUploadLocation        :: !(Maybe Text)-    , _trsTempStoragePrefix        :: !(Maybe Text)-    , _trsLogToSerialconsole       :: !(Maybe Bool)-    , _trsParallelWorkerSettings   :: !(Maybe WorkerSettings)-    , _trsLanguageHint             :: !(Maybe Text)-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'TaskRunnerSettings' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'trsContinueOnException'------ * 'trsHarnessCommand'------ * 'trsWorkflowFileName'------ * 'trsTaskGroup'------ * 'trsAlsologtostderr'------ * 'trsDataflowAPIVersion'------ * 'trsLogDir'------ * 'trsCommandlinesFileName'------ * 'trsVMId'------ * 'trsBaseURL'------ * 'trsOAuthScopes'------ * 'trsTaskUser'------ * 'trsStreamingWorkerMainClass'------ * 'trsBaseTaskDir'------ * 'trsLogUploadLocation'------ * 'trsTempStoragePrefix'------ * 'trsLogToSerialconsole'------ * 'trsParallelWorkerSettings'------ * 'trsLanguageHint'-taskRunnerSettings-    :: TaskRunnerSettings-taskRunnerSettings =-  TaskRunnerSettings'-    { _trsContinueOnException = Nothing-    , _trsHarnessCommand = Nothing-    , _trsWorkflowFileName = Nothing-    , _trsTaskGroup = Nothing-    , _trsAlsologtostderr = Nothing-    , _trsDataflowAPIVersion = Nothing-    , _trsLogDir = Nothing-    , _trsCommandlinesFileName = Nothing-    , _trsVMId = Nothing-    , _trsBaseURL = Nothing-    , _trsOAuthScopes = Nothing-    , _trsTaskUser = Nothing-    , _trsStreamingWorkerMainClass = Nothing-    , _trsBaseTaskDir = Nothing-    , _trsLogUploadLocation = Nothing-    , _trsTempStoragePrefix = Nothing-    , _trsLogToSerialconsole = Nothing-    , _trsParallelWorkerSettings = Nothing-    , _trsLanguageHint = Nothing-    }----- | Whether to continue taskrunner if an exception is hit.-trsContinueOnException :: Lens' TaskRunnerSettings (Maybe Bool)-trsContinueOnException-  = lens _trsContinueOnException-      (\ s a -> s{_trsContinueOnException = a})---- | The command to launch the worker harness.-trsHarnessCommand :: Lens' TaskRunnerSettings (Maybe Text)-trsHarnessCommand-  = lens _trsHarnessCommand-      (\ s a -> s{_trsHarnessCommand = a})---- | The file to store the workflow in.-trsWorkflowFileName :: Lens' TaskRunnerSettings (Maybe Text)-trsWorkflowFileName-  = lens _trsWorkflowFileName-      (\ s a -> s{_trsWorkflowFileName = a})---- | The UNIX group ID on the worker VM to use for tasks launched by--- taskrunner; e.g. \"wheel\".-trsTaskGroup :: Lens' TaskRunnerSettings (Maybe Text)-trsTaskGroup-  = lens _trsTaskGroup (\ s a -> s{_trsTaskGroup = a})---- | Whether to also send taskrunner log info to stderr.-trsAlsologtostderr :: Lens' TaskRunnerSettings (Maybe Bool)-trsAlsologtostderr-  = lens _trsAlsologtostderr-      (\ s a -> s{_trsAlsologtostderr = a})---- | The API version of endpoint, e.g. \"v1b3\"-trsDataflowAPIVersion :: Lens' TaskRunnerSettings (Maybe Text)-trsDataflowAPIVersion-  = lens _trsDataflowAPIVersion-      (\ s a -> s{_trsDataflowAPIVersion = a})---- | The directory on the VM to store logs.-trsLogDir :: Lens' TaskRunnerSettings (Maybe Text)-trsLogDir-  = lens _trsLogDir (\ s a -> s{_trsLogDir = a})---- | The file to store preprocessing commands in.-trsCommandlinesFileName :: Lens' TaskRunnerSettings (Maybe Text)-trsCommandlinesFileName-  = lens _trsCommandlinesFileName-      (\ s a -> s{_trsCommandlinesFileName = a})---- | The ID string of the VM.-trsVMId :: Lens' TaskRunnerSettings (Maybe Text)-trsVMId = lens _trsVMId (\ s a -> s{_trsVMId = a})---- | The base URL for the taskrunner to use when accessing Google Cloud APIs.--- When workers access Google Cloud APIs, they logically do so via relative--- URLs. If this field is specified, it supplies the base URL to use for--- resolving these relative URLs. The normative algorithm used is defined--- by RFC 1808, \"Relative Uniform Resource Locators\". If not specified,--- the default value is \"http:\/\/www.googleapis.com\/\"-trsBaseURL :: Lens' TaskRunnerSettings (Maybe Text)-trsBaseURL-  = lens _trsBaseURL (\ s a -> s{_trsBaseURL = a})---- | The OAuth2 scopes to be requested by the taskrunner in order to access--- the Cloud Dataflow API.-trsOAuthScopes :: Lens' TaskRunnerSettings [Text]-trsOAuthScopes-  = lens _trsOAuthScopes-      (\ s a -> s{_trsOAuthScopes = a})-      . _Default-      . _Coerce---- | The UNIX user ID on the worker VM to use for tasks launched by--- taskrunner; e.g. \"root\".-trsTaskUser :: Lens' TaskRunnerSettings (Maybe Text)-trsTaskUser-  = lens _trsTaskUser (\ s a -> s{_trsTaskUser = a})---- | The streaming worker main class name.-trsStreamingWorkerMainClass :: Lens' TaskRunnerSettings (Maybe Text)-trsStreamingWorkerMainClass-  = lens _trsStreamingWorkerMainClass-      (\ s a -> s{_trsStreamingWorkerMainClass = a})---- | The location on the worker for task-specific subdirectories.-trsBaseTaskDir :: Lens' TaskRunnerSettings (Maybe Text)-trsBaseTaskDir-  = lens _trsBaseTaskDir-      (\ s a -> s{_trsBaseTaskDir = a})---- | Indicates where to put logs. If this is not specified, the logs will not--- be uploaded. The supported resource type is: Google Cloud Storage:--- storage.googleapis.com\/{bucket}\/{object}--- bucket.storage.googleapis.com\/{object}-trsLogUploadLocation :: Lens' TaskRunnerSettings (Maybe Text)-trsLogUploadLocation-  = lens _trsLogUploadLocation-      (\ s a -> s{_trsLogUploadLocation = a})---- | The prefix of the resources the taskrunner should use for temporary--- storage. The supported resource type is: Google Cloud Storage:--- storage.googleapis.com\/{bucket}\/{object}--- bucket.storage.googleapis.com\/{object}-trsTempStoragePrefix :: Lens' TaskRunnerSettings (Maybe Text)-trsTempStoragePrefix-  = lens _trsTempStoragePrefix-      (\ s a -> s{_trsTempStoragePrefix = a})---- | Whether to send taskrunner log info to Google Compute Engine VM serial--- console.-trsLogToSerialconsole :: Lens' TaskRunnerSettings (Maybe Bool)-trsLogToSerialconsole-  = lens _trsLogToSerialconsole-      (\ s a -> s{_trsLogToSerialconsole = a})---- | The settings to pass to the parallel worker harness.-trsParallelWorkerSettings :: Lens' TaskRunnerSettings (Maybe WorkerSettings)-trsParallelWorkerSettings-  = lens _trsParallelWorkerSettings-      (\ s a -> s{_trsParallelWorkerSettings = a})---- | The suggested backend language.-trsLanguageHint :: Lens' TaskRunnerSettings (Maybe Text)-trsLanguageHint-  = lens _trsLanguageHint-      (\ s a -> s{_trsLanguageHint = a})--instance FromJSON TaskRunnerSettings where-        parseJSON-          = withObject "TaskRunnerSettings"-              (\ o ->-                 TaskRunnerSettings' <$>-                   (o .:? "continueOnException") <*>-                     (o .:? "harnessCommand")-                     <*> (o .:? "workflowFileName")-                     <*> (o .:? "taskGroup")-                     <*> (o .:? "alsologtostderr")-                     <*> (o .:? "dataflowApiVersion")-                     <*> (o .:? "logDir")-                     <*> (o .:? "commandlinesFileName")-                     <*> (o .:? "vmId")-                     <*> (o .:? "baseUrl")-                     <*> (o .:? "oauthScopes" .!= mempty)-                     <*> (o .:? "taskUser")-                     <*> (o .:? "streamingWorkerMainClass")-                     <*> (o .:? "baseTaskDir")-                     <*> (o .:? "logUploadLocation")-                     <*> (o .:? "tempStoragePrefix")-                     <*> (o .:? "logToSerialconsole")-                     <*> (o .:? "parallelWorkerSettings")-                     <*> (o .:? "languageHint"))--instance ToJSON TaskRunnerSettings where-        toJSON TaskRunnerSettings'{..}-          = object-              (catMaybes-                 [("continueOnException" .=) <$>-                    _trsContinueOnException,-                  ("harnessCommand" .=) <$> _trsHarnessCommand,-                  ("workflowFileName" .=) <$> _trsWorkflowFileName,-                  ("taskGroup" .=) <$> _trsTaskGroup,-                  ("alsologtostderr" .=) <$> _trsAlsologtostderr,-                  ("dataflowApiVersion" .=) <$> _trsDataflowAPIVersion,-                  ("logDir" .=) <$> _trsLogDir,-                  ("commandlinesFileName" .=) <$>-                    _trsCommandlinesFileName,-                  ("vmId" .=) <$> _trsVMId,-                  ("baseUrl" .=) <$> _trsBaseURL,-                  ("oauthScopes" .=) <$> _trsOAuthScopes,-                  ("taskUser" .=) <$> _trsTaskUser,-                  ("streamingWorkerMainClass" .=) <$>-                    _trsStreamingWorkerMainClass,-                  ("baseTaskDir" .=) <$> _trsBaseTaskDir,-                  ("logUploadLocation" .=) <$> _trsLogUploadLocation,-                  ("tempStoragePrefix" .=) <$> _trsTempStoragePrefix,-                  ("logToSerialconsole" .=) <$> _trsLogToSerialconsole,-                  ("parallelWorkerSettings" .=) <$>-                    _trsParallelWorkerSettings,-                  ("languageHint" .=) <$> _trsLanguageHint])---- | Configuration information for a single streaming computation.------ /See:/ 'streamingComputationConfig' smart constructor.-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.------ Use one of the following lenses to modify other fields as desired:------ * 'sccInstructions'------ * 'sccSystemName'------ * 'sccComputationId'------ * 'sccTransformUserNameToStateFamily'------ * 'sccStageName'-streamingComputationConfig-    :: StreamingComputationConfig-streamingComputationConfig =-  StreamingComputationConfig'-    { _sccInstructions = Nothing-    , _sccSystemName = Nothing-    , _sccComputationId = Nothing-    , _sccTransformUserNameToStateFamily = Nothing-    , _sccStageName = Nothing-    }----- | Instructions that comprise the computation.-sccInstructions :: Lens' StreamingComputationConfig [ParallelInstruction]-sccInstructions-  = lens _sccInstructions-      (\ s a -> s{_sccInstructions = a})-      . _Default-      . _Coerce---- | System defined name for this computation.-sccSystemName :: Lens' StreamingComputationConfig (Maybe Text)-sccSystemName-  = lens _sccSystemName-      (\ s a -> s{_sccSystemName = a})---- | Unique identifier for this computation.-sccComputationId :: Lens' StreamingComputationConfig (Maybe Text)-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-  = lens _sccStageName (\ s a -> s{_sccStageName = a})--instance FromJSON StreamingComputationConfig where-        parseJSON-          = withObject "StreamingComputationConfig"-              (\ o ->-                 StreamingComputationConfig' <$>-                   (o .:? "instructions" .!= mempty) <*>-                     (o .:? "systemName")-                     <*> (o .:? "computationId")-                     <*> (o .:? "transformUserNameToStateFamily")-                     <*> (o .:? "stageName"))--instance ToJSON StreamingComputationConfig where-        toJSON StreamingComputationConfig'{..}-          = object-              (catMaybes-                 [("instructions" .=) <$> _sccInstructions,-                  ("systemName" .=) <$> _sccSystemName,-                  ("computationId" .=) <$> _sccComputationId,-                  ("transformUserNameToStateFamily" .=) <$>-                    _sccTransformUserNameToStateFamily,-                  ("stageName" .=) <$> _sccStageName])---- | 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--- independent way.------ /See:/ 'environmentSdkPipelineOptions' smart constructor.-newtype EnvironmentSdkPipelineOptions =-  EnvironmentSdkPipelineOptions'-    { _espoAddtional :: HashMap Text JSONValue-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'EnvironmentSdkPipelineOptions' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'espoAddtional'-environmentSdkPipelineOptions-    :: HashMap Text JSONValue -- ^ 'espoAddtional'-    -> EnvironmentSdkPipelineOptions-environmentSdkPipelineOptions pEspoAddtional_ =-  EnvironmentSdkPipelineOptions' {_espoAddtional = _Coerce # pEspoAddtional_}----- | Properties of the object.-espoAddtional :: Lens' EnvironmentSdkPipelineOptions (HashMap Text JSONValue)-espoAddtional-  = lens _espoAddtional-      (\ s a -> s{_espoAddtional = a})-      . _Coerce--instance FromJSON EnvironmentSdkPipelineOptions where-        parseJSON-          = withObject "EnvironmentSdkPipelineOptions"-              (\ o ->-                 EnvironmentSdkPipelineOptions' <$>-                   (parseJSONObject o))--instance ToJSON EnvironmentSdkPipelineOptions where-        toJSON = toJSON . _espoAddtional---- | A representation of a floating point mean metric contribution.------ /See:/ 'floatingPointMean' smart constructor.-data FloatingPointMean =-  FloatingPointMean'-    { _fpmCount :: !(Maybe SplitInt64)-    , _fpmSum   :: !(Maybe (Textual Double))-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'FloatingPointMean' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'fpmCount'------ * 'fpmSum'-floatingPointMean-    :: FloatingPointMean-floatingPointMean = FloatingPointMean' {_fpmCount = Nothing, _fpmSum = Nothing}----- | The number of values being aggregated.-fpmCount :: Lens' FloatingPointMean (Maybe SplitInt64)-fpmCount = lens _fpmCount (\ s a -> s{_fpmCount = a})---- | The sum of all values being aggregated.-fpmSum :: Lens' FloatingPointMean (Maybe Double)-fpmSum-  = lens _fpmSum (\ s a -> s{_fpmSum = a}) .-      mapping _Coerce--instance FromJSON FloatingPointMean where-        parseJSON-          = withObject "FloatingPointMean"-              (\ o ->-                 FloatingPointMean' <$>-                   (o .:? "count") <*> (o .:? "sum"))--instance ToJSON FloatingPointMean where-        toJSON FloatingPointMean'{..}-          = object-              (catMaybes-                 [("count" .=) <$> _fpmCount, ("sum" .=) <$> _fpmSum])---- | Modeled after information exposed by \/proc\/stat.------ /See:/ 'cpuTime' smart constructor.-data CPUTime =-  CPUTime'-    { _ctTotalMs   :: !(Maybe (Textual Word64))-    , _ctRate      :: !(Maybe (Textual Double))-    , _ctTimestamp :: !(Maybe DateTime')-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'CPUTime' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'ctTotalMs'------ * 'ctRate'------ * 'ctTimestamp'-cpuTime-    :: CPUTime-cpuTime =-  CPUTime' {_ctTotalMs = Nothing, _ctRate = Nothing, _ctTimestamp = Nothing}----- | Total active CPU time across all cores (ie., non-idle) in milliseconds--- since start-up.-ctTotalMs :: Lens' CPUTime (Maybe Word64)-ctTotalMs-  = lens _ctTotalMs (\ s a -> s{_ctTotalMs = a}) .-      mapping _Coerce---- | Average CPU utilization rate (% non-idle cpu \/ second) since previous--- sample.-ctRate :: Lens' CPUTime (Maybe Double)-ctRate-  = lens _ctRate (\ s a -> s{_ctRate = a}) .-      mapping _Coerce---- | Timestamp of the measurement.-ctTimestamp :: Lens' CPUTime (Maybe UTCTime)-ctTimestamp-  = lens _ctTimestamp (\ s a -> s{_ctTimestamp = a}) .-      mapping _DateTime--instance FromJSON CPUTime where-        parseJSON-          = withObject "CPUTime"-              (\ o ->-                 CPUTime' <$>-                   (o .:? "totalMs") <*> (o .:? "rate") <*>-                     (o .:? "timestamp"))--instance ToJSON CPUTime where-        toJSON CPUTime'{..}-          = object-              (catMaybes-                 [("totalMs" .=) <$> _ctTotalMs,-                  ("rate" .=) <$> _ctRate,-                  ("timestamp" .=) <$> _ctTimestamp])---- | Request to lease WorkItems.------ /See:/ 'leaseWorkItemRequest' smart constructor.-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)----- | Creates a value of 'LeaseWorkItemRequest' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'lwirWorkItemTypes'------ * 'lwirCurrentWorkerTime'------ * 'lwirLocation'------ * 'lwirWorkerCapabilities'------ * 'lwirUnifiedWorkerRequest'------ * 'lwirRequestedLeaseDuration'------ * 'lwirWorkerId'-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-  = lens _lwirWorkItemTypes-      (\ s a -> s{_lwirWorkItemTypes = a})-      . _Default-      . _Coerce---- | The current timestamp at the worker.-lwirCurrentWorkerTime :: Lens' LeaseWorkItemRequest (Maybe UTCTime)-lwirCurrentWorkerTime-  = lens _lwirCurrentWorkerTime-      (\ s a -> s{_lwirCurrentWorkerTime = a})-      . mapping _DateTime---- | 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})---- | Worker capabilities. WorkItems might be limited to workers with specific--- capabilities.-lwirWorkerCapabilities :: Lens' LeaseWorkItemRequest [Text]-lwirWorkerCapabilities-  = lens _lwirWorkerCapabilities-      (\ s a -> s{_lwirWorkerCapabilities = a})-      . _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-  = lens _lwirRequestedLeaseDuration-      (\ s a -> s{_lwirRequestedLeaseDuration = a})-      . mapping _GDuration---- | Identifies the worker leasing work -- typically the ID of the virtual--- machine running the worker.-lwirWorkerId :: Lens' LeaseWorkItemRequest (Maybe Text)-lwirWorkerId-  = lens _lwirWorkerId (\ s a -> s{_lwirWorkerId = a})--instance FromJSON LeaseWorkItemRequest where-        parseJSON-          = withObject "LeaseWorkItemRequest"-              (\ o ->-                 LeaseWorkItemRequest' <$>-                   (o .:? "workItemTypes" .!= mempty) <*>-                     (o .:? "currentWorkerTime")-                     <*> (o .:? "location")-                     <*> (o .:? "workerCapabilities" .!= mempty)-                     <*> (o .:? "unifiedWorkerRequest")-                     <*> (o .:? "requestedLeaseDuration")-                     <*> (o .:? "workerId"))--instance ToJSON LeaseWorkItemRequest where-        toJSON LeaseWorkItemRequest'{..}-          = object-              (catMaybes-                 [("workItemTypes" .=) <$> _lwirWorkItemTypes,-                  ("currentWorkerTime" .=) <$> _lwirCurrentWorkerTime,-                  ("location" .=) <$> _lwirLocation,-                  ("workerCapabilities" .=) <$>-                    _lwirWorkerCapabilities,-                  ("unifiedWorkerRequest" .=) <$>-                    _lwirUnifiedWorkerRequest,-                  ("requestedLeaseDuration" .=) <$>-                    _lwirRequestedLeaseDuration,-                  ("workerId" .=) <$> _lwirWorkerId])---- | The result of a SourceOperationRequest, specified in--- ReportWorkItemStatusRequest.source_operation when the work item is--- completed.------ /See:/ 'sourceOperationResponse' smart constructor.-data SourceOperationResponse =-  SourceOperationResponse'-    { _sorSplit       :: !(Maybe SourceSplitResponse)-    , _sorGetMetadata :: !(Maybe SourceGetMetadataResponse)-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'SourceOperationResponse' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'sorSplit'------ * 'sorGetMetadata'-sourceOperationResponse-    :: SourceOperationResponse-sourceOperationResponse =-  SourceOperationResponse' {_sorSplit = Nothing, _sorGetMetadata = Nothing}----- | A response to a request to split a source.-sorSplit :: Lens' SourceOperationResponse (Maybe SourceSplitResponse)-sorSplit = lens _sorSplit (\ s a -> s{_sorSplit = a})---- | A response to a request to get metadata about a source.-sorGetMetadata :: Lens' SourceOperationResponse (Maybe SourceGetMetadataResponse)-sorGetMetadata-  = lens _sorGetMetadata-      (\ s a -> s{_sorGetMetadata = a})--instance FromJSON SourceOperationResponse where-        parseJSON-          = withObject "SourceOperationResponse"-              (\ o ->-                 SourceOperationResponse' <$>-                   (o .:? "split") <*> (o .:? "getMetadata"))--instance ToJSON SourceOperationResponse where-        toJSON SourceOperationResponse'{..}-          = object-              (catMaybes-                 [("split" .=) <$> _sorSplit,-                  ("getMetadata" .=) <$> _sorGetMetadata])---- | Maps user stage names to stable computation names.------ /See:/ 'topologyConfigUserStageToComputationNameMap' smart constructor.-newtype TopologyConfigUserStageToComputationNameMap =-  TopologyConfigUserStageToComputationNameMap'-    { _tcustcnmAddtional :: HashMap Text Text-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'TopologyConfigUserStageToComputationNameMap' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'tcustcnmAddtional'-topologyConfigUserStageToComputationNameMap-    :: HashMap Text Text -- ^ 'tcustcnmAddtional'-    -> TopologyConfigUserStageToComputationNameMap-topologyConfigUserStageToComputationNameMap pTcustcnmAddtional_ =-  TopologyConfigUserStageToComputationNameMap'-    {_tcustcnmAddtional = _Coerce # pTcustcnmAddtional_}---tcustcnmAddtional :: Lens' TopologyConfigUserStageToComputationNameMap (HashMap Text Text)-tcustcnmAddtional-  = lens _tcustcnmAddtional-      (\ s a -> s{_tcustcnmAddtional = a})-      . _Coerce--instance FromJSON-           TopologyConfigUserStageToComputationNameMap-         where-        parseJSON-          = withObject-              "TopologyConfigUserStageToComputationNameMap"-              (\ o ->-                 TopologyConfigUserStageToComputationNameMap' <$>-                   (parseJSONObject o))--instance ToJSON-           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'-    { _stCommand  :: !(Maybe Text)-    , _stExitCode :: !(Maybe (Textual Int32))-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'ShellTask' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'stCommand'------ * 'stExitCode'-shellTask-    :: ShellTask-shellTask = ShellTask' {_stCommand = Nothing, _stExitCode = Nothing}----- | The shell command to run.-stCommand :: Lens' ShellTask (Maybe Text)-stCommand-  = lens _stCommand (\ s a -> s{_stCommand = a})---- | Exit code for the task.-stExitCode :: Lens' ShellTask (Maybe Int32)-stExitCode-  = lens _stExitCode (\ s a -> s{_stExitCode = a}) .-      mapping _Coerce--instance FromJSON ShellTask where-        parseJSON-          = withObject "ShellTask"-              (\ o ->-                 ShellTask' <$>-                   (o .:? "command") <*> (o .:? "exitCode"))--instance ToJSON ShellTask where-        toJSON ShellTask'{..}-          = object-              (catMaybes-                 [("command" .=) <$> _stCommand,-                  ("exitCode" .=) <$> _stExitCode])---- | Metadata for a Datastore connector used by the job.------ /See:/ 'datastoreIODetails' smart constructor.-data DatastoreIODetails =-  DatastoreIODetails'-    { _diodNamespace :: !(Maybe Text)-    , _diodProjectId :: !(Maybe Text)-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'DatastoreIODetails' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'diodNamespace'------ * 'diodProjectId'-datastoreIODetails-    :: DatastoreIODetails-datastoreIODetails =-  DatastoreIODetails' {_diodNamespace = Nothing, _diodProjectId = Nothing}----- | Namespace used in the connection.-diodNamespace :: Lens' DatastoreIODetails (Maybe Text)-diodNamespace-  = lens _diodNamespace-      (\ s a -> s{_diodNamespace = a})---- | ProjectId accessed in the connection.-diodProjectId :: Lens' DatastoreIODetails (Maybe Text)-diodProjectId-  = lens _diodProjectId-      (\ s a -> s{_diodProjectId = a})--instance FromJSON DatastoreIODetails where-        parseJSON-          = withObject "DatastoreIODetails"-              (\ o ->-                 DatastoreIODetails' <$>-                   (o .:? "namespace") <*> (o .:? "projectId"))--instance ToJSON DatastoreIODetails where-        toJSON DatastoreIODetails'{..}-          = object-              (catMaybes-                 [("namespace" .=) <$> _diodNamespace,-                  ("projectId" .=) <$> _diodProjectId])------- /See:/ 'statusDetailsItem' smart constructor.-newtype StatusDetailsItem =-  StatusDetailsItem'-    { _sdiAddtional :: HashMap Text JSONValue-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'StatusDetailsItem' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'sdiAddtional'-statusDetailsItem-    :: HashMap Text JSONValue -- ^ 'sdiAddtional'-    -> StatusDetailsItem-statusDetailsItem pSdiAddtional_ =-  StatusDetailsItem' {_sdiAddtional = _Coerce # pSdiAddtional_}----- | Properties of the object. Contains field \'type with type URL.-sdiAddtional :: Lens' StatusDetailsItem (HashMap Text JSONValue)-sdiAddtional-  = lens _sdiAddtional (\ s a -> s{_sdiAddtional = a})-      . _Coerce--instance FromJSON StatusDetailsItem where-        parseJSON-          = withObject "StatusDetailsItem"-              (\ o -> StatusDetailsItem' <$> (parseJSONObject o))--instance ToJSON StatusDetailsItem where-        toJSON = toJSON . _sdiAddtional---- | Represents the level of parallelism in a WorkItem\'s input, reported by--- the worker.------ /See:/ 'reportedParallelism' smart constructor.-data ReportedParallelism =-  ReportedParallelism'-    { _rpValue      :: !(Maybe (Textual Double))-    , _rpIsInfinite :: !(Maybe Bool)-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'ReportedParallelism' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'rpValue'------ * 'rpIsInfinite'-reportedParallelism-    :: ReportedParallelism-reportedParallelism =-  ReportedParallelism' {_rpValue = Nothing, _rpIsInfinite = Nothing}----- | Specifies the level of parallelism in case it is finite.-rpValue :: Lens' ReportedParallelism (Maybe Double)-rpValue-  = lens _rpValue (\ s a -> s{_rpValue = a}) .-      mapping _Coerce---- | Specifies whether the parallelism is infinite. If true, \"value\" is--- ignored. Infinite parallelism means the service will assume that the--- work item can always be split into more non-empty work items by dynamic--- splitting. This is a work-around for lack of support for infinity by the--- current JSON-based Java RPC stack.-rpIsInfinite :: Lens' ReportedParallelism (Maybe Bool)-rpIsInfinite-  = lens _rpIsInfinite (\ s a -> s{_rpIsInfinite = a})--instance FromJSON ReportedParallelism where-        parseJSON-          = withObject "ReportedParallelism"-              (\ o ->-                 ReportedParallelism' <$>-                   (o .:? "value") <*> (o .:? "isInfinite"))--instance ToJSON ReportedParallelism where-        toJSON ReportedParallelism'{..}-          = object-              (catMaybes-                 [("value" .=) <$> _rpValue,-                  ("isInfinite" .=) <$> _rpIsInfinite])---- | Named properties associated with the step. Each kind of predefined step--- has its own required set of properties. Must be provided on Create. Only--- retrieved with JOB_VIEW_ALL.------ /See:/ 'stepProperties' smart constructor.-newtype StepProperties =-  StepProperties'-    { _spAddtional :: HashMap Text JSONValue-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'StepProperties' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'spAddtional'-stepProperties-    :: HashMap Text JSONValue -- ^ 'spAddtional'-    -> StepProperties-stepProperties pSpAddtional_ =-  StepProperties' {_spAddtional = _Coerce # pSpAddtional_}----- | Properties of the object.-spAddtional :: Lens' StepProperties (HashMap Text JSONValue)-spAddtional-  = lens _spAddtional (\ s a -> s{_spAddtional = a}) .-      _Coerce--instance FromJSON StepProperties where-        parseJSON-          = withObject "StepProperties"-              (\ o -> StepProperties' <$> (parseJSONObject o))--instance ToJSON StepProperties where-        toJSON = toJSON . _spAddtional---- | Global topology of the streaming Dataflow job, including all--- computations and their sharded locations.------ /See:/ 'topologyConfig' smart constructor.-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)----- | Creates a value of 'TopologyConfig' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'tcDataDiskAssignments'------ * 'tcPersistentStateVersion'------ * 'tcForwardingKeyBits'------ * 'tcUserStageToComputationNameMap'------ * 'tcComputations'-topologyConfig-    :: TopologyConfig-topologyConfig =-  TopologyConfig'-    { _tcDataDiskAssignments = Nothing-    , _tcPersistentStateVersion = Nothing-    , _tcForwardingKeyBits = Nothing-    , _tcUserStageToComputationNameMap = Nothing-    , _tcComputations = Nothing-    }----- | The disks assigned to a streaming Dataflow job.-tcDataDiskAssignments :: Lens' TopologyConfig [DataDiskAssignment]-tcDataDiskAssignments-  = lens _tcDataDiskAssignments-      (\ s a -> s{_tcDataDiskAssignments = a})-      . _Default-      . _Coerce---- | Version number for persistent state.-tcPersistentStateVersion :: Lens' TopologyConfig (Maybe Int32)-tcPersistentStateVersion-  = lens _tcPersistentStateVersion-      (\ s a -> s{_tcPersistentStateVersion = a})-      . mapping _Coerce---- | The size (in bits) of keys that will be assigned to source messages.-tcForwardingKeyBits :: Lens' TopologyConfig (Maybe Int32)-tcForwardingKeyBits-  = lens _tcForwardingKeyBits-      (\ s a -> s{_tcForwardingKeyBits = a})-      . mapping _Coerce---- | Maps user stage names to stable computation names.-tcUserStageToComputationNameMap :: Lens' TopologyConfig (Maybe TopologyConfigUserStageToComputationNameMap)-tcUserStageToComputationNameMap-  = lens _tcUserStageToComputationNameMap-      (\ s a -> s{_tcUserStageToComputationNameMap = a})---- | The computations associated with a streaming Dataflow job.-tcComputations :: Lens' TopologyConfig [ComputationTopology]-tcComputations-  = lens _tcComputations-      (\ s a -> s{_tcComputations = a})-      . _Default-      . _Coerce--instance FromJSON TopologyConfig where-        parseJSON-          = withObject "TopologyConfig"-              (\ o ->-                 TopologyConfig' <$>-                   (o .:? "dataDiskAssignments" .!= mempty) <*>-                     (o .:? "persistentStateVersion")-                     <*> (o .:? "forwardingKeyBits")-                     <*> (o .:? "userStageToComputationNameMap")-                     <*> (o .:? "computations" .!= mempty))--instance ToJSON TopologyConfig where-        toJSON TopologyConfig'{..}-          = object-              (catMaybes-                 [("dataDiskAssignments" .=) <$>-                    _tcDataDiskAssignments,-                  ("persistentStateVersion" .=) <$>-                    _tcPersistentStateVersion,-                  ("forwardingKeyBits" .=) <$> _tcForwardingKeyBits,-                  ("userStageToComputationNameMap" .=) <$>-                    _tcUserStageToComputationNameMap,-                  ("computations" .=) <$> _tcComputations])---- | A suggestion by the service to the worker to dynamically split the--- WorkItem.------ /See:/ 'approximateSplitRequest' smart constructor.-data ApproximateSplitRequest =-  ApproximateSplitRequest'-    { _asrFractionConsumed    :: !(Maybe (Textual Double))-    , _asrFractionOfRemainder :: !(Maybe (Textual Double))-    , _asrPosition            :: !(Maybe Position)-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'ApproximateSplitRequest' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'asrFractionConsumed'------ * 'asrFractionOfRemainder'------ * 'asrPosition'-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)-asrFractionConsumed-  = lens _asrFractionConsumed-      (\ s a -> s{_asrFractionConsumed = a})-      . mapping _Coerce---- | The fraction of the remainder of work to split the work item at, from--- 0.0 (split at the current position) to 1.0 (end of the input).-asrFractionOfRemainder :: Lens' ApproximateSplitRequest (Maybe Double)-asrFractionOfRemainder-  = lens _asrFractionOfRemainder-      (\ s a -> s{_asrFractionOfRemainder = a})-      . mapping _Coerce---- | A Position at which to split the work item.-asrPosition :: Lens' ApproximateSplitRequest (Maybe Position)-asrPosition-  = lens _asrPosition (\ s a -> s{_asrPosition = a})--instance FromJSON ApproximateSplitRequest where-        parseJSON-          = withObject "ApproximateSplitRequest"-              (\ o ->-                 ApproximateSplitRequest' <$>-                   (o .:? "fractionConsumed") <*>-                     (o .:? "fractionOfRemainder")-                     <*> (o .:? "position"))--instance ToJSON ApproximateSplitRequest where-        toJSON ApproximateSplitRequest'{..}-          = object-              (catMaybes-                 [("fractionConsumed" .=) <$> _asrFractionConsumed,-                  ("fractionOfRemainder" .=) <$>-                    _asrFractionOfRemainder,-                  ("position" .=) <$> _asrPosition])---- | A representation of an int64, n, that is immune to precision loss when--- encoded in JSON.------ /See:/ 'splitInt64' smart constructor.-data SplitInt64 =-  SplitInt64'-    { _siHighBits :: !(Maybe (Textual Int32))-    , _siLowBits  :: !(Maybe (Textual Word32))-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'SplitInt64' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'siHighBits'------ * 'siLowBits'-splitInt64-    :: SplitInt64-splitInt64 = SplitInt64' {_siHighBits = Nothing, _siLowBits = Nothing}----- | The high order bits, including the sign: n >> 32.-siHighBits :: Lens' SplitInt64 (Maybe Int32)-siHighBits-  = lens _siHighBits (\ s a -> s{_siHighBits = a}) .-      mapping _Coerce---- | The low order bits: n & 0xffffffff.-siLowBits :: Lens' SplitInt64 (Maybe Word32)-siLowBits-  = lens _siLowBits (\ s a -> s{_siLowBits = a}) .-      mapping _Coerce--instance FromJSON SplitInt64 where-        parseJSON-          = withObject "SplitInt64"-              (\ o ->-                 SplitInt64' <$>-                   (o .:? "highBits") <*> (o .:? "lowBits"))--instance ToJSON SplitInt64 where-        toJSON SplitInt64'{..}-          = object-              (catMaybes-                 [("highBits" .=) <$> _siHighBits,-                  ("lowBits" .=) <$> _siLowBits])---- | Provides data to pass through to the worker harness.------ /See:/ 'workerSettings' smart constructor.-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)----- | Creates a value of 'WorkerSettings' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'wsServicePath'------ * 'wsBaseURL'------ * 'wsShuffleServicePath'------ * 'wsTempStoragePrefix'------ * 'wsReportingEnabled'------ * 'wsWorkerId'-workerSettings-    :: WorkerSettings-workerSettings =-  WorkerSettings'-    { _wsServicePath = Nothing-    , _wsBaseURL = Nothing-    , _wsShuffleServicePath = Nothing-    , _wsTempStoragePrefix = Nothing-    , _wsReportingEnabled = Nothing-    , _wsWorkerId = Nothing-    }----- | The Cloud Dataflow service path relative to the root URL, for example,--- \"dataflow\/v1b3\/projects\".-wsServicePath :: Lens' WorkerSettings (Maybe Text)-wsServicePath-  = lens _wsServicePath-      (\ s a -> s{_wsServicePath = a})---- | The base URL for accessing Google Cloud APIs. When workers access Google--- Cloud APIs, they logically do so via relative URLs. If this field is--- specified, it supplies the base URL to use for resolving these relative--- URLs. The normative algorithm used is defined by RFC 1808, \"Relative--- Uniform Resource Locators\". If not specified, the default value is--- \"http:\/\/www.googleapis.com\/\"-wsBaseURL :: Lens' WorkerSettings (Maybe Text)-wsBaseURL-  = lens _wsBaseURL (\ s a -> s{_wsBaseURL = a})---- | The Shuffle service path relative to the root URL, for example,--- \"shuffle\/v1beta1\".-wsShuffleServicePath :: Lens' WorkerSettings (Maybe Text)-wsShuffleServicePath-  = lens _wsShuffleServicePath-      (\ s a -> s{_wsShuffleServicePath = a})---- | The prefix of the resources the system should use for temporary storage.--- The supported resource type is: Google Cloud Storage:--- storage.googleapis.com\/{bucket}\/{object}--- bucket.storage.googleapis.com\/{object}-wsTempStoragePrefix :: Lens' WorkerSettings (Maybe Text)-wsTempStoragePrefix-  = lens _wsTempStoragePrefix-      (\ s a -> s{_wsTempStoragePrefix = a})---- | Whether to send work progress updates to the service.-wsReportingEnabled :: Lens' WorkerSettings (Maybe Bool)-wsReportingEnabled-  = lens _wsReportingEnabled-      (\ s a -> s{_wsReportingEnabled = a})---- | The ID of the worker running this pipeline.-wsWorkerId :: Lens' WorkerSettings (Maybe Text)-wsWorkerId-  = lens _wsWorkerId (\ s a -> s{_wsWorkerId = a})--instance FromJSON WorkerSettings where-        parseJSON-          = withObject "WorkerSettings"-              (\ o ->-                 WorkerSettings' <$>-                   (o .:? "servicePath") <*> (o .:? "baseUrl") <*>-                     (o .:? "shuffleServicePath")-                     <*> (o .:? "tempStoragePrefix")-                     <*> (o .:? "reportingEnabled")-                     <*> (o .:? "workerId"))--instance ToJSON WorkerSettings where-        toJSON WorkerSettings'{..}-          = object-              (catMaybes-                 [("servicePath" .=) <$> _wsServicePath,-                  ("baseUrl" .=) <$> _wsBaseURL,-                  ("shuffleServicePath" .=) <$> _wsShuffleServicePath,-                  ("tempStoragePrefix" .=) <$> _wsTempStoragePrefix,-                  ("reportingEnabled" .=) <$> _wsReportingEnabled,-                  ("workerId" .=) <$> _wsWorkerId])---- | Response to a get debug configuration request.------ /See:/ 'getDebugConfigResponse' smart constructor.-newtype GetDebugConfigResponse =-  GetDebugConfigResponse'-    { _gdcrConfig :: Maybe Text-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'GetDebugConfigResponse' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'gdcrConfig'-getDebugConfigResponse-    :: GetDebugConfigResponse-getDebugConfigResponse = GetDebugConfigResponse' {_gdcrConfig = Nothing}----- | The encoded debug configuration for the requested component.-gdcrConfig :: Lens' GetDebugConfigResponse (Maybe Text)-gdcrConfig-  = lens _gdcrConfig (\ s a -> s{_gdcrConfig = a})--instance FromJSON GetDebugConfigResponse where-        parseJSON-          = withObject "GetDebugConfigResponse"-              (\ o -> GetDebugConfigResponse' <$> (o .:? "config"))--instance ToJSON GetDebugConfigResponse where-        toJSON GetDebugConfigResponse'{..}-          = object (catMaybes [("config" .=) <$> _gdcrConfig])---- | The version of the SDK used to run the job.------ /See:/ 'sdkVersion' smart constructor.-data SdkVersion =-  SdkVersion'-    { _svSdkSupportStatus   :: !(Maybe SdkVersionSdkSupportStatus)-    , _svVersionDisplayName :: !(Maybe Text)-    , _svVersion            :: !(Maybe Text)-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'SdkVersion' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'svSdkSupportStatus'------ * 'svVersionDisplayName'------ * 'svVersion'-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.-svVersionDisplayName :: Lens' SdkVersion (Maybe Text)-svVersionDisplayName-  = lens _svVersionDisplayName-      (\ s a -> s{_svVersionDisplayName = a})---- | The version of the SDK used to run the job.-svVersion :: Lens' SdkVersion (Maybe Text)-svVersion-  = lens _svVersion (\ s a -> s{_svVersion = a})--instance FromJSON SdkVersion where-        parseJSON-          = withObject "SdkVersion"-              (\ o ->-                 SdkVersion' <$>-                   (o .:? "sdkSupportStatus") <*>-                     (o .:? "versionDisplayName")-                     <*> (o .:? "version"))--instance ToJSON SdkVersion where-        toJSON SdkVersion'{..}-          = object-              (catMaybes-                 [("sdkSupportStatus" .=) <$> _svSdkSupportStatus,-                  ("versionDisplayName" .=) <$> _svVersionDisplayName,-                  ("version" .=) <$> _svVersion])---- | Other data returned by the service, specific to the particular worker--- harness.------ /See:/ 'workItemServiceStateHarnessData' smart constructor.-newtype WorkItemServiceStateHarnessData =-  WorkItemServiceStateHarnessData'-    { _wisshdAddtional :: HashMap Text JSONValue-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'WorkItemServiceStateHarnessData' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'wisshdAddtional'-workItemServiceStateHarnessData-    :: HashMap Text JSONValue -- ^ 'wisshdAddtional'-    -> WorkItemServiceStateHarnessData-workItemServiceStateHarnessData pWisshdAddtional_ =-  WorkItemServiceStateHarnessData'-    {_wisshdAddtional = _Coerce # pWisshdAddtional_}----- | Properties of the object.-wisshdAddtional :: Lens' WorkItemServiceStateHarnessData (HashMap Text JSONValue)-wisshdAddtional-  = lens _wisshdAddtional-      (\ s a -> s{_wisshdAddtional = a})-      . _Coerce--instance FromJSON WorkItemServiceStateHarnessData-         where-        parseJSON-          = withObject "WorkItemServiceStateHarnessData"-              (\ o ->-                 WorkItemServiceStateHarnessData' <$>-                   (parseJSONObject o))--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'-    { _ddaVMInstance :: !(Maybe Text)-    , _ddaDataDisks  :: !(Maybe [Text])-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'DataDiskAssignment' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'ddaVMInstance'------ * 'ddaDataDisks'-dataDiskAssignment-    :: DataDiskAssignment-dataDiskAssignment =-  DataDiskAssignment' {_ddaVMInstance = Nothing, _ddaDataDisks = Nothing}----- | VM instance name the data disks mounted to, for example--- \"myproject-1014-104817-4c2-harness-0\".-ddaVMInstance :: Lens' DataDiskAssignment (Maybe Text)-ddaVMInstance-  = lens _ddaVMInstance-      (\ s a -> s{_ddaVMInstance = a})---- | Mounted data disks. The order is important a data disk\'s 0-based index--- in this list defines which persistent directory the disk is mounted to,--- for example the list of { \"myproject-1014-104817-4c2-harness-0-disk-0\"--- }, { \"myproject-1014-104817-4c2-harness-0-disk-1\" }.-ddaDataDisks :: Lens' DataDiskAssignment [Text]-ddaDataDisks-  = lens _ddaDataDisks (\ s a -> s{_ddaDataDisks = a})-      . _Default-      . _Coerce--instance FromJSON DataDiskAssignment where-        parseJSON-          = withObject "DataDiskAssignment"-              (\ o ->-                 DataDiskAssignment' <$>-                   (o .:? "vmInstance") <*>-                     (o .:? "dataDisks" .!= mempty))--instance ToJSON DataDiskAssignment where-        toJSON DataDiskAssignment'{..}-          = object-              (catMaybes-                 [("vmInstance" .=) <$> _ddaVMInstance,-                  ("dataDisks" .=) <$> _ddaDataDisks])---- | Worker metrics exported from workers. This contains resource utilization--- metrics accumulated from a variety of sources. For more information, see--- go\/df-resource-signals.------ /See:/ 'resourceUtilizationReport' smart constructor.-newtype ResourceUtilizationReport =-  ResourceUtilizationReport'-    { _rurCPUTime :: Maybe [CPUTime]-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'ResourceUtilizationReport' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'rurCPUTime'-resourceUtilizationReport-    :: ResourceUtilizationReport-resourceUtilizationReport = ResourceUtilizationReport' {_rurCPUTime = Nothing}----- | CPU utilization samples.-rurCPUTime :: Lens' ResourceUtilizationReport [CPUTime]-rurCPUTime-  = lens _rurCPUTime (\ s a -> s{_rurCPUTime = a}) .-      _Default-      . _Coerce--instance FromJSON ResourceUtilizationReport where-        parseJSON-          = withObject "ResourceUtilizationReport"-              (\ o ->-                 ResourceUtilizationReport' <$>-                   (o .:? "cpuTime" .!= mempty))--instance ToJSON ResourceUtilizationReport where-        toJSON ResourceUtilizationReport'{..}-          = object (catMaybes [("cpuTime" .=) <$> _rurCPUTime])---- | 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'-    { _flName :: Maybe Text-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'FailedLocation' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'flName'-failedLocation-    :: FailedLocation-failedLocation = FailedLocation' {_flName = Nothing}----- | 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})--instance FromJSON FailedLocation where-        parseJSON-          = withObject "FailedLocation"-              (\ o -> FailedLocation' <$> (o .:? "name"))--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'-    { _wmrWorkerHealthReportResponse   :: !(Maybe WorkerHealthReportResponse)-    , _wmrWorkerMetricsResponse        :: !(Maybe ResourceUtilizationReportResponse)-    , _wmrWorkerShutdownNoticeResponse :: !(Maybe WorkerShutdownNoticeResponse)-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'WorkerMessageResponse' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'wmrWorkerHealthReportResponse'------ * 'wmrWorkerMetricsResponse'------ * 'wmrWorkerShutdownNoticeResponse'-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-  = lens _wmrWorkerHealthReportResponse-      (\ s a -> s{_wmrWorkerHealthReportResponse = a})---- | Service\'s response to reporting worker metrics (currently empty).-wmrWorkerMetricsResponse :: Lens' WorkerMessageResponse (Maybe ResourceUtilizationReportResponse)-wmrWorkerMetricsResponse-  = lens _wmrWorkerMetricsResponse-      (\ s a -> s{_wmrWorkerMetricsResponse = a})---- | Service\'s response to shutdown notice (currently empty).-wmrWorkerShutdownNoticeResponse :: Lens' WorkerMessageResponse (Maybe WorkerShutdownNoticeResponse)-wmrWorkerShutdownNoticeResponse-  = lens _wmrWorkerShutdownNoticeResponse-      (\ s a -> s{_wmrWorkerShutdownNoticeResponse = a})--instance FromJSON WorkerMessageResponse where-        parseJSON-          = withObject "WorkerMessageResponse"-              (\ o ->-                 WorkerMessageResponse' <$>-                   (o .:? "workerHealthReportResponse") <*>-                     (o .:? "workerMetricsResponse")-                     <*> (o .:? "workerShutdownNoticeResponse"))--instance ToJSON WorkerMessageResponse where-        toJSON WorkerMessageResponse'{..}-          = object-              (catMaybes-                 [("workerHealthReportResponse" .=) <$>-                    _wmrWorkerHealthReportResponse,-                  ("workerMetricsResponse" .=) <$>-                    _wmrWorkerMetricsResponse,-                  ("workerShutdownNoticeResponse" .=) <$>-                    _wmrWorkerShutdownNoticeResponse])---- | The runtime parameters to pass to the job.------ /See:/ 'createJobFromTemplateRequestParameters' smart constructor.-newtype CreateJobFromTemplateRequestParameters =-  CreateJobFromTemplateRequestParameters'-    { _cjftrpAddtional :: HashMap Text Text-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'CreateJobFromTemplateRequestParameters' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'cjftrpAddtional'-createJobFromTemplateRequestParameters-    :: HashMap Text Text -- ^ 'cjftrpAddtional'-    -> CreateJobFromTemplateRequestParameters-createJobFromTemplateRequestParameters pCjftrpAddtional_ =-  CreateJobFromTemplateRequestParameters'-    {_cjftrpAddtional = _Coerce # pCjftrpAddtional_}---cjftrpAddtional :: Lens' CreateJobFromTemplateRequestParameters (HashMap Text Text)-cjftrpAddtional-  = lens _cjftrpAddtional-      (\ s a -> s{_cjftrpAddtional = a})-      . _Coerce--instance FromJSON-           CreateJobFromTemplateRequestParameters-         where-        parseJSON-          = withObject "CreateJobFromTemplateRequestParameters"-              (\ o ->-                 CreateJobFromTemplateRequestParameters' <$>-                   (parseJSONObject o))--instance ToJSON-           CreateJobFromTemplateRequestParameters-         where-        toJSON = toJSON . _cjftrpAddtional---- | Metadata for a BigTable connector used by the job.------ /See:/ 'bigTableIODetails' smart constructor.-data BigTableIODetails =-  BigTableIODetails'-    { _btiodInstanceId :: !(Maybe Text)-    , _btiodProjectId  :: !(Maybe Text)-    , _btiodTableId    :: !(Maybe Text)-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'BigTableIODetails' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'btiodInstanceId'------ * 'btiodProjectId'------ * 'btiodTableId'-bigTableIODetails-    :: BigTableIODetails-bigTableIODetails =-  BigTableIODetails'-    { _btiodInstanceId = Nothing-    , _btiodProjectId = Nothing-    , _btiodTableId = Nothing-    }----- | InstanceId accessed in the connection.-btiodInstanceId :: Lens' BigTableIODetails (Maybe Text)-btiodInstanceId-  = lens _btiodInstanceId-      (\ s a -> s{_btiodInstanceId = a})---- | ProjectId accessed in the connection.-btiodProjectId :: Lens' BigTableIODetails (Maybe Text)-btiodProjectId-  = lens _btiodProjectId-      (\ s a -> s{_btiodProjectId = a})---- | TableId accessed in the connection.-btiodTableId :: Lens' BigTableIODetails (Maybe Text)-btiodTableId-  = lens _btiodTableId (\ s a -> s{_btiodTableId = a})--instance FromJSON BigTableIODetails where-        parseJSON-          = withObject "BigTableIODetails"-              (\ o ->-                 BigTableIODetails' <$>-                   (o .:? "instanceId") <*> (o .:? "projectId") <*>-                     (o .:? "tableId"))--instance ToJSON BigTableIODetails where-        toJSON BigTableIODetails'{..}-          = object-              (catMaybes-                 [("instanceId" .=) <$> _btiodInstanceId,-                  ("projectId" .=) <$> _btiodProjectId,-                  ("tableId" .=) <$> _btiodTableId])---- | The Dataflow service\'s idea of the current state of a WorkItem being--- processed by a worker.------ /See:/ 'workItemServiceState' smart constructor.-data WorkItemServiceState =-  WorkItemServiceState'-    { _wissNextReportIndex       :: !(Maybe (Textual Int64))-    , _wissReportStatusInterval  :: !(Maybe GDuration)-    , _wissHarnessData           :: !(Maybe WorkItemServiceStateHarnessData)-    , _wissSuggestedStopPoint    :: !(Maybe ApproximateProgress)-    , _wissSuggestedStopPosition :: !(Maybe Position)-    , _wissLeaseExpireTime       :: !(Maybe DateTime')-    , _wissSplitRequest          :: !(Maybe ApproximateSplitRequest)-    , _wissMetricShortId         :: !(Maybe [MetricShortId])-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'WorkItemServiceState' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'wissNextReportIndex'------ * 'wissReportStatusInterval'------ * 'wissHarnessData'------ * 'wissSuggestedStopPoint'------ * 'wissSuggestedStopPosition'------ * 'wissLeaseExpireTime'------ * 'wissSplitRequest'------ * 'wissMetricShortId'-workItemServiceState-    :: WorkItemServiceState-workItemServiceState =-  WorkItemServiceState'-    { _wissNextReportIndex = Nothing-    , _wissReportStatusInterval = Nothing-    , _wissHarnessData = Nothing-    , _wissSuggestedStopPoint = Nothing-    , _wissSuggestedStopPosition = Nothing-    , _wissLeaseExpireTime = Nothing-    , _wissSplitRequest = Nothing-    , _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.-wissNextReportIndex :: Lens' WorkItemServiceState (Maybe Int64)-wissNextReportIndex-  = lens _wissNextReportIndex-      (\ s a -> s{_wissNextReportIndex = a})-      . mapping _Coerce---- | New recommended reporting interval.-wissReportStatusInterval :: Lens' WorkItemServiceState (Maybe Scientific)-wissReportStatusInterval-  = lens _wissReportStatusInterval-      (\ s a -> s{_wissReportStatusInterval = a})-      . mapping _GDuration---- | Other data returned by the service, specific to the particular worker--- harness.-wissHarnessData :: Lens' WorkItemServiceState (Maybe WorkItemServiceStateHarnessData)-wissHarnessData-  = lens _wissHarnessData-      (\ s a -> s{_wissHarnessData = a})---- | DEPRECATED in favor of split_request.-wissSuggestedStopPoint :: Lens' WorkItemServiceState (Maybe ApproximateProgress)-wissSuggestedStopPoint-  = lens _wissSuggestedStopPoint-      (\ s a -> s{_wissSuggestedStopPoint = a})---- | Obsolete, always empty.-wissSuggestedStopPosition :: Lens' WorkItemServiceState (Maybe Position)-wissSuggestedStopPosition-  = lens _wissSuggestedStopPosition-      (\ s a -> s{_wissSuggestedStopPosition = a})---- | Time at which the current lease will expire.-wissLeaseExpireTime :: Lens' WorkItemServiceState (Maybe UTCTime)-wissLeaseExpireTime-  = lens _wissLeaseExpireTime-      (\ s a -> s{_wissLeaseExpireTime = a})-      . mapping _DateTime---- | The progress point in the WorkItem where the Dataflow service suggests--- that the worker truncate the task.-wissSplitRequest :: Lens' WorkItemServiceState (Maybe ApproximateSplitRequest)-wissSplitRequest-  = lens _wissSplitRequest-      (\ s a -> s{_wissSplitRequest = a})---- | The short ids that workers should use in subsequent metric updates.--- Workers should strive to use short ids whenever possible, but it is ok--- to request the short_id again if a worker lost track of it (e.g. if the--- worker is recovering from a crash). NOTE: it is possible that the--- response may have short ids for a subset of the metrics.-wissMetricShortId :: Lens' WorkItemServiceState [MetricShortId]-wissMetricShortId-  = lens _wissMetricShortId-      (\ s a -> s{_wissMetricShortId = a})-      . _Default-      . _Coerce--instance FromJSON WorkItemServiceState where-        parseJSON-          = withObject "WorkItemServiceState"-              (\ o ->-                 WorkItemServiceState' <$>-                   (o .:? "nextReportIndex") <*>-                     (o .:? "reportStatusInterval")-                     <*> (o .:? "harnessData")-                     <*> (o .:? "suggestedStopPoint")-                     <*> (o .:? "suggestedStopPosition")-                     <*> (o .:? "leaseExpireTime")-                     <*> (o .:? "splitRequest")-                     <*> (o .:? "metricShortId" .!= mempty))--instance ToJSON WorkItemServiceState where-        toJSON WorkItemServiceState'{..}-          = object-              (catMaybes-                 [("nextReportIndex" .=) <$> _wissNextReportIndex,-                  ("reportStatusInterval" .=) <$>-                    _wissReportStatusInterval,-                  ("harnessData" .=) <$> _wissHarnessData,-                  ("suggestedStopPoint" .=) <$>-                    _wissSuggestedStopPoint,-                  ("suggestedStopPosition" .=) <$>-                    _wissSuggestedStopPosition,-                  ("leaseExpireTime" .=) <$> _wissLeaseExpireTime,-                  ("splitRequest" .=) <$> _wissSplitRequest,-                  ("metricShortId" .=) <$> _wissMetricShortId])---- | Response to the request to launch a template.------ /See:/ 'launchTemplateResponse' smart constructor.-newtype LaunchTemplateResponse =-  LaunchTemplateResponse'-    { _ltrJob :: Maybe Job-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'LaunchTemplateResponse' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'ltrJob'-launchTemplateResponse-    :: LaunchTemplateResponse-launchTemplateResponse = LaunchTemplateResponse' {_ltrJob = Nothing}----- | The job that was launched, if the request was not a dry run and the job--- was successfully launched.-ltrJob :: Lens' LaunchTemplateResponse (Maybe Job)-ltrJob = lens _ltrJob (\ s a -> s{_ltrJob = a})--instance FromJSON LaunchTemplateResponse where-        parseJSON-          = withObject "LaunchTemplateResponse"-              (\ o -> LaunchTemplateResponse' <$> (o .:? "job"))--instance ToJSON LaunchTemplateResponse where-        toJSON LaunchTemplateResponse'{..}-          = object (catMaybes [("job" .=) <$> _ltrJob])---- | A task which initializes part of a streaming Dataflow job.------ /See:/ 'streamingSetupTask' smart constructor.-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)----- | Creates a value of 'StreamingSetupTask' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'sstStreamingComputationTopology'------ * 'sstReceiveWorkPort'------ * 'sstWorkerHarnessPort'------ * 'sstDrain'------ * 'sstSnapshotConfig'-streamingSetupTask-    :: StreamingSetupTask-streamingSetupTask =-  StreamingSetupTask'-    { _sstStreamingComputationTopology = Nothing-    , _sstReceiveWorkPort = Nothing-    , _sstWorkerHarnessPort = Nothing-    , _sstDrain = Nothing-    , _sstSnapshotConfig = Nothing-    }----- | The global topology of the streaming Dataflow job.-sstStreamingComputationTopology :: Lens' StreamingSetupTask (Maybe TopologyConfig)-sstStreamingComputationTopology-  = lens _sstStreamingComputationTopology-      (\ s a -> s{_sstStreamingComputationTopology = a})---- | The TCP port on which the worker should listen for messages from other--- streaming computation workers.-sstReceiveWorkPort :: Lens' StreamingSetupTask (Maybe Int32)-sstReceiveWorkPort-  = lens _sstReceiveWorkPort-      (\ s a -> s{_sstReceiveWorkPort = a})-      . mapping _Coerce---- | The TCP port used by the worker to communicate with the Dataflow worker--- harness.-sstWorkerHarnessPort :: Lens' StreamingSetupTask (Maybe Int32)-sstWorkerHarnessPort-  = lens _sstWorkerHarnessPort-      (\ s a -> s{_sstWorkerHarnessPort = a})-      . mapping _Coerce---- | The user has requested drain.-sstDrain :: Lens' StreamingSetupTask (Maybe Bool)-sstDrain = lens _sstDrain (\ s a -> s{_sstDrain = a})---- | Configures streaming appliance snapshot.-sstSnapshotConfig :: Lens' StreamingSetupTask (Maybe StreamingApplianceSnapshotConfig)-sstSnapshotConfig-  = lens _sstSnapshotConfig-      (\ s a -> s{_sstSnapshotConfig = a})--instance FromJSON StreamingSetupTask where-        parseJSON-          = withObject "StreamingSetupTask"-              (\ o ->-                 StreamingSetupTask' <$>-                   (o .:? "streamingComputationTopology") <*>-                     (o .:? "receiveWorkPort")-                     <*> (o .:? "workerHarnessPort")-                     <*> (o .:? "drain")-                     <*> (o .:? "snapshotConfig"))--instance ToJSON StreamingSetupTask where-        toJSON StreamingSetupTask'{..}-          = object-              (catMaybes-                 [("streamingComputationTopology" .=) <$>-                    _sstStreamingComputationTopology,-                  ("receiveWorkPort" .=) <$> _sstReceiveWorkPort,-                  ("workerHarnessPort" .=) <$> _sstWorkerHarnessPort,-                  ("drain" .=) <$> _sstDrain,-                  ("snapshotConfig" .=) <$> _sstSnapshotConfig])---- | The codec to use for interpreting an element in the input PTable.------ /See:/ 'partialGroupByKeyInstructionInputElementCodec' smart constructor.-newtype PartialGroupByKeyInstructionInputElementCodec =-  PartialGroupByKeyInstructionInputElementCodec'-    { _pgbkiiecAddtional :: HashMap Text JSONValue-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'PartialGroupByKeyInstructionInputElementCodec' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'pgbkiiecAddtional'-partialGroupByKeyInstructionInputElementCodec-    :: HashMap Text JSONValue -- ^ 'pgbkiiecAddtional'-    -> PartialGroupByKeyInstructionInputElementCodec-partialGroupByKeyInstructionInputElementCodec pPgbkiiecAddtional_ =-  PartialGroupByKeyInstructionInputElementCodec'-    {_pgbkiiecAddtional = _Coerce # pPgbkiiecAddtional_}----- | Properties of the object.-pgbkiiecAddtional :: Lens' PartialGroupByKeyInstructionInputElementCodec (HashMap Text JSONValue)-pgbkiiecAddtional-  = lens _pgbkiiecAddtional-      (\ s a -> s{_pgbkiiecAddtional = a})-      . _Coerce--instance FromJSON-           PartialGroupByKeyInstructionInputElementCodec-         where-        parseJSON-          = withObject-              "PartialGroupByKeyInstructionInputElementCodec"-              (\ o ->-                 PartialGroupByKeyInstructionInputElementCodec' <$>-                   (parseJSONObject o))--instance ToJSON-           PartialGroupByKeyInstructionInputElementCodec-         where-        toJSON = toJSON . _pgbkiiecAddtional---- | MapTask consists of an ordered set of instructions, each of which--- describes one particular low-level operation for the worker to perform--- in order to accomplish the MapTask\'s WorkItem. Each instruction must--- appear in the list before any instructions which depends on its output.------ /See:/ 'mapTask' smart constructor.-data MapTask =-  MapTask'-    { _mtInstructions  :: !(Maybe [ParallelInstruction])-    , _mtCounterPrefix :: !(Maybe Text)-    , _mtSystemName    :: !(Maybe Text)-    , _mtStageName     :: !(Maybe Text)-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'MapTask' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'mtInstructions'------ * 'mtCounterPrefix'------ * 'mtSystemName'------ * 'mtStageName'-mapTask-    :: MapTask-mapTask =-  MapTask'-    { _mtInstructions = Nothing-    , _mtCounterPrefix = Nothing-    , _mtSystemName = Nothing-    , _mtStageName = Nothing-    }----- | The instructions in the MapTask.-mtInstructions :: Lens' MapTask [ParallelInstruction]-mtInstructions-  = lens _mtInstructions-      (\ s a -> s{_mtInstructions = a})-      . _Default-      . _Coerce---- | Counter prefix that can be used to prefix counters. Not currently used--- in Dataflow.-mtCounterPrefix :: Lens' MapTask (Maybe Text)-mtCounterPrefix-  = lens _mtCounterPrefix-      (\ s a -> s{_mtCounterPrefix = a})---- | System-defined name of this MapTask. Unique across the workflow.-mtSystemName :: Lens' MapTask (Maybe Text)-mtSystemName-  = lens _mtSystemName (\ s a -> s{_mtSystemName = a})---- | System-defined name of the stage containing this MapTask. Unique across--- the workflow.-mtStageName :: Lens' MapTask (Maybe Text)-mtStageName-  = lens _mtStageName (\ s a -> s{_mtStageName = a})--instance FromJSON MapTask where-        parseJSON-          = withObject "MapTask"-              (\ o ->-                 MapTask' <$>-                   (o .:? "instructions" .!= mempty) <*>-                     (o .:? "counterPrefix")-                     <*> (o .:? "systemName")-                     <*> (o .:? "stageName"))--instance ToJSON MapTask where-        toJSON MapTask'{..}-          = object-              (catMaybes-                 [("instructions" .=) <$> _mtInstructions,-                  ("counterPrefix" .=) <$> _mtCounterPrefix,-                  ("systemName" .=) <$> _mtSystemName,-                  ("stageName" .=) <$> _mtStageName])---- | Describes mounted data disk.------ /See:/ 'mountedDataDisk' smart constructor.-newtype MountedDataDisk =-  MountedDataDisk'-    { _mddDataDisk :: Maybe Text-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'MountedDataDisk' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'mddDataDisk'-mountedDataDisk-    :: MountedDataDisk-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,--- for example \"myproject-1014-104817-4c2-harness-0-disk-1\".-mddDataDisk :: Lens' MountedDataDisk (Maybe Text)-mddDataDisk-  = lens _mddDataDisk (\ s a -> s{_mddDataDisk = a})--instance FromJSON MountedDataDisk where-        parseJSON-          = withObject "MountedDataDisk"-              (\ o -> MountedDataDisk' <$> (o .:? "dataDisk"))--instance ToJSON MountedDataDisk where-        toJSON MountedDataDisk'{..}-          = object-              (catMaybes [("dataDisk" .=) <$> _mddDataDisk])---- | The codec to use to encode data written to the sink.------ /See:/ 'sinkCodec' smart constructor.-newtype SinkCodec =-  SinkCodec'-    { _scAddtional :: HashMap Text JSONValue-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'SinkCodec' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'scAddtional'-sinkCodec-    :: HashMap Text JSONValue -- ^ 'scAddtional'-    -> SinkCodec-sinkCodec pScAddtional_ = SinkCodec' {_scAddtional = _Coerce # pScAddtional_}----- | Properties of the object.-scAddtional :: Lens' SinkCodec (HashMap Text JSONValue)-scAddtional-  = lens _scAddtional (\ s a -> s{_scAddtional = a}) .-      _Coerce--instance FromJSON SinkCodec where-        parseJSON-          = withObject "SinkCodec"-              (\ o -> SinkCodec' <$> (parseJSONObject o))--instance ToJSON SinkCodec where-        toJSON = toJSON . _scAddtional---- | A representation of an integer mean metric contribution.------ /See:/ 'integerMean' smart constructor.-data IntegerMean =-  IntegerMean'-    { _imCount :: !(Maybe SplitInt64)-    , _imSum   :: !(Maybe SplitInt64)-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'IntegerMean' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'imCount'------ * 'imSum'-integerMean-    :: IntegerMean-integerMean = IntegerMean' {_imCount = Nothing, _imSum = Nothing}----- | The number of values being aggregated.-imCount :: Lens' IntegerMean (Maybe SplitInt64)-imCount = lens _imCount (\ s a -> s{_imCount = a})---- | The sum of all values being aggregated.-imSum :: Lens' IntegerMean (Maybe SplitInt64)-imSum = lens _imSum (\ s a -> s{_imSum = a})--instance FromJSON IntegerMean where-        parseJSON-          = withObject "IntegerMean"-              (\ o ->-                 IntegerMean' <$> (o .:? "count") <*> (o .:? "sum"))--instance ToJSON IntegerMean where-        toJSON IntegerMean'{..}-          = object-              (catMaybes-                 [("count" .=) <$> _imCount, ("sum" .=) <$> _imSum])------- /See:/ 'workerHealthReportPodsItem' smart constructor.-newtype WorkerHealthReportPodsItem =-  WorkerHealthReportPodsItem'-    { _whrpiAddtional :: HashMap Text JSONValue-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'WorkerHealthReportPodsItem' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'whrpiAddtional'-workerHealthReportPodsItem-    :: HashMap Text JSONValue -- ^ 'whrpiAddtional'-    -> WorkerHealthReportPodsItem-workerHealthReportPodsItem pWhrpiAddtional_ =-  WorkerHealthReportPodsItem' {_whrpiAddtional = _Coerce # pWhrpiAddtional_}----- | Properties of the object.-whrpiAddtional :: Lens' WorkerHealthReportPodsItem (HashMap Text JSONValue)-whrpiAddtional-  = lens _whrpiAddtional-      (\ s a -> s{_whrpiAddtional = a})-      . _Coerce--instance FromJSON WorkerHealthReportPodsItem where-        parseJSON-          = withObject "WorkerHealthReportPodsItem"-              (\ o ->-                 WorkerHealthReportPodsItem' <$> (parseJSONObject o))--instance ToJSON WorkerHealthReportPodsItem where-        toJSON = toJSON . _whrpiAddtional---- | The user function to invoke.------ /See:/ 'parDoInstructionUserFn' smart constructor.-newtype ParDoInstructionUserFn =-  ParDoInstructionUserFn'-    { _pdiufAddtional :: HashMap Text JSONValue-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'ParDoInstructionUserFn' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'pdiufAddtional'-parDoInstructionUserFn-    :: HashMap Text JSONValue -- ^ 'pdiufAddtional'-    -> ParDoInstructionUserFn-parDoInstructionUserFn pPdiufAddtional_ =-  ParDoInstructionUserFn' {_pdiufAddtional = _Coerce # pPdiufAddtional_}----- | Properties of the object.-pdiufAddtional :: Lens' ParDoInstructionUserFn (HashMap Text JSONValue)-pdiufAddtional-  = lens _pdiufAddtional-      (\ s a -> s{_pdiufAddtional = a})-      . _Coerce--instance FromJSON ParDoInstructionUserFn where-        parseJSON-          = withObject "ParDoInstructionUserFn"-              (\ o ->-                 ParDoInstructionUserFn' <$> (parseJSONObject o))--instance ToJSON ParDoInstructionUserFn where-        toJSON = toJSON . _pdiufAddtional---- | The codec to use to encode data being written via this output.------ /See:/ 'instructionOutputCodec' smart constructor.-newtype InstructionOutputCodec =-  InstructionOutputCodec'-    { _iocAddtional :: HashMap Text JSONValue-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'InstructionOutputCodec' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'iocAddtional'-instructionOutputCodec-    :: HashMap Text JSONValue -- ^ 'iocAddtional'-    -> InstructionOutputCodec-instructionOutputCodec pIocAddtional_ =-  InstructionOutputCodec' {_iocAddtional = _Coerce # pIocAddtional_}----- | Properties of the object.-iocAddtional :: Lens' InstructionOutputCodec (HashMap Text JSONValue)-iocAddtional-  = lens _iocAddtional (\ s a -> s{_iocAddtional = a})-      . _Coerce--instance FromJSON InstructionOutputCodec where-        parseJSON-          = withObject "InstructionOutputCodec"-              (\ o ->-                 InstructionOutputCodec' <$> (parseJSONObject o))--instance ToJSON InstructionOutputCodec where-        toJSON = toJSON . _iocAddtional---- | Describes a stream of data, either as input to be processed or as output--- of a streaming Dataflow job.------ /See:/ 'streamLocation' smart constructor.-data StreamLocation =-  StreamLocation'-    { _slStreamingStageLocation :: !(Maybe StreamingStageLocation)-    , _slSideInputLocation      :: !(Maybe StreamingSideInputLocation)-    , _slCustomSourceLocation   :: !(Maybe CustomSourceLocation)-    , _slPubsubLocation         :: !(Maybe PubsubLocation)-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'StreamLocation' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'slStreamingStageLocation'------ * 'slSideInputLocation'------ * 'slCustomSourceLocation'------ * 'slPubsubLocation'-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)-slStreamingStageLocation-  = lens _slStreamingStageLocation-      (\ s a -> s{_slStreamingStageLocation = a})---- | The stream is a streaming side input.-slSideInputLocation :: Lens' StreamLocation (Maybe StreamingSideInputLocation)-slSideInputLocation-  = lens _slSideInputLocation-      (\ s a -> s{_slSideInputLocation = a})---- | The stream is a custom source.-slCustomSourceLocation :: Lens' StreamLocation (Maybe CustomSourceLocation)-slCustomSourceLocation-  = lens _slCustomSourceLocation-      (\ s a -> s{_slCustomSourceLocation = a})---- | The stream is a pubsub stream.-slPubsubLocation :: Lens' StreamLocation (Maybe PubsubLocation)-slPubsubLocation-  = lens _slPubsubLocation-      (\ s a -> s{_slPubsubLocation = a})--instance FromJSON StreamLocation where-        parseJSON-          = withObject "StreamLocation"-              (\ o ->-                 StreamLocation' <$>-                   (o .:? "streamingStageLocation") <*>-                     (o .:? "sideInputLocation")-                     <*> (o .:? "customSourceLocation")-                     <*> (o .:? "pubsubLocation"))--instance ToJSON StreamLocation where-        toJSON StreamLocation'{..}-          = object-              (catMaybes-                 [("streamingStageLocation" .=) <$>-                    _slStreamingStageLocation,-                  ("sideInputLocation" .=) <$> _slSideInputLocation,-                  ("customSourceLocation" .=) <$>-                    _slCustomSourceLocation,-                  ("pubsubLocation" .=) <$> _slPubsubLocation])---- | Other stats that can accompany an event. E.g. { \"downloaded_bytes\" :--- \"123456\" }------ /See:/ 'workerLifecycleEventMetadata' smart constructor.-newtype WorkerLifecycleEventMetadata =-  WorkerLifecycleEventMetadata'-    { _wlemAddtional :: HashMap Text Text-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'WorkerLifecycleEventMetadata' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'wlemAddtional'-workerLifecycleEventMetadata-    :: HashMap Text Text -- ^ 'wlemAddtional'-    -> WorkerLifecycleEventMetadata-workerLifecycleEventMetadata pWlemAddtional_ =-  WorkerLifecycleEventMetadata' {_wlemAddtional = _Coerce # pWlemAddtional_}---wlemAddtional :: Lens' WorkerLifecycleEventMetadata (HashMap Text Text)-wlemAddtional-  = lens _wlemAddtional-      (\ s a -> s{_wlemAddtional = a})-      . _Coerce--instance FromJSON WorkerLifecycleEventMetadata where-        parseJSON-          = withObject "WorkerLifecycleEventMetadata"-              (\ o ->-                 WorkerLifecycleEventMetadata' <$>-                   (parseJSONObject o))--instance ToJSON WorkerLifecycleEventMetadata where-        toJSON = toJSON . _wlemAddtional---- | Extra arguments for this worker pool.------ /See:/ 'workerPoolPoolArgs' smart constructor.-newtype WorkerPoolPoolArgs =-  WorkerPoolPoolArgs'-    { _wppaAddtional :: HashMap Text JSONValue-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'WorkerPoolPoolArgs' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'wppaAddtional'-workerPoolPoolArgs-    :: HashMap Text JSONValue -- ^ 'wppaAddtional'-    -> WorkerPoolPoolArgs-workerPoolPoolArgs pWppaAddtional_ =-  WorkerPoolPoolArgs' {_wppaAddtional = _Coerce # pWppaAddtional_}----- | Properties of the object. Contains field \'type with type URL.-wppaAddtional :: Lens' WorkerPoolPoolArgs (HashMap Text JSONValue)-wppaAddtional-  = lens _wppaAddtional-      (\ s a -> s{_wppaAddtional = a})-      . _Coerce--instance FromJSON WorkerPoolPoolArgs where-        parseJSON-          = withObject "WorkerPoolPoolArgs"-              (\ o -> WorkerPoolPoolArgs' <$> (parseJSONObject o))--instance ToJSON WorkerPoolPoolArgs where-        toJSON = toJSON . _wppaAddtional---- | The environment values to set at runtime.------ /See:/ 'runtimeEnvironment' smart constructor.-data RuntimeEnvironment =-  RuntimeEnvironment'-    { _reNumWorkers              :: !(Maybe (Textual Int32))-    , _reNetwork                 :: !(Maybe Text)-    , _reZone                    :: !(Maybe Text)-    , _reBypassTempDirValidation :: !(Maybe Bool)-    , _reSubnetwork              :: !(Maybe Text)-    , _reMachineType             :: !(Maybe Text)-    , _reAdditionalUserLabels    :: !(Maybe RuntimeEnvironmentAdditionalUserLabels)-    , _reServiceAccountEmail     :: !(Maybe Text)-    , _reAdditionalExperiments   :: !(Maybe [Text])-    , _reMaxWorkers              :: !(Maybe (Textual Int32))-    , _reTempLocation            :: !(Maybe Text)-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'RuntimeEnvironment' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'reNumWorkers'------ * 'reNetwork'------ * 'reZone'------ * 'reBypassTempDirValidation'------ * 'reSubnetwork'------ * 'reMachineType'------ * 'reAdditionalUserLabels'------ * 'reServiceAccountEmail'------ * 'reAdditionalExperiments'------ * 'reMaxWorkers'------ * 'reTempLocation'-runtimeEnvironment-    :: RuntimeEnvironment-runtimeEnvironment =-  RuntimeEnvironment'-    { _reNumWorkers = Nothing-    , _reNetwork = Nothing-    , _reZone = Nothing-    , _reBypassTempDirValidation = Nothing-    , _reSubnetwork = Nothing-    , _reMachineType = Nothing-    , _reAdditionalUserLabels = Nothing-    , _reServiceAccountEmail = Nothing-    , _reAdditionalExperiments = Nothing-    , _reMaxWorkers = Nothing-    , _reTempLocation = Nothing-    }----- | The initial number of Google Compute Engine instnaces for the job.-reNumWorkers :: Lens' RuntimeEnvironment (Maybe Int32)-reNumWorkers-  = lens _reNumWorkers (\ s a -> s{_reNumWorkers = a})-      . mapping _Coerce---- | Network to which VMs will be assigned. If empty or unspecified, the--- service will use the network \"default\".-reNetwork :: Lens' RuntimeEnvironment (Maybe Text)-reNetwork-  = lens _reNetwork (\ s a -> s{_reNetwork = a})---- | The Compute Engine [availability--- zone](https:\/\/cloud.google.com\/compute\/docs\/regions-zones\/regions-zones)--- for launching worker instances to run your pipeline.-reZone :: Lens' RuntimeEnvironment (Maybe Text)-reZone = lens _reZone (\ s a -> s{_reZone = a})---- | Whether to bypass the safety checks for the job\'s temporary directory.--- Use with caution.-reBypassTempDirValidation :: Lens' RuntimeEnvironment (Maybe Bool)-reBypassTempDirValidation-  = lens _reBypassTempDirValidation-      (\ s a -> s{_reBypassTempDirValidation = a})---- | Subnetwork to which VMs will be assigned, if desired. Expected to be of--- the form \"regions\/REGION\/subnetworks\/SUBNETWORK\".-reSubnetwork :: Lens' RuntimeEnvironment (Maybe Text)-reSubnetwork-  = lens _reSubnetwork (\ s a -> s{_reSubnetwork = a})---- | The machine type to use for the job. Defaults to the value from the--- template if not specified.-reMachineType :: Lens' RuntimeEnvironment (Maybe Text)-reMachineType-  = lens _reMachineType-      (\ s a -> s{_reMachineType = a})---- | 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-      (\ s a -> s{_reAdditionalUserLabels = a})---- | The email address of the service account to run the job as.-reServiceAccountEmail :: Lens' RuntimeEnvironment (Maybe Text)-reServiceAccountEmail-  = lens _reServiceAccountEmail-      (\ s a -> s{_reServiceAccountEmail = a})---- | Additional experiment flags for the job.-reAdditionalExperiments :: Lens' RuntimeEnvironment [Text]-reAdditionalExperiments-  = lens _reAdditionalExperiments-      (\ s a -> s{_reAdditionalExperiments = a})-      . _Default-      . _Coerce---- | The maximum number of Google Compute Engine instances to be made--- available to your pipeline during execution, from 1 to 1000.-reMaxWorkers :: Lens' RuntimeEnvironment (Maybe Int32)-reMaxWorkers-  = lens _reMaxWorkers (\ s a -> s{_reMaxWorkers = a})-      . mapping _Coerce---- | The Cloud Storage path to use for temporary files. Must be a valid Cloud--- Storage URL, beginning with \`gs:\/\/\`.-reTempLocation :: Lens' RuntimeEnvironment (Maybe Text)-reTempLocation-  = lens _reTempLocation-      (\ s a -> s{_reTempLocation = a})--instance FromJSON RuntimeEnvironment where-        parseJSON-          = withObject "RuntimeEnvironment"-              (\ o ->-                 RuntimeEnvironment' <$>-                   (o .:? "numWorkers") <*> (o .:? "network") <*>-                     (o .:? "zone")-                     <*> (o .:? "bypassTempDirValidation")-                     <*> (o .:? "subnetwork")-                     <*> (o .:? "machineType")-                     <*> (o .:? "additionalUserLabels")-                     <*> (o .:? "serviceAccountEmail")-                     <*> (o .:? "additionalExperiments" .!= mempty)-                     <*> (o .:? "maxWorkers")-                     <*> (o .:? "tempLocation"))--instance ToJSON RuntimeEnvironment where-        toJSON RuntimeEnvironment'{..}-          = object-              (catMaybes-                 [("numWorkers" .=) <$> _reNumWorkers,-                  ("network" .=) <$> _reNetwork,-                  ("zone" .=) <$> _reZone,-                  ("bypassTempDirValidation" .=) <$>-                    _reBypassTempDirValidation,-                  ("subnetwork" .=) <$> _reSubnetwork,-                  ("machineType" .=) <$> _reMachineType,-                  ("additionalUserLabels" .=) <$>-                    _reAdditionalUserLabels,-                  ("serviceAccountEmail" .=) <$>-                    _reServiceAccountEmail,-                  ("additionalExperiments" .=) <$>-                    _reAdditionalExperiments,-                  ("maxWorkers" .=) <$> _reMaxWorkers,-                  ("tempLocation" .=) <$> _reTempLocation])---- | CounterMetadata includes all static non-name non-value counter--- attributes.------ /See:/ 'counterMetadata' smart constructor.-data CounterMetadata =-  CounterMetadata'-    { _cmKind          :: !(Maybe CounterMetadataKind)-    , _cmDescription   :: !(Maybe Text)-    , _cmStandardUnits :: !(Maybe CounterMetadataStandardUnits)-    , _cmOtherUnits    :: !(Maybe Text)-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'CounterMetadata' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'cmKind'------ * 'cmDescription'------ * 'cmStandardUnits'------ * 'cmOtherUnits'-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})---- | Human-readable description of the counter semantics.-cmDescription :: Lens' CounterMetadata (Maybe Text)-cmDescription-  = lens _cmDescription-      (\ s a -> s{_cmDescription = a})---- | System defined Units, see above enum.-cmStandardUnits :: Lens' CounterMetadata (Maybe CounterMetadataStandardUnits)-cmStandardUnits-  = lens _cmStandardUnits-      (\ s a -> s{_cmStandardUnits = a})---- | A string referring to the unit type.-cmOtherUnits :: Lens' CounterMetadata (Maybe Text)-cmOtherUnits-  = lens _cmOtherUnits (\ s a -> s{_cmOtherUnits = a})--instance FromJSON CounterMetadata where-        parseJSON-          = withObject "CounterMetadata"-              (\ o ->-                 CounterMetadata' <$>-                   (o .:? "kind") <*> (o .:? "description") <*>-                     (o .:? "standardUnits")-                     <*> (o .:? "otherUnits"))--instance ToJSON CounterMetadata where-        toJSON CounterMetadata'{..}-          = object-              (catMaybes-                 [("kind" .=) <$> _cmKind,-                  ("description" .=) <$> _cmDescription,-                  ("standardUnits" .=) <$> _cmStandardUnits,-                  ("otherUnits" .=) <$> _cmOtherUnits])---- | The response to the worker messages.------ /See:/ 'sendWorkerMessagesResponse' smart constructor.-newtype SendWorkerMessagesResponse =-  SendWorkerMessagesResponse'-    { _swmrWorkerMessageResponses :: Maybe [WorkerMessageResponse]-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'SendWorkerMessagesResponse' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'swmrWorkerMessageResponses'-sendWorkerMessagesResponse-    :: SendWorkerMessagesResponse-sendWorkerMessagesResponse =-  SendWorkerMessagesResponse' {_swmrWorkerMessageResponses = Nothing}----- | The servers response to the worker messages.-swmrWorkerMessageResponses :: Lens' SendWorkerMessagesResponse [WorkerMessageResponse]-swmrWorkerMessageResponses-  = lens _swmrWorkerMessageResponses-      (\ s a -> s{_swmrWorkerMessageResponses = a})-      . _Default-      . _Coerce--instance FromJSON SendWorkerMessagesResponse where-        parseJSON-          = withObject "SendWorkerMessagesResponse"-              (\ o ->-                 SendWorkerMessagesResponse' <$>-                   (o .:? "workerMessageResponses" .!= mempty))--instance ToJSON SendWorkerMessagesResponse where-        toJSON SendWorkerMessagesResponse'{..}-          = object-              (catMaybes-                 [("workerMessageResponses" .=) <$>-                    _swmrWorkerMessageResponses])---- | Identifies the location of a streaming side input.------ /See:/ 'streamingSideInputLocation' smart constructor.-data StreamingSideInputLocation =-  StreamingSideInputLocation'-    { _ssilTag         :: !(Maybe Text)-    , _ssilStateFamily :: !(Maybe Text)-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'StreamingSideInputLocation' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'ssilTag'------ * 'ssilStateFamily'-streamingSideInputLocation-    :: StreamingSideInputLocation-streamingSideInputLocation =-  StreamingSideInputLocation' {_ssilTag = Nothing, _ssilStateFamily = Nothing}----- | Identifies the particular side input within the streaming Dataflow job.-ssilTag :: Lens' StreamingSideInputLocation (Maybe Text)-ssilTag = lens _ssilTag (\ s a -> s{_ssilTag = a})---- | Identifies the state family where this side input is stored.-ssilStateFamily :: Lens' StreamingSideInputLocation (Maybe Text)-ssilStateFamily-  = lens _ssilStateFamily-      (\ s a -> s{_ssilStateFamily = a})--instance FromJSON StreamingSideInputLocation where-        parseJSON-          = withObject "StreamingSideInputLocation"-              (\ o ->-                 StreamingSideInputLocation' <$>-                   (o .:? "tag") <*> (o .:? "stateFamily"))--instance ToJSON StreamingSideInputLocation where-        toJSON StreamingSideInputLocation'{..}-          = object-              (catMaybes-                 [("tag" .=) <$> _ssilTag,-                  ("stateFamily" .=) <$> _ssilStateFamily])---- | Request to get updated debug configuration for component.------ /See:/ 'getDebugConfigRequest' smart constructor.-data GetDebugConfigRequest =-  GetDebugConfigRequest'-    { _gdcrLocation    :: !(Maybe Text)-    , _gdcrComponentId :: !(Maybe Text)-    , _gdcrWorkerId    :: !(Maybe Text)-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'GetDebugConfigRequest' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'gdcrLocation'------ * 'gdcrComponentId'------ * 'gdcrWorkerId'-getDebugConfigRequest-    :: GetDebugConfigRequest-getDebugConfigRequest =-  GetDebugConfigRequest'-    { _gdcrLocation = Nothing-    , _gdcrComponentId = Nothing-    , _gdcrWorkerId = Nothing-    }----- | 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})---- | The internal component id for which debug configuration is requested.-gdcrComponentId :: Lens' GetDebugConfigRequest (Maybe Text)-gdcrComponentId-  = lens _gdcrComponentId-      (\ s a -> s{_gdcrComponentId = a})---- | The worker id, i.e., VM hostname.-gdcrWorkerId :: Lens' GetDebugConfigRequest (Maybe Text)-gdcrWorkerId-  = lens _gdcrWorkerId (\ s a -> s{_gdcrWorkerId = a})--instance FromJSON GetDebugConfigRequest where-        parseJSON-          = withObject "GetDebugConfigRequest"-              (\ o ->-                 GetDebugConfigRequest' <$>-                   (o .:? "location") <*> (o .:? "componentId") <*>-                     (o .:? "workerId"))--instance ToJSON GetDebugConfigRequest where-        toJSON GetDebugConfigRequest'{..}-          = object-              (catMaybes-                 [("location" .=) <$> _gdcrLocation,-                  ("componentId" .=) <$> _gdcrComponentId,-                  ("workerId" .=) <$> _gdcrWorkerId])---- | A single message which encapsulates structured name and metadata for a--- given counter.------ /See:/ 'counterStructuredNameAndMetadata' smart constructor.-data CounterStructuredNameAndMetadata =-  CounterStructuredNameAndMetadata'-    { _csnamName     :: !(Maybe CounterStructuredName)-    , _csnamMetadata :: !(Maybe CounterMetadata)-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'CounterStructuredNameAndMetadata' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'csnamName'------ * 'csnamMetadata'-counterStructuredNameAndMetadata-    :: CounterStructuredNameAndMetadata-counterStructuredNameAndMetadata =-  CounterStructuredNameAndMetadata'-    {_csnamName = Nothing, _csnamMetadata = Nothing}----- | Structured name of the counter.-csnamName :: Lens' CounterStructuredNameAndMetadata (Maybe CounterStructuredName)-csnamName-  = lens _csnamName (\ s a -> s{_csnamName = a})---- | Metadata associated with a counter-csnamMetadata :: Lens' CounterStructuredNameAndMetadata (Maybe CounterMetadata)-csnamMetadata-  = lens _csnamMetadata-      (\ s a -> s{_csnamMetadata = a})--instance FromJSON CounterStructuredNameAndMetadata-         where-        parseJSON-          = withObject "CounterStructuredNameAndMetadata"-              (\ o ->-                 CounterStructuredNameAndMetadata' <$>-                   (o .:? "name") <*> (o .:? "metadata"))--instance ToJSON CounterStructuredNameAndMetadata-         where-        toJSON CounterStructuredNameAndMetadata'{..}-          = object-              (catMaybes-                 [("name" .=) <$> _csnamName,-                  ("metadata" .=) <$> _csnamMetadata])---- | Shutdown notification from workers. This is to be sent by the shutdown--- script of the worker VM so that the backend knows that the VM is being--- shut down.------ /See:/ 'workerShutdownNotice' smart constructor.-newtype WorkerShutdownNotice =-  WorkerShutdownNotice'-    { _wsnReason :: Maybe Text-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'WorkerShutdownNotice' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'wsnReason'-workerShutdownNotice-    :: WorkerShutdownNotice-workerShutdownNotice = WorkerShutdownNotice' {_wsnReason = Nothing}----- | The reason for the worker shutdown. Current possible values are:--- \"UNKNOWN\": shutdown reason is unknown. \"PREEMPTION\": shutdown reason--- is preemption. Other possible reasons may be added in the future.-wsnReason :: Lens' WorkerShutdownNotice (Maybe Text)-wsnReason-  = lens _wsnReason (\ s a -> s{_wsnReason = a})--instance FromJSON WorkerShutdownNotice where-        parseJSON-          = withObject "WorkerShutdownNotice"-              (\ o -> WorkerShutdownNotice' <$> (o .:? "reason"))--instance ToJSON WorkerShutdownNotice where-        toJSON WorkerShutdownNotice'{..}-          = object (catMaybes [("reason" .=) <$> _wsnReason])---- | A task which describes what action should be performed for the specified--- streaming computation ranges.------ /See:/ 'streamingComputationTask' smart constructor.-data StreamingComputationTask =-  StreamingComputationTask'-    { _sctTaskType          :: !(Maybe StreamingComputationTaskTaskType)-    , _sctDataDisks         :: !(Maybe [MountedDataDisk])-    , _sctComputationRanges :: !(Maybe [StreamingComputationRanges])-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'StreamingComputationTask' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'sctTaskType'------ * 'sctDataDisks'------ * 'sctComputationRanges'-streamingComputationTask-    :: StreamingComputationTask-streamingComputationTask =-  StreamingComputationTask'-    { _sctTaskType = Nothing-    , _sctDataDisks = Nothing-    , _sctComputationRanges = Nothing-    }----- | A type of streaming computation task.-sctTaskType :: Lens' StreamingComputationTask (Maybe StreamingComputationTaskTaskType)-sctTaskType-  = lens _sctTaskType (\ s a -> s{_sctTaskType = a})---- | Describes the set of data disks this task should apply to.-sctDataDisks :: Lens' StreamingComputationTask [MountedDataDisk]-sctDataDisks-  = lens _sctDataDisks (\ s a -> s{_sctDataDisks = a})-      . _Default-      . _Coerce---- | Contains ranges of a streaming computation this task should apply to.-sctComputationRanges :: Lens' StreamingComputationTask [StreamingComputationRanges]-sctComputationRanges-  = lens _sctComputationRanges-      (\ s a -> s{_sctComputationRanges = a})-      . _Default-      . _Coerce--instance FromJSON StreamingComputationTask where-        parseJSON-          = withObject "StreamingComputationTask"-              (\ o ->-                 StreamingComputationTask' <$>-                   (o .:? "taskType") <*> (o .:? "dataDisks" .!= mempty)-                     <*> (o .:? "computationRanges" .!= mempty))--instance ToJSON StreamingComputationTask where-        toJSON StreamingComputationTask'{..}-          = object-              (catMaybes-                 [("taskType" .=) <$> _sctTaskType,-                  ("dataDisks" .=) <$> _sctDataDisks,-                  ("computationRanges" .=) <$> _sctComputationRanges])---- | 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 interpreting Dataflow provided metrics.------ /See:/ 'pipelineDescription' smart constructor.-data PipelineDescription =-  PipelineDescription'-    { _pdExecutionPipelineStage    :: !(Maybe [ExecutionStageSummary])-    , _pdDisplayData               :: !(Maybe [DisplayData])-    , _pdOriginalPipelineTransform :: !(Maybe [TransformSummary])-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'PipelineDescription' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'pdExecutionPipelineStage'------ * 'pdDisplayData'------ * 'pdOriginalPipelineTransform'-pipelineDescription-    :: PipelineDescription-pipelineDescription =-  PipelineDescription'-    { _pdExecutionPipelineStage = Nothing-    , _pdDisplayData = Nothing-    , _pdOriginalPipelineTransform = Nothing-    }----- | Description of each stage of execution of the pipeline.-pdExecutionPipelineStage :: Lens' PipelineDescription [ExecutionStageSummary]-pdExecutionPipelineStage-  = lens _pdExecutionPipelineStage-      (\ s a -> s{_pdExecutionPipelineStage = a})-      . _Default-      . _Coerce---- | Pipeline level display data.-pdDisplayData :: Lens' PipelineDescription [DisplayData]-pdDisplayData-  = lens _pdDisplayData-      (\ s a -> s{_pdDisplayData = a})-      . _Default-      . _Coerce---- | Description of each transform in the pipeline and collections between--- them.-pdOriginalPipelineTransform :: Lens' PipelineDescription [TransformSummary]-pdOriginalPipelineTransform-  = lens _pdOriginalPipelineTransform-      (\ s a -> s{_pdOriginalPipelineTransform = a})-      . _Default-      . _Coerce--instance FromJSON PipelineDescription where-        parseJSON-          = withObject "PipelineDescription"-              (\ o ->-                 PipelineDescription' <$>-                   (o .:? "executionPipelineStage" .!= mempty) <*>-                     (o .:? "displayData" .!= mempty)-                     <*> (o .:? "originalPipelineTransform" .!= mempty))--instance ToJSON PipelineDescription where-        toJSON PipelineDescription'{..}-          = object-              (catMaybes-                 [("executionPipelineStage" .=) <$>-                    _pdExecutionPipelineStage,-                  ("displayData" .=) <$> _pdDisplayData,-                  ("originalPipelineTransform" .=) <$>-                    _pdOriginalPipelineTransform])---- | A particular message pertaining to a Dataflow job.------ /See:/ 'jobMessage' smart constructor.-data JobMessage =-  JobMessage'-    { _jmTime              :: !(Maybe DateTime')-    , _jmMessageText       :: !(Maybe Text)-    , _jmMessageImportance :: !(Maybe JobMessageMessageImportance)-    , _jmId                :: !(Maybe Text)-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'JobMessage' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'jmTime'------ * 'jmMessageText'------ * 'jmMessageImportance'------ * 'jmId'-jobMessage-    :: JobMessage-jobMessage =-  JobMessage'-    { _jmTime = Nothing-    , _jmMessageText = Nothing-    , _jmMessageImportance = Nothing-    , _jmId = Nothing-    }----- | The timestamp of the message.-jmTime :: Lens' JobMessage (Maybe UTCTime)-jmTime-  = lens _jmTime (\ s a -> s{_jmTime = a}) .-      mapping _DateTime---- | The text of the message.-jmMessageText :: Lens' JobMessage (Maybe Text)-jmMessageText-  = lens _jmMessageText-      (\ s a -> s{_jmMessageText = a})---- | Importance level of the message.-jmMessageImportance :: Lens' JobMessage (Maybe JobMessageMessageImportance)-jmMessageImportance-  = lens _jmMessageImportance-      (\ s a -> s{_jmMessageImportance = a})---- | Deprecated.-jmId :: Lens' JobMessage (Maybe Text)-jmId = lens _jmId (\ s a -> s{_jmId = a})--instance FromJSON JobMessage where-        parseJSON-          = withObject "JobMessage"-              (\ o ->-                 JobMessage' <$>-                   (o .:? "time") <*> (o .:? "messageText") <*>-                     (o .:? "messageImportance")-                     <*> (o .:? "id"))--instance ToJSON JobMessage where-        toJSON JobMessage'{..}-          = object-              (catMaybes-                 [("time" .=) <$> _jmTime,-                  ("messageText" .=) <$> _jmMessageText,-                  ("messageImportance" .=) <$> _jmMessageImportance,-                  ("id" .=) <$> _jmId])---- | A report of an event in a worker\'s lifecycle. The proto contains one--- event, because the worker is expected to asynchronously send each--- message immediately after the event. Due to this asynchrony, messages--- may arrive out of order (or missing), and it is up to the consumer to--- interpret. The timestamp of the event is in the enclosing WorkerMessage--- proto.------ /See:/ 'workerLifecycleEvent' smart constructor.-data WorkerLifecycleEvent =-  WorkerLifecycleEvent'-    { _wleEvent              :: !(Maybe WorkerLifecycleEventEvent)-    , _wleContainerStartTime :: !(Maybe DateTime')-    , _wleMetadata           :: !(Maybe WorkerLifecycleEventMetadata)-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'WorkerLifecycleEvent' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'wleEvent'------ * 'wleContainerStartTime'------ * 'wleMetadata'-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})---- | The start time of this container. All events will report this so that--- events can be grouped together across container\/VM restarts.-wleContainerStartTime :: Lens' WorkerLifecycleEvent (Maybe UTCTime)-wleContainerStartTime-  = lens _wleContainerStartTime-      (\ s a -> s{_wleContainerStartTime = a})-      . mapping _DateTime---- | Other stats that can accompany an event. E.g. { \"downloaded_bytes\" :--- \"123456\" }-wleMetadata :: Lens' WorkerLifecycleEvent (Maybe WorkerLifecycleEventMetadata)-wleMetadata-  = lens _wleMetadata (\ s a -> s{_wleMetadata = a})--instance FromJSON WorkerLifecycleEvent where-        parseJSON-          = withObject "WorkerLifecycleEvent"-              (\ o ->-                 WorkerLifecycleEvent' <$>-                   (o .:? "event") <*> (o .:? "containerStartTime") <*>-                     (o .:? "metadata"))--instance ToJSON WorkerLifecycleEvent where-        toJSON WorkerLifecycleEvent'{..}-          = object-              (catMaybes-                 [("event" .=) <$> _wleEvent,-                  ("containerStartTime" .=) <$> _wleContainerStartTime,-                  ("metadata" .=) <$> _wleMetadata])---- | 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'-    { _reaulAddtional :: HashMap Text Text-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'RuntimeEnvironmentAdditionalUserLabels' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'reaulAddtional'-runtimeEnvironmentAdditionalUserLabels-    :: HashMap Text Text -- ^ 'reaulAddtional'-    -> RuntimeEnvironmentAdditionalUserLabels-runtimeEnvironmentAdditionalUserLabels pReaulAddtional_ =-  RuntimeEnvironmentAdditionalUserLabels'-    {_reaulAddtional = _Coerce # pReaulAddtional_}---reaulAddtional :: Lens' RuntimeEnvironmentAdditionalUserLabels (HashMap Text Text)-reaulAddtional-  = lens _reaulAddtional-      (\ s a -> s{_reaulAddtional = a})-      . _Coerce--instance FromJSON-           RuntimeEnvironmentAdditionalUserLabels-         where-        parseJSON-          = withObject "RuntimeEnvironmentAdditionalUserLabels"-              (\ o ->-                 RuntimeEnvironmentAdditionalUserLabels' <$>-                   (parseJSONObject o))--instance ToJSON-           RuntimeEnvironmentAdditionalUserLabels-         where-        toJSON = toJSON . _reaulAddtional---- | Information about an output of a SeqMapTask.------ /See:/ 'seqMapTaskOutputInfo' smart constructor.-data SeqMapTaskOutputInfo =-  SeqMapTaskOutputInfo'-    { _smtoiSink :: !(Maybe Sink)-    , _smtoiTag  :: !(Maybe Text)-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'SeqMapTaskOutputInfo' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'smtoiSink'------ * 'smtoiTag'-seqMapTaskOutputInfo-    :: SeqMapTaskOutputInfo-seqMapTaskOutputInfo =-  SeqMapTaskOutputInfo' {_smtoiSink = Nothing, _smtoiTag = Nothing}----- | The sink to write the output value to.-smtoiSink :: Lens' SeqMapTaskOutputInfo (Maybe Sink)-smtoiSink-  = lens _smtoiSink (\ s a -> s{_smtoiSink = a})---- | The id of the TupleTag the user code will tag the output value by.-smtoiTag :: Lens' SeqMapTaskOutputInfo (Maybe Text)-smtoiTag = lens _smtoiTag (\ s a -> s{_smtoiTag = a})--instance FromJSON SeqMapTaskOutputInfo where-        parseJSON-          = withObject "SeqMapTaskOutputInfo"-              (\ o ->-                 SeqMapTaskOutputInfo' <$>-                   (o .:? "sink") <*> (o .:? "tag"))--instance ToJSON SeqMapTaskOutputInfo where-        toJSON SeqMapTaskOutputInfo'{..}-          = object-              (catMaybes-                 [("sink" .=) <$> _smtoiSink,-                  ("tag" .=) <$> _smtoiTag])---- | Metadata for a PubSub connector used by the job.------ /See:/ 'pubSubIODetails' smart constructor.-data PubSubIODetails =-  PubSubIODetails'-    { _psiodTopic        :: !(Maybe Text)-    , _psiodSubscription :: !(Maybe Text)-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'PubSubIODetails' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'psiodTopic'------ * 'psiodSubscription'-pubSubIODetails-    :: PubSubIODetails-pubSubIODetails =-  PubSubIODetails' {_psiodTopic = Nothing, _psiodSubscription = Nothing}----- | Topic accessed in the connection.-psiodTopic :: Lens' PubSubIODetails (Maybe Text)-psiodTopic-  = lens _psiodTopic (\ s a -> s{_psiodTopic = a})---- | Subscription used in the connection.-psiodSubscription :: Lens' PubSubIODetails (Maybe Text)-psiodSubscription-  = lens _psiodSubscription-      (\ s a -> s{_psiodSubscription = a})--instance FromJSON PubSubIODetails where-        parseJSON-          = withObject "PubSubIODetails"-              (\ o ->-                 PubSubIODetails' <$>-                   (o .:? "topic") <*> (o .:? "subscription"))--instance ToJSON PubSubIODetails where-        toJSON PubSubIODetails'{..}-          = object-              (catMaybes-                 [("topic" .=) <$> _psiodTopic,-                  ("subscription" .=) <$> _psiodSubscription])---- | A request to compute the SourceMetadata of a Source.------ /See:/ 'sourceGetMetadataRequest' smart constructor.-newtype SourceGetMetadataRequest =-  SourceGetMetadataRequest'-    { _sgmrSource :: Maybe Source-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'SourceGetMetadataRequest' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'sgmrSource'-sourceGetMetadataRequest-    :: SourceGetMetadataRequest-sourceGetMetadataRequest = SourceGetMetadataRequest' {_sgmrSource = Nothing}----- | Specification of the source whose metadata should be computed.-sgmrSource :: Lens' SourceGetMetadataRequest (Maybe Source)-sgmrSource-  = lens _sgmrSource (\ s a -> s{_sgmrSource = a})--instance FromJSON SourceGetMetadataRequest where-        parseJSON-          = withObject "SourceGetMetadataRequest"-              (\ o ->-                 SourceGetMetadataRequest' <$> (o .:? "source"))--instance ToJSON SourceGetMetadataRequest where-        toJSON SourceGetMetadataRequest'{..}-          = object (catMaybes [("source" .=) <$> _sgmrSource])---- | Service-side response to WorkerMessage issuing shutdown notice.------ /See:/ 'workerShutdownNoticeResponse' smart constructor.-data WorkerShutdownNoticeResponse =-  WorkerShutdownNoticeResponse'-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'WorkerShutdownNoticeResponse' with the minimum fields required to make a request.----workerShutdownNoticeResponse-    :: WorkerShutdownNoticeResponse-workerShutdownNoticeResponse = WorkerShutdownNoticeResponse'---instance FromJSON WorkerShutdownNoticeResponse where-        parseJSON-          = withObject "WorkerShutdownNoticeResponse"-              (\ o -> pure WorkerShutdownNoticeResponse')--instance ToJSON WorkerShutdownNoticeResponse where-        toJSON = const emptyObject---- | The user function to invoke.------ /See:/ 'seqMapTaskUserFn' smart constructor.-newtype SeqMapTaskUserFn =-  SeqMapTaskUserFn'-    { _smtufAddtional :: HashMap Text JSONValue-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'SeqMapTaskUserFn' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'smtufAddtional'-seqMapTaskUserFn-    :: HashMap Text JSONValue -- ^ 'smtufAddtional'-    -> SeqMapTaskUserFn-seqMapTaskUserFn pSmtufAddtional_ =-  SeqMapTaskUserFn' {_smtufAddtional = _Coerce # pSmtufAddtional_}----- | Properties of the object.-smtufAddtional :: Lens' SeqMapTaskUserFn (HashMap Text JSONValue)-smtufAddtional-  = lens _smtufAddtional-      (\ s a -> s{_smtufAddtional = a})-      . _Coerce--instance FromJSON SeqMapTaskUserFn where-        parseJSON-          = withObject "SeqMapTaskUserFn"-              (\ o -> SeqMapTaskUserFn' <$> (parseJSONObject o))--instance ToJSON SeqMapTaskUserFn where-        toJSON = toJSON . _smtufAddtional---- | The value combining function to invoke.------ /See:/ 'partialGroupByKeyInstructionValueCombiningFn' smart constructor.-newtype PartialGroupByKeyInstructionValueCombiningFn =-  PartialGroupByKeyInstructionValueCombiningFn'-    { _pgbkivcfAddtional :: HashMap Text JSONValue-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'PartialGroupByKeyInstructionValueCombiningFn' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'pgbkivcfAddtional'-partialGroupByKeyInstructionValueCombiningFn-    :: HashMap Text JSONValue -- ^ 'pgbkivcfAddtional'-    -> PartialGroupByKeyInstructionValueCombiningFn-partialGroupByKeyInstructionValueCombiningFn pPgbkivcfAddtional_ =-  PartialGroupByKeyInstructionValueCombiningFn'-    {_pgbkivcfAddtional = _Coerce # pPgbkivcfAddtional_}----- | Properties of the object.-pgbkivcfAddtional :: Lens' PartialGroupByKeyInstructionValueCombiningFn (HashMap Text JSONValue)-pgbkivcfAddtional-  = lens _pgbkivcfAddtional-      (\ s a -> s{_pgbkivcfAddtional = a})-      . _Coerce--instance FromJSON-           PartialGroupByKeyInstructionValueCombiningFn-         where-        parseJSON-          = withObject-              "PartialGroupByKeyInstructionValueCombiningFn"-              (\ o ->-                 PartialGroupByKeyInstructionValueCombiningFn' <$>-                   (parseJSONObject o))--instance ToJSON-           PartialGroupByKeyInstructionValueCombiningFn-         where-        toJSON = toJSON . _pgbkivcfAddtional---- | Defines a job to be run by the Cloud Dataflow service.------ /See:/ 'job' smart constructor.-data Job =-  Job'-    { _jStepsLocation         :: !(Maybe Text)-    , _jCreatedFromSnapshotId :: !(Maybe Text)-    , _jRequestedState        :: !(Maybe JobRequestedState)-    , _jJobMetadata           :: !(Maybe JobMetadata)-    , _jLocation              :: !(Maybe Text)-    , _jStartTime             :: !(Maybe DateTime')-    , _jEnvironment           :: !(Maybe Environment)-    , _jClientRequestId       :: !(Maybe Text)-    , _jStageStates           :: !(Maybe [ExecutionStageState])-    , _jCurrentState          :: !(Maybe JobCurrentState)-    , _jReplacedByJobId       :: !(Maybe Text)-    , _jTempFiles             :: !(Maybe [Text])-    , _jSteps                 :: !(Maybe [Step])-    , _jPipelineDescription   :: !(Maybe PipelineDescription)-    , _jExecutionInfo         :: !(Maybe JobExecutionInfo)-    , _jName                  :: !(Maybe Text)-    , _jTransformNameMApping  :: !(Maybe JobTransformNameMApping)-    , _jId                    :: !(Maybe Text)-    , _jLabels                :: !(Maybe JobLabels)-    , _jProjectId             :: !(Maybe Text)-    , _jType                  :: !(Maybe JobType)-    , _jCurrentStateTime      :: !(Maybe DateTime')-    , _jReplaceJobId          :: !(Maybe Text)-    , _jCreateTime            :: !(Maybe DateTime')-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'Job' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'jStepsLocation'------ * 'jCreatedFromSnapshotId'------ * 'jRequestedState'------ * 'jJobMetadata'------ * 'jLocation'------ * 'jStartTime'------ * 'jEnvironment'------ * 'jClientRequestId'------ * 'jStageStates'------ * 'jCurrentState'------ * 'jReplacedByJobId'------ * 'jTempFiles'------ * 'jSteps'------ * 'jPipelineDescription'------ * 'jExecutionInfo'------ * 'jName'------ * 'jTransformNameMApping'------ * 'jId'------ * 'jLabels'------ * 'jProjectId'------ * 'jType'------ * 'jCurrentStateTime'------ * 'jReplaceJobId'------ * 'jCreateTime'-job-    :: Job-job =-  Job'-    { _jStepsLocation = Nothing-    , _jCreatedFromSnapshotId = Nothing-    , _jRequestedState = Nothing-    , _jJobMetadata = Nothing-    , _jLocation = Nothing-    , _jStartTime = Nothing-    , _jEnvironment = Nothing-    , _jClientRequestId = Nothing-    , _jStageStates = Nothing-    , _jCurrentState = Nothing-    , _jReplacedByJobId = Nothing-    , _jTempFiles = Nothing-    , _jSteps = Nothing-    , _jPipelineDescription = Nothing-    , _jExecutionInfo = Nothing-    , _jName = Nothing-    , _jTransformNameMApping = Nothing-    , _jId = Nothing-    , _jLabels = Nothing-    , _jProjectId = Nothing-    , _jType = Nothing-    , _jCurrentStateTime = Nothing-    , _jReplaceJobId = Nothing-    , _jCreateTime = Nothing-    }----- | The GCS location where the steps are stored.-jStepsLocation :: Lens' Job (Maybe Text)-jStepsLocation-  = lens _jStepsLocation-      (\ s a -> s{_jStepsLocation = a})---- | If this is specified, the job\'s initial state is populated from the--- given snapshot.-jCreatedFromSnapshotId :: Lens' Job (Maybe Text)-jCreatedFromSnapshotId-  = lens _jCreatedFromSnapshotId-      (\ s a -> s{_jCreatedFromSnapshotId = a})---- | The job\'s requested state. \`UpdateJob\` may be used to switch between--- the \`JOB_STATE_STOPPED\` and \`JOB_STATE_RUNNING\` states, by setting--- requested_state. \`UpdateJob\` may also be used to directly set a job\'s--- requested state to \`JOB_STATE_CANCELLED\` or \`JOB_STATE_DONE\`,--- irrevocably terminating the job if it has not already reached a terminal--- state.-jRequestedState :: Lens' Job (Maybe JobRequestedState)-jRequestedState-  = lens _jRequestedState-      (\ s a -> s{_jRequestedState = a})---- | This field is populated by the Dataflow service to support filtering--- jobs by the metadata values provided here. Populated for ListJobs and--- all GetJob views SUMMARY and higher.-jJobMetadata :: Lens' Job (Maybe JobMetadata)-jJobMetadata-  = lens _jJobMetadata (\ s a -> s{_jJobMetadata = a})---- | 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})---- | The timestamp when the job was started (transitioned to--- JOB_STATE_PENDING). Flexible resource scheduling jobs are started with--- some delay after job creation, so start_time is unset before start and--- is updated when the job is started by the Cloud Dataflow service. For--- other jobs, start_time always equals to create_time and is immutable and--- set by the Cloud Dataflow service.-jStartTime :: Lens' Job (Maybe UTCTime)-jStartTime-  = lens _jStartTime (\ s a -> s{_jStartTime = a}) .-      mapping _DateTime---- | The environment for the job.-jEnvironment :: Lens' Job (Maybe Environment)-jEnvironment-  = lens _jEnvironment (\ s a -> s{_jEnvironment = a})---- | The client\'s unique identifier of the job, re-used across retried--- attempts. If this field is set, the service will ensure its uniqueness.--- The request to create a job will fail if the service has knowledge of a--- previously submitted job with the same client\'s ID and job name. The--- caller may use this field to ensure idempotence of job creation across--- retried attempts to create a job. By default, the field is empty and, in--- that case, the service ignores it.-jClientRequestId :: Lens' Job (Maybe Text)-jClientRequestId-  = lens _jClientRequestId-      (\ s a -> s{_jClientRequestId = a})---- | This field may be mutated by the Cloud Dataflow service; callers cannot--- mutate it.-jStageStates :: Lens' Job [ExecutionStageState]-jStageStates-  = lens _jStageStates (\ s a -> s{_jStageStates = a})-      . _Default-      . _Coerce---- | The current state of the job. Jobs are created in the--- \`JOB_STATE_STOPPED\` state unless otherwise specified. A job in the--- \`JOB_STATE_RUNNING\` state may asynchronously enter a terminal state.--- After a job has reached a terminal state, no further state updates may--- be made. This field may be mutated by the Cloud Dataflow service;--- callers cannot mutate it.-jCurrentState :: Lens' Job (Maybe JobCurrentState)-jCurrentState-  = lens _jCurrentState-      (\ s a -> s{_jCurrentState = a})---- | If another job is an update of this job (and thus, this job is in--- \`JOB_STATE_UPDATED\`), this field contains the ID of that job.-jReplacedByJobId :: Lens' Job (Maybe Text)-jReplacedByJobId-  = lens _jReplacedByJobId-      (\ s a -> s{_jReplacedByJobId = a})---- | A set of files the system should be aware of that are used for temporary--- storage. These temporary files will be removed on job completion. No--- duplicates are allowed. No file patterns are supported. The supported--- files are: Google Cloud Storage:--- storage.googleapis.com\/{bucket}\/{object}--- bucket.storage.googleapis.com\/{object}-jTempFiles :: Lens' Job [Text]-jTempFiles-  = lens _jTempFiles (\ s a -> s{_jTempFiles = a}) .-      _Default-      . _Coerce---- | Exactly one of step or steps_location should be specified. The top-level--- steps that constitute the entire job.-jSteps :: Lens' Job [Step]-jSteps-  = lens _jSteps (\ s a -> s{_jSteps = a}) . _Default .-      _Coerce---- | Preliminary field: The format of this data may change at any time. A--- description of the user pipeline and stages through which it is--- executed. Created by Cloud Dataflow service. Only retrieved with--- JOB_VIEW_DESCRIPTION or JOB_VIEW_ALL.-jPipelineDescription :: Lens' Job (Maybe PipelineDescription)-jPipelineDescription-  = lens _jPipelineDescription-      (\ s a -> s{_jPipelineDescription = a})---- | Deprecated.-jExecutionInfo :: Lens' Job (Maybe JobExecutionInfo)-jExecutionInfo-  = lens _jExecutionInfo-      (\ s a -> s{_jExecutionInfo = a})---- | The user-specified Cloud Dataflow job name. Only one Job with a given--- name may exist in a project at any given time. If a caller attempts to--- create a Job with the same name as an already-existing Job, the attempt--- returns the existing Job. The name must match the regular expression--- \`[a-z]([-a-z0-9]{0,38}[a-z0-9])?\`-jName :: Lens' Job (Maybe Text)-jName = lens _jName (\ s a -> s{_jName = a})---- | The map of transform name prefixes of the job to be replaced to the--- corresponding name prefixes of the new job.-jTransformNameMApping :: Lens' Job (Maybe JobTransformNameMApping)-jTransformNameMApping-  = lens _jTransformNameMApping-      (\ s a -> s{_jTransformNameMApping = a})---- | The unique ID of this job. This field is set by the Cloud Dataflow--- service when the Job is created, and is immutable for the life of the--- job.-jId :: Lens' Job (Maybe Text)-jId = lens _jId (\ s a -> s{_jId = a})---- | User-defined labels for this job. The labels map can contain no more--- than 64 entries. Entries of the labels map are UTF8 strings that comply--- with the following restrictions: * Keys must conform to regexp:--- \\p{Ll}\\p{Lo}{0,62} * Values must conform to regexp:--- [\\p{Ll}\\p{Lo}\\p{N}_-]{0,63} * Both keys and values are additionally--- constrained to be \<= 128 bytes in size.-jLabels :: Lens' Job (Maybe JobLabels)-jLabels = lens _jLabels (\ s a -> s{_jLabels = a})---- | The ID of the Cloud Platform project that the job belongs to.-jProjectId :: Lens' Job (Maybe Text)-jProjectId-  = lens _jProjectId (\ s a -> s{_jProjectId = a})---- | The type of Cloud Dataflow job.-jType :: Lens' Job (Maybe JobType)-jType = lens _jType (\ s a -> s{_jType = a})---- | The timestamp associated with the current state.-jCurrentStateTime :: Lens' Job (Maybe UTCTime)-jCurrentStateTime-  = lens _jCurrentStateTime-      (\ s a -> s{_jCurrentStateTime = a})-      . mapping _DateTime---- | If this job is an update of an existing job, this field is the job ID of--- the job it replaced. When sending a \`CreateJobRequest\`, you can update--- a job by specifying it here. The job named here is stopped, and its--- intermediate state is transferred to this job.-jReplaceJobId :: Lens' Job (Maybe Text)-jReplaceJobId-  = lens _jReplaceJobId-      (\ s a -> s{_jReplaceJobId = a})---- | The timestamp when the job was initially created. Immutable and set by--- the Cloud Dataflow service.-jCreateTime :: Lens' Job (Maybe UTCTime)-jCreateTime-  = lens _jCreateTime (\ s a -> s{_jCreateTime = a}) .-      mapping _DateTime--instance FromJSON Job where-        parseJSON-          = withObject "Job"-              (\ o ->-                 Job' <$>-                   (o .:? "stepsLocation") <*>-                     (o .:? "createdFromSnapshotId")-                     <*> (o .:? "requestedState")-                     <*> (o .:? "jobMetadata")-                     <*> (o .:? "location")-                     <*> (o .:? "startTime")-                     <*> (o .:? "environment")-                     <*> (o .:? "clientRequestId")-                     <*> (o .:? "stageStates" .!= mempty)-                     <*> (o .:? "currentState")-                     <*> (o .:? "replacedByJobId")-                     <*> (o .:? "tempFiles" .!= mempty)-                     <*> (o .:? "steps" .!= mempty)-                     <*> (o .:? "pipelineDescription")-                     <*> (o .:? "executionInfo")-                     <*> (o .:? "name")-                     <*> (o .:? "transformNameMapping")-                     <*> (o .:? "id")-                     <*> (o .:? "labels")-                     <*> (o .:? "projectId")-                     <*> (o .:? "type")-                     <*> (o .:? "currentStateTime")-                     <*> (o .:? "replaceJobId")-                     <*> (o .:? "createTime"))--instance ToJSON Job where-        toJSON Job'{..}-          = object-              (catMaybes-                 [("stepsLocation" .=) <$> _jStepsLocation,-                  ("createdFromSnapshotId" .=) <$>-                    _jCreatedFromSnapshotId,-                  ("requestedState" .=) <$> _jRequestedState,-                  ("jobMetadata" .=) <$> _jJobMetadata,-                  ("location" .=) <$> _jLocation,-                  ("startTime" .=) <$> _jStartTime,-                  ("environment" .=) <$> _jEnvironment,-                  ("clientRequestId" .=) <$> _jClientRequestId,-                  ("stageStates" .=) <$> _jStageStates,-                  ("currentState" .=) <$> _jCurrentState,-                  ("replacedByJobId" .=) <$> _jReplacedByJobId,-                  ("tempFiles" .=) <$> _jTempFiles,-                  ("steps" .=) <$> _jSteps,-                  ("pipelineDescription" .=) <$> _jPipelineDescription,-                  ("executionInfo" .=) <$> _jExecutionInfo,-                  ("name" .=) <$> _jName,-                  ("transformNameMapping" .=) <$>-                    _jTransformNameMApping,-                  ("id" .=) <$> _jId, ("labels" .=) <$> _jLabels,-                  ("projectId" .=) <$> _jProjectId,-                  ("type" .=) <$> _jType,-                  ("currentStateTime" .=) <$> _jCurrentStateTime,-                  ("replaceJobId" .=) <$> _jReplaceJobId,-                  ("createTime" .=) <$> _jCreateTime])---- | An instruction that reads records. Takes no inputs, produces one output.------ /See:/ 'readInstruction' smart constructor.-newtype ReadInstruction =-  ReadInstruction'-    { _riSource :: Maybe Source-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'ReadInstruction' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'riSource'-readInstruction-    :: ReadInstruction-readInstruction = ReadInstruction' {_riSource = Nothing}----- | The source to read from.-riSource :: Lens' ReadInstruction (Maybe Source)-riSource = lens _riSource (\ s a -> s{_riSource = a})--instance FromJSON ReadInstruction where-        parseJSON-          = withObject "ReadInstruction"-              (\ o -> ReadInstruction' <$> (o .:? "source"))--instance ToJSON ReadInstruction where-        toJSON ReadInstruction'{..}-          = object (catMaybes [("source" .=) <$> _riSource])---- | A progress measurement of a WorkItem by a worker.------ /See:/ 'approximateReportedProgress' smart constructor.-data ApproximateReportedProgress =-  ApproximateReportedProgress'-    { _arpFractionConsumed     :: !(Maybe (Textual Double))-    , _arpConsumedParallelism  :: !(Maybe ReportedParallelism)-    , _arpRemainingParallelism :: !(Maybe ReportedParallelism)-    , _arpPosition             :: !(Maybe Position)-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'ApproximateReportedProgress' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'arpFractionConsumed'------ * 'arpConsumedParallelism'------ * 'arpRemainingParallelism'------ * 'arpPosition'-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)-arpFractionConsumed-  = lens _arpFractionConsumed-      (\ s a -> s{_arpFractionConsumed = a})-      . mapping _Coerce---- | Total amount of parallelism in the portion of input of this task that--- has already been consumed and is no longer active. In the first two--- examples above (see remaining_parallelism), the value should be 29 or 2--- respectively. The sum of remaining_parallelism and consumed_parallelism--- should equal the total amount of parallelism in this work item. If--- specified, must be finite.-arpConsumedParallelism :: Lens' ApproximateReportedProgress (Maybe ReportedParallelism)-arpConsumedParallelism-  = lens _arpConsumedParallelism-      (\ s a -> s{_arpConsumedParallelism = a})---- | Total amount of parallelism in the input of this task that remains,--- (i.e. can be delegated to this task and any new tasks via dynamic--- splitting). Always at least 1 for non-finished work items and 0 for--- finished. \"Amount of parallelism\" refers to how many non-empty parts--- of the input can be read in parallel. This does not necessarily equal--- number of records. An input that can be read in parallel down to the--- individual records is called \"perfectly splittable\". An example of--- non-perfectly parallelizable input is a block-compressed file format--- where a block of records has to be read as a whole, but different blocks--- can be read in parallel. Examples: * If we are processing record #30--- (starting at 1) out of 50 in a perfectly splittable 50-record input,--- this value should be 21 (20 remaining + 1 current). * If we are reading--- through block 3 in a block-compressed file consisting of 5 blocks, this--- value should be 3 (since blocks 4 and 5 can be processed in parallel by--- new tasks via dynamic splitting and the current task remains processing--- block 3). * If we are reading through the last block in a--- block-compressed file, or reading or processing the last record in a--- perfectly splittable input, this value should be 1, because apart from--- the current task, no additional remainder can be split off.-arpRemainingParallelism :: Lens' ApproximateReportedProgress (Maybe ReportedParallelism)-arpRemainingParallelism-  = lens _arpRemainingParallelism-      (\ s a -> s{_arpRemainingParallelism = a})---- | A Position within the work to represent a progress.-arpPosition :: Lens' ApproximateReportedProgress (Maybe Position)-arpPosition-  = lens _arpPosition (\ s a -> s{_arpPosition = a})--instance FromJSON ApproximateReportedProgress where-        parseJSON-          = withObject "ApproximateReportedProgress"-              (\ o ->-                 ApproximateReportedProgress' <$>-                   (o .:? "fractionConsumed") <*>-                     (o .:? "consumedParallelism")-                     <*> (o .:? "remainingParallelism")-                     <*> (o .:? "position"))--instance ToJSON ApproximateReportedProgress where-        toJSON ApproximateReportedProgress'{..}-          = object-              (catMaybes-                 [("fractionConsumed" .=) <$> _arpFractionConsumed,-                  ("consumedParallelism" .=) <$>-                    _arpConsumedParallelism,-                  ("remainingParallelism" .=) <$>-                    _arpRemainingParallelism,-                  ("position" .=) <$> _arpPosition])---- | The sink to write to, plus its parameters.------ /See:/ 'sinkSpec' smart constructor.-newtype SinkSpec =-  SinkSpec'-    { _sAddtional :: HashMap Text JSONValue-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'SinkSpec' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'sAddtional'-sinkSpec-    :: HashMap Text JSONValue -- ^ 'sAddtional'-    -> SinkSpec-sinkSpec pSAddtional_ = SinkSpec' {_sAddtional = _Coerce # pSAddtional_}----- | Properties of the object.-sAddtional :: Lens' SinkSpec (HashMap Text JSONValue)-sAddtional-  = lens _sAddtional (\ s a -> s{_sAddtional = a}) .-      _Coerce--instance FromJSON SinkSpec where-        parseJSON-          = withObject "SinkSpec"-              (\ o -> SinkSpec' <$> (parseJSONObject o))--instance ToJSON SinkSpec where-        toJSON = toJSON . _sAddtional---- | Describes one particular pool of Cloud Dataflow workers to be--- instantiated by the Cloud Dataflow service in order to perform the--- computations required by a job. Note that a workflow job may use--- multiple pools, in order to match the various computational requirements--- of the various stages of the job.------ /See:/ 'workerPool' smart constructor.-data WorkerPool =-  WorkerPool'-    { _wpAutoscalingSettings         :: !(Maybe AutoscalingSettings)-    , _wpNumThreadsPerWorker         :: !(Maybe (Textual Int32))-    , _wpDiskSizeGb                  :: !(Maybe (Textual Int32))-    , _wpKind                        :: !(Maybe Text)-    , _wpTaskrunnerSettings          :: !(Maybe TaskRunnerSettings)-    , _wpNumWorkers                  :: !(Maybe (Textual Int32))-    , _wpNetwork                     :: !(Maybe Text)-    , _wpZone                        :: !(Maybe Text)-    , _wpIPConfiguration             :: !(Maybe WorkerPoolIPConfiguration)-    , _wpPackages                    :: !(Maybe [Package])-    , _wpOnHostMaintenance           :: !(Maybe Text)-    , _wpDiskSourceImage             :: !(Maybe Text)-    , _wpSubnetwork                  :: !(Maybe Text)-    , _wpMachineType                 :: !(Maybe Text)-    , _wpMetadata                    :: !(Maybe WorkerPoolMetadata)-    , _wpDiskType                    :: !(Maybe Text)-    , _wpTeardownPolicy              :: !(Maybe WorkerPoolTeardownPolicy)-    , _wpDefaultPackageSet           :: !(Maybe WorkerPoolDefaultPackageSet)-    , _wpPoolArgs                    :: !(Maybe WorkerPoolPoolArgs)-    , _wpWorkerHarnessContainerImage :: !(Maybe Text)-    , _wpDataDisks                   :: !(Maybe [Disk])-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'WorkerPool' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'wpAutoscalingSettings'------ * 'wpNumThreadsPerWorker'------ * 'wpDiskSizeGb'------ * 'wpKind'------ * 'wpTaskrunnerSettings'------ * 'wpNumWorkers'------ * 'wpNetwork'------ * 'wpZone'------ * 'wpIPConfiguration'------ * 'wpPackages'------ * 'wpOnHostMaintenance'------ * 'wpDiskSourceImage'------ * 'wpSubnetwork'------ * 'wpMachineType'------ * 'wpMetadata'------ * 'wpDiskType'------ * 'wpTeardownPolicy'------ * 'wpDefaultPackageSet'------ * 'wpPoolArgs'------ * 'wpWorkerHarnessContainerImage'------ * 'wpDataDisks'-workerPool-    :: WorkerPool-workerPool =-  WorkerPool'-    { _wpAutoscalingSettings = Nothing-    , _wpNumThreadsPerWorker = Nothing-    , _wpDiskSizeGb = Nothing-    , _wpKind = Nothing-    , _wpTaskrunnerSettings = Nothing-    , _wpNumWorkers = Nothing-    , _wpNetwork = Nothing-    , _wpZone = Nothing-    , _wpIPConfiguration = Nothing-    , _wpPackages = Nothing-    , _wpOnHostMaintenance = Nothing-    , _wpDiskSourceImage = Nothing-    , _wpSubnetwork = Nothing-    , _wpMachineType = Nothing-    , _wpMetadata = Nothing-    , _wpDiskType = Nothing-    , _wpTeardownPolicy = Nothing-    , _wpDefaultPackageSet = Nothing-    , _wpPoolArgs = Nothing-    , _wpWorkerHarnessContainerImage = Nothing-    , _wpDataDisks = Nothing-    }----- | Settings for autoscaling of this WorkerPool.-wpAutoscalingSettings :: Lens' WorkerPool (Maybe AutoscalingSettings)-wpAutoscalingSettings-  = lens _wpAutoscalingSettings-      (\ s a -> s{_wpAutoscalingSettings = a})---- | The number of threads per worker harness. If empty or unspecified, the--- service will choose a number of threads (according to the number of--- cores on the selected machine type for batch, or 1 by convention for--- streaming).-wpNumThreadsPerWorker :: Lens' WorkerPool (Maybe Int32)-wpNumThreadsPerWorker-  = lens _wpNumThreadsPerWorker-      (\ s a -> s{_wpNumThreadsPerWorker = a})-      . mapping _Coerce---- | Size of root disk for VMs, in GB. If zero or unspecified, the service--- will attempt to choose a reasonable default.-wpDiskSizeGb :: Lens' WorkerPool (Maybe Int32)-wpDiskSizeGb-  = lens _wpDiskSizeGb (\ s a -> s{_wpDiskSizeGb = a})-      . mapping _Coerce---- | The kind of the worker pool; currently only \`harness\` and \`shuffle\`--- are supported.-wpKind :: Lens' WorkerPool (Maybe Text)-wpKind = lens _wpKind (\ s a -> s{_wpKind = a})---- | Settings passed through to Google Compute Engine workers when using the--- standard Dataflow task runner. Users should ignore this field.-wpTaskrunnerSettings :: Lens' WorkerPool (Maybe TaskRunnerSettings)-wpTaskrunnerSettings-  = lens _wpTaskrunnerSettings-      (\ s a -> s{_wpTaskrunnerSettings = a})---- | Number of Google Compute Engine workers in this pool needed to execute--- the job. If zero or unspecified, the service will attempt to choose a--- reasonable default.-wpNumWorkers :: Lens' WorkerPool (Maybe Int32)-wpNumWorkers-  = lens _wpNumWorkers (\ s a -> s{_wpNumWorkers = a})-      . mapping _Coerce---- | Network to which VMs will be assigned. If empty or unspecified, the--- service will use the network \"default\".-wpNetwork :: Lens' WorkerPool (Maybe Text)-wpNetwork-  = lens _wpNetwork (\ s a -> s{_wpNetwork = a})---- | Zone to run the worker pools in. If empty or unspecified, the service--- will attempt to choose a reasonable default.-wpZone :: Lens' WorkerPool (Maybe Text)-wpZone = lens _wpZone (\ s a -> s{_wpZone = a})---- | Configuration for VM IPs.-wpIPConfiguration :: Lens' WorkerPool (Maybe WorkerPoolIPConfiguration)-wpIPConfiguration-  = lens _wpIPConfiguration-      (\ s a -> s{_wpIPConfiguration = a})---- | Packages to be installed on workers.-wpPackages :: Lens' WorkerPool [Package]-wpPackages-  = lens _wpPackages (\ s a -> s{_wpPackages = a}) .-      _Default-      . _Coerce---- | The action to take on host maintenance, as defined by the Google Compute--- Engine API.-wpOnHostMaintenance :: Lens' WorkerPool (Maybe Text)-wpOnHostMaintenance-  = lens _wpOnHostMaintenance-      (\ s a -> s{_wpOnHostMaintenance = a})---- | Fully qualified source image for disks.-wpDiskSourceImage :: Lens' WorkerPool (Maybe Text)-wpDiskSourceImage-  = lens _wpDiskSourceImage-      (\ s a -> s{_wpDiskSourceImage = a})---- | Subnetwork to which VMs will be assigned, if desired. Expected to be of--- the form \"regions\/REGION\/subnetworks\/SUBNETWORK\".-wpSubnetwork :: Lens' WorkerPool (Maybe Text)-wpSubnetwork-  = lens _wpSubnetwork (\ s a -> s{_wpSubnetwork = a})---- | Machine type (e.g. \"n1-standard-1\"). If empty or unspecified, the--- service will attempt to choose a reasonable default.-wpMachineType :: Lens' WorkerPool (Maybe Text)-wpMachineType-  = lens _wpMachineType-      (\ s a -> s{_wpMachineType = a})---- | Metadata to set on the Google Compute Engine VMs.-wpMetadata :: Lens' WorkerPool (Maybe WorkerPoolMetadata)-wpMetadata-  = lens _wpMetadata (\ s a -> s{_wpMetadata = a})---- | Type of root disk for VMs. If empty or unspecified, the service will--- attempt to choose a reasonable default.-wpDiskType :: Lens' WorkerPool (Maybe Text)-wpDiskType-  = lens _wpDiskType (\ s a -> s{_wpDiskType = a})---- | Sets the policy for determining when to turndown worker pool. Allowed--- values are: \`TEARDOWN_ALWAYS\`, \`TEARDOWN_ON_SUCCESS\`, and--- \`TEARDOWN_NEVER\`. \`TEARDOWN_ALWAYS\` means workers are always torn--- down regardless of whether the job succeeds. \`TEARDOWN_ON_SUCCESS\`--- means workers are torn down if the job succeeds. \`TEARDOWN_NEVER\`--- means the workers are never torn down. If the workers are not torn down--- by the service, they will continue to run and use Google Compute Engine--- VM resources in the user\'s project until they are explicitly terminated--- by the user. Because of this, Google recommends using the--- \`TEARDOWN_ALWAYS\` policy except for small, manually supervised test--- jobs. If unknown or unspecified, the service will attempt to choose a--- reasonable default.-wpTeardownPolicy :: Lens' WorkerPool (Maybe WorkerPoolTeardownPolicy)-wpTeardownPolicy-  = lens _wpTeardownPolicy-      (\ s a -> s{_wpTeardownPolicy = a})---- | The default package set to install. This allows the service to select a--- default set of packages which are useful to worker harnesses written in--- a particular language.-wpDefaultPackageSet :: Lens' WorkerPool (Maybe WorkerPoolDefaultPackageSet)-wpDefaultPackageSet-  = lens _wpDefaultPackageSet-      (\ s a -> s{_wpDefaultPackageSet = a})---- | Extra arguments for this worker pool.-wpPoolArgs :: Lens' WorkerPool (Maybe WorkerPoolPoolArgs)-wpPoolArgs-  = lens _wpPoolArgs (\ s a -> s{_wpPoolArgs = a})---- | Required. Docker container image that executes the Cloud Dataflow worker--- harness, residing in Google Container Registry.-wpWorkerHarnessContainerImage :: Lens' WorkerPool (Maybe Text)-wpWorkerHarnessContainerImage-  = lens _wpWorkerHarnessContainerImage-      (\ s a -> s{_wpWorkerHarnessContainerImage = a})---- | Data disks that are used by a VM in this workflow.-wpDataDisks :: Lens' WorkerPool [Disk]-wpDataDisks-  = lens _wpDataDisks (\ s a -> s{_wpDataDisks = a}) .-      _Default-      . _Coerce--instance FromJSON WorkerPool where-        parseJSON-          = withObject "WorkerPool"-              (\ o ->-                 WorkerPool' <$>-                   (o .:? "autoscalingSettings") <*>-                     (o .:? "numThreadsPerWorker")-                     <*> (o .:? "diskSizeGb")-                     <*> (o .:? "kind")-                     <*> (o .:? "taskrunnerSettings")-                     <*> (o .:? "numWorkers")-                     <*> (o .:? "network")-                     <*> (o .:? "zone")-                     <*> (o .:? "ipConfiguration")-                     <*> (o .:? "packages" .!= mempty)-                     <*> (o .:? "onHostMaintenance")-                     <*> (o .:? "diskSourceImage")-                     <*> (o .:? "subnetwork")-                     <*> (o .:? "machineType")-                     <*> (o .:? "metadata")-                     <*> (o .:? "diskType")-                     <*> (o .:? "teardownPolicy")-                     <*> (o .:? "defaultPackageSet")-                     <*> (o .:? "poolArgs")-                     <*> (o .:? "workerHarnessContainerImage")-                     <*> (o .:? "dataDisks" .!= mempty))--instance ToJSON WorkerPool where-        toJSON WorkerPool'{..}-          = object-              (catMaybes-                 [("autoscalingSettings" .=) <$>-                    _wpAutoscalingSettings,-                  ("numThreadsPerWorker" .=) <$>-                    _wpNumThreadsPerWorker,-                  ("diskSizeGb" .=) <$> _wpDiskSizeGb,-                  ("kind" .=) <$> _wpKind,-                  ("taskrunnerSettings" .=) <$> _wpTaskrunnerSettings,-                  ("numWorkers" .=) <$> _wpNumWorkers,-                  ("network" .=) <$> _wpNetwork,-                  ("zone" .=) <$> _wpZone,-                  ("ipConfiguration" .=) <$> _wpIPConfiguration,-                  ("packages" .=) <$> _wpPackages,-                  ("onHostMaintenance" .=) <$> _wpOnHostMaintenance,-                  ("diskSourceImage" .=) <$> _wpDiskSourceImage,-                  ("subnetwork" .=) <$> _wpSubnetwork,-                  ("machineType" .=) <$> _wpMachineType,-                  ("metadata" .=) <$> _wpMetadata,-                  ("diskType" .=) <$> _wpDiskType,-                  ("teardownPolicy" .=) <$> _wpTeardownPolicy,-                  ("defaultPackageSet" .=) <$> _wpDefaultPackageSet,-                  ("poolArgs" .=) <$> _wpPoolArgs,-                  ("workerHarnessContainerImage" .=) <$>-                    _wpWorkerHarnessContainerImage,-                  ("dataDisks" .=) <$> _wpDataDisks])---- | Defines a particular step within a Cloud Dataflow job. A job consists of--- multiple steps, each of which performs some specific operation as part--- of the overall job. Data is typically passed from one step to another as--- part of the job. Here\'s an example of a sequence of steps which--- together implement a Map-Reduce job: * Read a collection of data from--- some source, parsing the collection\'s elements. * Validate the--- elements. * Apply a user-defined function to map each element to some--- value and extract an element-specific key value. * Group elements with--- the same key into a single element with that key, transforming a--- multiply-keyed collection into a uniquely-keyed collection. * Write the--- elements out to some data sink. Note that the Cloud Dataflow service may--- be used to run many different types of jobs, not just Map-Reduce.------ /See:/ 'step' smart constructor.-data Step =-  Step'-    { _sKind       :: !(Maybe Text)-    , _sName       :: !(Maybe Text)-    , _sProperties :: !(Maybe StepProperties)-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'Step' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'sKind'------ * 'sName'------ * 'sProperties'-step-    :: Step-step = Step' {_sKind = Nothing, _sName = Nothing, _sProperties = Nothing}----- | The kind of step in the Cloud Dataflow job.-sKind :: Lens' Step (Maybe Text)-sKind = lens _sKind (\ s a -> s{_sKind = a})---- | The name that identifies the step. This must be unique for each step--- with respect to all other steps in the Cloud Dataflow job.-sName :: Lens' Step (Maybe Text)-sName = lens _sName (\ s a -> s{_sName = a})---- | Named properties associated with the step. Each kind of predefined step--- has its own required set of properties. Must be provided on Create. Only--- retrieved with JOB_VIEW_ALL.-sProperties :: Lens' Step (Maybe StepProperties)-sProperties-  = lens _sProperties (\ s a -> s{_sProperties = a})--instance FromJSON Step where-        parseJSON-          = withObject "Step"-              (\ o ->-                 Step' <$>-                   (o .:? "kind") <*> (o .:? "name") <*>-                     (o .:? "properties"))--instance ToJSON Step where-        toJSON Step'{..}-          = object-              (catMaybes-                 [("kind" .=) <$> _sKind, ("name" .=) <$> _sName,-                  ("properties" .=) <$> _sProperties])---- | Description of an interstitial value between transforms in an execution--- stage.------ /See:/ 'componentSource' smart constructor.-data ComponentSource =-  ComponentSource'-    { _csUserName                      :: !(Maybe Text)-    , _csName                          :: !(Maybe Text)-    , _csOriginalTransformOrCollection :: !(Maybe Text)-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'ComponentSource' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'csUserName'------ * 'csName'------ * 'csOriginalTransformOrCollection'-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-  = lens _csUserName (\ s a -> s{_csUserName = a})---- | Dataflow service generated name for this source.-csName :: Lens' ComponentSource (Maybe Text)-csName = lens _csName (\ s a -> s{_csName = a})---- | User name for the original user transform or collection with which this--- source is most closely associated.-csOriginalTransformOrCollection :: Lens' ComponentSource (Maybe Text)-csOriginalTransformOrCollection-  = lens _csOriginalTransformOrCollection-      (\ s a -> s{_csOriginalTransformOrCollection = a})--instance FromJSON ComponentSource where-        parseJSON-          = withObject "ComponentSource"-              (\ o ->-                 ComponentSource' <$>-                   (o .:? "userName") <*> (o .:? "name") <*>-                     (o .:? "originalTransformOrCollection"))--instance ToJSON ComponentSource where-        toJSON ComponentSource'{..}-          = object-              (catMaybes-                 [("userName" .=) <$> _csUserName,-                  ("name" .=) <$> _csName,-                  ("originalTransformOrCollection" .=) <$>-                    _csOriginalTransformOrCollection])---- | The packages that must be installed in order for a worker to run the--- steps of the Cloud Dataflow job that will be assigned to its worker--- pool. This is the mechanism by which the Cloud Dataflow SDK causes code--- to be loaded onto the workers. For example, the Cloud Dataflow Java SDK--- might use this to install jars containing the user\'s code and all of--- the various dependencies (libraries, data files, etc.) required in order--- for that code to run.------ /See:/ 'package' smart constructor.-data Package =-  Package'-    { _pLocation :: !(Maybe Text)-    , _pName     :: !(Maybe Text)-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'Package' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'pLocation'------ * 'pName'-package-    :: Package-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}--- bucket.storage.googleapis.com\/-pLocation :: Lens' Package (Maybe Text)-pLocation-  = lens _pLocation (\ s a -> s{_pLocation = a})---- | The name of the package.-pName :: Lens' Package (Maybe Text)-pName = lens _pName (\ s a -> s{_pName = a})--instance FromJSON Package where-        parseJSON-          = withObject "Package"-              (\ o ->-                 Package' <$> (o .:? "location") <*> (o .:? "name"))--instance ToJSON Package where-        toJSON Package'{..}-          = object-              (catMaybes-                 [("location" .=) <$> _pLocation,-                  ("name" .=) <$> _pName])---- | Description of the composing transforms, names\/ids, and input\/outputs--- of a stage of execution. Some composing transforms and sources may have--- been generated by the Dataflow service during execution planning.------ /See:/ 'executionStageSummary' smart constructor.-data ExecutionStageSummary =-  ExecutionStageSummary'-    { _essOutputSource       :: !(Maybe [StageSource])-    , _essKind               :: !(Maybe ExecutionStageSummaryKind)-    , _essInputSource        :: !(Maybe [StageSource])-    , _essName               :: !(Maybe Text)-    , _essComponentSource    :: !(Maybe [ComponentSource])-    , _essId                 :: !(Maybe Text)-    , _essComponentTransform :: !(Maybe [ComponentTransform])-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'ExecutionStageSummary' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'essOutputSource'------ * 'essKind'------ * 'essInputSource'------ * 'essName'------ * 'essComponentSource'------ * 'essId'------ * 'essComponentTransform'-executionStageSummary-    :: ExecutionStageSummary-executionStageSummary =-  ExecutionStageSummary'-    { _essOutputSource = Nothing-    , _essKind = Nothing-    , _essInputSource = Nothing-    , _essName = Nothing-    , _essComponentSource = Nothing-    , _essId = Nothing-    , _essComponentTransform = Nothing-    }----- | Output sources for this stage.-essOutputSource :: Lens' ExecutionStageSummary [StageSource]-essOutputSource-  = lens _essOutputSource-      (\ s a -> s{_essOutputSource = a})-      . _Default-      . _Coerce---- | Type of tranform this stage is executing.-essKind :: Lens' ExecutionStageSummary (Maybe ExecutionStageSummaryKind)-essKind = lens _essKind (\ s a -> s{_essKind = a})---- | Input sources for this stage.-essInputSource :: Lens' ExecutionStageSummary [StageSource]-essInputSource-  = lens _essInputSource-      (\ s a -> s{_essInputSource = a})-      . _Default-      . _Coerce---- | Dataflow service generated name for this stage.-essName :: Lens' ExecutionStageSummary (Maybe Text)-essName = lens _essName (\ s a -> s{_essName = a})---- | Collections produced and consumed by component transforms of this stage.-essComponentSource :: Lens' ExecutionStageSummary [ComponentSource]-essComponentSource-  = lens _essComponentSource-      (\ s a -> s{_essComponentSource = a})-      . _Default-      . _Coerce---- | Dataflow service generated id for this stage.-essId :: Lens' ExecutionStageSummary (Maybe Text)-essId = lens _essId (\ s a -> s{_essId = a})---- | Transforms that comprise this execution stage.-essComponentTransform :: Lens' ExecutionStageSummary [ComponentTransform]-essComponentTransform-  = lens _essComponentTransform-      (\ s a -> s{_essComponentTransform = a})-      . _Default-      . _Coerce--instance FromJSON ExecutionStageSummary where-        parseJSON-          = withObject "ExecutionStageSummary"-              (\ o ->-                 ExecutionStageSummary' <$>-                   (o .:? "outputSource" .!= mempty) <*> (o .:? "kind")-                     <*> (o .:? "inputSource" .!= mempty)-                     <*> (o .:? "name")-                     <*> (o .:? "componentSource" .!= mempty)-                     <*> (o .:? "id")-                     <*> (o .:? "componentTransform" .!= mempty))--instance ToJSON ExecutionStageSummary where-        toJSON ExecutionStageSummary'{..}-          = object-              (catMaybes-                 [("outputSource" .=) <$> _essOutputSource,-                  ("kind" .=) <$> _essKind,-                  ("inputSource" .=) <$> _essInputSource,-                  ("name" .=) <$> _essName,-                  ("componentSource" .=) <$> _essComponentSource,-                  ("id" .=) <$> _essId,-                  ("componentTransform" .=) <$>-                    _essComponentTransform])---- | Parameters contains specific information about the code. This is a--- struct to allow parameters of different types. Examples: 1. For a--- \"HARNESS_STARTED\" message parameters might provide the name of the--- worker and additional data like timing information. 2. For a--- \"GCS_DOWNLOAD_ERROR\" parameters might contain fields listing the GCS--- objects being downloaded and fields containing errors. In general--- complex data structures should be avoided. If a worker needs to send a--- specific and complicated data structure then please consider defining a--- new proto and adding it to the data oneof in WorkerMessageResponse.--- Conventions: Parameters should only be used for information that isn\'t--- typically passed as a label. hostname and other worker identifiers--- should almost always be passed as labels since they will be included on--- most messages.------ /See:/ 'workerMessageCodeParameters' smart constructor.-newtype WorkerMessageCodeParameters =-  WorkerMessageCodeParameters'-    { _wmcpAddtional :: HashMap Text JSONValue-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'WorkerMessageCodeParameters' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'wmcpAddtional'-workerMessageCodeParameters-    :: HashMap Text JSONValue -- ^ 'wmcpAddtional'-    -> WorkerMessageCodeParameters-workerMessageCodeParameters pWmcpAddtional_ =-  WorkerMessageCodeParameters' {_wmcpAddtional = _Coerce # pWmcpAddtional_}----- | Properties of the object.-wmcpAddtional :: Lens' WorkerMessageCodeParameters (HashMap Text JSONValue)-wmcpAddtional-  = lens _wmcpAddtional-      (\ s a -> s{_wmcpAddtional = a})-      . _Coerce--instance FromJSON WorkerMessageCodeParameters where-        parseJSON-          = withObject "WorkerMessageCodeParameters"-              (\ o ->-                 WorkerMessageCodeParameters' <$> (parseJSONObject o))--instance ToJSON WorkerMessageCodeParameters where-        toJSON = toJSON . _wmcpAddtional---- | When a task splits using WorkItemStatus.dynamic_source_split, this--- message describes the two parts of the split relative to the description--- of the current task\'s input.------ /See:/ 'dynamicSourceSplit' smart constructor.-data DynamicSourceSplit =-  DynamicSourceSplit'-    { _dssResidual :: !(Maybe DerivedSource)-    , _dssPrimary  :: !(Maybe DerivedSource)-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'DynamicSourceSplit' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'dssResidual'------ * 'dssPrimary'-dynamicSourceSplit-    :: DynamicSourceSplit-dynamicSourceSplit =-  DynamicSourceSplit' {_dssResidual = Nothing, _dssPrimary = Nothing}----- | Residual part (returned to the pool of work). Specified relative to the--- previously-current source.-dssResidual :: Lens' DynamicSourceSplit (Maybe DerivedSource)-dssResidual-  = lens _dssResidual (\ s a -> s{_dssResidual = a})---- | Primary part (continued to be processed by worker). Specified relative--- to the previously-current source. Becomes current.-dssPrimary :: Lens' DynamicSourceSplit (Maybe DerivedSource)-dssPrimary-  = lens _dssPrimary (\ s a -> s{_dssPrimary = a})--instance FromJSON DynamicSourceSplit where-        parseJSON-          = withObject "DynamicSourceSplit"-              (\ o ->-                 DynamicSourceSplit' <$>-                   (o .:? "residual") <*> (o .:? "primary"))--instance ToJSON DynamicSourceSplit where-        toJSON DynamicSourceSplit'{..}-          = object-              (catMaybes-                 [("residual" .=) <$> _dssResidual,-                  ("primary" .=) <$> _dssPrimary])---- | Request to create a snapshot of a job.------ /See:/ 'snapshotJobRequest' smart constructor.-data SnapshotJobRequest =-  SnapshotJobRequest'-    { _sjrTtl      :: !(Maybe GDuration)-    , _sjrLocation :: !(Maybe Text)-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'SnapshotJobRequest' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'sjrTtl'------ * 'sjrLocation'-snapshotJobRequest-    :: SnapshotJobRequest-snapshotJobRequest =-  SnapshotJobRequest' {_sjrTtl = Nothing, _sjrLocation = Nothing}----- | TTL for the snapshot.-sjrTtl :: Lens' SnapshotJobRequest (Maybe Scientific)-sjrTtl-  = lens _sjrTtl (\ s a -> s{_sjrTtl = a}) .-      mapping _GDuration---- | The location that contains this job.-sjrLocation :: Lens' SnapshotJobRequest (Maybe Text)-sjrLocation-  = lens _sjrLocation (\ s a -> s{_sjrLocation = a})--instance FromJSON SnapshotJobRequest where-        parseJSON-          = withObject "SnapshotJobRequest"-              (\ o ->-                 SnapshotJobRequest' <$>-                   (o .:? "ttl") <*> (o .:? "location"))--instance ToJSON SnapshotJobRequest where-        toJSON SnapshotJobRequest'{..}-          = object-              (catMaybes-                 [("ttl" .=) <$> _sjrTtl,-                  ("location" .=) <$> _sjrLocation])---- | Response from a request to report the status of WorkItems.------ /See:/ 'reportWorkItemStatusResponse' smart constructor.-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'-    { _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--- response.-rwisrWorkItemServiceStates :: Lens' ReportWorkItemStatusResponse [WorkItemServiceState]-rwisrWorkItemServiceStates-  = lens _rwisrWorkItemServiceStates-      (\ s a -> s{_rwisrWorkItemServiceStates = a})-      . _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 .:? "unifiedWorkerResponse"))--instance ToJSON ReportWorkItemStatusResponse where-        toJSON ReportWorkItemStatusResponse'{..}-          = object-              (catMaybes-                 [("workItemServiceStates" .=) <$>-                    _rwisrWorkItemServiceStates,-                  ("unifiedWorkerResponse" .=) <$>-                    _rwisrUnifiedWorkerResponse])---- | DEPRECATED in favor of DynamicSourceSplit.------ /See:/ 'sourceFork' smart constructor.-data SourceFork =-  SourceFork'-    { _sfResidual       :: !(Maybe SourceSplitShard)-    , _sfPrimarySource  :: !(Maybe DerivedSource)-    , _sfPrimary        :: !(Maybe SourceSplitShard)-    , _sfResidualSource :: !(Maybe DerivedSource)-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'SourceFork' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'sfResidual'------ * 'sfPrimarySource'------ * 'sfPrimary'------ * 'sfResidualSource'-sourceFork-    :: SourceFork-sourceFork =-  SourceFork'-    { _sfResidual = Nothing-    , _sfPrimarySource = Nothing-    , _sfPrimary = Nothing-    , _sfResidualSource = Nothing-    }----- | DEPRECATED-sfResidual :: Lens' SourceFork (Maybe SourceSplitShard)-sfResidual-  = lens _sfResidual (\ s a -> s{_sfResidual = a})---- | DEPRECATED-sfPrimarySource :: Lens' SourceFork (Maybe DerivedSource)-sfPrimarySource-  = lens _sfPrimarySource-      (\ s a -> s{_sfPrimarySource = a})---- | DEPRECATED-sfPrimary :: Lens' SourceFork (Maybe SourceSplitShard)-sfPrimary-  = lens _sfPrimary (\ s a -> s{_sfPrimary = a})---- | DEPRECATED-sfResidualSource :: Lens' SourceFork (Maybe DerivedSource)-sfResidualSource-  = lens _sfResidualSource-      (\ s a -> s{_sfResidualSource = a})--instance FromJSON SourceFork where-        parseJSON-          = withObject "SourceFork"-              (\ o ->-                 SourceFork' <$>-                   (o .:? "residual") <*> (o .:? "primarySource") <*>-                     (o .:? "primary")-                     <*> (o .:? "residualSource"))--instance ToJSON SourceFork where-        toJSON SourceFork'{..}-          = object-              (catMaybes-                 [("residual" .=) <$> _sfResidual,-                  ("primarySource" .=) <$> _sfPrimarySource,-                  ("primary" .=) <$> _sfPrimary,-                  ("residualSource" .=) <$> _sfResidualSource])---- | Service-side response to WorkerMessage reporting resource utilization.------ /See:/ 'resourceUtilizationReportResponse' smart constructor.-data ResourceUtilizationReportResponse =-  ResourceUtilizationReportResponse'-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'ResourceUtilizationReportResponse' with the minimum fields required to make a request.----resourceUtilizationReportResponse-    :: ResourceUtilizationReportResponse-resourceUtilizationReportResponse = ResourceUtilizationReportResponse'---instance FromJSON ResourceUtilizationReportResponse-         where-        parseJSON-          = withObject "ResourceUtilizationReportResponse"-              (\ o -> pure ResourceUtilizationReportResponse')--instance ToJSON ResourceUtilizationReportResponse-         where-        toJSON = const emptyObject---- | Describes full or partial data disk assignment information of the--- computation ranges.------ /See:/ 'streamingComputationRanges' smart constructor.-data StreamingComputationRanges =-  StreamingComputationRanges'-    { _scrRangeAssignments :: !(Maybe [KeyRangeDataDiskAssignment])-    , _scrComputationId    :: !(Maybe Text)-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'StreamingComputationRanges' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'scrRangeAssignments'------ * 'scrComputationId'-streamingComputationRanges-    :: StreamingComputationRanges-streamingComputationRanges =-  StreamingComputationRanges'-    {_scrRangeAssignments = Nothing, _scrComputationId = Nothing}----- | Data disk assignments for ranges from this computation.-scrRangeAssignments :: Lens' StreamingComputationRanges [KeyRangeDataDiskAssignment]-scrRangeAssignments-  = lens _scrRangeAssignments-      (\ s a -> s{_scrRangeAssignments = a})-      . _Default-      . _Coerce---- | The ID of the computation.-scrComputationId :: Lens' StreamingComputationRanges (Maybe Text)-scrComputationId-  = lens _scrComputationId-      (\ s a -> s{_scrComputationId = a})--instance FromJSON StreamingComputationRanges where-        parseJSON-          = withObject "StreamingComputationRanges"-              (\ o ->-                 StreamingComputationRanges' <$>-                   (o .:? "rangeAssignments" .!= mempty) <*>-                     (o .:? "computationId"))--instance ToJSON StreamingComputationRanges where-        toJSON StreamingComputationRanges'{..}-          = object-              (catMaybes-                 [("rangeAssignments" .=) <$> _scrRangeAssignments,-                  ("computationId" .=) <$> _scrComputationId])---- | Response to a request to list Cloud Dataflow jobs. This may be a partial--- response, depending on the page size in the ListJobsRequest.------ /See:/ 'listJobsResponse' smart constructor.-data ListJobsResponse =-  ListJobsResponse'-    { _ljrNextPageToken  :: !(Maybe Text)-    , _ljrFailedLocation :: !(Maybe [FailedLocation])-    , _ljrJobs           :: !(Maybe [Job])-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'ListJobsResponse' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'ljrNextPageToken'------ * 'ljrFailedLocation'------ * 'ljrJobs'-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 the [regional endpoints]--- (https:\/\/cloud.google.com\/dataflow\/docs\/concepts\/regional-endpoints)--- that failed to respond.-ljrFailedLocation :: Lens' ListJobsResponse [FailedLocation]-ljrFailedLocation-  = lens _ljrFailedLocation-      (\ s a -> s{_ljrFailedLocation = a})-      . _Default-      . _Coerce---- | A subset of the requested job information.-ljrJobs :: Lens' ListJobsResponse [Job]-ljrJobs-  = lens _ljrJobs (\ s a -> s{_ljrJobs = a}) . _Default-      . _Coerce--instance FromJSON ListJobsResponse where-        parseJSON-          = withObject "ListJobsResponse"-              (\ o ->-                 ListJobsResponse' <$>-                   (o .:? "nextPageToken") <*>-                     (o .:? "failedLocation" .!= mempty)-                     <*> (o .:? "jobs" .!= mempty))--instance ToJSON ListJobsResponse where-        toJSON ListJobsResponse'{..}-          = object-              (catMaybes-                 [("nextPageToken" .=) <$> _ljrNextPageToken,-                  ("failedLocation" .=) <$> _ljrFailedLocation,-                  ("jobs" .=) <$> _ljrJobs])---- | The runtime parameters to pass to the job.------ /See:/ 'launchTemplateParametersParameters' smart constructor.-newtype LaunchTemplateParametersParameters =-  LaunchTemplateParametersParameters'-    { _ltppAddtional :: HashMap Text Text-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'LaunchTemplateParametersParameters' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'ltppAddtional'-launchTemplateParametersParameters-    :: HashMap Text Text -- ^ 'ltppAddtional'-    -> LaunchTemplateParametersParameters-launchTemplateParametersParameters pLtppAddtional_ =-  LaunchTemplateParametersParameters'-    {_ltppAddtional = _Coerce # pLtppAddtional_}---ltppAddtional :: Lens' LaunchTemplateParametersParameters (HashMap Text Text)-ltppAddtional-  = lens _ltppAddtional-      (\ s a -> s{_ltppAddtional = a})-      . _Coerce--instance FromJSON LaunchTemplateParametersParameters-         where-        parseJSON-          = withObject "LaunchTemplateParametersParameters"-              (\ o ->-                 LaunchTemplateParametersParameters' <$>-                   (parseJSONObject o))--instance ToJSON LaunchTemplateParametersParameters-         where-        toJSON = toJSON . _ltppAddtional---- | A source that records can be read and decoded from.------ /See:/ 'source' smart constructor.-data Source =-  Source'-    { _souDoesNotNeedSplitting :: !(Maybe Bool)-    , _souBaseSpecs            :: !(Maybe [SourceBaseSpecsItem])-    , _souCodec                :: !(Maybe SourceCodec)-    , _souSpec                 :: !(Maybe SourceSpec)-    , _souMetadata             :: !(Maybe SourceMetadata)-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'Source' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'souDoesNotNeedSplitting'------ * 'souBaseSpecs'------ * 'souCodec'------ * 'souSpec'------ * 'souMetadata'-source-    :: Source-source =-  Source'-    { _souDoesNotNeedSplitting = Nothing-    , _souBaseSpecs = Nothing-    , _souCodec = Nothing-    , _souSpec = Nothing-    , _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--- true when splitting a single file into a set of byte ranges of--- appropriate size, and set this to false when splitting a filepattern--- into individual files. However, for efficiency, a file splitter may--- decide to produce file subranges directly from the filepattern to avoid--- a splitting round-trip. See SourceSplitRequest for an overview of the--- splitting process. This field is meaningful only in the Source objects--- populated by the user (e.g. when filling in a DerivedSource). Source--- objects supplied by the framework to the user don\'t have this field--- populated.-souDoesNotNeedSplitting :: Lens' Source (Maybe Bool)-souDoesNotNeedSplitting-  = lens _souDoesNotNeedSplitting-      (\ s a -> s{_souDoesNotNeedSplitting = a})---- | While splitting, sources may specify the produced bundles as differences--- against another source, in order to save backend-side memory and allow--- bigger jobs. For details, see SourceSplitRequest. To support this use--- case, the full set of parameters of the source is logically obtained by--- taking the latest explicitly specified value of each parameter in the--- order: base_specs (later items win), spec (overrides anything in--- base_specs).-souBaseSpecs :: Lens' Source [SourceBaseSpecsItem]-souBaseSpecs-  = lens _souBaseSpecs (\ s a -> s{_souBaseSpecs = a})-      . _Default-      . _Coerce---- | The codec to use to decode data read from the source.-souCodec :: Lens' Source (Maybe SourceCodec)-souCodec = lens _souCodec (\ s a -> s{_souCodec = a})---- | The source to read from, plus its parameters.-souSpec :: Lens' Source (Maybe SourceSpec)-souSpec = lens _souSpec (\ s a -> s{_souSpec = a})---- | Optionally, metadata for this source can be supplied right away,--- avoiding a SourceGetMetadataOperation roundtrip (see--- SourceOperationRequest). This field is meaningful only in the Source--- objects populated by the user (e.g. when filling in a DerivedSource).--- Source objects supplied by the framework to the user don\'t have this--- field populated.-souMetadata :: Lens' Source (Maybe SourceMetadata)-souMetadata-  = lens _souMetadata (\ s a -> s{_souMetadata = a})--instance FromJSON Source where-        parseJSON-          = withObject "Source"-              (\ o ->-                 Source' <$>-                   (o .:? "doesNotNeedSplitting") <*>-                     (o .:? "baseSpecs" .!= mempty)-                     <*> (o .:? "codec")-                     <*> (o .:? "spec")-                     <*> (o .:? "metadata"))--instance ToJSON Source where-        toJSON Source'{..}-          = object-              (catMaybes-                 [("doesNotNeedSplitting" .=) <$>-                    _souDoesNotNeedSplitting,-                  ("baseSpecs" .=) <$> _souBaseSpecs,-                  ("codec" .=) <$> _souCodec, ("spec" .=) <$> _souSpec,-                  ("metadata" .=) <$> _souMetadata])---- | Obsolete in favor of ApproximateReportedProgress and--- ApproximateSplitRequest.------ /See:/ 'approximateProgress' smart constructor.-data ApproximateProgress =-  ApproximateProgress'-    { _apRemainingTime   :: !(Maybe GDuration)-    , _apPercentComplete :: !(Maybe (Textual Double))-    , _apPosition        :: !(Maybe Position)-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'ApproximateProgress' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'apRemainingTime'------ * 'apPercentComplete'------ * 'apPosition'-approximateProgress-    :: ApproximateProgress-approximateProgress =-  ApproximateProgress'-    { _apRemainingTime = Nothing-    , _apPercentComplete = Nothing-    , _apPosition = Nothing-    }----- | Obsolete.-apRemainingTime :: Lens' ApproximateProgress (Maybe Scientific)-apRemainingTime-  = lens _apRemainingTime-      (\ s a -> s{_apRemainingTime = a})-      . mapping _GDuration---- | Obsolete.-apPercentComplete :: Lens' ApproximateProgress (Maybe Double)-apPercentComplete-  = lens _apPercentComplete-      (\ s a -> s{_apPercentComplete = a})-      . mapping _Coerce---- | Obsolete.-apPosition :: Lens' ApproximateProgress (Maybe Position)-apPosition-  = lens _apPosition (\ s a -> s{_apPosition = a})--instance FromJSON ApproximateProgress where-        parseJSON-          = withObject "ApproximateProgress"-              (\ o ->-                 ApproximateProgress' <$>-                   (o .:? "remainingTime") <*> (o .:? "percentComplete")-                     <*> (o .:? "position"))--instance ToJSON ApproximateProgress where-        toJSON ApproximateProgress'{..}-          = object-              (catMaybes-                 [("remainingTime" .=) <$> _apRemainingTime,-                  ("percentComplete" .=) <$> _apPercentComplete,-                  ("position" .=) <$> _apPosition])---- | WorkerMessage provides information to the backend about a worker.------ /See:/ 'workerMessage' smart constructor.-data WorkerMessage =-  WorkerMessage'-    { _wmWorkerHealthReport   :: !(Maybe WorkerHealthReport)-    , _wmTime                 :: !(Maybe DateTime')-    , _wmWorkerMessageCode    :: !(Maybe WorkerMessageCode)-    , _wmWorkerMetrics        :: !(Maybe ResourceUtilizationReport)-    , _wmWorkerLifecycleEvent :: !(Maybe WorkerLifecycleEvent)-    , _wmWorkerShutdownNotice :: !(Maybe WorkerShutdownNotice)-    , _wmLabels               :: !(Maybe WorkerMessageLabels)-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'WorkerMessage' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'wmWorkerHealthReport'------ * 'wmTime'------ * 'wmWorkerMessageCode'------ * 'wmWorkerMetrics'------ * 'wmWorkerLifecycleEvent'------ * 'wmWorkerShutdownNotice'------ * 'wmLabels'-workerMessage-    :: WorkerMessage-workerMessage =-  WorkerMessage'-    { _wmWorkerHealthReport = Nothing-    , _wmTime = Nothing-    , _wmWorkerMessageCode = Nothing-    , _wmWorkerMetrics = Nothing-    , _wmWorkerLifecycleEvent = Nothing-    , _wmWorkerShutdownNotice = Nothing-    , _wmLabels = Nothing-    }----- | The health of a worker.-wmWorkerHealthReport :: Lens' WorkerMessage (Maybe WorkerHealthReport)-wmWorkerHealthReport-  = lens _wmWorkerHealthReport-      (\ s a -> s{_wmWorkerHealthReport = a})---- | The timestamp of the worker_message.-wmTime :: Lens' WorkerMessage (Maybe UTCTime)-wmTime-  = lens _wmTime (\ s a -> s{_wmTime = a}) .-      mapping _DateTime---- | A worker message code.-wmWorkerMessageCode :: Lens' WorkerMessage (Maybe WorkerMessageCode)-wmWorkerMessageCode-  = lens _wmWorkerMessageCode-      (\ s a -> s{_wmWorkerMessageCode = a})---- | Resource metrics reported by workers.-wmWorkerMetrics :: Lens' WorkerMessage (Maybe ResourceUtilizationReport)-wmWorkerMetrics-  = lens _wmWorkerMetrics-      (\ s a -> s{_wmWorkerMetrics = a})---- | Record of worker lifecycle events.-wmWorkerLifecycleEvent :: Lens' WorkerMessage (Maybe WorkerLifecycleEvent)-wmWorkerLifecycleEvent-  = lens _wmWorkerLifecycleEvent-      (\ s a -> s{_wmWorkerLifecycleEvent = a})---- | Shutdown notice by workers.-wmWorkerShutdownNotice :: Lens' WorkerMessage (Maybe WorkerShutdownNotice)-wmWorkerShutdownNotice-  = lens _wmWorkerShutdownNotice-      (\ s a -> s{_wmWorkerShutdownNotice = a})---- | Labels are used to group WorkerMessages. For example, a worker_message--- about a particular container might have the labels: { \"JOB_ID\":--- \"2015-04-22\", \"WORKER_ID\": \"wordcount-vm-2015…\"--- \"CONTAINER_TYPE\": \"worker\", \"CONTAINER_ID\": \"ac1234def\"} Label--- tags typically correspond to Label enum values. However, for ease of--- development other strings can be used as tags. LABEL_UNSPECIFIED should--- not be used here.-wmLabels :: Lens' WorkerMessage (Maybe WorkerMessageLabels)-wmLabels = lens _wmLabels (\ s a -> s{_wmLabels = a})--instance FromJSON WorkerMessage where-        parseJSON-          = withObject "WorkerMessage"-              (\ o ->-                 WorkerMessage' <$>-                   (o .:? "workerHealthReport") <*> (o .:? "time") <*>-                     (o .:? "workerMessageCode")-                     <*> (o .:? "workerMetrics")-                     <*> (o .:? "workerLifecycleEvent")-                     <*> (o .:? "workerShutdownNotice")-                     <*> (o .:? "labels"))--instance ToJSON WorkerMessage where-        toJSON WorkerMessage'{..}-          = object-              (catMaybes-                 [("workerHealthReport" .=) <$> _wmWorkerHealthReport,-                  ("time" .=) <$> _wmTime,-                  ("workerMessageCode" .=) <$> _wmWorkerMessageCode,-                  ("workerMetrics" .=) <$> _wmWorkerMetrics,-                  ("workerLifecycleEvent" .=) <$>-                    _wmWorkerLifecycleEvent,-                  ("workerShutdownNotice" .=) <$>-                    _wmWorkerShutdownNotice,-                  ("labels" .=) <$> _wmLabels])---- | Location information for a specific key-range of a sharded computation.--- Currently we only support UTF-8 character splits to simplify encoding--- into JSON.------ /See:/ 'keyRangeLocation' smart constructor.-data KeyRangeLocation =-  KeyRangeLocation'-    { _krlDataDisk                      :: !(Maybe Text)-    , _krlDeprecatedPersistentDirectory :: !(Maybe Text)-    , _krlStart                         :: !(Maybe Text)-    , _krlDeliveryEndpoint              :: !(Maybe Text)-    , _krlEnd                           :: !(Maybe Text)-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'KeyRangeLocation' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'krlDataDisk'------ * 'krlDeprecatedPersistentDirectory'------ * 'krlStart'------ * 'krlDeliveryEndpoint'------ * 'krlEnd'-keyRangeLocation-    :: KeyRangeLocation-keyRangeLocation =-  KeyRangeLocation'-    { _krlDataDisk = Nothing-    , _krlDeprecatedPersistentDirectory = Nothing-    , _krlStart = Nothing-    , _krlDeliveryEndpoint = Nothing-    , _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--- \"myproject-1014-104817-4c2-harness-0-disk-1\".-krlDataDisk :: Lens' KeyRangeLocation (Maybe Text)-krlDataDisk-  = lens _krlDataDisk (\ s a -> s{_krlDataDisk = a})---- | DEPRECATED. The location of the persistent state for this range, as a--- persistent directory in the worker local filesystem.-krlDeprecatedPersistentDirectory :: Lens' KeyRangeLocation (Maybe Text)-krlDeprecatedPersistentDirectory-  = lens _krlDeprecatedPersistentDirectory-      (\ s a -> s{_krlDeprecatedPersistentDirectory = a})---- | The start (inclusive) of the key range.-krlStart :: Lens' KeyRangeLocation (Maybe Text)-krlStart = lens _krlStart (\ s a -> s{_krlStart = a})---- | The physical location of this range assignment to be used for streaming--- computation cross-worker message delivery.-krlDeliveryEndpoint :: Lens' KeyRangeLocation (Maybe Text)-krlDeliveryEndpoint-  = lens _krlDeliveryEndpoint-      (\ s a -> s{_krlDeliveryEndpoint = a})---- | The end (exclusive) of the key range.-krlEnd :: Lens' KeyRangeLocation (Maybe Text)-krlEnd = lens _krlEnd (\ s a -> s{_krlEnd = a})--instance FromJSON KeyRangeLocation where-        parseJSON-          = withObject "KeyRangeLocation"-              (\ o ->-                 KeyRangeLocation' <$>-                   (o .:? "dataDisk") <*>-                     (o .:? "deprecatedPersistentDirectory")-                     <*> (o .:? "start")-                     <*> (o .:? "deliveryEndpoint")-                     <*> (o .:? "end"))--instance ToJSON KeyRangeLocation where-        toJSON KeyRangeLocation'{..}-          = object-              (catMaybes-                 [("dataDisk" .=) <$> _krlDataDisk,-                  ("deprecatedPersistentDirectory" .=) <$>-                    _krlDeprecatedPersistentDirectory,-                  ("start" .=) <$> _krlStart,-                  ("deliveryEndpoint" .=) <$> _krlDeliveryEndpoint,-                  ("end" .=) <$> _krlEnd])---- | Histogram of value counts for a distribution. Buckets have an inclusive--- lower bound and exclusive upper bound and use \"1,2,5 bucketing\": The--- first bucket range is from [0,1) and all subsequent bucket boundaries--- are powers of ten multiplied by 1, 2, or 5. Thus, bucket boundaries are--- 0, 1, 2, 5, 10, 20, 50, 100, 200, 500, 1000, ... Negative values are not--- supported.------ /See:/ 'histogram' smart constructor.-data Histogram =-  Histogram'-    { _hBucketCounts      :: !(Maybe [Textual Int64])-    , _hFirstBucketOffSet :: !(Maybe (Textual Int32))-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'Histogram' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'hBucketCounts'------ * 'hFirstBucketOffSet'-histogram-    :: Histogram-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--- values of an unsigned long, with ULLONG_MAX falling into the 59th bucket--- with range [1e19, 2e19).-hBucketCounts :: Lens' Histogram [Int64]-hBucketCounts-  = lens _hBucketCounts-      (\ s a -> s{_hBucketCounts = a})-      . _Default-      . _Coerce---- | Starting index of first stored bucket. The non-inclusive upper-bound of--- the ith bucket is given by: pow(10,(i-first_bucket_offset)\/3) *--- (1,2,5)[(i-first_bucket_offset)%3]-hFirstBucketOffSet :: Lens' Histogram (Maybe Int32)-hFirstBucketOffSet-  = lens _hFirstBucketOffSet-      (\ s a -> s{_hFirstBucketOffSet = a})-      . mapping _Coerce--instance FromJSON Histogram where-        parseJSON-          = withObject "Histogram"-              (\ o ->-                 Histogram' <$>-                   (o .:? "bucketCounts" .!= mempty) <*>-                     (o .:? "firstBucketOffset"))--instance ToJSON Histogram where-        toJSON Histogram'{..}-          = object-              (catMaybes-                 [("bucketCounts" .=) <$> _hBucketCounts,-                  ("firstBucketOffset" .=) <$> _hFirstBucketOffSet])---- | Information about an output of a multi-output DoFn.------ /See:/ 'multiOutputInfo' smart constructor.-newtype MultiOutputInfo =-  MultiOutputInfo'-    { _moiTag :: Maybe Text-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'MultiOutputInfo' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'moiTag'-multiOutputInfo-    :: MultiOutputInfo-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.-moiTag :: Lens' MultiOutputInfo (Maybe Text)-moiTag = lens _moiTag (\ s a -> s{_moiTag = a})--instance FromJSON MultiOutputInfo where-        parseJSON-          = withObject "MultiOutputInfo"-              (\ o -> MultiOutputInfo' <$> (o .:? "tag"))--instance ToJSON MultiOutputInfo where-        toJSON MultiOutputInfo'{..}-          = object (catMaybes [("tag" .=) <$> _moiTag])---- | An instruction that does a partial group-by-key. One input and one--- output.------ /See:/ 'partialGroupByKeyInstruction' smart constructor.-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)----- | Creates a value of 'PartialGroupByKeyInstruction' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'pgbkiValueCombiningFn'------ * 'pgbkiSideInputs'------ * 'pgbkiInput'------ * 'pgbkiOriginalCombineValuesStepName'------ * 'pgbkiInputElementCodec'------ * 'pgbkiOriginalCombineValuesInputStoreName'-partialGroupByKeyInstruction-    :: PartialGroupByKeyInstruction-partialGroupByKeyInstruction =-  PartialGroupByKeyInstruction'-    { _pgbkiValueCombiningFn = Nothing-    , _pgbkiSideInputs = Nothing-    , _pgbkiInput = Nothing-    , _pgbkiOriginalCombineValuesStepName = Nothing-    , _pgbkiInputElementCodec = Nothing-    , _pgbkiOriginalCombineValuesInputStoreName = Nothing-    }----- | The value combining function to invoke.-pgbkiValueCombiningFn :: Lens' PartialGroupByKeyInstruction (Maybe PartialGroupByKeyInstructionValueCombiningFn)-pgbkiValueCombiningFn-  = lens _pgbkiValueCombiningFn-      (\ s a -> s{_pgbkiValueCombiningFn = a})---- | Zero or more side inputs.-pgbkiSideInputs :: Lens' PartialGroupByKeyInstruction [SideInputInfo]-pgbkiSideInputs-  = lens _pgbkiSideInputs-      (\ s a -> s{_pgbkiSideInputs = a})-      . _Default-      . _Coerce---- | Describes the input to the partial group-by-key instruction.-pgbkiInput :: Lens' PartialGroupByKeyInstruction (Maybe InstructionInput)-pgbkiInput-  = lens _pgbkiInput (\ s a -> s{_pgbkiInput = a})---- | If this instruction includes a combining function, this is the name of--- the CombineValues instruction lifted into this instruction.-pgbkiOriginalCombineValuesStepName :: Lens' PartialGroupByKeyInstruction (Maybe Text)-pgbkiOriginalCombineValuesStepName-  = lens _pgbkiOriginalCombineValuesStepName-      (\ s a -> s{_pgbkiOriginalCombineValuesStepName = a})---- | The codec to use for interpreting an element in the input PTable.-pgbkiInputElementCodec :: Lens' PartialGroupByKeyInstruction (Maybe PartialGroupByKeyInstructionInputElementCodec)-pgbkiInputElementCodec-  = lens _pgbkiInputElementCodec-      (\ s a -> s{_pgbkiInputElementCodec = a})---- | If this instruction includes a combining function this is the name of--- the intermediate store between the GBK and the CombineValues.-pgbkiOriginalCombineValuesInputStoreName :: Lens' PartialGroupByKeyInstruction (Maybe Text)-pgbkiOriginalCombineValuesInputStoreName-  = lens _pgbkiOriginalCombineValuesInputStoreName-      (\ s a ->-         s{_pgbkiOriginalCombineValuesInputStoreName = a})--instance FromJSON PartialGroupByKeyInstruction where-        parseJSON-          = withObject "PartialGroupByKeyInstruction"-              (\ o ->-                 PartialGroupByKeyInstruction' <$>-                   (o .:? "valueCombiningFn") <*>-                     (o .:? "sideInputs" .!= mempty)-                     <*> (o .:? "input")-                     <*> (o .:? "originalCombineValuesStepName")-                     <*> (o .:? "inputElementCodec")-                     <*> (o .:? "originalCombineValuesInputStoreName"))--instance ToJSON PartialGroupByKeyInstruction where-        toJSON PartialGroupByKeyInstruction'{..}-          = object-              (catMaybes-                 [("valueCombiningFn" .=) <$> _pgbkiValueCombiningFn,-                  ("sideInputs" .=) <$> _pgbkiSideInputs,-                  ("input" .=) <$> _pgbkiInput,-                  ("originalCombineValuesStepName" .=) <$>-                    _pgbkiOriginalCombineValuesStepName,-                  ("inputElementCodec" .=) <$> _pgbkiInputElementCodec,-                  ("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'-    { _pdiNumOutputs       :: !(Maybe (Textual Int32))-    , _pdiMultiOutputInfos :: !(Maybe [MultiOutputInfo])-    , _pdiSideInputs       :: !(Maybe [SideInputInfo])-    , _pdiInput            :: !(Maybe InstructionInput)-    , _pdiUserFn           :: !(Maybe ParDoInstructionUserFn)-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'ParDoInstruction' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'pdiNumOutputs'------ * 'pdiMultiOutputInfos'------ * 'pdiSideInputs'------ * 'pdiInput'------ * 'pdiUserFn'-parDoInstruction-    :: ParDoInstruction-parDoInstruction =-  ParDoInstruction'-    { _pdiNumOutputs = Nothing-    , _pdiMultiOutputInfos = Nothing-    , _pdiSideInputs = Nothing-    , _pdiInput = Nothing-    , _pdiUserFn = Nothing-    }----- | The number of outputs.-pdiNumOutputs :: Lens' ParDoInstruction (Maybe Int32)-pdiNumOutputs-  = lens _pdiNumOutputs-      (\ s a -> s{_pdiNumOutputs = a})-      . mapping _Coerce---- | Information about each of the outputs, if user_fn is a MultiDoFn.-pdiMultiOutputInfos :: Lens' ParDoInstruction [MultiOutputInfo]-pdiMultiOutputInfos-  = lens _pdiMultiOutputInfos-      (\ s a -> s{_pdiMultiOutputInfos = a})-      . _Default-      . _Coerce---- | Zero or more side inputs.-pdiSideInputs :: Lens' ParDoInstruction [SideInputInfo]-pdiSideInputs-  = lens _pdiSideInputs-      (\ s a -> s{_pdiSideInputs = a})-      . _Default-      . _Coerce---- | The input.-pdiInput :: Lens' ParDoInstruction (Maybe InstructionInput)-pdiInput = lens _pdiInput (\ s a -> s{_pdiInput = a})---- | The user function to invoke.-pdiUserFn :: Lens' ParDoInstruction (Maybe ParDoInstructionUserFn)-pdiUserFn-  = lens _pdiUserFn (\ s a -> s{_pdiUserFn = a})--instance FromJSON ParDoInstruction where-        parseJSON-          = withObject "ParDoInstruction"-              (\ o ->-                 ParDoInstruction' <$>-                   (o .:? "numOutputs") <*>-                     (o .:? "multiOutputInfos" .!= mempty)-                     <*> (o .:? "sideInputs" .!= mempty)-                     <*> (o .:? "input")-                     <*> (o .:? "userFn"))--instance ToJSON ParDoInstruction where-        toJSON ParDoInstruction'{..}-          = object-              (catMaybes-                 [("numOutputs" .=) <$> _pdiNumOutputs,-                  ("multiOutputInfos" .=) <$> _pdiMultiOutputInfos,-                  ("sideInputs" .=) <$> _pdiSideInputs,-                  ("input" .=) <$> _pdiInput,-                  ("userFn" .=) <$> _pdiUserFn])---- | Identifies the location of a custom souce.------ /See:/ 'customSourceLocation' smart constructor.-newtype CustomSourceLocation =-  CustomSourceLocation'-    { _cslStateful :: Maybe Bool-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'CustomSourceLocation' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'cslStateful'-customSourceLocation-    :: CustomSourceLocation-customSourceLocation = CustomSourceLocation' {_cslStateful = Nothing}----- | Whether this source is stateful.-cslStateful :: Lens' CustomSourceLocation (Maybe Bool)-cslStateful-  = lens _cslStateful (\ s a -> s{_cslStateful = a})--instance FromJSON CustomSourceLocation where-        parseJSON-          = withObject "CustomSourceLocation"-              (\ o -> CustomSourceLocation' <$> (o .:? "stateful"))--instance ToJSON CustomSourceLocation where-        toJSON CustomSourceLocation'{..}-          = object-              (catMaybes [("stateful" .=) <$> _cslStateful])---- | A metric value representing a distribution.------ /See:/ 'distributionUpdate' smart constructor.-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)----- | Creates a value of 'DistributionUpdate' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'duMax'------ * 'duCount'------ * 'duMin'------ * 'duHistogram'------ * 'duSumOfSquares'------ * 'duSum'-distributionUpdate-    :: DistributionUpdate-distributionUpdate =-  DistributionUpdate'-    { _duMax = Nothing-    , _duCount = Nothing-    , _duMin = Nothing-    , _duHistogram = Nothing-    , _duSumOfSquares = Nothing-    , _duSum = Nothing-    }----- | The maximum value present in the distribution.-duMax :: Lens' DistributionUpdate (Maybe SplitInt64)-duMax = lens _duMax (\ s a -> s{_duMax = a})---- | The count of the number of elements present in the distribution.-duCount :: Lens' DistributionUpdate (Maybe SplitInt64)-duCount = lens _duCount (\ s a -> s{_duCount = a})---- | The minimum value present in the distribution.-duMin :: Lens' DistributionUpdate (Maybe SplitInt64)-duMin = lens _duMin (\ s a -> s{_duMin = a})---- | (Optional) Histogram of value counts for the distribution.-duHistogram :: Lens' DistributionUpdate (Maybe Histogram)-duHistogram-  = lens _duHistogram (\ s a -> s{_duHistogram = a})---- | Use a double since the sum of squares is likely to overflow int64.-duSumOfSquares :: Lens' DistributionUpdate (Maybe Double)-duSumOfSquares-  = lens _duSumOfSquares-      (\ s a -> s{_duSumOfSquares = a})-      . mapping _Coerce---- | Use an int64 since we\'d prefer the added precision. If overflow is a--- common problem we can detect it and use an additional int64 or a double.-duSum :: Lens' DistributionUpdate (Maybe SplitInt64)-duSum = lens _duSum (\ s a -> s{_duSum = a})--instance FromJSON DistributionUpdate where-        parseJSON-          = withObject "DistributionUpdate"-              (\ o ->-                 DistributionUpdate' <$>-                   (o .:? "max") <*> (o .:? "count") <*> (o .:? "min")-                     <*> (o .:? "histogram")-                     <*> (o .:? "sumOfSquares")-                     <*> (o .:? "sum"))--instance ToJSON DistributionUpdate where-        toJSON DistributionUpdate'{..}-          = object-              (catMaybes-                 [("max" .=) <$> _duMax, ("count" .=) <$> _duCount,-                  ("min" .=) <$> _duMin,-                  ("histogram" .=) <$> _duHistogram,-                  ("sumOfSquares" .=) <$> _duSumOfSquares,-                  ("sum" .=) <$> _duSum])------- /See:/ 'sourceBaseSpecsItem' smart constructor.-newtype SourceBaseSpecsItem =-  SourceBaseSpecsItem'-    { _sbsiAddtional :: HashMap Text JSONValue-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'SourceBaseSpecsItem' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'sbsiAddtional'-sourceBaseSpecsItem-    :: HashMap Text JSONValue -- ^ 'sbsiAddtional'-    -> SourceBaseSpecsItem-sourceBaseSpecsItem pSbsiAddtional_ =-  SourceBaseSpecsItem' {_sbsiAddtional = _Coerce # pSbsiAddtional_}----- | Properties of the object.-sbsiAddtional :: Lens' SourceBaseSpecsItem (HashMap Text JSONValue)-sbsiAddtional-  = lens _sbsiAddtional-      (\ s a -> s{_sbsiAddtional = a})-      . _Coerce--instance FromJSON SourceBaseSpecsItem where-        parseJSON-          = withObject "SourceBaseSpecsItem"-              (\ o -> SourceBaseSpecsItem' <$> (parseJSONObject o))--instance ToJSON SourceBaseSpecsItem where-        toJSON = toJSON . _sbsiAddtional---- | Describes a particular operation comprising a MapTask.------ /See:/ 'parallelInstruction' smart constructor.-data ParallelInstruction =-  ParallelInstruction'-    { _piRead              :: !(Maybe ReadInstruction)-    , _piWrite             :: !(Maybe WriteInstruction)-    , _piParDo             :: !(Maybe ParDoInstruction)-    , _piPartialGroupByKey :: !(Maybe PartialGroupByKeyInstruction)-    , _piOutputs           :: !(Maybe [InstructionOutput])-    , _piName              :: !(Maybe Text)-    , _piSystemName        :: !(Maybe Text)-    , _piFlatten           :: !(Maybe FlattenInstruction)-    , _piOriginalName      :: !(Maybe Text)-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'ParallelInstruction' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'piRead'------ * 'piWrite'------ * 'piParDo'------ * 'piPartialGroupByKey'------ * 'piOutputs'------ * 'piName'------ * 'piSystemName'------ * 'piFlatten'------ * 'piOriginalName'-parallelInstruction-    :: ParallelInstruction-parallelInstruction =-  ParallelInstruction'-    { _piRead = Nothing-    , _piWrite = Nothing-    , _piParDo = Nothing-    , _piPartialGroupByKey = Nothing-    , _piOutputs = Nothing-    , _piName = Nothing-    , _piSystemName = Nothing-    , _piFlatten = Nothing-    , _piOriginalName = Nothing-    }----- | Additional information for Read instructions.-piRead :: Lens' ParallelInstruction (Maybe ReadInstruction)-piRead = lens _piRead (\ s a -> s{_piRead = a})---- | Additional information for Write instructions.-piWrite :: Lens' ParallelInstruction (Maybe WriteInstruction)-piWrite = lens _piWrite (\ s a -> s{_piWrite = a})---- | Additional information for ParDo instructions.-piParDo :: Lens' ParallelInstruction (Maybe ParDoInstruction)-piParDo = lens _piParDo (\ s a -> s{_piParDo = a})---- | Additional information for PartialGroupByKey instructions.-piPartialGroupByKey :: Lens' ParallelInstruction (Maybe PartialGroupByKeyInstruction)-piPartialGroupByKey-  = lens _piPartialGroupByKey-      (\ s a -> s{_piPartialGroupByKey = a})---- | Describes the outputs of the instruction.-piOutputs :: Lens' ParallelInstruction [InstructionOutput]-piOutputs-  = lens _piOutputs (\ s a -> s{_piOutputs = a}) .-      _Default-      . _Coerce---- | User-provided name of this operation.-piName :: Lens' ParallelInstruction (Maybe Text)-piName = lens _piName (\ s a -> s{_piName = a})---- | System-defined name of this operation. Unique across the workflow.-piSystemName :: Lens' ParallelInstruction (Maybe Text)-piSystemName-  = lens _piSystemName (\ s a -> s{_piSystemName = a})---- | Additional information for Flatten instructions.-piFlatten :: Lens' ParallelInstruction (Maybe FlattenInstruction)-piFlatten-  = lens _piFlatten (\ s a -> s{_piFlatten = a})---- | System-defined name for the operation in the original workflow graph.-piOriginalName :: Lens' ParallelInstruction (Maybe Text)-piOriginalName-  = lens _piOriginalName-      (\ s a -> s{_piOriginalName = a})--instance FromJSON ParallelInstruction where-        parseJSON-          = withObject "ParallelInstruction"-              (\ o ->-                 ParallelInstruction' <$>-                   (o .:? "read") <*> (o .:? "write") <*>-                     (o .:? "parDo")-                     <*> (o .:? "partialGroupByKey")-                     <*> (o .:? "outputs" .!= mempty)-                     <*> (o .:? "name")-                     <*> (o .:? "systemName")-                     <*> (o .:? "flatten")-                     <*> (o .:? "originalName"))--instance ToJSON ParallelInstruction where-        toJSON ParallelInstruction'{..}-          = object-              (catMaybes-                 [("read" .=) <$> _piRead, ("write" .=) <$> _piWrite,-                  ("parDo" .=) <$> _piParDo,-                  ("partialGroupByKey" .=) <$> _piPartialGroupByKey,-                  ("outputs" .=) <$> _piOutputs,-                  ("name" .=) <$> _piName,-                  ("systemName" .=) <$> _piSystemName,-                  ("flatten" .=) <$> _piFlatten,-                  ("originalName" .=) <$> _piOriginalName])---- | How to interpret the source element(s) as a side input value.------ /See:/ 'sideInputInfoKind' smart constructor.-newtype SideInputInfoKind =-  SideInputInfoKind'-    { _siikAddtional :: HashMap Text JSONValue-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'SideInputInfoKind' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'siikAddtional'-sideInputInfoKind-    :: HashMap Text JSONValue -- ^ 'siikAddtional'-    -> SideInputInfoKind-sideInputInfoKind pSiikAddtional_ =-  SideInputInfoKind' {_siikAddtional = _Coerce # pSiikAddtional_}----- | Properties of the object.-siikAddtional :: Lens' SideInputInfoKind (HashMap Text JSONValue)-siikAddtional-  = lens _siikAddtional-      (\ s a -> s{_siikAddtional = a})-      . _Coerce--instance FromJSON SideInputInfoKind where-        parseJSON-          = withObject "SideInputInfoKind"-              (\ o -> SideInputInfoKind' <$> (parseJSONObject o))--instance ToJSON SideInputInfoKind where-        toJSON = toJSON . _siikAddtional---- | A task that carries configuration information for streaming--- computations.------ /See:/ 'streamingConfigTask' smart constructor.-data StreamingConfigTask =-  StreamingConfigTask'-    { _sctUserStepToStateFamilyNameMap :: !(Maybe StreamingConfigTaskUserStepToStateFamilyNameMap)-    , _sctStreamingComputationConfigs  :: !(Maybe [StreamingComputationConfig])-    , _sctWindmillServiceEndpoint      :: !(Maybe Text)-    , _sctWindmillServicePort          :: !(Maybe (Textual Int64))-    , _sctMaxWorkItemCommitBytes       :: !(Maybe (Textual Int64))-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'StreamingConfigTask' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'sctUserStepToStateFamilyNameMap'------ * 'sctStreamingComputationConfigs'------ * 'sctWindmillServiceEndpoint'------ * 'sctWindmillServicePort'------ * 'sctMaxWorkItemCommitBytes'-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-  = lens _sctUserStepToStateFamilyNameMap-      (\ s a -> s{_sctUserStepToStateFamilyNameMap = a})---- | Set of computation configuration information.-sctStreamingComputationConfigs :: Lens' StreamingConfigTask [StreamingComputationConfig]-sctStreamingComputationConfigs-  = lens _sctStreamingComputationConfigs-      (\ s a -> s{_sctStreamingComputationConfigs = a})-      . _Default-      . _Coerce---- | If present, the worker must use this endpoint to communicate with--- Windmill Service dispatchers, otherwise the worker must continue to use--- whatever endpoint it had been using.-sctWindmillServiceEndpoint :: Lens' StreamingConfigTask (Maybe Text)-sctWindmillServiceEndpoint-  = lens _sctWindmillServiceEndpoint-      (\ s a -> s{_sctWindmillServiceEndpoint = a})---- | If present, the worker must use this port to communicate with Windmill--- Service dispatchers. Only applicable when windmill_service_endpoint is--- specified.-sctWindmillServicePort :: Lens' StreamingConfigTask (Maybe Int64)-sctWindmillServicePort-  = lens _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"-              (\ o ->-                 StreamingConfigTask' <$>-                   (o .:? "userStepToStateFamilyNameMap") <*>-                     (o .:? "streamingComputationConfigs" .!= mempty)-                     <*> (o .:? "windmillServiceEndpoint")-                     <*> (o .:? "windmillServicePort")-                     <*> (o .:? "maxWorkItemCommitBytes"))--instance ToJSON StreamingConfigTask where-        toJSON StreamingConfigTask'{..}-          = object-              (catMaybes-                 [("userStepToStateFamilyNameMap" .=) <$>-                    _sctUserStepToStateFamilyNameMap,-                  ("streamingComputationConfigs" .=) <$>-                    _sctStreamingComputationConfigs,-                  ("windmillServiceEndpoint" .=) <$>-                    _sctWindmillServiceEndpoint,-                  ("windmillServicePort" .=) <$>-                    _sctWindmillServicePort,-                  ("maxWorkItemCommitBytes" .=) <$>-                    _sctMaxWorkItemCommitBytes])---- | The metric short id is returned to the user alongside an offset into--- ReportWorkItemStatusRequest------ /See:/ 'metricShortId' smart constructor.-data MetricShortId =-  MetricShortId'-    { _msiShortId     :: !(Maybe (Textual Int64))-    , _msiMetricIndex :: !(Maybe (Textual Int32))-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'MetricShortId' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'msiShortId'------ * 'msiMetricIndex'-metricShortId-    :: MetricShortId-metricShortId =-  MetricShortId' {_msiShortId = Nothing, _msiMetricIndex = Nothing}----- | The service-generated short identifier for the metric.-msiShortId :: Lens' MetricShortId (Maybe Int64)-msiShortId-  = lens _msiShortId (\ s a -> s{_msiShortId = a}) .-      mapping _Coerce---- | The index of the corresponding metric in the--- ReportWorkItemStatusRequest. Required.-msiMetricIndex :: Lens' MetricShortId (Maybe Int32)-msiMetricIndex-  = lens _msiMetricIndex-      (\ s a -> s{_msiMetricIndex = a})-      . mapping _Coerce--instance FromJSON MetricShortId where-        parseJSON-          = withObject "MetricShortId"-              (\ o ->-                 MetricShortId' <$>-                   (o .:? "shortId") <*> (o .:? "metricIndex"))--instance ToJSON MetricShortId where-        toJSON MetricShortId'{..}-          = object-              (catMaybes-                 [("shortId" .=) <$> _msiShortId,-                  ("metricIndex" .=) <$> _msiMetricIndex])---- | A request for sending worker messages to the service.------ /See:/ 'sendWorkerMessagesRequest' smart constructor.-data SendWorkerMessagesRequest =-  SendWorkerMessagesRequest'-    { _swmrLocation       :: !(Maybe Text)-    , _swmrWorkerMessages :: !(Maybe [WorkerMessage])-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'SendWorkerMessagesRequest' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'swmrLocation'------ * 'swmrWorkerMessages'-sendWorkerMessagesRequest-    :: SendWorkerMessagesRequest-sendWorkerMessagesRequest =-  SendWorkerMessagesRequest'-    {_swmrLocation = Nothing, _swmrWorkerMessages = Nothing}----- | 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})---- | The WorkerMessages to send.-swmrWorkerMessages :: Lens' SendWorkerMessagesRequest [WorkerMessage]-swmrWorkerMessages-  = lens _swmrWorkerMessages-      (\ s a -> s{_swmrWorkerMessages = a})-      . _Default-      . _Coerce--instance FromJSON SendWorkerMessagesRequest where-        parseJSON-          = withObject "SendWorkerMessagesRequest"-              (\ o ->-                 SendWorkerMessagesRequest' <$>-                   (o .:? "location") <*>-                     (o .:? "workerMessages" .!= mempty))--instance ToJSON SendWorkerMessagesRequest where-        toJSON SendWorkerMessagesRequest'{..}-          = object-              (catMaybes-                 [("location" .=) <$> _swmrLocation,-                  ("workerMessages" .=) <$> _swmrWorkerMessages])---- | DEPRECATED in favor of DerivedSource.------ /See:/ 'sourceSplitShard' smart constructor.-data SourceSplitShard =-  SourceSplitShard'-    { _sssDerivationMode :: !(Maybe SourceSplitShardDerivationMode)-    , _sssSource         :: !(Maybe Source)-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'SourceSplitShard' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'sssDerivationMode'------ * 'sssSource'-sourceSplitShard-    :: SourceSplitShard-sourceSplitShard =-  SourceSplitShard' {_sssDerivationMode = Nothing, _sssSource = Nothing}----- | DEPRECATED-sssDerivationMode :: Lens' SourceSplitShard (Maybe SourceSplitShardDerivationMode)-sssDerivationMode-  = lens _sssDerivationMode-      (\ s a -> s{_sssDerivationMode = a})---- | DEPRECATED-sssSource :: Lens' SourceSplitShard (Maybe Source)-sssSource-  = lens _sssSource (\ s a -> s{_sssSource = a})--instance FromJSON SourceSplitShard where-        parseJSON-          = withObject "SourceSplitShard"-              (\ o ->-                 SourceSplitShard' <$>-                   (o .:? "derivationMode") <*> (o .:? "source"))--instance ToJSON SourceSplitShard where-        toJSON SourceSplitShard'{..}-          = object-              (catMaybes-                 [("derivationMode" .=) <$> _sssDerivationMode,-                  ("source" .=) <$> _sssSource])---- | Information about a side input of a DoFn or an input of a SeqDoFn.------ /See:/ 'sideInputInfo' smart constructor.-data SideInputInfo =-  SideInputInfo'-    { _siiTag     :: !(Maybe Text)-    , _siiKind    :: !(Maybe SideInputInfoKind)-    , _siiSources :: !(Maybe [Source])-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'SideInputInfo' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'siiTag'------ * 'siiKind'------ * 'siiSources'-sideInputInfo-    :: SideInputInfo-sideInputInfo =-  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.-siiTag :: Lens' SideInputInfo (Maybe Text)-siiTag = lens _siiTag (\ s a -> s{_siiTag = a})---- | How to interpret the source element(s) as a side input value.-siiKind :: Lens' SideInputInfo (Maybe SideInputInfoKind)-siiKind = lens _siiKind (\ s a -> s{_siiKind = a})---- | The source(s) to read element(s) from to get the value of this side--- input. If more than one source, then the elements are taken from the--- sources, in the specified order if order matters. At least one source is--- required.-siiSources :: Lens' SideInputInfo [Source]-siiSources-  = lens _siiSources (\ s a -> s{_siiSources = a}) .-      _Default-      . _Coerce--instance FromJSON SideInputInfo where-        parseJSON-          = withObject "SideInputInfo"-              (\ o ->-                 SideInputInfo' <$>-                   (o .:? "tag") <*> (o .:? "kind") <*>-                     (o .:? "sources" .!= mempty))--instance ToJSON SideInputInfo where-        toJSON SideInputInfo'{..}-          = object-              (catMaybes-                 [("tag" .=) <$> _siiTag, ("kind" .=) <$> _siiKind,-                  ("sources" .=) <$> _siiSources])---- | Description of a transform executed as part of an execution stage.------ /See:/ 'componentTransform' smart constructor.-data ComponentTransform =-  ComponentTransform'-    { _ctOriginalTransform :: !(Maybe Text)-    , _ctUserName          :: !(Maybe Text)-    , _ctName              :: !(Maybe Text)-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'ComponentTransform' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'ctOriginalTransform'------ * 'ctUserName'------ * 'ctName'-componentTransform-    :: ComponentTransform-componentTransform =-  ComponentTransform'-    {_ctOriginalTransform = Nothing, _ctUserName = Nothing, _ctName = Nothing}----- | User name for the original user transform with which this transform is--- most closely associated.-ctOriginalTransform :: Lens' ComponentTransform (Maybe Text)-ctOriginalTransform-  = lens _ctOriginalTransform-      (\ s a -> s{_ctOriginalTransform = a})---- | Human-readable name for this transform; may be user or system generated.-ctUserName :: Lens' ComponentTransform (Maybe Text)-ctUserName-  = lens _ctUserName (\ s a -> s{_ctUserName = a})---- | Dataflow service generated name for this source.-ctName :: Lens' ComponentTransform (Maybe Text)-ctName = lens _ctName (\ s a -> s{_ctName = a})--instance FromJSON ComponentTransform where-        parseJSON-          = withObject "ComponentTransform"-              (\ o ->-                 ComponentTransform' <$>-                   (o .:? "originalTransform") <*> (o .:? "userName")-                     <*> (o .:? "name"))--instance ToJSON ComponentTransform where-        toJSON ComponentTransform'{..}-          = object-              (catMaybes-                 [("originalTransform" .=) <$> _ctOriginalTransform,-                  ("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'-    { _jeiStages :: Maybe JobExecutionInfoStages-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'JobExecutionInfo' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'jeiStages'-jobExecutionInfo-    :: JobExecutionInfo-jobExecutionInfo = JobExecutionInfo' {_jeiStages = Nothing}----- | A mapping from each stage to the information about that stage.-jeiStages :: Lens' JobExecutionInfo (Maybe JobExecutionInfoStages)-jeiStages-  = lens _jeiStages (\ s a -> s{_jeiStages = a})--instance FromJSON JobExecutionInfo where-        parseJSON-          = withObject "JobExecutionInfo"-              (\ o -> JobExecutionInfo' <$> (o .:? "stages"))--instance ToJSON JobExecutionInfo where-        toJSON JobExecutionInfo'{..}-          = object (catMaybes [("stages" .=) <$> _jeiStages])---- | The codec to use to decode data read from the source.------ /See:/ 'sourceCodec' smart constructor.-newtype SourceCodec =-  SourceCodec'-    { _souAddtional :: HashMap Text JSONValue-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'SourceCodec' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'souAddtional'-sourceCodec-    :: HashMap Text JSONValue -- ^ 'souAddtional'-    -> SourceCodec-sourceCodec pSouAddtional_ =-  SourceCodec' {_souAddtional = _Coerce # pSouAddtional_}----- | Properties of the object.-souAddtional :: Lens' SourceCodec (HashMap Text JSONValue)-souAddtional-  = lens _souAddtional (\ s a -> s{_souAddtional = a})-      . _Coerce--instance FromJSON SourceCodec where-        parseJSON-          = withObject "SourceCodec"-              (\ o -> SourceCodec' <$> (parseJSONObject o))--instance ToJSON SourceCodec where-        toJSON = toJSON . _souAddtional---- | State family configuration.------ /See:/ 'stateFamilyConfig' smart constructor.-data StateFamilyConfig =-  StateFamilyConfig'-    { _sfcIsRead      :: !(Maybe Bool)-    , _sfcStateFamily :: !(Maybe Text)-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'StateFamilyConfig' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'sfcIsRead'------ * 'sfcStateFamily'-stateFamilyConfig-    :: StateFamilyConfig-stateFamilyConfig =-  StateFamilyConfig' {_sfcIsRead = Nothing, _sfcStateFamily = Nothing}----- | If true, this family corresponds to a read operation.-sfcIsRead :: Lens' StateFamilyConfig (Maybe Bool)-sfcIsRead-  = lens _sfcIsRead (\ s a -> s{_sfcIsRead = a})---- | The state family value.-sfcStateFamily :: Lens' StateFamilyConfig (Maybe Text)-sfcStateFamily-  = lens _sfcStateFamily-      (\ s a -> s{_sfcStateFamily = a})--instance FromJSON StateFamilyConfig where-        parseJSON-          = withObject "StateFamilyConfig"-              (\ o ->-                 StateFamilyConfig' <$>-                   (o .:? "isRead") <*> (o .:? "stateFamily"))--instance ToJSON StateFamilyConfig where-        toJSON StateFamilyConfig'{..}-          = object-              (catMaybes-                 [("isRead" .=) <$> _sfcIsRead,-                  ("stateFamily" .=) <$> _sfcStateFamily])---- | Data disk assignment information for a specific key-range of a sharded--- computation. Currently we only support UTF-8 character splits to--- simplify encoding into JSON.------ /See:/ 'keyRangeDataDiskAssignment' smart constructor.-data KeyRangeDataDiskAssignment =-  KeyRangeDataDiskAssignment'-    { _krddaDataDisk :: !(Maybe Text)-    , _krddaStart    :: !(Maybe Text)-    , _krddaEnd      :: !(Maybe Text)-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'KeyRangeDataDiskAssignment' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'krddaDataDisk'------ * 'krddaStart'------ * 'krddaEnd'-keyRangeDataDiskAssignment-    :: KeyRangeDataDiskAssignment-keyRangeDataDiskAssignment =-  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--- the disk within that project, for example--- \"myproject-1014-104817-4c2-harness-0-disk-1\".-krddaDataDisk :: Lens' KeyRangeDataDiskAssignment (Maybe Text)-krddaDataDisk-  = lens _krddaDataDisk-      (\ s a -> s{_krddaDataDisk = a})---- | The start (inclusive) of the key range.-krddaStart :: Lens' KeyRangeDataDiskAssignment (Maybe Text)-krddaStart-  = lens _krddaStart (\ s a -> s{_krddaStart = a})---- | The end (exclusive) of the key range.-krddaEnd :: Lens' KeyRangeDataDiskAssignment (Maybe Text)-krddaEnd = lens _krddaEnd (\ s a -> s{_krddaEnd = a})--instance FromJSON KeyRangeDataDiskAssignment where-        parseJSON-          = withObject "KeyRangeDataDiskAssignment"-              (\ o ->-                 KeyRangeDataDiskAssignment' <$>-                   (o .:? "dataDisk") <*> (o .:? "start") <*>-                     (o .:? "end"))--instance ToJSON KeyRangeDataDiskAssignment where-        toJSON KeyRangeDataDiskAssignment'{..}-          = object-              (catMaybes-                 [("dataDisk" .=) <$> _krddaDataDisk,-                  ("start" .=) <$> _krddaStart,-                  ("end" .=) <$> _krddaEnd])---- | A structured message reporting an autoscaling decision made by the--- Dataflow service.------ /See:/ 'autoscalingEvent' smart constructor.-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)----- | Creates a value of 'AutoscalingEvent' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'aeCurrentNumWorkers'------ * 'aeTime'------ * 'aeEventType'------ * 'aeTargetNumWorkers'------ * 'aeWorkerPool'------ * 'aeDescription'-autoscalingEvent-    :: AutoscalingEvent-autoscalingEvent =-  AutoscalingEvent'-    { _aeCurrentNumWorkers = Nothing-    , _aeTime = Nothing-    , _aeEventType = Nothing-    , _aeTargetNumWorkers = Nothing-    , _aeWorkerPool = Nothing-    , _aeDescription = Nothing-    }----- | The current number of workers the job has.-aeCurrentNumWorkers :: Lens' AutoscalingEvent (Maybe Int64)-aeCurrentNumWorkers-  = lens _aeCurrentNumWorkers-      (\ s a -> s{_aeCurrentNumWorkers = a})-      . mapping _Coerce---- | The time this event was emitted to indicate a new target or current--- num_workers value.-aeTime :: Lens' AutoscalingEvent (Maybe UTCTime)-aeTime-  = lens _aeTime (\ s a -> s{_aeTime = a}) .-      mapping _DateTime---- | The type of autoscaling event to report.-aeEventType :: Lens' AutoscalingEvent (Maybe AutoscalingEventEventType)-aeEventType-  = lens _aeEventType (\ s a -> s{_aeEventType = a})---- | The target number of workers the worker pool wants to resize to use.-aeTargetNumWorkers :: Lens' AutoscalingEvent (Maybe Int64)-aeTargetNumWorkers-  = lens _aeTargetNumWorkers-      (\ s a -> s{_aeTargetNumWorkers = a})-      . mapping _Coerce---- | A short and friendly name for the worker pool this event refers to,--- populated from the value of PoolStageRelation::user_pool_name.-aeWorkerPool :: Lens' AutoscalingEvent (Maybe Text)-aeWorkerPool-  = lens _aeWorkerPool (\ s a -> s{_aeWorkerPool = a})---- | A message describing why the system decided to adjust the current number--- of workers, why it failed, or why the system decided to not make any--- changes to the number of workers.-aeDescription :: Lens' AutoscalingEvent (Maybe StructuredMessage)-aeDescription-  = lens _aeDescription-      (\ s a -> s{_aeDescription = a})--instance FromJSON AutoscalingEvent where-        parseJSON-          = withObject "AutoscalingEvent"-              (\ o ->-                 AutoscalingEvent' <$>-                   (o .:? "currentNumWorkers") <*> (o .:? "time") <*>-                     (o .:? "eventType")-                     <*> (o .:? "targetNumWorkers")-                     <*> (o .:? "workerPool")-                     <*> (o .:? "description"))--instance ToJSON AutoscalingEvent where-        toJSON AutoscalingEvent'{..}-          = object-              (catMaybes-                 [("currentNumWorkers" .=) <$> _aeCurrentNumWorkers,-                  ("time" .=) <$> _aeTime,-                  ("eventType" .=) <$> _aeEventType,-                  ("targetNumWorkers" .=) <$> _aeTargetNumWorkers,-                  ("workerPool" .=) <$> _aeWorkerPool,-                  ("description" .=) <$> _aeDescription])---- | Represents the operation to split a high-level Source specification into--- bundles (parts for parallel processing). At a high level, splitting of a--- source into bundles happens as follows: SourceSplitRequest is applied to--- the source. If it returns SOURCE_SPLIT_OUTCOME_USE_CURRENT, no further--- splitting happens and the source is used \"as is\". Otherwise, splitting--- is applied recursively to each produced DerivedSource. As an--- optimization, for any Source, if its does_not_need_splitting is true,--- the framework assumes that splitting this source would return--- SOURCE_SPLIT_OUTCOME_USE_CURRENT, and doesn\'t initiate a--- SourceSplitRequest. This applies both to the initial source being split--- and to bundles produced from it.------ /See:/ 'sourceSplitRequest' smart constructor.-data SourceSplitRequest =-  SourceSplitRequest'-    { _ssrSource  :: !(Maybe Source)-    , _ssrOptions :: !(Maybe SourceSplitOptions)-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'SourceSplitRequest' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'ssrSource'------ * 'ssrOptions'-sourceSplitRequest-    :: SourceSplitRequest-sourceSplitRequest =-  SourceSplitRequest' {_ssrSource = Nothing, _ssrOptions = Nothing}----- | Specification of the source to be split.-ssrSource :: Lens' SourceSplitRequest (Maybe Source)-ssrSource-  = lens _ssrSource (\ s a -> s{_ssrSource = a})---- | Hints for tuning the splitting process.-ssrOptions :: Lens' SourceSplitRequest (Maybe SourceSplitOptions)-ssrOptions-  = lens _ssrOptions (\ s a -> s{_ssrOptions = a})--instance FromJSON SourceSplitRequest where-        parseJSON-          = withObject "SourceSplitRequest"-              (\ o ->-                 SourceSplitRequest' <$>-                   (o .:? "source") <*> (o .:? "options"))--instance ToJSON SourceSplitRequest where-        toJSON SourceSplitRequest'{..}-          = object-              (catMaybes-                 [("source" .=) <$> _ssrSource,-                  ("options" .=) <$> _ssrOptions])---- | Response to a request to list job messages.------ /See:/ 'listJobMessagesResponse' smart constructor.-data ListJobMessagesResponse =-  ListJobMessagesResponse'-    { _ljmrJobMessages       :: !(Maybe [JobMessage])-    , _ljmrNextPageToken     :: !(Maybe Text)-    , _ljmrAutoscalingEvents :: !(Maybe [AutoscalingEvent])-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'ListJobMessagesResponse' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'ljmrJobMessages'------ * 'ljmrNextPageToken'------ * 'ljmrAutoscalingEvents'-listJobMessagesResponse-    :: ListJobMessagesResponse-listJobMessagesResponse =-  ListJobMessagesResponse'-    { _ljmrJobMessages = Nothing-    , _ljmrNextPageToken = Nothing-    , _ljmrAutoscalingEvents = Nothing-    }----- | Messages in ascending timestamp order.-ljmrJobMessages :: Lens' ListJobMessagesResponse [JobMessage]-ljmrJobMessages-  = lens _ljmrJobMessages-      (\ s a -> s{_ljmrJobMessages = a})-      . _Default-      . _Coerce---- | The token to obtain the next page of results if there are more.-ljmrNextPageToken :: Lens' ListJobMessagesResponse (Maybe Text)-ljmrNextPageToken-  = lens _ljmrNextPageToken-      (\ s a -> s{_ljmrNextPageToken = a})---- | Autoscaling events in ascending timestamp order.-ljmrAutoscalingEvents :: Lens' ListJobMessagesResponse [AutoscalingEvent]-ljmrAutoscalingEvents-  = lens _ljmrAutoscalingEvents-      (\ s a -> s{_ljmrAutoscalingEvents = a})-      . _Default-      . _Coerce--instance FromJSON ListJobMessagesResponse where-        parseJSON-          = withObject "ListJobMessagesResponse"-              (\ o ->-                 ListJobMessagesResponse' <$>-                   (o .:? "jobMessages" .!= mempty) <*>-                     (o .:? "nextPageToken")-                     <*> (o .:? "autoscalingEvents" .!= mempty))--instance ToJSON ListJobMessagesResponse where-        toJSON ListJobMessagesResponse'{..}-          = object-              (catMaybes-                 [("jobMessages" .=) <$> _ljmrJobMessages,-                  ("nextPageToken" .=) <$> _ljmrNextPageToken,-                  ("autoscalingEvents" .=) <$> _ljmrAutoscalingEvents])---- | Identifies a pubsub location to use for transferring data into or out of--- a streaming Dataflow job.------ /See:/ 'pubsubLocation' smart constructor.-data PubsubLocation =-  PubsubLocation'-    { _plTrackingSubscription :: !(Maybe Text)-    , _plDropLateData         :: !(Maybe Bool)-    , _plTimestampLabel       :: !(Maybe Text)-    , _plIdLabel              :: !(Maybe Text)-    , _plTopic                :: !(Maybe Text)-    , _plWithAttributes       :: !(Maybe Bool)-    , _plSubscription         :: !(Maybe Text)-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'PubsubLocation' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'plTrackingSubscription'------ * 'plDropLateData'------ * 'plTimestampLabel'------ * 'plIdLabel'------ * 'plTopic'------ * 'plWithAttributes'------ * 'plSubscription'-pubsubLocation-    :: PubsubLocation-pubsubLocation =-  PubsubLocation'-    { _plTrackingSubscription = Nothing-    , _plDropLateData = Nothing-    , _plTimestampLabel = Nothing-    , _plIdLabel = Nothing-    , _plTopic = Nothing-    , _plWithAttributes = Nothing-    , _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)-plTrackingSubscription-  = lens _plTrackingSubscription-      (\ s a -> s{_plTrackingSubscription = a})---- | Indicates whether the pipeline allows late-arriving data.-plDropLateData :: Lens' PubsubLocation (Maybe Bool)-plDropLateData-  = lens _plDropLateData-      (\ s a -> s{_plDropLateData = a})---- | If set, contains a pubsub label from which to extract record timestamps.--- If left empty, record timestamps will be generated upon arrival.-plTimestampLabel :: Lens' PubsubLocation (Maybe Text)-plTimestampLabel-  = lens _plTimestampLabel-      (\ s a -> s{_plTimestampLabel = a})---- | If set, contains a pubsub label from which to extract record ids. If--- left empty, record deduplication will be strictly best effort.-plIdLabel :: Lens' PubsubLocation (Maybe Text)-plIdLabel-  = lens _plIdLabel (\ s a -> s{_plIdLabel = a})---- | A pubsub topic, in the form of \"pubsub.googleapis.com\/topics\/\/\"-plTopic :: Lens' PubsubLocation (Maybe Text)-plTopic = lens _plTopic (\ s a -> s{_plTopic = a})---- | If true, then the client has requested to get pubsub attributes.-plWithAttributes :: Lens' PubsubLocation (Maybe Bool)-plWithAttributes-  = lens _plWithAttributes-      (\ s a -> s{_plWithAttributes = a})---- | A pubsub subscription, in the form of--- \"pubsub.googleapis.com\/subscriptions\/\/\"-plSubscription :: Lens' PubsubLocation (Maybe Text)-plSubscription-  = lens _plSubscription-      (\ s a -> s{_plSubscription = a})--instance FromJSON PubsubLocation where-        parseJSON-          = withObject "PubsubLocation"-              (\ o ->-                 PubsubLocation' <$>-                   (o .:? "trackingSubscription") <*>-                     (o .:? "dropLateData")-                     <*> (o .:? "timestampLabel")-                     <*> (o .:? "idLabel")-                     <*> (o .:? "topic")-                     <*> (o .:? "withAttributes")-                     <*> (o .:? "subscription"))--instance ToJSON PubsubLocation where-        toJSON PubsubLocation'{..}-          = object-              (catMaybes-                 [("trackingSubscription" .=) <$>-                    _plTrackingSubscription,-                  ("dropLateData" .=) <$> _plDropLateData,-                  ("timestampLabel" .=) <$> _plTimestampLabel,-                  ("idLabel" .=) <$> _plIdLabel,-                  ("topic" .=) <$> _plTopic,-                  ("withAttributes" .=) <$> _plWithAttributes,-                  ("subscription" .=) <$> _plSubscription])---- | A metric value representing a list of floating point numbers.------ /See:/ 'floatingPointList' smart constructor.-newtype FloatingPointList =-  FloatingPointList'-    { _fplElements :: Maybe [Textual Double]-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'FloatingPointList' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'fplElements'-floatingPointList-    :: FloatingPointList-floatingPointList = FloatingPointList' {_fplElements = Nothing}----- | Elements of the list.-fplElements :: Lens' FloatingPointList [Double]-fplElements-  = lens _fplElements (\ s a -> s{_fplElements = a}) .-      _Default-      . _Coerce--instance FromJSON FloatingPointList where-        parseJSON-          = withObject "FloatingPointList"-              (\ o ->-                 FloatingPointList' <$> (o .:? "elements" .!= mempty))--instance ToJSON FloatingPointList where-        toJSON FloatingPointList'{..}-          = object-              (catMaybes [("elements" .=) <$> _fplElements])---- | An input of an instruction, as a reference to an output of a producer--- instruction.------ /See:/ 'instructionInput' smart constructor.-data InstructionInput =-  InstructionInput'-    { _iiProducerInstructionIndex :: !(Maybe (Textual Int32))-    , _iiOutputNum                :: !(Maybe (Textual Int32))-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'InstructionInput' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'iiProducerInstructionIndex'------ * 'iiOutputNum'-instructionInput-    :: InstructionInput-instructionInput =-  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--- of instructions in this input\'s instruction\'s containing MapTask.-iiProducerInstructionIndex :: Lens' InstructionInput (Maybe Int32)-iiProducerInstructionIndex-  = lens _iiProducerInstructionIndex-      (\ s a -> s{_iiProducerInstructionIndex = a})-      . mapping _Coerce---- | The output index (origin zero) within the producer.-iiOutputNum :: Lens' InstructionInput (Maybe Int32)-iiOutputNum-  = lens _iiOutputNum (\ s a -> s{_iiOutputNum = a}) .-      mapping _Coerce--instance FromJSON InstructionInput where-        parseJSON-          = withObject "InstructionInput"-              (\ o ->-                 InstructionInput' <$>-                   (o .:? "producerInstructionIndex") <*>-                     (o .:? "outputNum"))--instance ToJSON InstructionInput where-        toJSON InstructionInput'{..}-          = object-              (catMaybes-                 [("producerInstructionIndex" .=) <$>-                    _iiProducerInstructionIndex,-                  ("outputNum" .=) <$> _iiOutputNum])---- | Describes a particular function to invoke.------ /See:/ 'seqMapTask' smart constructor.-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)----- | Creates a value of 'SeqMapTask' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'smtInputs'------ * 'smtName'------ * 'smtOutputInfos'------ * 'smtSystemName'------ * 'smtStageName'------ * 'smtUserFn'-seqMapTask-    :: SeqMapTask-seqMapTask =-  SeqMapTask'-    { _smtInputs = Nothing-    , _smtName = Nothing-    , _smtOutputInfos = Nothing-    , _smtSystemName = Nothing-    , _smtStageName = Nothing-    , _smtUserFn = Nothing-    }----- | Information about each of the inputs.-smtInputs :: Lens' SeqMapTask [SideInputInfo]-smtInputs-  = lens _smtInputs (\ s a -> s{_smtInputs = a}) .-      _Default-      . _Coerce---- | The user-provided name of the SeqDo operation.-smtName :: Lens' SeqMapTask (Maybe Text)-smtName = lens _smtName (\ s a -> s{_smtName = a})---- | Information about each of the outputs.-smtOutputInfos :: Lens' SeqMapTask [SeqMapTaskOutputInfo]-smtOutputInfos-  = lens _smtOutputInfos-      (\ s a -> s{_smtOutputInfos = a})-      . _Default-      . _Coerce---- | System-defined name of the SeqDo operation. Unique across the workflow.-smtSystemName :: Lens' SeqMapTask (Maybe Text)-smtSystemName-  = lens _smtSystemName-      (\ s a -> s{_smtSystemName = a})---- | System-defined name of the stage containing the SeqDo operation. Unique--- across the workflow.-smtStageName :: Lens' SeqMapTask (Maybe Text)-smtStageName-  = lens _smtStageName (\ s a -> s{_smtStageName = a})---- | The user function to invoke.-smtUserFn :: Lens' SeqMapTask (Maybe SeqMapTaskUserFn)-smtUserFn-  = lens _smtUserFn (\ s a -> s{_smtUserFn = a})--instance FromJSON SeqMapTask where-        parseJSON-          = withObject "SeqMapTask"-              (\ o ->-                 SeqMapTask' <$>-                   (o .:? "inputs" .!= mempty) <*> (o .:? "name") <*>-                     (o .:? "outputInfos" .!= mempty)-                     <*> (o .:? "systemName")-                     <*> (o .:? "stageName")-                     <*> (o .:? "userFn"))--instance ToJSON SeqMapTask where-        toJSON SeqMapTask'{..}-          = object-              (catMaybes-                 [("inputs" .=) <$> _smtInputs,-                  ("name" .=) <$> _smtName,-                  ("outputInfos" .=) <$> _smtOutputInfos,-                  ("systemName" .=) <$> _smtSystemName,-                  ("stageName" .=) <$> _smtStageName,-                  ("userFn" .=) <$> _smtUserFn])---- | Map from user step names to state families.------ /See:/ 'streamingConfigTaskUserStepToStateFamilyNameMap' smart constructor.-newtype StreamingConfigTaskUserStepToStateFamilyNameMap =-  StreamingConfigTaskUserStepToStateFamilyNameMap'-    { _sctustsfnmAddtional :: HashMap Text Text-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'StreamingConfigTaskUserStepToStateFamilyNameMap' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'sctustsfnmAddtional'-streamingConfigTaskUserStepToStateFamilyNameMap-    :: HashMap Text Text -- ^ 'sctustsfnmAddtional'-    -> StreamingConfigTaskUserStepToStateFamilyNameMap-streamingConfigTaskUserStepToStateFamilyNameMap pSctustsfnmAddtional_ =-  StreamingConfigTaskUserStepToStateFamilyNameMap'-    {_sctustsfnmAddtional = _Coerce # pSctustsfnmAddtional_}---sctustsfnmAddtional :: Lens' StreamingConfigTaskUserStepToStateFamilyNameMap (HashMap Text Text)-sctustsfnmAddtional-  = lens _sctustsfnmAddtional-      (\ s a -> s{_sctustsfnmAddtional = a})-      . _Coerce--instance FromJSON-           StreamingConfigTaskUserStepToStateFamilyNameMap-         where-        parseJSON-          = withObject-              "StreamingConfigTaskUserStepToStateFamilyNameMap"-              (\ o ->-                 StreamingConfigTaskUserStepToStateFamilyNameMap' <$>-                   (parseJSONObject o))--instance ToJSON-           StreamingConfigTaskUserStepToStateFamilyNameMap-         where-        toJSON = toJSON . _sctustsfnmAddtional---- | A message describing the state of a particular execution stage.------ /See:/ 'executionStageState' smart constructor.-data ExecutionStageState =-  ExecutionStageState'-    { _essExecutionStageName  :: !(Maybe Text)-    , _essCurrentStateTime    :: !(Maybe DateTime')-    , _essExecutionStageState :: !(Maybe ExecutionStageStateExecutionStageState)-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'ExecutionStageState' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'essExecutionStageName'------ * 'essCurrentStateTime'------ * 'essExecutionStageState'-executionStageState-    :: ExecutionStageState-executionStageState =-  ExecutionStageState'-    { _essExecutionStageName = Nothing-    , _essCurrentStateTime = Nothing-    , _essExecutionStageState = Nothing-    }----- | The name of the execution stage.-essExecutionStageName :: Lens' ExecutionStageState (Maybe Text)-essExecutionStageName-  = lens _essExecutionStageName-      (\ s a -> s{_essExecutionStageName = a})---- | The time at which the stage transitioned to this state.-essCurrentStateTime :: Lens' ExecutionStageState (Maybe UTCTime)-essCurrentStateTime-  = lens _essCurrentStateTime-      (\ s a -> s{_essCurrentStateTime = a})-      . mapping _DateTime---- | Executions stage states allow the same set of values as JobState.-essExecutionStageState :: Lens' ExecutionStageState (Maybe ExecutionStageStateExecutionStageState)-essExecutionStageState-  = lens _essExecutionStageState-      (\ s a -> s{_essExecutionStageState = a})--instance FromJSON ExecutionStageState where-        parseJSON-          = withObject "ExecutionStageState"-              (\ o ->-                 ExecutionStageState' <$>-                   (o .:? "executionStageName") <*>-                     (o .:? "currentStateTime")-                     <*> (o .:? "executionStageState"))--instance ToJSON ExecutionStageState where-        toJSON ExecutionStageState'{..}-          = object-              (catMaybes-                 [("executionStageName" .=) <$>-                    _essExecutionStageName,-                  ("currentStateTime" .=) <$> _essCurrentStateTime,-                  ("executionStageState" .=) <$>-                    _essExecutionStageState])---- | Description of an input or output of an execution stage.------ /See:/ 'stageSource' smart constructor.-data StageSource =-  StageSource'-    { _ssSizeBytes                     :: !(Maybe (Textual Int64))-    , _ssUserName                      :: !(Maybe Text)-    , _ssName                          :: !(Maybe Text)-    , _ssOriginalTransformOrCollection :: !(Maybe Text)-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'StageSource' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'ssSizeBytes'------ * 'ssUserName'------ * 'ssName'------ * 'ssOriginalTransformOrCollection'-stageSource-    :: StageSource-stageSource =-  StageSource'-    { _ssSizeBytes = Nothing-    , _ssUserName = Nothing-    , _ssName = Nothing-    , _ssOriginalTransformOrCollection = Nothing-    }----- | Size of the source, if measurable.-ssSizeBytes :: Lens' StageSource (Maybe Int64)-ssSizeBytes-  = lens _ssSizeBytes (\ s a -> s{_ssSizeBytes = a}) .-      mapping _Coerce---- | Human-readable name for this source; may be user or system generated.-ssUserName :: Lens' StageSource (Maybe Text)-ssUserName-  = lens _ssUserName (\ s a -> s{_ssUserName = a})---- | Dataflow service generated name for this source.-ssName :: Lens' StageSource (Maybe Text)-ssName = lens _ssName (\ s a -> s{_ssName = a})---- | User name for the original user transform or collection with which this--- source is most closely associated.-ssOriginalTransformOrCollection :: Lens' StageSource (Maybe Text)-ssOriginalTransformOrCollection-  = lens _ssOriginalTransformOrCollection-      (\ s a -> s{_ssOriginalTransformOrCollection = a})--instance FromJSON StageSource where-        parseJSON-          = withObject "StageSource"-              (\ o ->-                 StageSource' <$>-                   (o .:? "sizeBytes") <*> (o .:? "userName") <*>-                     (o .:? "name")-                     <*> (o .:? "originalTransformOrCollection"))--instance ToJSON StageSource where-        toJSON StageSource'{..}-          = object-              (catMaybes-                 [("sizeBytes" .=) <$> _ssSizeBytes,-                  ("userName" .=) <$> _ssUserName,-                  ("name" .=) <$> _ssName,-                  ("originalTransformOrCollection" .=) <$>-                    _ssOriginalTransformOrCollection])---- | A work item that represents the different operations that can be--- performed on a user-defined Source specification.------ /See:/ 'sourceOperationRequest' smart constructor.-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)----- | Creates a value of 'SourceOperationRequest' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'souSplit'------ * 'souGetMetadata'------ * 'souName'------ * 'souSystemName'------ * 'souStageName'------ * 'souOriginalName'-sourceOperationRequest-    :: SourceOperationRequest-sourceOperationRequest =-  SourceOperationRequest'-    { _souSplit = Nothing-    , _souGetMetadata = Nothing-    , _souName = Nothing-    , _souSystemName = Nothing-    , _souStageName = Nothing-    , _souOriginalName = Nothing-    }----- | Information about a request to split a source.-souSplit :: Lens' SourceOperationRequest (Maybe SourceSplitRequest)-souSplit = lens _souSplit (\ s a -> s{_souSplit = a})---- | Information about a request to get metadata about a source.-souGetMetadata :: Lens' SourceOperationRequest (Maybe SourceGetMetadataRequest)-souGetMetadata-  = lens _souGetMetadata-      (\ s a -> s{_souGetMetadata = a})---- | User-provided name of the Read instruction for this source.-souName :: Lens' SourceOperationRequest (Maybe Text)-souName = lens _souName (\ s a -> s{_souName = a})---- | System-defined name of the Read instruction for this source. Unique--- across the workflow.-souSystemName :: Lens' SourceOperationRequest (Maybe Text)-souSystemName-  = lens _souSystemName-      (\ s a -> s{_souSystemName = a})---- | System-defined name of the stage containing the source operation. Unique--- across the workflow.-souStageName :: Lens' SourceOperationRequest (Maybe Text)-souStageName-  = lens _souStageName (\ s a -> s{_souStageName = a})---- | System-defined name for the Read instruction for this source in the--- original workflow graph.-souOriginalName :: Lens' SourceOperationRequest (Maybe Text)-souOriginalName-  = lens _souOriginalName-      (\ s a -> s{_souOriginalName = a})--instance FromJSON SourceOperationRequest where-        parseJSON-          = withObject "SourceOperationRequest"-              (\ o ->-                 SourceOperationRequest' <$>-                   (o .:? "split") <*> (o .:? "getMetadata") <*>-                     (o .:? "name")-                     <*> (o .:? "systemName")-                     <*> (o .:? "stageName")-                     <*> (o .:? "originalName"))--instance ToJSON SourceOperationRequest where-        toJSON SourceOperationRequest'{..}-          = object-              (catMaybes-                 [("split" .=) <$> _souSplit,-                  ("getMetadata" .=) <$> _souGetMetadata,-                  ("name" .=) <$> _souName,-                  ("systemName" .=) <$> _souSystemName,-                  ("stageName" .=) <$> _souStageName,-                  ("originalName" .=) <$> _souOriginalName])---- | Metadata for a Spanner connector used by the job.------ /See:/ 'spannerIODetails' smart constructor.-data SpannerIODetails =-  SpannerIODetails'-    { _siodInstanceId :: !(Maybe Text)-    , _siodDatabaseId :: !(Maybe Text)-    , _siodProjectId  :: !(Maybe Text)-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'SpannerIODetails' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'siodInstanceId'------ * 'siodDatabaseId'------ * 'siodProjectId'-spannerIODetails-    :: SpannerIODetails-spannerIODetails =-  SpannerIODetails'-    { _siodInstanceId = Nothing-    , _siodDatabaseId = Nothing-    , _siodProjectId = Nothing-    }----- | InstanceId accessed in the connection.-siodInstanceId :: Lens' SpannerIODetails (Maybe Text)-siodInstanceId-  = lens _siodInstanceId-      (\ s a -> s{_siodInstanceId = a})---- | DatabaseId accessed in the connection.-siodDatabaseId :: Lens' SpannerIODetails (Maybe Text)-siodDatabaseId-  = lens _siodDatabaseId-      (\ s a -> s{_siodDatabaseId = a})---- | ProjectId accessed in the connection.-siodProjectId :: Lens' SpannerIODetails (Maybe Text)-siodProjectId-  = lens _siodProjectId-      (\ s a -> s{_siodProjectId = a})--instance FromJSON SpannerIODetails where-        parseJSON-          = withObject "SpannerIODetails"-              (\ o ->-                 SpannerIODetails' <$>-                   (o .:? "instanceId") <*> (o .:? "databaseId") <*>-                     (o .:? "projectId"))--instance ToJSON SpannerIODetails where-        toJSON SpannerIODetails'{..}-          = object-              (catMaybes-                 [("instanceId" .=) <$> _siodInstanceId,-                  ("databaseId" .=) <$> _siodDatabaseId,-                  ("projectId" .=) <$> _siodProjectId])---- | Response to a request to lease WorkItems.------ /See:/ 'leaseWorkItemResponse' smart constructor.-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, _lwirUnifiedWorkerResponse = Nothing}----- | A list of the leased WorkItems.-lwirWorkItems :: Lens' LeaseWorkItemResponse [WorkItem]-lwirWorkItems-  = lens _lwirWorkItems-      (\ s a -> s{_lwirWorkItems = a})-      . _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 .:? "unifiedWorkerResponse"))--instance ToJSON LeaseWorkItemResponse where-        toJSON LeaseWorkItemResponse'{..}-          = object-              (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'-    { _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)----- | Creates a value of 'Position' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'pByteOffSet'------ * 'pConcatPosition'------ * 'pRecordIndex'------ * 'pShufflePosition'------ * 'pKey'------ * 'pEnd'-position-    :: Position-position =-  Position'-    { _pByteOffSet = Nothing-    , _pConcatPosition = Nothing-    , _pRecordIndex = Nothing-    , _pShufflePosition = Nothing-    , _pKey = Nothing-    , _pEnd = Nothing-    }----- | Position is a byte offset.-pByteOffSet :: Lens' Position (Maybe Int64)-pByteOffSet-  = lens _pByteOffSet (\ s a -> s{_pByteOffSet = a}) .-      mapping _Coerce---- | CloudPosition is a concat position.-pConcatPosition :: Lens' Position (Maybe ConcatPosition)-pConcatPosition-  = lens _pConcatPosition-      (\ s a -> s{_pConcatPosition = a})---- | Position is a record index.-pRecordIndex :: Lens' Position (Maybe Int64)-pRecordIndex-  = lens _pRecordIndex (\ s a -> s{_pRecordIndex = a})-      . mapping _Coerce---- | CloudPosition is a base64 encoded BatchShufflePosition (with FIXED--- sharding).-pShufflePosition :: Lens' Position (Maybe Text)-pShufflePosition-  = lens _pShufflePosition-      (\ s a -> s{_pShufflePosition = a})---- | Position is a string key, ordered lexicographically.-pKey :: Lens' Position (Maybe Text)-pKey = lens _pKey (\ s a -> s{_pKey = a})---- | Position is past all other positions. Also useful for the end position--- of an unbounded range.-pEnd :: Lens' Position (Maybe Bool)-pEnd = lens _pEnd (\ s a -> s{_pEnd = a})--instance FromJSON Position where-        parseJSON-          = withObject "Position"-              (\ o ->-                 Position' <$>-                   (o .:? "byteOffset") <*> (o .:? "concatPosition") <*>-                     (o .:? "recordIndex")-                     <*> (o .:? "shufflePosition")-                     <*> (o .:? "key")-                     <*> (o .:? "end"))--instance ToJSON Position where-        toJSON Position'{..}-          = object-              (catMaybes-                 [("byteOffset" .=) <$> _pByteOffSet,-                  ("concatPosition" .=) <$> _pConcatPosition,-                  ("recordIndex" .=) <$> _pRecordIndex,-                  ("shufflePosition" .=) <$> _pShufflePosition,-                  ("key" .=) <$> _pKey, ("end" .=) <$> _pEnd])---- | Structured data associated with this message.------ /See:/ 'parameter' smart constructor.-data Parameter =-  Parameter'-    { _parValue :: !(Maybe JSONValue)-    , _parKey   :: !(Maybe Text)-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'Parameter' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'parValue'------ * 'parKey'-parameter-    :: Parameter-parameter = Parameter' {_parValue = Nothing, _parKey = Nothing}----- | Value for this parameter.-parValue :: Lens' Parameter (Maybe JSONValue)-parValue = lens _parValue (\ s a -> s{_parValue = a})---- | Key or name for this parameter.-parKey :: Lens' Parameter (Maybe Text)-parKey = lens _parKey (\ s a -> s{_parKey = a})--instance FromJSON Parameter where-        parseJSON-          = withObject "Parameter"-              (\ o ->-                 Parameter' <$> (o .:? "value") <*> (o .:? "key"))--instance ToJSON Parameter where-        toJSON Parameter'{..}-          = object-              (catMaybes-                 [("value" .=) <$> _parValue, ("key" .=) <$> _parKey])
− gen/Network/Google/Dataflow/Types/Sum.hs 
@@ -1,1375 +0,0 @@-{-# LANGUAGE DeriveDataTypeable #-}-{-# LANGUAGE DeriveGeneric      #-}-{-# LANGUAGE LambdaCase         #-}-{-# LANGUAGE NoImplicitPrelude  #-}-{-# LANGUAGE OverloadedStrings  #-}--{-# OPTIONS_GHC -fno-warn-unused-imports #-}---- |--- Module      : Network.Google.Dataflow.Types.Sum--- 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)----module Network.Google.Dataflow.Types.Sum where--import           Network.Google.Prelude hiding (Bytes)---- | Counter aggregation kind.-data NameAndKindKind-    = Invalid-      -- ^ @INVALID@-      -- Counter aggregation kind was not set.-    | Sum-      -- ^ @SUM@-      -- Aggregated value is the sum of all contributed values.-    | Max-      -- ^ @MAX@-      -- Aggregated value is the max of all contributed values.-    | Min-      -- ^ @MIN@-      -- Aggregated value is the min of all contributed values.-    | Mean-      -- ^ @MEAN@-      -- Aggregated value is the mean of all contributed values.-    | OR-      -- ^ @OR@-      -- Aggregated value represents the logical \'or\' of all contributed-      -- values.-    | And-      -- ^ @AND@-      -- Aggregated value represents the logical \'and\' of all contributed-      -- values.-    | Set-      -- ^ @SET@-      -- Aggregated value is a set of unique contributed values.-    | Distribution-      -- ^ @DISTRIBUTION@-      -- Aggregated value captures statistics about a distribution.-    | LatestValue-      -- ^ @LATEST_VALUE@-      -- Aggregated value tracks the latest value of a variable.-      deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic)--instance Hashable NameAndKindKind--instance FromHttpApiData NameAndKindKind where-    parseQueryParam = \case-        "INVALID" -> Right Invalid-        "SUM" -> Right Sum-        "MAX" -> Right Max-        "MIN" -> Right Min-        "MEAN" -> Right Mean-        "OR" -> Right OR-        "AND" -> Right And-        "SET" -> Right Set-        "DISTRIBUTION" -> Right Distribution-        "LATEST_VALUE" -> Right LatestValue-        x -> Left ("Unable to parse NameAndKindKind from: " <> x)--instance ToHttpApiData NameAndKindKind where-    toQueryParam = \case-        Invalid -> "INVALID"-        Sum -> "SUM"-        Max -> "MAX"-        Min -> "MIN"-        Mean -> "MEAN"-        OR -> "OR"-        And -> "AND"-        Set -> "SET"-        Distribution -> "DISTRIBUTION"-        LatestValue -> "LATEST_VALUE"--instance FromJSON NameAndKindKind where-    parseJSON = parseJSONText "NameAndKindKind"--instance ToJSON NameAndKindKind where-    toJSON = toJSONText---- | The type of Cloud Dataflow job.-data JobType-    = JobTypeUnknown-      -- ^ @JOB_TYPE_UNKNOWN@-      -- The type of the job is unspecified, or unknown.-    | JobTypeBatch-      -- ^ @JOB_TYPE_BATCH@-      -- A batch job with a well-defined end point: data is read, data is-      -- processed, data is written, and the job is done.-    | JobTypeStreaming-      -- ^ @JOB_TYPE_STREAMING@-      -- A continuously streaming job with no end: data is read, processed, and-      -- written continuously.-      deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic)--instance Hashable JobType--instance FromHttpApiData JobType where-    parseQueryParam = \case-        "JOB_TYPE_UNKNOWN" -> Right JobTypeUnknown-        "JOB_TYPE_BATCH" -> Right JobTypeBatch-        "JOB_TYPE_STREAMING" -> Right JobTypeStreaming-        x -> Left ("Unable to parse JobType from: " <> x)--instance ToHttpApiData JobType where-    toQueryParam = \case-        JobTypeUnknown -> "JOB_TYPE_UNKNOWN"-        JobTypeBatch -> "JOB_TYPE_BATCH"-        JobTypeStreaming -> "JOB_TYPE_STREAMING"--instance FromJSON JobType where-    parseJSON = parseJSONText "JobType"--instance ToJSON JobType where-    toJSON = toJSONText---- | Sets the policy for determining when to turndown worker pool. Allowed--- values are: \`TEARDOWN_ALWAYS\`, \`TEARDOWN_ON_SUCCESS\`, and--- \`TEARDOWN_NEVER\`. \`TEARDOWN_ALWAYS\` means workers are always torn--- down regardless of whether the job succeeds. \`TEARDOWN_ON_SUCCESS\`--- means workers are torn down if the job succeeds. \`TEARDOWN_NEVER\`--- means the workers are never torn down. If the workers are not torn down--- by the service, they will continue to run and use Google Compute Engine--- VM resources in the user\'s project until they are explicitly terminated--- by the user. Because of this, Google recommends using the--- \`TEARDOWN_ALWAYS\` policy except for small, manually supervised test--- jobs. If unknown or unspecified, the service will attempt to choose a--- reasonable default.-data WorkerPoolTeardownPolicy-    = TeardownPolicyUnknown-      -- ^ @TEARDOWN_POLICY_UNKNOWN@-      -- The teardown policy isn\'t specified, or is unknown.-    | TeardownAlways-      -- ^ @TEARDOWN_ALWAYS@-      -- Always teardown the resource.-    | TeardownOnSuccess-      -- ^ @TEARDOWN_ON_SUCCESS@-      -- Teardown the resource on success. This is useful for debugging failures.-    | TeardownNever-      -- ^ @TEARDOWN_NEVER@-      -- Never teardown the resource. This is useful for debugging and-      -- development.-      deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic)--instance Hashable WorkerPoolTeardownPolicy--instance FromHttpApiData WorkerPoolTeardownPolicy where-    parseQueryParam = \case-        "TEARDOWN_POLICY_UNKNOWN" -> Right TeardownPolicyUnknown-        "TEARDOWN_ALWAYS" -> Right TeardownAlways-        "TEARDOWN_ON_SUCCESS" -> Right TeardownOnSuccess-        "TEARDOWN_NEVER" -> Right TeardownNever-        x -> Left ("Unable to parse WorkerPoolTeardownPolicy from: " <> x)--instance ToHttpApiData WorkerPoolTeardownPolicy where-    toQueryParam = \case-        TeardownPolicyUnknown -> "TEARDOWN_POLICY_UNKNOWN"-        TeardownAlways -> "TEARDOWN_ALWAYS"-        TeardownOnSuccess -> "TEARDOWN_ON_SUCCESS"-        TeardownNever -> "TEARDOWN_NEVER"--instance FromJSON WorkerPoolTeardownPolicy where-    parseJSON = parseJSONText "WorkerPoolTeardownPolicy"--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-      -- ^ @AUTOSCALING_ALGORITHM_UNKNOWN@-      -- The algorithm is unknown, or unspecified.-    | AutoscalingAlgorithmNone-      -- ^ @AUTOSCALING_ALGORITHM_NONE@-      -- Disable autoscaling.-    | AutoscalingAlgorithmBasic-      -- ^ @AUTOSCALING_ALGORITHM_BASIC@-      -- Increase worker count over time to reduce job execution time.-      deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic)--instance Hashable AutoscalingSettingsAlgorithm--instance FromHttpApiData AutoscalingSettingsAlgorithm where-    parseQueryParam = \case-        "AUTOSCALING_ALGORITHM_UNKNOWN" -> Right AutoscalingAlgorithmUnknown-        "AUTOSCALING_ALGORITHM_NONE" -> Right AutoscalingAlgorithmNone-        "AUTOSCALING_ALGORITHM_BASIC" -> Right AutoscalingAlgorithmBasic-        x -> Left ("Unable to parse AutoscalingSettingsAlgorithm from: " <> x)--instance ToHttpApiData AutoscalingSettingsAlgorithm where-    toQueryParam = \case-        AutoscalingAlgorithmUnknown -> "AUTOSCALING_ALGORITHM_UNKNOWN"-        AutoscalingAlgorithmNone -> "AUTOSCALING_ALGORITHM_NONE"-        AutoscalingAlgorithmBasic -> "AUTOSCALING_ALGORITHM_BASIC"--instance FromJSON AutoscalingSettingsAlgorithm where-    parseJSON = parseJSONText "AutoscalingSettingsAlgorithm"--instance ToJSON AutoscalingSettingsAlgorithm where-    toJSON = toJSONText---- | Type of transform.-data TransformSummaryKind-    = UnknownKind-      -- ^ @UNKNOWN_KIND@-      -- Unrecognized transform type.-    | ParDoKind-      -- ^ @PAR_DO_KIND@-      -- ParDo transform.-    | GroupByKeyKind-      -- ^ @GROUP_BY_KEY_KIND@-      -- Group By Key transform.-    | FlattenKind-      -- ^ @FLATTEN_KIND@-      -- Flatten transform.-    | ReadKind-      -- ^ @READ_KIND@-      -- Read transform.-    | WriteKind-      -- ^ @WRITE_KIND@-      -- Write transform.-    | ConstantKind-      -- ^ @CONSTANT_KIND@-      -- Constructs from a constant value, such as with Create.of.-    | SingletonKind-      -- ^ @SINGLETON_KIND@-      -- Creates a Singleton view of a collection.-    | ShuffleKind-      -- ^ @SHUFFLE_KIND@-      -- Opening or closing a shuffle session, often as part of a GroupByKey.-      deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic)--instance Hashable TransformSummaryKind--instance FromHttpApiData TransformSummaryKind where-    parseQueryParam = \case-        "UNKNOWN_KIND" -> Right UnknownKind-        "PAR_DO_KIND" -> Right ParDoKind-        "GROUP_BY_KEY_KIND" -> Right GroupByKeyKind-        "FLATTEN_KIND" -> Right FlattenKind-        "READ_KIND" -> Right ReadKind-        "WRITE_KIND" -> Right WriteKind-        "CONSTANT_KIND" -> Right ConstantKind-        "SINGLETON_KIND" -> Right SingletonKind-        "SHUFFLE_KIND" -> Right ShuffleKind-        x -> Left ("Unable to parse TransformSummaryKind from: " <> x)--instance ToHttpApiData TransformSummaryKind where-    toQueryParam = \case-        UnknownKind -> "UNKNOWN_KIND"-        ParDoKind -> "PAR_DO_KIND"-        GroupByKeyKind -> "GROUP_BY_KEY_KIND"-        FlattenKind -> "FLATTEN_KIND"-        ReadKind -> "READ_KIND"-        WriteKind -> "WRITE_KIND"-        ConstantKind -> "CONSTANT_KIND"-        SingletonKind -> "SINGLETON_KIND"-        ShuffleKind -> "SHUFFLE_KIND"--instance FromJSON TransformSummaryKind where-    parseJSON = parseJSONText "TransformSummaryKind"--instance ToJSON TransformSummaryKind where-    toJSON = toJSONText---- | Portion of this counter, either key or value.-data CounterStructuredNamePortion-    = All-      -- ^ @ALL@-      -- Counter portion has not been set.-    | Key-      -- ^ @KEY@-      -- Counter reports a key.-    | Value-      -- ^ @VALUE@-      -- Counter reports a value.-      deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic)--instance Hashable CounterStructuredNamePortion--instance FromHttpApiData CounterStructuredNamePortion where-    parseQueryParam = \case-        "ALL" -> Right All-        "KEY" -> Right Key-        "VALUE" -> Right Value-        x -> Left ("Unable to parse CounterStructuredNamePortion from: " <> x)--instance ToHttpApiData CounterStructuredNamePortion where-    toQueryParam = \case-        All -> "ALL"-        Key -> "KEY"-        Value -> "VALUE"--instance FromJSON CounterStructuredNamePortion where-    parseJSON = parseJSONText "CounterStructuredNamePortion"--instance ToJSON CounterStructuredNamePortion where-    toJSON = toJSONText---- | Importance level of the message.-data JobMessageMessageImportance-    = JobMessageImportanceUnknown-      -- ^ @JOB_MESSAGE_IMPORTANCE_UNKNOWN@-      -- The message importance isn\'t specified, or is unknown.-    | JobMessageDebug-      -- ^ @JOB_MESSAGE_DEBUG@-      -- The message is at the \'debug\' level: typically only useful for-      -- software engineers working on the code the job is running. Typically,-      -- Dataflow pipeline runners do not display log messages at this level by-      -- default.-    | JobMessageDetailed-      -- ^ @JOB_MESSAGE_DETAILED@-      -- The message is at the \'detailed\' level: somewhat verbose, but-      -- potentially useful to users. Typically, Dataflow pipeline runners do not-      -- display log messages at this level by default. These messages are-      -- displayed by default in the Dataflow monitoring UI.-    | JobMessageBasic-      -- ^ @JOB_MESSAGE_BASIC@-      -- The message is at the \'basic\' level: useful for keeping track of the-      -- execution of a Dataflow pipeline. Typically, Dataflow pipeline runners-      -- display log messages at this level by default, and these messages are-      -- displayed by default in the Dataflow monitoring UI.-    | JobMessageWarning-      -- ^ @JOB_MESSAGE_WARNING@-      -- The message is at the \'warning\' level: indicating a condition-      -- pertaining to a job which may require human intervention. Typically,-      -- Dataflow pipeline runners display log messages at this level by default,-      -- and these messages are displayed by default in the Dataflow monitoring-      -- UI.-    | JobMessageError-      -- ^ @JOB_MESSAGE_ERROR@-      -- The message is at the \'error\' level: indicating a condition preventing-      -- a job from succeeding. Typically, Dataflow pipeline runners display log-      -- messages at this level by default, and these messages are displayed by-      -- default in the Dataflow monitoring UI.-      deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic)--instance Hashable JobMessageMessageImportance--instance FromHttpApiData JobMessageMessageImportance where-    parseQueryParam = \case-        "JOB_MESSAGE_IMPORTANCE_UNKNOWN" -> Right JobMessageImportanceUnknown-        "JOB_MESSAGE_DEBUG" -> Right JobMessageDebug-        "JOB_MESSAGE_DETAILED" -> Right JobMessageDetailed-        "JOB_MESSAGE_BASIC" -> Right JobMessageBasic-        "JOB_MESSAGE_WARNING" -> Right JobMessageWarning-        "JOB_MESSAGE_ERROR" -> Right JobMessageError-        x -> Left ("Unable to parse JobMessageMessageImportance from: " <> x)--instance ToHttpApiData JobMessageMessageImportance where-    toQueryParam = \case-        JobMessageImportanceUnknown -> "JOB_MESSAGE_IMPORTANCE_UNKNOWN"-        JobMessageDebug -> "JOB_MESSAGE_DEBUG"-        JobMessageDetailed -> "JOB_MESSAGE_DETAILED"-        JobMessageBasic -> "JOB_MESSAGE_BASIC"-        JobMessageWarning -> "JOB_MESSAGE_WARNING"-        JobMessageError -> "JOB_MESSAGE_ERROR"--instance FromJSON JobMessageMessageImportance where-    parseJSON = parseJSONText "JobMessageMessageImportance"--instance ToJSON JobMessageMessageImportance where-    toJSON = toJSONText---- | Indicates whether splitting happened and produced a list of bundles. If--- this is USE_CURRENT_SOURCE_AS_IS, the current source should be processed--- \"as is\" without splitting. \"bundles\" is ignored in this case. If--- this is SPLITTING_HAPPENED, then \"bundles\" contains a list of bundles--- into which the source was split.-data SourceSplitResponseOutcome-    = SourceSplitOutcomeUnknown-      -- ^ @SOURCE_SPLIT_OUTCOME_UNKNOWN@-      -- The source split outcome is unknown, or unspecified.-    | SourceSplitOutcomeUseCurrent-      -- ^ @SOURCE_SPLIT_OUTCOME_USE_CURRENT@-      -- The current source should be processed \"as is\" without splitting.-    | SourceSplitOutcomeSplittingHAppened-      -- ^ @SOURCE_SPLIT_OUTCOME_SPLITTING_HAPPENED@-      -- Splitting produced a list of bundles.-      deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic)--instance Hashable SourceSplitResponseOutcome--instance FromHttpApiData SourceSplitResponseOutcome where-    parseQueryParam = \case-        "SOURCE_SPLIT_OUTCOME_UNKNOWN" -> Right SourceSplitOutcomeUnknown-        "SOURCE_SPLIT_OUTCOME_USE_CURRENT" -> Right SourceSplitOutcomeUseCurrent-        "SOURCE_SPLIT_OUTCOME_SPLITTING_HAPPENED" -> Right SourceSplitOutcomeSplittingHAppened-        x -> Left ("Unable to parse SourceSplitResponseOutcome from: " <> x)--instance ToHttpApiData SourceSplitResponseOutcome where-    toQueryParam = \case-        SourceSplitOutcomeUnknown -> "SOURCE_SPLIT_OUTCOME_UNKNOWN"-        SourceSplitOutcomeUseCurrent -> "SOURCE_SPLIT_OUTCOME_USE_CURRENT"-        SourceSplitOutcomeSplittingHAppened -> "SOURCE_SPLIT_OUTCOME_SPLITTING_HAPPENED"--instance FromJSON SourceSplitResponseOutcome where-    parseJSON = parseJSONText "SourceSplitResponseOutcome"--instance ToJSON SourceSplitResponseOutcome where-    toJSON = toJSONText---- | DEPRECATED-data SourceSplitShardDerivationMode-    = SourceDerivationModeUnknown-      -- ^ @SOURCE_DERIVATION_MODE_UNKNOWN@-      -- The source derivation is unknown, or unspecified.-    | SourceDerivationModeIndependent-      -- ^ @SOURCE_DERIVATION_MODE_INDEPENDENT@-      -- Produce a completely independent Source with no base.-    | SourceDerivationModeChildOfCurrent-      -- ^ @SOURCE_DERIVATION_MODE_CHILD_OF_CURRENT@-      -- Produce a Source based on the Source being split.-    | SourceDerivationModeSiblingOfCurrent-      -- ^ @SOURCE_DERIVATION_MODE_SIBLING_OF_CURRENT@-      -- Produce a Source based on the base of the Source being split.-      deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic)--instance Hashable SourceSplitShardDerivationMode--instance FromHttpApiData SourceSplitShardDerivationMode where-    parseQueryParam = \case-        "SOURCE_DERIVATION_MODE_UNKNOWN" -> Right SourceDerivationModeUnknown-        "SOURCE_DERIVATION_MODE_INDEPENDENT" -> Right SourceDerivationModeIndependent-        "SOURCE_DERIVATION_MODE_CHILD_OF_CURRENT" -> Right SourceDerivationModeChildOfCurrent-        "SOURCE_DERIVATION_MODE_SIBLING_OF_CURRENT" -> Right SourceDerivationModeSiblingOfCurrent-        x -> Left ("Unable to parse SourceSplitShardDerivationMode from: " <> x)--instance ToHttpApiData SourceSplitShardDerivationMode where-    toQueryParam = \case-        SourceDerivationModeUnknown -> "SOURCE_DERIVATION_MODE_UNKNOWN"-        SourceDerivationModeIndependent -> "SOURCE_DERIVATION_MODE_INDEPENDENT"-        SourceDerivationModeChildOfCurrent -> "SOURCE_DERIVATION_MODE_CHILD_OF_CURRENT"-        SourceDerivationModeSiblingOfCurrent -> "SOURCE_DERIVATION_MODE_SIBLING_OF_CURRENT"--instance FromJSON SourceSplitShardDerivationMode where-    parseJSON = parseJSONText "SourceSplitShardDerivationMode"--instance ToJSON SourceSplitShardDerivationMode where-    toJSON = toJSONText---- | The default package set to install. This allows the service to select a--- default set of packages which are useful to worker harnesses written in--- a particular language.-data WorkerPoolDefaultPackageSet-    = DefaultPackageSetUnknown-      -- ^ @DEFAULT_PACKAGE_SET_UNKNOWN@-      -- The default set of packages to stage is unknown, or unspecified.-    | DefaultPackageSetNone-      -- ^ @DEFAULT_PACKAGE_SET_NONE@-      -- Indicates that no packages should be staged at the worker unless-      -- explicitly specified by the job.-    | DefaultPackageSetJava-      -- ^ @DEFAULT_PACKAGE_SET_JAVA@-      -- Stage packages typically useful to workers written in Java.-    | DefaultPackageSetPython-      -- ^ @DEFAULT_PACKAGE_SET_PYTHON@-      -- Stage pacakges typically useful to workers written in Python.-      deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic)--instance Hashable WorkerPoolDefaultPackageSet--instance FromHttpApiData WorkerPoolDefaultPackageSet where-    parseQueryParam = \case-        "DEFAULT_PACKAGE_SET_UNKNOWN" -> Right DefaultPackageSetUnknown-        "DEFAULT_PACKAGE_SET_NONE" -> Right DefaultPackageSetNone-        "DEFAULT_PACKAGE_SET_JAVA" -> Right DefaultPackageSetJava-        "DEFAULT_PACKAGE_SET_PYTHON" -> Right DefaultPackageSetPython-        x -> Left ("Unable to parse WorkerPoolDefaultPackageSet from: " <> x)--instance ToHttpApiData WorkerPoolDefaultPackageSet where-    toQueryParam = \case-        DefaultPackageSetUnknown -> "DEFAULT_PACKAGE_SET_UNKNOWN"-        DefaultPackageSetNone -> "DEFAULT_PACKAGE_SET_NONE"-        DefaultPackageSetJava -> "DEFAULT_PACKAGE_SET_JAVA"-        DefaultPackageSetPython -> "DEFAULT_PACKAGE_SET_PYTHON"--instance FromJSON WorkerPoolDefaultPackageSet where-    parseJSON = parseJSONText "WorkerPoolDefaultPackageSet"--instance ToJSON WorkerPoolDefaultPackageSet where-    toJSON = toJSONText---- | Counter aggregation kind.-data CounterMetadataKind-    = CMKInvalid-      -- ^ @INVALID@-      -- Counter aggregation kind was not set.-    | CMKSum-      -- ^ @SUM@-      -- Aggregated value is the sum of all contributed values.-    | CMKMax-      -- ^ @MAX@-      -- Aggregated value is the max of all contributed values.-    | CMKMin-      -- ^ @MIN@-      -- Aggregated value is the min of all contributed values.-    | CMKMean-      -- ^ @MEAN@-      -- Aggregated value is the mean of all contributed values.-    | CMKOR-      -- ^ @OR@-      -- Aggregated value represents the logical \'or\' of all contributed-      -- values.-    | CMKAnd-      -- ^ @AND@-      -- Aggregated value represents the logical \'and\' of all contributed-      -- values.-    | CMKSet-      -- ^ @SET@-      -- Aggregated value is a set of unique contributed values.-    | CMKDistribution-      -- ^ @DISTRIBUTION@-      -- Aggregated value captures statistics about a distribution.-    | CMKLatestValue-      -- ^ @LATEST_VALUE@-      -- Aggregated value tracks the latest value of a variable.-      deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic)--instance Hashable CounterMetadataKind--instance FromHttpApiData CounterMetadataKind where-    parseQueryParam = \case-        "INVALID" -> Right CMKInvalid-        "SUM" -> Right CMKSum-        "MAX" -> Right CMKMax-        "MIN" -> Right CMKMin-        "MEAN" -> Right CMKMean-        "OR" -> Right CMKOR-        "AND" -> Right CMKAnd-        "SET" -> Right CMKSet-        "DISTRIBUTION" -> Right CMKDistribution-        "LATEST_VALUE" -> Right CMKLatestValue-        x -> Left ("Unable to parse CounterMetadataKind from: " <> x)--instance ToHttpApiData CounterMetadataKind where-    toQueryParam = \case-        CMKInvalid -> "INVALID"-        CMKSum -> "SUM"-        CMKMax -> "MAX"-        CMKMin -> "MIN"-        CMKMean -> "MEAN"-        CMKOR -> "OR"-        CMKAnd -> "AND"-        CMKSet -> "SET"-        CMKDistribution -> "DISTRIBUTION"-        CMKLatestValue -> "LATEST_VALUE"--instance FromJSON CounterMetadataKind where-    parseJSON = parseJSONText "CounterMetadataKind"--instance ToJSON CounterMetadataKind where-    toJSON = toJSONText---- | The current state of the job. Jobs are created in the--- \`JOB_STATE_STOPPED\` state unless otherwise specified. A job in the--- \`JOB_STATE_RUNNING\` state may asynchronously enter a terminal state.--- After a job has reached a terminal state, no further state updates may--- be made. This field may be mutated by the Cloud Dataflow service;--- callers cannot mutate it.-data JobCurrentState-    = JobStateUnknown-      -- ^ @JOB_STATE_UNKNOWN@-      -- The job\'s run state isn\'t specified.-    | JobStateStopped-      -- ^ @JOB_STATE_STOPPED@-      -- \`JOB_STATE_STOPPED\` indicates that the job has not yet started to run.-    | JobStateRunning-      -- ^ @JOB_STATE_RUNNING@-      -- \`JOB_STATE_RUNNING\` indicates that the job is currently running.-    | JobStateDone-      -- ^ @JOB_STATE_DONE@-      -- \`JOB_STATE_DONE\` indicates that the job has successfully completed.-      -- This is a terminal job state. This state may be set by the Cloud-      -- Dataflow service, as a transition from \`JOB_STATE_RUNNING\`. It may-      -- also be set via a Cloud Dataflow \`UpdateJob\` call, if the job has not-      -- yet reached a terminal state.-    | JobStateFailed-      -- ^ @JOB_STATE_FAILED@-      -- \`JOB_STATE_FAILED\` indicates that the job has failed. This is a-      -- terminal job state. This state may only be set by the Cloud Dataflow-      -- service, and only as a transition from \`JOB_STATE_RUNNING\`.-    | JobStateCancelled-      -- ^ @JOB_STATE_CANCELLED@-      -- \`JOB_STATE_CANCELLED\` indicates that the job has been explicitly-      -- cancelled. This is a terminal job state. This state may only be set via-      -- a Cloud Dataflow \`UpdateJob\` call, and only if the job has not yet-      -- reached another terminal state.-    | JobStateUpdated-      -- ^ @JOB_STATE_UPDATED@-      -- \`JOB_STATE_UPDATED\` indicates that the job was successfully updated,-      -- meaning that this job was stopped and another job was started,-      -- inheriting state from this one. This is a terminal job state. This state-      -- may only be set by the Cloud Dataflow service, and only as a transition-      -- from \`JOB_STATE_RUNNING\`.-    | JobStateDraining-      -- ^ @JOB_STATE_DRAINING@-      -- \`JOB_STATE_DRAINING\` indicates that the job is in the process of-      -- draining. A draining job has stopped pulling from its input sources and-      -- is processing any data that remains in-flight. This state may be set via-      -- a Cloud Dataflow \`UpdateJob\` call, but only as a transition from-      -- \`JOB_STATE_RUNNING\`. Jobs that are draining may only transition to-      -- \`JOB_STATE_DRAINED\`, \`JOB_STATE_CANCELLED\`, or \`JOB_STATE_FAILED\`.-    | JobStateDrained-      -- ^ @JOB_STATE_DRAINED@-      -- \`JOB_STATE_DRAINED\` indicates that the job has been drained. A drained-      -- job terminated by stopping pulling from its input sources and processing-      -- any data that remained in-flight when draining was requested. This state-      -- is a terminal state, may only be set by the Cloud Dataflow service, and-      -- only as a transition from \`JOB_STATE_DRAINING\`.-    | JobStatePending-      -- ^ @JOB_STATE_PENDING@-      -- \`JOB_STATE_PENDING\` indicates that the job has been created but is not-      -- yet running. Jobs that are pending may only transition to-      -- \`JOB_STATE_RUNNING\`, or \`JOB_STATE_FAILED\`.-    | JobStateCancelling-      -- ^ @JOB_STATE_CANCELLING@-      -- \`JOB_STATE_CANCELLING\` indicates that the job has been explicitly-      -- cancelled and is in the process of stopping. Jobs that are cancelling-      -- may only transition to \`JOB_STATE_CANCELLED\` or \`JOB_STATE_FAILED\`.-    | JobStateQueued-      -- ^ @JOB_STATE_QUEUED@-      -- \`JOB_STATE_QUEUED\` indicates that the job has been created but is-      -- being delayed until launch. Jobs that are queued may only transition to-      -- \`JOB_STATE_PENDING\` or \`JOB_STATE_CANCELLED\`.-      deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic)--instance Hashable JobCurrentState--instance FromHttpApiData JobCurrentState where-    parseQueryParam = \case-        "JOB_STATE_UNKNOWN" -> Right JobStateUnknown-        "JOB_STATE_STOPPED" -> Right JobStateStopped-        "JOB_STATE_RUNNING" -> Right JobStateRunning-        "JOB_STATE_DONE" -> Right JobStateDone-        "JOB_STATE_FAILED" -> Right JobStateFailed-        "JOB_STATE_CANCELLED" -> Right JobStateCancelled-        "JOB_STATE_UPDATED" -> Right JobStateUpdated-        "JOB_STATE_DRAINING" -> Right JobStateDraining-        "JOB_STATE_DRAINED" -> Right JobStateDrained-        "JOB_STATE_PENDING" -> Right JobStatePending-        "JOB_STATE_CANCELLING" -> Right JobStateCancelling-        "JOB_STATE_QUEUED" -> Right JobStateQueued-        x -> Left ("Unable to parse JobCurrentState from: " <> x)--instance ToHttpApiData JobCurrentState where-    toQueryParam = \case-        JobStateUnknown -> "JOB_STATE_UNKNOWN"-        JobStateStopped -> "JOB_STATE_STOPPED"-        JobStateRunning -> "JOB_STATE_RUNNING"-        JobStateDone -> "JOB_STATE_DONE"-        JobStateFailed -> "JOB_STATE_FAILED"-        JobStateCancelled -> "JOB_STATE_CANCELLED"-        JobStateUpdated -> "JOB_STATE_UPDATED"-        JobStateDraining -> "JOB_STATE_DRAINING"-        JobStateDrained -> "JOB_STATE_DRAINED"-        JobStatePending -> "JOB_STATE_PENDING"-        JobStateCancelling -> "JOB_STATE_CANCELLING"-        JobStateQueued -> "JOB_STATE_QUEUED"--instance FromJSON JobCurrentState where-    parseJSON = parseJSONText "JobCurrentState"--instance ToJSON JobCurrentState where-    toJSON = toJSONText---- | System defined Units, see above enum.-data CounterMetadataStandardUnits-    = Bytes-      -- ^ @BYTES@-      -- Counter returns a value in bytes.-    | BytesPerSec-      -- ^ @BYTES_PER_SEC@-      -- Counter returns a value in bytes per second.-    | Milliseconds-      -- ^ @MILLISECONDS@-      -- Counter returns a value in milliseconds.-    | Microseconds-      -- ^ @MICROSECONDS@-      -- Counter returns a value in microseconds.-    | Nanoseconds-      -- ^ @NANOSECONDS@-      -- Counter returns a value in nanoseconds.-    | TimestampMsec-      -- ^ @TIMESTAMP_MSEC@-      -- Counter returns a timestamp in milliseconds.-    | TimestampUsec-      -- ^ @TIMESTAMP_USEC@-      -- Counter returns a timestamp in microseconds.-    | TimestampNsec-      -- ^ @TIMESTAMP_NSEC@-      -- Counter returns a timestamp in nanoseconds.-      deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic)--instance Hashable CounterMetadataStandardUnits--instance FromHttpApiData CounterMetadataStandardUnits where-    parseQueryParam = \case-        "BYTES" -> Right Bytes-        "BYTES_PER_SEC" -> Right BytesPerSec-        "MILLISECONDS" -> Right Milliseconds-        "MICROSECONDS" -> Right Microseconds-        "NANOSECONDS" -> Right Nanoseconds-        "TIMESTAMP_MSEC" -> Right TimestampMsec-        "TIMESTAMP_USEC" -> Right TimestampUsec-        "TIMESTAMP_NSEC" -> Right TimestampNsec-        x -> Left ("Unable to parse CounterMetadataStandardUnits from: " <> x)--instance ToHttpApiData CounterMetadataStandardUnits where-    toQueryParam = \case-        Bytes -> "BYTES"-        BytesPerSec -> "BYTES_PER_SEC"-        Milliseconds -> "MILLISECONDS"-        Microseconds -> "MICROSECONDS"-        Nanoseconds -> "NANOSECONDS"-        TimestampMsec -> "TIMESTAMP_MSEC"-        TimestampUsec -> "TIMESTAMP_USEC"-        TimestampNsec -> "TIMESTAMP_NSEC"--instance FromJSON CounterMetadataStandardUnits where-    parseJSON = parseJSONText "CounterMetadataStandardUnits"--instance ToJSON CounterMetadataStandardUnits where-    toJSON = toJSONText---- | The type of autoscaling event to report.-data AutoscalingEventEventType-    = TypeUnknown-      -- ^ @TYPE_UNKNOWN@-      -- Default type for the enum. Value should never be returned.-    | TargetNumWorkersChanged-      -- ^ @TARGET_NUM_WORKERS_CHANGED@-      -- The TARGET_NUM_WORKERS_CHANGED type should be used when the target-      -- worker pool size has changed at the start of an actuation. An event-      -- should always be specified as TARGET_NUM_WORKERS_CHANGED if it reflects-      -- a change in the target_num_workers.-    | CurrentNumWorkersChanged-      -- ^ @CURRENT_NUM_WORKERS_CHANGED@-      -- The CURRENT_NUM_WORKERS_CHANGED type should be used when actual worker-      -- pool size has been changed, but the target_num_workers has not changed.-    | ActuationFailure-      -- ^ @ACTUATION_FAILURE@-      -- The ACTUATION_FAILURE type should be used when we want to report an-      -- error to the user indicating why the current number of workers in the-      -- pool could not be changed. Displayed in the current status and history-      -- widgets.-    | NoChange-      -- ^ @NO_CHANGE@-      -- Used when we want to report to the user a reason why we are not-      -- currently adjusting the number of workers. Should specify both-      -- target_num_workers, current_num_workers and a decision_message.-      deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic)--instance Hashable AutoscalingEventEventType--instance FromHttpApiData AutoscalingEventEventType where-    parseQueryParam = \case-        "TYPE_UNKNOWN" -> Right TypeUnknown-        "TARGET_NUM_WORKERS_CHANGED" -> Right TargetNumWorkersChanged-        "CURRENT_NUM_WORKERS_CHANGED" -> Right CurrentNumWorkersChanged-        "ACTUATION_FAILURE" -> Right ActuationFailure-        "NO_CHANGE" -> Right NoChange-        x -> Left ("Unable to parse AutoscalingEventEventType from: " <> x)--instance ToHttpApiData AutoscalingEventEventType where-    toQueryParam = \case-        TypeUnknown -> "TYPE_UNKNOWN"-        TargetNumWorkersChanged -> "TARGET_NUM_WORKERS_CHANGED"-        CurrentNumWorkersChanged -> "CURRENT_NUM_WORKERS_CHANGED"-        ActuationFailure -> "ACTUATION_FAILURE"-        NoChange -> "NO_CHANGE"--instance FromJSON AutoscalingEventEventType where-    parseJSON = parseJSONText "AutoscalingEventEventType"--instance ToJSON AutoscalingEventEventType where-    toJSON = toJSONText---- | What source to base the produced source on (if any).-data DerivedSourceDerivationMode-    = DSDMSourceDerivationModeUnknown-      -- ^ @SOURCE_DERIVATION_MODE_UNKNOWN@-      -- The source derivation is unknown, or unspecified.-    | DSDMSourceDerivationModeIndependent-      -- ^ @SOURCE_DERIVATION_MODE_INDEPENDENT@-      -- Produce a completely independent Source with no base.-    | DSDMSourceDerivationModeChildOfCurrent-      -- ^ @SOURCE_DERIVATION_MODE_CHILD_OF_CURRENT@-      -- Produce a Source based on the Source being split.-    | DSDMSourceDerivationModeSiblingOfCurrent-      -- ^ @SOURCE_DERIVATION_MODE_SIBLING_OF_CURRENT@-      -- Produce a Source based on the base of the Source being split.-      deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic)--instance Hashable DerivedSourceDerivationMode--instance FromHttpApiData DerivedSourceDerivationMode where-    parseQueryParam = \case-        "SOURCE_DERIVATION_MODE_UNKNOWN" -> Right DSDMSourceDerivationModeUnknown-        "SOURCE_DERIVATION_MODE_INDEPENDENT" -> Right DSDMSourceDerivationModeIndependent-        "SOURCE_DERIVATION_MODE_CHILD_OF_CURRENT" -> Right DSDMSourceDerivationModeChildOfCurrent-        "SOURCE_DERIVATION_MODE_SIBLING_OF_CURRENT" -> Right DSDMSourceDerivationModeSiblingOfCurrent-        x -> Left ("Unable to parse DerivedSourceDerivationMode from: " <> x)--instance ToHttpApiData DerivedSourceDerivationMode where-    toQueryParam = \case-        DSDMSourceDerivationModeUnknown -> "SOURCE_DERIVATION_MODE_UNKNOWN"-        DSDMSourceDerivationModeIndependent -> "SOURCE_DERIVATION_MODE_INDEPENDENT"-        DSDMSourceDerivationModeChildOfCurrent -> "SOURCE_DERIVATION_MODE_CHILD_OF_CURRENT"-        DSDMSourceDerivationModeSiblingOfCurrent -> "SOURCE_DERIVATION_MODE_SIBLING_OF_CURRENT"--instance FromJSON DerivedSourceDerivationMode where-    parseJSON = parseJSONText "DerivedSourceDerivationMode"--instance ToJSON DerivedSourceDerivationMode where-    toJSON = toJSONText---- | Type of tranform this stage is executing.-data ExecutionStageSummaryKind-    = ESSKUnknownKind-      -- ^ @UNKNOWN_KIND@-      -- Unrecognized transform type.-    | ESSKParDoKind-      -- ^ @PAR_DO_KIND@-      -- ParDo transform.-    | ESSKGroupByKeyKind-      -- ^ @GROUP_BY_KEY_KIND@-      -- Group By Key transform.-    | ESSKFlattenKind-      -- ^ @FLATTEN_KIND@-      -- Flatten transform.-    | ESSKReadKind-      -- ^ @READ_KIND@-      -- Read transform.-    | ESSKWriteKind-      -- ^ @WRITE_KIND@-      -- Write transform.-    | ESSKConstantKind-      -- ^ @CONSTANT_KIND@-      -- Constructs from a constant value, such as with Create.of.-    | ESSKSingletonKind-      -- ^ @SINGLETON_KIND@-      -- Creates a Singleton view of a collection.-    | ESSKShuffleKind-      -- ^ @SHUFFLE_KIND@-      -- Opening or closing a shuffle session, often as part of a GroupByKey.-      deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic)--instance Hashable ExecutionStageSummaryKind--instance FromHttpApiData ExecutionStageSummaryKind where-    parseQueryParam = \case-        "UNKNOWN_KIND" -> Right ESSKUnknownKind-        "PAR_DO_KIND" -> Right ESSKParDoKind-        "GROUP_BY_KEY_KIND" -> Right ESSKGroupByKeyKind-        "FLATTEN_KIND" -> Right ESSKFlattenKind-        "READ_KIND" -> Right ESSKReadKind-        "WRITE_KIND" -> Right ESSKWriteKind-        "CONSTANT_KIND" -> Right ESSKConstantKind-        "SINGLETON_KIND" -> Right ESSKSingletonKind-        "SHUFFLE_KIND" -> Right ESSKShuffleKind-        x -> Left ("Unable to parse ExecutionStageSummaryKind from: " <> x)--instance ToHttpApiData ExecutionStageSummaryKind where-    toQueryParam = \case-        ESSKUnknownKind -> "UNKNOWN_KIND"-        ESSKParDoKind -> "PAR_DO_KIND"-        ESSKGroupByKeyKind -> "GROUP_BY_KEY_KIND"-        ESSKFlattenKind -> "FLATTEN_KIND"-        ESSKReadKind -> "READ_KIND"-        ESSKWriteKind -> "WRITE_KIND"-        ESSKConstantKind -> "CONSTANT_KIND"-        ESSKSingletonKind -> "SINGLETON_KIND"-        ESSKShuffleKind -> "SHUFFLE_KIND"--instance FromJSON ExecutionStageSummaryKind where-    parseJSON = parseJSONText "ExecutionStageSummaryKind"--instance ToJSON ExecutionStageSummaryKind where-    toJSON = toJSONText---- | V1 error format.-data Xgafv-    = X1-      -- ^ @1@-      -- v1 error format-    | X2-      -- ^ @2@-      -- v2 error format-      deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic)--instance Hashable Xgafv--instance FromHttpApiData Xgafv where-    parseQueryParam = \case-        "1" -> Right X1-        "2" -> Right X2-        x -> Left ("Unable to parse Xgafv from: " <> x)--instance ToHttpApiData Xgafv where-    toQueryParam = \case-        X1 -> "1"-        X2 -> "2"--instance FromJSON Xgafv where-    parseJSON = parseJSONText "Xgafv"--instance ToJSON Xgafv where-    toJSON = toJSONText---- | The job\'s requested state. \`UpdateJob\` may be used to switch between--- the \`JOB_STATE_STOPPED\` and \`JOB_STATE_RUNNING\` states, by setting--- requested_state. \`UpdateJob\` may also be used to directly set a job\'s--- requested state to \`JOB_STATE_CANCELLED\` or \`JOB_STATE_DONE\`,--- irrevocably terminating the job if it has not already reached a terminal--- state.-data JobRequestedState-    = JRSJobStateUnknown-      -- ^ @JOB_STATE_UNKNOWN@-      -- The job\'s run state isn\'t specified.-    | JRSJobStateStopped-      -- ^ @JOB_STATE_STOPPED@-      -- \`JOB_STATE_STOPPED\` indicates that the job has not yet started to run.-    | JRSJobStateRunning-      -- ^ @JOB_STATE_RUNNING@-      -- \`JOB_STATE_RUNNING\` indicates that the job is currently running.-    | JRSJobStateDone-      -- ^ @JOB_STATE_DONE@-      -- \`JOB_STATE_DONE\` indicates that the job has successfully completed.-      -- This is a terminal job state. This state may be set by the Cloud-      -- Dataflow service, as a transition from \`JOB_STATE_RUNNING\`. It may-      -- also be set via a Cloud Dataflow \`UpdateJob\` call, if the job has not-      -- yet reached a terminal state.-    | JRSJobStateFailed-      -- ^ @JOB_STATE_FAILED@-      -- \`JOB_STATE_FAILED\` indicates that the job has failed. This is a-      -- terminal job state. This state may only be set by the Cloud Dataflow-      -- service, and only as a transition from \`JOB_STATE_RUNNING\`.-    | JRSJobStateCancelled-      -- ^ @JOB_STATE_CANCELLED@-      -- \`JOB_STATE_CANCELLED\` indicates that the job has been explicitly-      -- cancelled. This is a terminal job state. This state may only be set via-      -- a Cloud Dataflow \`UpdateJob\` call, and only if the job has not yet-      -- reached another terminal state.-    | JRSJobStateUpdated-      -- ^ @JOB_STATE_UPDATED@-      -- \`JOB_STATE_UPDATED\` indicates that the job was successfully updated,-      -- meaning that this job was stopped and another job was started,-      -- inheriting state from this one. This is a terminal job state. This state-      -- may only be set by the Cloud Dataflow service, and only as a transition-      -- from \`JOB_STATE_RUNNING\`.-    | JRSJobStateDraining-      -- ^ @JOB_STATE_DRAINING@-      -- \`JOB_STATE_DRAINING\` indicates that the job is in the process of-      -- draining. A draining job has stopped pulling from its input sources and-      -- is processing any data that remains in-flight. This state may be set via-      -- a Cloud Dataflow \`UpdateJob\` call, but only as a transition from-      -- \`JOB_STATE_RUNNING\`. Jobs that are draining may only transition to-      -- \`JOB_STATE_DRAINED\`, \`JOB_STATE_CANCELLED\`, or \`JOB_STATE_FAILED\`.-    | JRSJobStateDrained-      -- ^ @JOB_STATE_DRAINED@-      -- \`JOB_STATE_DRAINED\` indicates that the job has been drained. A drained-      -- job terminated by stopping pulling from its input sources and processing-      -- any data that remained in-flight when draining was requested. This state-      -- is a terminal state, may only be set by the Cloud Dataflow service, and-      -- only as a transition from \`JOB_STATE_DRAINING\`.-    | JRSJobStatePending-      -- ^ @JOB_STATE_PENDING@-      -- \`JOB_STATE_PENDING\` indicates that the job has been created but is not-      -- yet running. Jobs that are pending may only transition to-      -- \`JOB_STATE_RUNNING\`, or \`JOB_STATE_FAILED\`.-    | JRSJobStateCancelling-      -- ^ @JOB_STATE_CANCELLING@-      -- \`JOB_STATE_CANCELLING\` indicates that the job has been explicitly-      -- cancelled and is in the process of stopping. Jobs that are cancelling-      -- may only transition to \`JOB_STATE_CANCELLED\` or \`JOB_STATE_FAILED\`.-    | JRSJobStateQueued-      -- ^ @JOB_STATE_QUEUED@-      -- \`JOB_STATE_QUEUED\` indicates that the job has been created but is-      -- being delayed until launch. Jobs that are queued may only transition to-      -- \`JOB_STATE_PENDING\` or \`JOB_STATE_CANCELLED\`.-      deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic)--instance Hashable JobRequestedState--instance FromHttpApiData JobRequestedState where-    parseQueryParam = \case-        "JOB_STATE_UNKNOWN" -> Right JRSJobStateUnknown-        "JOB_STATE_STOPPED" -> Right JRSJobStateStopped-        "JOB_STATE_RUNNING" -> Right JRSJobStateRunning-        "JOB_STATE_DONE" -> Right JRSJobStateDone-        "JOB_STATE_FAILED" -> Right JRSJobStateFailed-        "JOB_STATE_CANCELLED" -> Right JRSJobStateCancelled-        "JOB_STATE_UPDATED" -> Right JRSJobStateUpdated-        "JOB_STATE_DRAINING" -> Right JRSJobStateDraining-        "JOB_STATE_DRAINED" -> Right JRSJobStateDrained-        "JOB_STATE_PENDING" -> Right JRSJobStatePending-        "JOB_STATE_CANCELLING" -> Right JRSJobStateCancelling-        "JOB_STATE_QUEUED" -> Right JRSJobStateQueued-        x -> Left ("Unable to parse JobRequestedState from: " <> x)--instance ToHttpApiData JobRequestedState where-    toQueryParam = \case-        JRSJobStateUnknown -> "JOB_STATE_UNKNOWN"-        JRSJobStateStopped -> "JOB_STATE_STOPPED"-        JRSJobStateRunning -> "JOB_STATE_RUNNING"-        JRSJobStateDone -> "JOB_STATE_DONE"-        JRSJobStateFailed -> "JOB_STATE_FAILED"-        JRSJobStateCancelled -> "JOB_STATE_CANCELLED"-        JRSJobStateUpdated -> "JOB_STATE_UPDATED"-        JRSJobStateDraining -> "JOB_STATE_DRAINING"-        JRSJobStateDrained -> "JOB_STATE_DRAINED"-        JRSJobStatePending -> "JOB_STATE_PENDING"-        JRSJobStateCancelling -> "JOB_STATE_CANCELLING"-        JRSJobStateQueued -> "JOB_STATE_QUEUED"--instance FromJSON JobRequestedState where-    parseJSON = parseJSONText "JobRequestedState"--instance ToJSON JobRequestedState where-    toJSON = toJSONText---- | The event being reported.-data WorkerLifecycleEventEvent-    = UnknownEvent-      -- ^ @UNKNOWN_EVENT@-      -- Invalid event.-    | OSStart-      -- ^ @OS_START@-      -- The time the VM started.-    | ContainerStart-      -- ^ @CONTAINER_START@-      -- Our container code starts running. Multiple containers could be-      -- distinguished with WorkerMessage.labels if desired.-    | NetworkUp-      -- ^ @NETWORK_UP@-      -- The worker has a functional external network connection.-    | StagingFilesDownloadStart-      -- ^ @STAGING_FILES_DOWNLOAD_START@-      -- Started downloading staging files.-    | StagingFilesDownloadFinish-      -- ^ @STAGING_FILES_DOWNLOAD_FINISH@-      -- Finished downloading all staging files.-    | SdkInstallStart-      -- ^ @SDK_INSTALL_START@-      -- For applicable SDKs, started installation of SDK and worker packages.-    | SdkInstallFinish-      -- ^ @SDK_INSTALL_FINISH@-      -- Finished installing SDK.-      deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic)--instance Hashable WorkerLifecycleEventEvent--instance FromHttpApiData WorkerLifecycleEventEvent where-    parseQueryParam = \case-        "UNKNOWN_EVENT" -> Right UnknownEvent-        "OS_START" -> Right OSStart-        "CONTAINER_START" -> Right ContainerStart-        "NETWORK_UP" -> Right NetworkUp-        "STAGING_FILES_DOWNLOAD_START" -> Right StagingFilesDownloadStart-        "STAGING_FILES_DOWNLOAD_FINISH" -> Right StagingFilesDownloadFinish-        "SDK_INSTALL_START" -> Right SdkInstallStart-        "SDK_INSTALL_FINISH" -> Right SdkInstallFinish-        x -> Left ("Unable to parse WorkerLifecycleEventEvent from: " <> x)--instance ToHttpApiData WorkerLifecycleEventEvent where-    toQueryParam = \case-        UnknownEvent -> "UNKNOWN_EVENT"-        OSStart -> "OS_START"-        ContainerStart -> "CONTAINER_START"-        NetworkUp -> "NETWORK_UP"-        StagingFilesDownloadStart -> "STAGING_FILES_DOWNLOAD_START"-        StagingFilesDownloadFinish -> "STAGING_FILES_DOWNLOAD_FINISH"-        SdkInstallStart -> "SDK_INSTALL_START"-        SdkInstallFinish -> "SDK_INSTALL_FINISH"--instance FromJSON WorkerLifecycleEventEvent where-    parseJSON = parseJSONText "WorkerLifecycleEventEvent"--instance ToJSON WorkerLifecycleEventEvent where-    toJSON = toJSONText---- | Executions stage states allow the same set of values as JobState.-data ExecutionStageStateExecutionStageState-    = ESSESSJobStateUnknown-      -- ^ @JOB_STATE_UNKNOWN@-      -- The job\'s run state isn\'t specified.-    | ESSESSJobStateStopped-      -- ^ @JOB_STATE_STOPPED@-      -- \`JOB_STATE_STOPPED\` indicates that the job has not yet started to run.-    | ESSESSJobStateRunning-      -- ^ @JOB_STATE_RUNNING@-      -- \`JOB_STATE_RUNNING\` indicates that the job is currently running.-    | ESSESSJobStateDone-      -- ^ @JOB_STATE_DONE@-      -- \`JOB_STATE_DONE\` indicates that the job has successfully completed.-      -- This is a terminal job state. This state may be set by the Cloud-      -- Dataflow service, as a transition from \`JOB_STATE_RUNNING\`. It may-      -- also be set via a Cloud Dataflow \`UpdateJob\` call, if the job has not-      -- yet reached a terminal state.-    | ESSESSJobStateFailed-      -- ^ @JOB_STATE_FAILED@-      -- \`JOB_STATE_FAILED\` indicates that the job has failed. This is a-      -- terminal job state. This state may only be set by the Cloud Dataflow-      -- service, and only as a transition from \`JOB_STATE_RUNNING\`.-    | ESSESSJobStateCancelled-      -- ^ @JOB_STATE_CANCELLED@-      -- \`JOB_STATE_CANCELLED\` indicates that the job has been explicitly-      -- cancelled. This is a terminal job state. This state may only be set via-      -- a Cloud Dataflow \`UpdateJob\` call, and only if the job has not yet-      -- reached another terminal state.-    | ESSESSJobStateUpdated-      -- ^ @JOB_STATE_UPDATED@-      -- \`JOB_STATE_UPDATED\` indicates that the job was successfully updated,-      -- meaning that this job was stopped and another job was started,-      -- inheriting state from this one. This is a terminal job state. This state-      -- may only be set by the Cloud Dataflow service, and only as a transition-      -- from \`JOB_STATE_RUNNING\`.-    | ESSESSJobStateDraining-      -- ^ @JOB_STATE_DRAINING@-      -- \`JOB_STATE_DRAINING\` indicates that the job is in the process of-      -- draining. A draining job has stopped pulling from its input sources and-      -- is processing any data that remains in-flight. This state may be set via-      -- a Cloud Dataflow \`UpdateJob\` call, but only as a transition from-      -- \`JOB_STATE_RUNNING\`. Jobs that are draining may only transition to-      -- \`JOB_STATE_DRAINED\`, \`JOB_STATE_CANCELLED\`, or \`JOB_STATE_FAILED\`.-    | ESSESSJobStateDrained-      -- ^ @JOB_STATE_DRAINED@-      -- \`JOB_STATE_DRAINED\` indicates that the job has been drained. A drained-      -- job terminated by stopping pulling from its input sources and processing-      -- any data that remained in-flight when draining was requested. This state-      -- is a terminal state, may only be set by the Cloud Dataflow service, and-      -- only as a transition from \`JOB_STATE_DRAINING\`.-    | ESSESSJobStatePending-      -- ^ @JOB_STATE_PENDING@-      -- \`JOB_STATE_PENDING\` indicates that the job has been created but is not-      -- yet running. Jobs that are pending may only transition to-      -- \`JOB_STATE_RUNNING\`, or \`JOB_STATE_FAILED\`.-    | ESSESSJobStateCancelling-      -- ^ @JOB_STATE_CANCELLING@-      -- \`JOB_STATE_CANCELLING\` indicates that the job has been explicitly-      -- cancelled and is in the process of stopping. Jobs that are cancelling-      -- may only transition to \`JOB_STATE_CANCELLED\` or \`JOB_STATE_FAILED\`.-    | ESSESSJobStateQueued-      -- ^ @JOB_STATE_QUEUED@-      -- \`JOB_STATE_QUEUED\` indicates that the job has been created but is-      -- being delayed until launch. Jobs that are queued may only transition to-      -- \`JOB_STATE_PENDING\` or \`JOB_STATE_CANCELLED\`.-      deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic)--instance Hashable ExecutionStageStateExecutionStageState--instance FromHttpApiData ExecutionStageStateExecutionStageState where-    parseQueryParam = \case-        "JOB_STATE_UNKNOWN" -> Right ESSESSJobStateUnknown-        "JOB_STATE_STOPPED" -> Right ESSESSJobStateStopped-        "JOB_STATE_RUNNING" -> Right ESSESSJobStateRunning-        "JOB_STATE_DONE" -> Right ESSESSJobStateDone-        "JOB_STATE_FAILED" -> Right ESSESSJobStateFailed-        "JOB_STATE_CANCELLED" -> Right ESSESSJobStateCancelled-        "JOB_STATE_UPDATED" -> Right ESSESSJobStateUpdated-        "JOB_STATE_DRAINING" -> Right ESSESSJobStateDraining-        "JOB_STATE_DRAINED" -> Right ESSESSJobStateDrained-        "JOB_STATE_PENDING" -> Right ESSESSJobStatePending-        "JOB_STATE_CANCELLING" -> Right ESSESSJobStateCancelling-        "JOB_STATE_QUEUED" -> Right ESSESSJobStateQueued-        x -> Left ("Unable to parse ExecutionStageStateExecutionStageState from: " <> x)--instance ToHttpApiData ExecutionStageStateExecutionStageState where-    toQueryParam = \case-        ESSESSJobStateUnknown -> "JOB_STATE_UNKNOWN"-        ESSESSJobStateStopped -> "JOB_STATE_STOPPED"-        ESSESSJobStateRunning -> "JOB_STATE_RUNNING"-        ESSESSJobStateDone -> "JOB_STATE_DONE"-        ESSESSJobStateFailed -> "JOB_STATE_FAILED"-        ESSESSJobStateCancelled -> "JOB_STATE_CANCELLED"-        ESSESSJobStateUpdated -> "JOB_STATE_UPDATED"-        ESSESSJobStateDraining -> "JOB_STATE_DRAINING"-        ESSESSJobStateDrained -> "JOB_STATE_DRAINED"-        ESSESSJobStatePending -> "JOB_STATE_PENDING"-        ESSESSJobStateCancelling -> "JOB_STATE_CANCELLING"-        ESSESSJobStateQueued -> "JOB_STATE_QUEUED"--instance FromJSON ExecutionStageStateExecutionStageState where-    parseJSON = parseJSONText "ExecutionStageStateExecutionStageState"--instance ToJSON ExecutionStageStateExecutionStageState where-    toJSON = toJSONText---- | Configuration for VM IPs.-data WorkerPoolIPConfiguration-    = WorkerIPUnspecified-      -- ^ @WORKER_IP_UNSPECIFIED@-      -- The configuration is unknown, or unspecified.-    | WorkerIPPublic-      -- ^ @WORKER_IP_PUBLIC@-      -- Workers should have public IP addresses.-    | WorkerIPPrivate-      -- ^ @WORKER_IP_PRIVATE@-      -- Workers should have private IP addresses.-      deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic)--instance Hashable WorkerPoolIPConfiguration--instance FromHttpApiData WorkerPoolIPConfiguration where-    parseQueryParam = \case-        "WORKER_IP_UNSPECIFIED" -> Right WorkerIPUnspecified-        "WORKER_IP_PUBLIC" -> Right WorkerIPPublic-        "WORKER_IP_PRIVATE" -> Right WorkerIPPrivate-        x -> Left ("Unable to parse WorkerPoolIPConfiguration from: " <> x)--instance ToHttpApiData WorkerPoolIPConfiguration where-    toQueryParam = \case-        WorkerIPUnspecified -> "WORKER_IP_UNSPECIFIED"-        WorkerIPPublic -> "WORKER_IP_PUBLIC"-        WorkerIPPrivate -> "WORKER_IP_PRIVATE"--instance FromJSON WorkerPoolIPConfiguration where-    parseJSON = parseJSONText "WorkerPoolIPConfiguration"--instance ToJSON WorkerPoolIPConfiguration where-    toJSON = toJSONText---- | One of the standard Origins defined above.-data CounterStructuredNameOrigin-    = System-      -- ^ @SYSTEM@-      -- Counter was created by the Dataflow system.-    | User-      -- ^ @USER@-      -- Counter was created by the user.-      deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic)--instance Hashable CounterStructuredNameOrigin--instance FromHttpApiData CounterStructuredNameOrigin where-    parseQueryParam = \case-        "SYSTEM" -> Right System-        "USER" -> Right User-        x -> Left ("Unable to parse CounterStructuredNameOrigin from: " <> x)--instance ToHttpApiData CounterStructuredNameOrigin where-    toQueryParam = \case-        System -> "SYSTEM"-        User -> "USER"--instance FromJSON CounterStructuredNameOrigin where-    parseJSON = parseJSONText "CounterStructuredNameOrigin"--instance ToJSON CounterStructuredNameOrigin where-    toJSON = toJSONText---- | A type of streaming computation task.-data StreamingComputationTaskTaskType-    = StreamingComputationTaskUnknown-      -- ^ @STREAMING_COMPUTATION_TASK_UNKNOWN@-      -- The streaming computation task is unknown, or unspecified.-    | StreamingComputationTaskStop-      -- ^ @STREAMING_COMPUTATION_TASK_STOP@-      -- Stop processing specified streaming computation range(s).-    | StreamingComputationTaskStart-      -- ^ @STREAMING_COMPUTATION_TASK_START@-      -- Start processing specified streaming computation range(s).-      deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic)--instance Hashable StreamingComputationTaskTaskType--instance FromHttpApiData StreamingComputationTaskTaskType where-    parseQueryParam = \case-        "STREAMING_COMPUTATION_TASK_UNKNOWN" -> Right StreamingComputationTaskUnknown-        "STREAMING_COMPUTATION_TASK_STOP" -> Right StreamingComputationTaskStop-        "STREAMING_COMPUTATION_TASK_START" -> Right StreamingComputationTaskStart-        x -> Left ("Unable to parse StreamingComputationTaskTaskType from: " <> x)--instance ToHttpApiData StreamingComputationTaskTaskType where-    toQueryParam = \case-        StreamingComputationTaskUnknown -> "STREAMING_COMPUTATION_TASK_UNKNOWN"-        StreamingComputationTaskStop -> "STREAMING_COMPUTATION_TASK_STOP"-        StreamingComputationTaskStart -> "STREAMING_COMPUTATION_TASK_START"--instance FromJSON StreamingComputationTaskTaskType where-    parseJSON = parseJSONText "StreamingComputationTaskTaskType"--instance ToJSON StreamingComputationTaskTaskType where-    toJSON = toJSONText---- | The support status for this SDK version.-data SdkVersionSdkSupportStatus-    = Unknown-      -- ^ @UNKNOWN@-      -- Cloud Dataflow is unaware of this version.-    | Supported-      -- ^ @SUPPORTED@-      -- This is a known version of an SDK, and is supported.-    | Stale-      -- ^ @STALE@-      -- A newer version of the SDK family exists, and an update is recommended.-    | Deprecated-      -- ^ @DEPRECATED@-      -- This version of the SDK is deprecated and will eventually be no longer-      -- supported.-    | Unsupported-      -- ^ @UNSUPPORTED@-      -- Support for this SDK version has ended and it should no longer be used.-      deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic)--instance Hashable SdkVersionSdkSupportStatus--instance FromHttpApiData SdkVersionSdkSupportStatus where-    parseQueryParam = \case-        "UNKNOWN" -> Right Unknown-        "SUPPORTED" -> Right Supported-        "STALE" -> Right Stale-        "DEPRECATED" -> Right Deprecated-        "UNSUPPORTED" -> Right Unsupported-        x -> Left ("Unable to parse SdkVersionSdkSupportStatus from: " <> x)--instance ToHttpApiData SdkVersionSdkSupportStatus where-    toQueryParam = \case-        Unknown -> "UNKNOWN"-        Supported -> "SUPPORTED"-        Stale -> "STALE"-        Deprecated -> "DEPRECATED"-        Unsupported -> "UNSUPPORTED"--instance FromJSON SdkVersionSdkSupportStatus where-    parseJSON = parseJSONText "SdkVersionSdkSupportStatus"--instance ToJSON SdkVersionSdkSupportStatus where-    toJSON = toJSONText
− gen/Network/Google/Resource/Dataflow/Projects/DeleteSnapshots.hs 
@@ -1,181 +0,0 @@-{-# 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
− gen/Network/Google/Resource/Dataflow/Projects/Jobs/Aggregated.hs 
@@ -1,221 +0,0 @@-{-# 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.Jobs.Aggregated--- 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)------ List the jobs of a project across all regions.------ /See:/ <https://cloud.google.com/dataflow Dataflow API Reference> for @dataflow.projects.jobs.aggregated@.-module Network.Google.Resource.Dataflow.Projects.Jobs.Aggregated-    (-    -- * REST Resource-      ProjectsJobsAggregatedResource--    -- * Creating a Request-    , projectsJobsAggregated-    , ProjectsJobsAggregated--    -- * Request Lenses-    , pjaXgafv-    , pjaUploadProtocol-    , pjaLocation-    , pjaAccessToken-    , pjaUploadType-    , pjaView-    , pjaFilter-    , pjaPageToken-    , pjaProjectId-    , pjaPageSize-    , pjaCallback-    ) where--import           Network.Google.Dataflow.Types-import           Network.Google.Prelude---- | A resource alias for @dataflow.projects.jobs.aggregated@ method which the--- 'ProjectsJobsAggregated' request conforms to.-type ProjectsJobsAggregatedResource =-     "v1b3" :>-       "projects" :>-         Capture "projectId" Text :>-           "jobs:aggregated" :>-             QueryParam "$.xgafv" Xgafv :>-               QueryParam "upload_protocol" Text :>-                 QueryParam "location" Text :>-                   QueryParam "access_token" Text :>-                     QueryParam "uploadType" Text :>-                       QueryParam "view" Text :>-                         QueryParam "filter" Text :>-                           QueryParam "pageToken" Text :>-                             QueryParam "pageSize" (Textual Int32) :>-                               QueryParam "callback" Text :>-                                 QueryParam "alt" AltJSON :>-                                   Get '[JSON] ListJobsResponse---- | List the jobs of a project across all regions.------ /See:/ 'projectsJobsAggregated' smart constructor.-data ProjectsJobsAggregated =-  ProjectsJobsAggregated'-    { _pjaXgafv          :: !(Maybe Xgafv)-    , _pjaUploadProtocol :: !(Maybe Text)-    , _pjaLocation       :: !(Maybe Text)-    , _pjaAccessToken    :: !(Maybe Text)-    , _pjaUploadType     :: !(Maybe Text)-    , _pjaView           :: !(Maybe Text)-    , _pjaFilter         :: !(Maybe Text)-    , _pjaPageToken      :: !(Maybe Text)-    , _pjaProjectId      :: !Text-    , _pjaPageSize       :: !(Maybe (Textual Int32))-    , _pjaCallback       :: !(Maybe Text)-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'ProjectsJobsAggregated' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'pjaXgafv'------ * 'pjaUploadProtocol'------ * 'pjaLocation'------ * 'pjaAccessToken'------ * 'pjaUploadType'------ * 'pjaView'------ * 'pjaFilter'------ * 'pjaPageToken'------ * 'pjaProjectId'------ * 'pjaPageSize'------ * 'pjaCallback'-projectsJobsAggregated-    :: Text -- ^ 'pjaProjectId'-    -> ProjectsJobsAggregated-projectsJobsAggregated pPjaProjectId_ =-  ProjectsJobsAggregated'-    { _pjaXgafv = Nothing-    , _pjaUploadProtocol = Nothing-    , _pjaLocation = Nothing-    , _pjaAccessToken = Nothing-    , _pjaUploadType = Nothing-    , _pjaView = Nothing-    , _pjaFilter = Nothing-    , _pjaPageToken = Nothing-    , _pjaProjectId = pPjaProjectId_-    , _pjaPageSize = Nothing-    , _pjaCallback = Nothing-    }----- | V1 error format.-pjaXgafv :: Lens' ProjectsJobsAggregated (Maybe Xgafv)-pjaXgafv = lens _pjaXgafv (\ s a -> s{_pjaXgafv = a})---- | Upload protocol for media (e.g. \"raw\", \"multipart\").-pjaUploadProtocol :: Lens' ProjectsJobsAggregated (Maybe Text)-pjaUploadProtocol-  = lens _pjaUploadProtocol-      (\ s a -> s{_pjaUploadProtocol = a})---- | 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})---- | OAuth access token.-pjaAccessToken :: Lens' ProjectsJobsAggregated (Maybe Text)-pjaAccessToken-  = lens _pjaAccessToken-      (\ s a -> s{_pjaAccessToken = a})---- | Legacy upload protocol for media (e.g. \"media\", \"multipart\").-pjaUploadType :: Lens' ProjectsJobsAggregated (Maybe Text)-pjaUploadType-  = lens _pjaUploadType-      (\ s a -> s{_pjaUploadType = a})---- | Level of information requested in response. Default is--- \`JOB_VIEW_SUMMARY\`.-pjaView :: Lens' ProjectsJobsAggregated (Maybe Text)-pjaView = lens _pjaView (\ s a -> s{_pjaView = a})---- | The kind of filter to use.-pjaFilter :: Lens' ProjectsJobsAggregated (Maybe Text)-pjaFilter-  = lens _pjaFilter (\ s a -> s{_pjaFilter = a})---- | Set this to the \'next_page_token\' field of a previous response to--- request additional results in a long list.-pjaPageToken :: Lens' ProjectsJobsAggregated (Maybe Text)-pjaPageToken-  = lens _pjaPageToken (\ s a -> s{_pjaPageToken = a})---- | The project which owns the jobs.-pjaProjectId :: Lens' ProjectsJobsAggregated Text-pjaProjectId-  = lens _pjaProjectId (\ s a -> s{_pjaProjectId = a})---- | If there are many jobs, limit response to at most this many. The actual--- number of jobs returned will be the lesser of max_responses and an--- unspecified server-defined limit.-pjaPageSize :: Lens' ProjectsJobsAggregated (Maybe Int32)-pjaPageSize-  = lens _pjaPageSize (\ s a -> s{_pjaPageSize = a}) .-      mapping _Coerce---- | JSONP-pjaCallback :: Lens' ProjectsJobsAggregated (Maybe Text)-pjaCallback-  = lens _pjaCallback (\ s a -> s{_pjaCallback = a})--instance GoogleRequest ProjectsJobsAggregated where-        type Rs ProjectsJobsAggregated = ListJobsResponse-        type Scopes ProjectsJobsAggregated =-             '["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 ProjectsJobsAggregated'{..}-          = go _pjaProjectId _pjaXgafv _pjaUploadProtocol-              _pjaLocation-              _pjaAccessToken-              _pjaUploadType-              _pjaView-              _pjaFilter-              _pjaPageToken-              _pjaPageSize-              _pjaCallback-              (Just AltJSON)-              dataflowService-          where go-                  = buildClient-                      (Proxy :: Proxy ProjectsJobsAggregatedResource)-                      mempty
− gen/Network/Google/Resource/Dataflow/Projects/Jobs/Create.hs 
@@ -1,213 +0,0 @@-{-# 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.Jobs.Create--- 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)------ 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-    (-    -- * REST Resource-      ProjectsJobsCreateResource--    -- * Creating a Request-    , projectsJobsCreate-    , ProjectsJobsCreate--    -- * Request Lenses-    , pjcXgafv-    , pjcUploadProtocol-    , pjcLocation-    , pjcAccessToken-    , pjcUploadType-    , pjcPayload-    , pjcView-    , pjcProjectId-    , pjcReplaceJobId-    , pjcCallback-    ) where--import           Network.Google.Dataflow.Types-import           Network.Google.Prelude---- | A resource alias for @dataflow.projects.jobs.create@ method which the--- 'ProjectsJobsCreate' request conforms to.-type ProjectsJobsCreateResource =-     "v1b3" :>-       "projects" :>-         Capture "projectId" Text :>-           "jobs" :>-             QueryParam "$.xgafv" Xgafv :>-               QueryParam "upload_protocol" Text :>-                 QueryParam "location" Text :>-                   QueryParam "access_token" Text :>-                     QueryParam "uploadType" Text :>-                       QueryParam "view" Text :>-                         QueryParam "replaceJobId" Text :>-                           QueryParam "callback" Text :>-                             QueryParam "alt" AltJSON :>-                               ReqBody '[JSON] Job :> Post '[JSON] 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'-    { _pjcXgafv          :: !(Maybe Xgafv)-    , _pjcUploadProtocol :: !(Maybe Text)-    , _pjcLocation       :: !(Maybe Text)-    , _pjcAccessToken    :: !(Maybe Text)-    , _pjcUploadType     :: !(Maybe Text)-    , _pjcPayload        :: !Job-    , _pjcView           :: !(Maybe Text)-    , _pjcProjectId      :: !Text-    , _pjcReplaceJobId   :: !(Maybe Text)-    , _pjcCallback       :: !(Maybe Text)-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'ProjectsJobsCreate' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'pjcXgafv'------ * 'pjcUploadProtocol'------ * 'pjcLocation'------ * 'pjcAccessToken'------ * 'pjcUploadType'------ * 'pjcPayload'------ * 'pjcView'------ * 'pjcProjectId'------ * 'pjcReplaceJobId'------ * 'pjcCallback'-projectsJobsCreate-    :: Job -- ^ 'pjcPayload'-    -> Text -- ^ 'pjcProjectId'-    -> ProjectsJobsCreate-projectsJobsCreate pPjcPayload_ pPjcProjectId_ =-  ProjectsJobsCreate'-    { _pjcXgafv = Nothing-    , _pjcUploadProtocol = Nothing-    , _pjcLocation = Nothing-    , _pjcAccessToken = Nothing-    , _pjcUploadType = Nothing-    , _pjcPayload = pPjcPayload_-    , _pjcView = Nothing-    , _pjcProjectId = pPjcProjectId_-    , _pjcReplaceJobId = Nothing-    , _pjcCallback = Nothing-    }----- | V1 error format.-pjcXgafv :: Lens' ProjectsJobsCreate (Maybe Xgafv)-pjcXgafv = lens _pjcXgafv (\ s a -> s{_pjcXgafv = a})---- | Upload protocol for media (e.g. \"raw\", \"multipart\").-pjcUploadProtocol :: Lens' ProjectsJobsCreate (Maybe Text)-pjcUploadProtocol-  = lens _pjcUploadProtocol-      (\ s a -> s{_pjcUploadProtocol = a})---- | 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})---- | OAuth access token.-pjcAccessToken :: Lens' ProjectsJobsCreate (Maybe Text)-pjcAccessToken-  = lens _pjcAccessToken-      (\ s a -> s{_pjcAccessToken = a})---- | Legacy upload protocol for media (e.g. \"media\", \"multipart\").-pjcUploadType :: Lens' ProjectsJobsCreate (Maybe Text)-pjcUploadType-  = lens _pjcUploadType-      (\ s a -> s{_pjcUploadType = a})---- | Multipart request metadata.-pjcPayload :: Lens' ProjectsJobsCreate Job-pjcPayload-  = lens _pjcPayload (\ s a -> s{_pjcPayload = a})---- | The level of information requested in response.-pjcView :: Lens' ProjectsJobsCreate (Maybe Text)-pjcView = lens _pjcView (\ s a -> s{_pjcView = a})---- | The ID of the Cloud Platform project that the job belongs to.-pjcProjectId :: Lens' ProjectsJobsCreate Text-pjcProjectId-  = lens _pjcProjectId (\ s a -> s{_pjcProjectId = a})---- | Deprecated. This field is now in the Job message.-pjcReplaceJobId :: Lens' ProjectsJobsCreate (Maybe Text)-pjcReplaceJobId-  = lens _pjcReplaceJobId-      (\ s a -> s{_pjcReplaceJobId = a})---- | JSONP-pjcCallback :: Lens' ProjectsJobsCreate (Maybe Text)-pjcCallback-  = lens _pjcCallback (\ s a -> s{_pjcCallback = a})--instance GoogleRequest ProjectsJobsCreate where-        type Rs ProjectsJobsCreate = Job-        type Scopes ProjectsJobsCreate =-             '["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 ProjectsJobsCreate'{..}-          = go _pjcProjectId _pjcXgafv _pjcUploadProtocol-              _pjcLocation-              _pjcAccessToken-              _pjcUploadType-              _pjcView-              _pjcReplaceJobId-              _pjcCallback-              (Just AltJSON)-              _pjcPayload-              dataflowService-          where go-                  = buildClient-                      (Proxy :: Proxy ProjectsJobsCreateResource)-                      mempty
− gen/Network/Google/Resource/Dataflow/Projects/Jobs/Debug/GetConfig.hs 
@@ -1,188 +0,0 @@-{-# 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.Jobs.Debug.GetConfig--- 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)------ Get encoded debug configuration for component. Not cacheable.------ /See:/ <https://cloud.google.com/dataflow Dataflow API Reference> for @dataflow.projects.jobs.debug.getConfig@.-module Network.Google.Resource.Dataflow.Projects.Jobs.Debug.GetConfig-    (-    -- * REST Resource-      ProjectsJobsDebugGetConfigResource--    -- * Creating a Request-    , projectsJobsDebugGetConfig-    , ProjectsJobsDebugGetConfig--    -- * Request Lenses-    , pjdgcXgafv-    , pjdgcJobId-    , pjdgcUploadProtocol-    , pjdgcAccessToken-    , pjdgcUploadType-    , pjdgcPayload-    , pjdgcProjectId-    , pjdgcCallback-    ) where--import           Network.Google.Dataflow.Types-import           Network.Google.Prelude---- | A resource alias for @dataflow.projects.jobs.debug.getConfig@ method which the--- 'ProjectsJobsDebugGetConfig' request conforms to.-type ProjectsJobsDebugGetConfigResource =-     "v1b3" :>-       "projects" :>-         Capture "projectId" Text :>-           "jobs" :>-             Capture "jobId" Text :>-               "debug" :>-                 "getConfig" :>-                   QueryParam "$.xgafv" Xgafv :>-                     QueryParam "upload_protocol" Text :>-                       QueryParam "access_token" Text :>-                         QueryParam "uploadType" Text :>-                           QueryParam "callback" Text :>-                             QueryParam "alt" AltJSON :>-                               ReqBody '[JSON] GetDebugConfigRequest :>-                                 Post '[JSON] GetDebugConfigResponse---- | Get encoded debug configuration for component. Not cacheable.------ /See:/ 'projectsJobsDebugGetConfig' smart constructor.-data ProjectsJobsDebugGetConfig =-  ProjectsJobsDebugGetConfig'-    { _pjdgcXgafv          :: !(Maybe Xgafv)-    , _pjdgcJobId          :: !Text-    , _pjdgcUploadProtocol :: !(Maybe Text)-    , _pjdgcAccessToken    :: !(Maybe Text)-    , _pjdgcUploadType     :: !(Maybe Text)-    , _pjdgcPayload        :: !GetDebugConfigRequest-    , _pjdgcProjectId      :: !Text-    , _pjdgcCallback       :: !(Maybe Text)-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'ProjectsJobsDebugGetConfig' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'pjdgcXgafv'------ * 'pjdgcJobId'------ * 'pjdgcUploadProtocol'------ * 'pjdgcAccessToken'------ * 'pjdgcUploadType'------ * 'pjdgcPayload'------ * 'pjdgcProjectId'------ * 'pjdgcCallback'-projectsJobsDebugGetConfig-    :: Text -- ^ 'pjdgcJobId'-    -> GetDebugConfigRequest -- ^ 'pjdgcPayload'-    -> Text -- ^ 'pjdgcProjectId'-    -> ProjectsJobsDebugGetConfig-projectsJobsDebugGetConfig pPjdgcJobId_ pPjdgcPayload_ pPjdgcProjectId_ =-  ProjectsJobsDebugGetConfig'-    { _pjdgcXgafv = Nothing-    , _pjdgcJobId = pPjdgcJobId_-    , _pjdgcUploadProtocol = Nothing-    , _pjdgcAccessToken = Nothing-    , _pjdgcUploadType = Nothing-    , _pjdgcPayload = pPjdgcPayload_-    , _pjdgcProjectId = pPjdgcProjectId_-    , _pjdgcCallback = Nothing-    }----- | V1 error format.-pjdgcXgafv :: Lens' ProjectsJobsDebugGetConfig (Maybe Xgafv)-pjdgcXgafv-  = lens _pjdgcXgafv (\ s a -> s{_pjdgcXgafv = a})---- | The job id.-pjdgcJobId :: Lens' ProjectsJobsDebugGetConfig Text-pjdgcJobId-  = lens _pjdgcJobId (\ s a -> s{_pjdgcJobId = a})---- | Upload protocol for media (e.g. \"raw\", \"multipart\").-pjdgcUploadProtocol :: Lens' ProjectsJobsDebugGetConfig (Maybe Text)-pjdgcUploadProtocol-  = lens _pjdgcUploadProtocol-      (\ s a -> s{_pjdgcUploadProtocol = a})---- | OAuth access token.-pjdgcAccessToken :: Lens' ProjectsJobsDebugGetConfig (Maybe Text)-pjdgcAccessToken-  = lens _pjdgcAccessToken-      (\ s a -> s{_pjdgcAccessToken = a})---- | Legacy upload protocol for media (e.g. \"media\", \"multipart\").-pjdgcUploadType :: Lens' ProjectsJobsDebugGetConfig (Maybe Text)-pjdgcUploadType-  = lens _pjdgcUploadType-      (\ s a -> s{_pjdgcUploadType = a})---- | Multipart request metadata.-pjdgcPayload :: Lens' ProjectsJobsDebugGetConfig GetDebugConfigRequest-pjdgcPayload-  = lens _pjdgcPayload (\ s a -> s{_pjdgcPayload = a})---- | The project id.-pjdgcProjectId :: Lens' ProjectsJobsDebugGetConfig Text-pjdgcProjectId-  = lens _pjdgcProjectId-      (\ s a -> s{_pjdgcProjectId = a})---- | JSONP-pjdgcCallback :: Lens' ProjectsJobsDebugGetConfig (Maybe Text)-pjdgcCallback-  = lens _pjdgcCallback-      (\ s a -> s{_pjdgcCallback = a})--instance GoogleRequest ProjectsJobsDebugGetConfig-         where-        type Rs ProjectsJobsDebugGetConfig =-             GetDebugConfigResponse-        type Scopes ProjectsJobsDebugGetConfig =-             '["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 ProjectsJobsDebugGetConfig'{..}-          = go _pjdgcProjectId _pjdgcJobId _pjdgcXgafv-              _pjdgcUploadProtocol-              _pjdgcAccessToken-              _pjdgcUploadType-              _pjdgcCallback-              (Just AltJSON)-              _pjdgcPayload-              dataflowService-          where go-                  = buildClient-                      (Proxy :: Proxy ProjectsJobsDebugGetConfigResource)-                      mempty
− gen/Network/Google/Resource/Dataflow/Projects/Jobs/Debug/SendCapture.hs 
@@ -1,188 +0,0 @@-{-# 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.Jobs.Debug.SendCapture--- 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)------ Send encoded debug capture data for component.------ /See:/ <https://cloud.google.com/dataflow Dataflow API Reference> for @dataflow.projects.jobs.debug.sendCapture@.-module Network.Google.Resource.Dataflow.Projects.Jobs.Debug.SendCapture-    (-    -- * REST Resource-      ProjectsJobsDebugSendCaptureResource--    -- * Creating a Request-    , projectsJobsDebugSendCapture-    , ProjectsJobsDebugSendCapture--    -- * Request Lenses-    , pjdscXgafv-    , pjdscJobId-    , pjdscUploadProtocol-    , pjdscAccessToken-    , pjdscUploadType-    , pjdscPayload-    , pjdscProjectId-    , pjdscCallback-    ) where--import           Network.Google.Dataflow.Types-import           Network.Google.Prelude---- | A resource alias for @dataflow.projects.jobs.debug.sendCapture@ method which the--- 'ProjectsJobsDebugSendCapture' request conforms to.-type ProjectsJobsDebugSendCaptureResource =-     "v1b3" :>-       "projects" :>-         Capture "projectId" Text :>-           "jobs" :>-             Capture "jobId" Text :>-               "debug" :>-                 "sendCapture" :>-                   QueryParam "$.xgafv" Xgafv :>-                     QueryParam "upload_protocol" Text :>-                       QueryParam "access_token" Text :>-                         QueryParam "uploadType" Text :>-                           QueryParam "callback" Text :>-                             QueryParam "alt" AltJSON :>-                               ReqBody '[JSON] SendDebugCaptureRequest :>-                                 Post '[JSON] SendDebugCaptureResponse---- | Send encoded debug capture data for component.------ /See:/ 'projectsJobsDebugSendCapture' smart constructor.-data ProjectsJobsDebugSendCapture =-  ProjectsJobsDebugSendCapture'-    { _pjdscXgafv          :: !(Maybe Xgafv)-    , _pjdscJobId          :: !Text-    , _pjdscUploadProtocol :: !(Maybe Text)-    , _pjdscAccessToken    :: !(Maybe Text)-    , _pjdscUploadType     :: !(Maybe Text)-    , _pjdscPayload        :: !SendDebugCaptureRequest-    , _pjdscProjectId      :: !Text-    , _pjdscCallback       :: !(Maybe Text)-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'ProjectsJobsDebugSendCapture' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'pjdscXgafv'------ * 'pjdscJobId'------ * 'pjdscUploadProtocol'------ * 'pjdscAccessToken'------ * 'pjdscUploadType'------ * 'pjdscPayload'------ * 'pjdscProjectId'------ * 'pjdscCallback'-projectsJobsDebugSendCapture-    :: Text -- ^ 'pjdscJobId'-    -> SendDebugCaptureRequest -- ^ 'pjdscPayload'-    -> Text -- ^ 'pjdscProjectId'-    -> ProjectsJobsDebugSendCapture-projectsJobsDebugSendCapture pPjdscJobId_ pPjdscPayload_ pPjdscProjectId_ =-  ProjectsJobsDebugSendCapture'-    { _pjdscXgafv = Nothing-    , _pjdscJobId = pPjdscJobId_-    , _pjdscUploadProtocol = Nothing-    , _pjdscAccessToken = Nothing-    , _pjdscUploadType = Nothing-    , _pjdscPayload = pPjdscPayload_-    , _pjdscProjectId = pPjdscProjectId_-    , _pjdscCallback = Nothing-    }----- | V1 error format.-pjdscXgafv :: Lens' ProjectsJobsDebugSendCapture (Maybe Xgafv)-pjdscXgafv-  = lens _pjdscXgafv (\ s a -> s{_pjdscXgafv = a})---- | The job id.-pjdscJobId :: Lens' ProjectsJobsDebugSendCapture Text-pjdscJobId-  = lens _pjdscJobId (\ s a -> s{_pjdscJobId = a})---- | Upload protocol for media (e.g. \"raw\", \"multipart\").-pjdscUploadProtocol :: Lens' ProjectsJobsDebugSendCapture (Maybe Text)-pjdscUploadProtocol-  = lens _pjdscUploadProtocol-      (\ s a -> s{_pjdscUploadProtocol = a})---- | OAuth access token.-pjdscAccessToken :: Lens' ProjectsJobsDebugSendCapture (Maybe Text)-pjdscAccessToken-  = lens _pjdscAccessToken-      (\ s a -> s{_pjdscAccessToken = a})---- | Legacy upload protocol for media (e.g. \"media\", \"multipart\").-pjdscUploadType :: Lens' ProjectsJobsDebugSendCapture (Maybe Text)-pjdscUploadType-  = lens _pjdscUploadType-      (\ s a -> s{_pjdscUploadType = a})---- | Multipart request metadata.-pjdscPayload :: Lens' ProjectsJobsDebugSendCapture SendDebugCaptureRequest-pjdscPayload-  = lens _pjdscPayload (\ s a -> s{_pjdscPayload = a})---- | The project id.-pjdscProjectId :: Lens' ProjectsJobsDebugSendCapture Text-pjdscProjectId-  = lens _pjdscProjectId-      (\ s a -> s{_pjdscProjectId = a})---- | JSONP-pjdscCallback :: Lens' ProjectsJobsDebugSendCapture (Maybe Text)-pjdscCallback-  = lens _pjdscCallback-      (\ s a -> s{_pjdscCallback = a})--instance GoogleRequest ProjectsJobsDebugSendCapture-         where-        type Rs ProjectsJobsDebugSendCapture =-             SendDebugCaptureResponse-        type Scopes ProjectsJobsDebugSendCapture =-             '["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 ProjectsJobsDebugSendCapture'{..}-          = go _pjdscProjectId _pjdscJobId _pjdscXgafv-              _pjdscUploadProtocol-              _pjdscAccessToken-              _pjdscUploadType-              _pjdscCallback-              (Just AltJSON)-              _pjdscPayload-              dataflowService-          where go-                  = buildClient-                      (Proxy :: Proxy ProjectsJobsDebugSendCaptureResource)-                      mempty
− gen/Network/Google/Resource/Dataflow/Projects/Jobs/Get.hs 
@@ -1,201 +0,0 @@-{-# 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.Jobs.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 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-    (-    -- * REST Resource-      ProjectsJobsGetResource--    -- * Creating a Request-    , projectsJobsGet-    , ProjectsJobsGet--    -- * Request Lenses-    , pjgXgafv-    , pjgJobId-    , pjgUploadProtocol-    , pjgLocation-    , pjgAccessToken-    , pjgUploadType-    , pjgView-    , pjgProjectId-    , pjgCallback-    ) where--import           Network.Google.Dataflow.Types-import           Network.Google.Prelude---- | A resource alias for @dataflow.projects.jobs.get@ method which the--- 'ProjectsJobsGet' request conforms to.-type ProjectsJobsGetResource =-     "v1b3" :>-       "projects" :>-         Capture "projectId" Text :>-           "jobs" :>-             Capture "jobId" Text :>-               QueryParam "$.xgafv" Xgafv :>-                 QueryParam "upload_protocol" Text :>-                   QueryParam "location" Text :>-                     QueryParam "access_token" Text :>-                       QueryParam "uploadType" Text :>-                         QueryParam "view" Text :>-                           QueryParam "callback" Text :>-                             QueryParam "alt" AltJSON :> Get '[JSON] 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'-    { _pjgXgafv          :: !(Maybe Xgafv)-    , _pjgJobId          :: !Text-    , _pjgUploadProtocol :: !(Maybe Text)-    , _pjgLocation       :: !(Maybe Text)-    , _pjgAccessToken    :: !(Maybe Text)-    , _pjgUploadType     :: !(Maybe Text)-    , _pjgView           :: !(Maybe Text)-    , _pjgProjectId      :: !Text-    , _pjgCallback       :: !(Maybe Text)-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'ProjectsJobsGet' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'pjgXgafv'------ * 'pjgJobId'------ * 'pjgUploadProtocol'------ * 'pjgLocation'------ * 'pjgAccessToken'------ * 'pjgUploadType'------ * 'pjgView'------ * 'pjgProjectId'------ * 'pjgCallback'-projectsJobsGet-    :: Text -- ^ 'pjgJobId'-    -> Text -- ^ 'pjgProjectId'-    -> ProjectsJobsGet-projectsJobsGet pPjgJobId_ pPjgProjectId_ =-  ProjectsJobsGet'-    { _pjgXgafv = Nothing-    , _pjgJobId = pPjgJobId_-    , _pjgUploadProtocol = Nothing-    , _pjgLocation = Nothing-    , _pjgAccessToken = Nothing-    , _pjgUploadType = Nothing-    , _pjgView = Nothing-    , _pjgProjectId = pPjgProjectId_-    , _pjgCallback = Nothing-    }----- | V1 error format.-pjgXgafv :: Lens' ProjectsJobsGet (Maybe Xgafv)-pjgXgafv = lens _pjgXgafv (\ s a -> s{_pjgXgafv = a})---- | The job ID.-pjgJobId :: Lens' ProjectsJobsGet Text-pjgJobId = lens _pjgJobId (\ s a -> s{_pjgJobId = a})---- | Upload protocol for media (e.g. \"raw\", \"multipart\").-pjgUploadProtocol :: Lens' ProjectsJobsGet (Maybe Text)-pjgUploadProtocol-  = lens _pjgUploadProtocol-      (\ s a -> s{_pjgUploadProtocol = a})---- | 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})---- | OAuth access token.-pjgAccessToken :: Lens' ProjectsJobsGet (Maybe Text)-pjgAccessToken-  = lens _pjgAccessToken-      (\ s a -> s{_pjgAccessToken = a})---- | Legacy upload protocol for media (e.g. \"media\", \"multipart\").-pjgUploadType :: Lens' ProjectsJobsGet (Maybe Text)-pjgUploadType-  = lens _pjgUploadType-      (\ s a -> s{_pjgUploadType = a})---- | The level of information requested in response.-pjgView :: Lens' ProjectsJobsGet (Maybe Text)-pjgView = lens _pjgView (\ s a -> s{_pjgView = a})---- | The ID of the Cloud Platform project that the job belongs to.-pjgProjectId :: Lens' ProjectsJobsGet Text-pjgProjectId-  = lens _pjgProjectId (\ s a -> s{_pjgProjectId = a})---- | JSONP-pjgCallback :: Lens' ProjectsJobsGet (Maybe Text)-pjgCallback-  = lens _pjgCallback (\ s a -> s{_pjgCallback = a})--instance GoogleRequest ProjectsJobsGet where-        type Rs ProjectsJobsGet = Job-        type Scopes ProjectsJobsGet =-             '["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 ProjectsJobsGet'{..}-          = go _pjgProjectId _pjgJobId _pjgXgafv-              _pjgUploadProtocol-              _pjgLocation-              _pjgAccessToken-              _pjgUploadType-              _pjgView-              _pjgCallback-              (Just AltJSON)-              dataflowService-          where go-                  = buildClient-                      (Proxy :: Proxy ProjectsJobsGetResource)-                      mempty
− gen/Network/Google/Resource/Dataflow/Projects/Jobs/GetMetrics.hs 
@@ -1,208 +0,0 @@-{-# 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.Jobs.GetMetrics--- 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)------ 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-    (-    -- * REST Resource-      ProjectsJobsGetMetricsResource--    -- * Creating a Request-    , projectsJobsGetMetrics-    , ProjectsJobsGetMetrics--    -- * Request Lenses-    , pjgmXgafv-    , pjgmJobId-    , pjgmUploadProtocol-    , pjgmLocation-    , pjgmStartTime-    , pjgmAccessToken-    , pjgmUploadType-    , pjgmProjectId-    , pjgmCallback-    ) where--import           Network.Google.Dataflow.Types-import           Network.Google.Prelude---- | A resource alias for @dataflow.projects.jobs.getMetrics@ method which the--- 'ProjectsJobsGetMetrics' request conforms to.-type ProjectsJobsGetMetricsResource =-     "v1b3" :>-       "projects" :>-         Capture "projectId" Text :>-           "jobs" :>-             Capture "jobId" Text :>-               "metrics" :>-                 QueryParam "$.xgafv" Xgafv :>-                   QueryParam "upload_protocol" Text :>-                     QueryParam "location" Text :>-                       QueryParam "startTime" DateTime' :>-                         QueryParam "access_token" Text :>-                           QueryParam "uploadType" Text :>-                             QueryParam "callback" Text :>-                               QueryParam "alt" AltJSON :>-                                 Get '[JSON] JobMetrics---- | 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'-    { _pjgmXgafv          :: !(Maybe Xgafv)-    , _pjgmJobId          :: !Text-    , _pjgmUploadProtocol :: !(Maybe Text)-    , _pjgmLocation       :: !(Maybe Text)-    , _pjgmStartTime      :: !(Maybe DateTime')-    , _pjgmAccessToken    :: !(Maybe Text)-    , _pjgmUploadType     :: !(Maybe Text)-    , _pjgmProjectId      :: !Text-    , _pjgmCallback       :: !(Maybe Text)-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'ProjectsJobsGetMetrics' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'pjgmXgafv'------ * 'pjgmJobId'------ * 'pjgmUploadProtocol'------ * 'pjgmLocation'------ * 'pjgmStartTime'------ * 'pjgmAccessToken'------ * 'pjgmUploadType'------ * 'pjgmProjectId'------ * 'pjgmCallback'-projectsJobsGetMetrics-    :: Text -- ^ 'pjgmJobId'-    -> Text -- ^ 'pjgmProjectId'-    -> ProjectsJobsGetMetrics-projectsJobsGetMetrics pPjgmJobId_ pPjgmProjectId_ =-  ProjectsJobsGetMetrics'-    { _pjgmXgafv = Nothing-    , _pjgmJobId = pPjgmJobId_-    , _pjgmUploadProtocol = Nothing-    , _pjgmLocation = Nothing-    , _pjgmStartTime = Nothing-    , _pjgmAccessToken = Nothing-    , _pjgmUploadType = Nothing-    , _pjgmProjectId = pPjgmProjectId_-    , _pjgmCallback = Nothing-    }----- | V1 error format.-pjgmXgafv :: Lens' ProjectsJobsGetMetrics (Maybe Xgafv)-pjgmXgafv-  = lens _pjgmXgafv (\ s a -> s{_pjgmXgafv = a})---- | The job to get messages for.-pjgmJobId :: Lens' ProjectsJobsGetMetrics Text-pjgmJobId-  = lens _pjgmJobId (\ s a -> s{_pjgmJobId = a})---- | Upload protocol for media (e.g. \"raw\", \"multipart\").-pjgmUploadProtocol :: Lens' ProjectsJobsGetMetrics (Maybe Text)-pjgmUploadProtocol-  = lens _pjgmUploadProtocol-      (\ s a -> s{_pjgmUploadProtocol = a})---- | 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})---- | Return only metric data that has changed since this time. Default is to--- return all information about all metrics for the job.-pjgmStartTime :: Lens' ProjectsJobsGetMetrics (Maybe UTCTime)-pjgmStartTime-  = lens _pjgmStartTime-      (\ s a -> s{_pjgmStartTime = a})-      . mapping _DateTime---- | OAuth access token.-pjgmAccessToken :: Lens' ProjectsJobsGetMetrics (Maybe Text)-pjgmAccessToken-  = lens _pjgmAccessToken-      (\ s a -> s{_pjgmAccessToken = a})---- | Legacy upload protocol for media (e.g. \"media\", \"multipart\").-pjgmUploadType :: Lens' ProjectsJobsGetMetrics (Maybe Text)-pjgmUploadType-  = lens _pjgmUploadType-      (\ s a -> s{_pjgmUploadType = a})---- | A project id.-pjgmProjectId :: Lens' ProjectsJobsGetMetrics Text-pjgmProjectId-  = lens _pjgmProjectId-      (\ s a -> s{_pjgmProjectId = a})---- | JSONP-pjgmCallback :: Lens' ProjectsJobsGetMetrics (Maybe Text)-pjgmCallback-  = lens _pjgmCallback (\ s a -> s{_pjgmCallback = a})--instance GoogleRequest ProjectsJobsGetMetrics where-        type Rs ProjectsJobsGetMetrics = JobMetrics-        type Scopes ProjectsJobsGetMetrics =-             '["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 ProjectsJobsGetMetrics'{..}-          = go _pjgmProjectId _pjgmJobId _pjgmXgafv-              _pjgmUploadProtocol-              _pjgmLocation-              _pjgmStartTime-              _pjgmAccessToken-              _pjgmUploadType-              _pjgmCallback-              (Just AltJSON)-              dataflowService-          where go-                  = buildClient-                      (Proxy :: Proxy ProjectsJobsGetMetricsResource)-                      mempty
− gen/Network/Google/Resource/Dataflow/Projects/Jobs/List.hs 
@@ -1,235 +0,0 @@-{-# 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.Jobs.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)------ 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-    (-    -- * REST Resource-      ProjectsJobsListResource--    -- * Creating a Request-    , projectsJobsList-    , ProjectsJobsList--    -- * Request Lenses-    , pjlXgafv-    , pjlUploadProtocol-    , pjlLocation-    , pjlAccessToken-    , pjlUploadType-    , pjlView-    , pjlFilter-    , pjlPageToken-    , pjlProjectId-    , pjlPageSize-    , pjlCallback-    ) where--import           Network.Google.Dataflow.Types-import           Network.Google.Prelude---- | A resource alias for @dataflow.projects.jobs.list@ method which the--- 'ProjectsJobsList' request conforms to.-type ProjectsJobsListResource =-     "v1b3" :>-       "projects" :>-         Capture "projectId" Text :>-           "jobs" :>-             QueryParam "$.xgafv" Xgafv :>-               QueryParam "upload_protocol" Text :>-                 QueryParam "location" Text :>-                   QueryParam "access_token" Text :>-                     QueryParam "uploadType" Text :>-                       QueryParam "view" Text :>-                         QueryParam "filter" Text :>-                           QueryParam "pageToken" Text :>-                             QueryParam "pageSize" (Textual Int32) :>-                               QueryParam "callback" Text :>-                                 QueryParam "alt" AltJSON :>-                                   Get '[JSON] ListJobsResponse---- | 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'-    { _pjlXgafv          :: !(Maybe Xgafv)-    , _pjlUploadProtocol :: !(Maybe Text)-    , _pjlLocation       :: !(Maybe Text)-    , _pjlAccessToken    :: !(Maybe Text)-    , _pjlUploadType     :: !(Maybe Text)-    , _pjlView           :: !(Maybe Text)-    , _pjlFilter         :: !(Maybe Text)-    , _pjlPageToken      :: !(Maybe Text)-    , _pjlProjectId      :: !Text-    , _pjlPageSize       :: !(Maybe (Textual Int32))-    , _pjlCallback       :: !(Maybe Text)-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'ProjectsJobsList' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'pjlXgafv'------ * 'pjlUploadProtocol'------ * 'pjlLocation'------ * 'pjlAccessToken'------ * 'pjlUploadType'------ * 'pjlView'------ * 'pjlFilter'------ * 'pjlPageToken'------ * 'pjlProjectId'------ * 'pjlPageSize'------ * 'pjlCallback'-projectsJobsList-    :: Text -- ^ 'pjlProjectId'-    -> ProjectsJobsList-projectsJobsList pPjlProjectId_ =-  ProjectsJobsList'-    { _pjlXgafv = Nothing-    , _pjlUploadProtocol = Nothing-    , _pjlLocation = Nothing-    , _pjlAccessToken = Nothing-    , _pjlUploadType = Nothing-    , _pjlView = Nothing-    , _pjlFilter = Nothing-    , _pjlPageToken = Nothing-    , _pjlProjectId = pPjlProjectId_-    , _pjlPageSize = Nothing-    , _pjlCallback = Nothing-    }----- | V1 error format.-pjlXgafv :: Lens' ProjectsJobsList (Maybe Xgafv)-pjlXgafv = lens _pjlXgafv (\ s a -> s{_pjlXgafv = a})---- | Upload protocol for media (e.g. \"raw\", \"multipart\").-pjlUploadProtocol :: Lens' ProjectsJobsList (Maybe Text)-pjlUploadProtocol-  = lens _pjlUploadProtocol-      (\ s a -> s{_pjlUploadProtocol = a})---- | 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})---- | OAuth access token.-pjlAccessToken :: Lens' ProjectsJobsList (Maybe Text)-pjlAccessToken-  = lens _pjlAccessToken-      (\ s a -> s{_pjlAccessToken = a})---- | Legacy upload protocol for media (e.g. \"media\", \"multipart\").-pjlUploadType :: Lens' ProjectsJobsList (Maybe Text)-pjlUploadType-  = lens _pjlUploadType-      (\ s a -> s{_pjlUploadType = a})---- | Level of information requested in response. Default is--- \`JOB_VIEW_SUMMARY\`.-pjlView :: Lens' ProjectsJobsList (Maybe Text)-pjlView = lens _pjlView (\ s a -> s{_pjlView = a})---- | The kind of filter to use.-pjlFilter :: Lens' ProjectsJobsList (Maybe Text)-pjlFilter-  = lens _pjlFilter (\ s a -> s{_pjlFilter = a})---- | Set this to the \'next_page_token\' field of a previous response to--- request additional results in a long list.-pjlPageToken :: Lens' ProjectsJobsList (Maybe Text)-pjlPageToken-  = lens _pjlPageToken (\ s a -> s{_pjlPageToken = a})---- | The project which owns the jobs.-pjlProjectId :: Lens' ProjectsJobsList Text-pjlProjectId-  = lens _pjlProjectId (\ s a -> s{_pjlProjectId = a})---- | If there are many jobs, limit response to at most this many. The actual--- number of jobs returned will be the lesser of max_responses and an--- unspecified server-defined limit.-pjlPageSize :: Lens' ProjectsJobsList (Maybe Int32)-pjlPageSize-  = lens _pjlPageSize (\ s a -> s{_pjlPageSize = a}) .-      mapping _Coerce---- | JSONP-pjlCallback :: Lens' ProjectsJobsList (Maybe Text)-pjlCallback-  = lens _pjlCallback (\ s a -> s{_pjlCallback = a})--instance GoogleRequest ProjectsJobsList where-        type Rs ProjectsJobsList = ListJobsResponse-        type Scopes ProjectsJobsList =-             '["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 ProjectsJobsList'{..}-          = go _pjlProjectId _pjlXgafv _pjlUploadProtocol-              _pjlLocation-              _pjlAccessToken-              _pjlUploadType-              _pjlView-              _pjlFilter-              _pjlPageToken-              _pjlPageSize-              _pjlCallback-              (Just AltJSON)-              dataflowService-          where go-                  = buildClient-                      (Proxy :: Proxy ProjectsJobsListResource)-                      mempty
− gen/Network/Google/Resource/Dataflow/Projects/Jobs/Messages/List.hs 
@@ -1,267 +0,0 @@-{-# 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.Jobs.Messages.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)------ 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-    (-    -- * REST Resource-      ProjectsJobsMessagesListResource--    -- * Creating a Request-    , projectsJobsMessagesList-    , ProjectsJobsMessagesList--    -- * Request Lenses-    , pjmlXgafv-    , pjmlJobId-    , pjmlUploadProtocol-    , pjmlLocation-    , pjmlStartTime-    , pjmlAccessToken-    , pjmlUploadType-    , pjmlEndTime-    , pjmlMinimumImportance-    , pjmlPageToken-    , pjmlProjectId-    , pjmlPageSize-    , pjmlCallback-    ) where--import           Network.Google.Dataflow.Types-import           Network.Google.Prelude---- | A resource alias for @dataflow.projects.jobs.messages.list@ method which the--- 'ProjectsJobsMessagesList' request conforms to.-type ProjectsJobsMessagesListResource =-     "v1b3" :>-       "projects" :>-         Capture "projectId" Text :>-           "jobs" :>-             Capture "jobId" Text :>-               "messages" :>-                 QueryParam "$.xgafv" Xgafv :>-                   QueryParam "upload_protocol" Text :>-                     QueryParam "location" Text :>-                       QueryParam "startTime" DateTime' :>-                         QueryParam "access_token" Text :>-                           QueryParam "uploadType" Text :>-                             QueryParam "endTime" DateTime' :>-                               QueryParam "minimumImportance" Text :>-                                 QueryParam "pageToken" Text :>-                                   QueryParam "pageSize" (Textual Int32) :>-                                     QueryParam "callback" Text :>-                                       QueryParam "alt" AltJSON :>-                                         Get '[JSON] ListJobMessagesResponse---- | 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'-    { _pjmlXgafv             :: !(Maybe Xgafv)-    , _pjmlJobId             :: !Text-    , _pjmlUploadProtocol    :: !(Maybe Text)-    , _pjmlLocation          :: !(Maybe Text)-    , _pjmlStartTime         :: !(Maybe DateTime')-    , _pjmlAccessToken       :: !(Maybe Text)-    , _pjmlUploadType        :: !(Maybe Text)-    , _pjmlEndTime           :: !(Maybe DateTime')-    , _pjmlMinimumImportance :: !(Maybe Text)-    , _pjmlPageToken         :: !(Maybe Text)-    , _pjmlProjectId         :: !Text-    , _pjmlPageSize          :: !(Maybe (Textual Int32))-    , _pjmlCallback          :: !(Maybe Text)-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'ProjectsJobsMessagesList' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'pjmlXgafv'------ * 'pjmlJobId'------ * 'pjmlUploadProtocol'------ * 'pjmlLocation'------ * 'pjmlStartTime'------ * 'pjmlAccessToken'------ * 'pjmlUploadType'------ * 'pjmlEndTime'------ * 'pjmlMinimumImportance'------ * 'pjmlPageToken'------ * 'pjmlProjectId'------ * 'pjmlPageSize'------ * 'pjmlCallback'-projectsJobsMessagesList-    :: Text -- ^ 'pjmlJobId'-    -> Text -- ^ 'pjmlProjectId'-    -> ProjectsJobsMessagesList-projectsJobsMessagesList pPjmlJobId_ pPjmlProjectId_ =-  ProjectsJobsMessagesList'-    { _pjmlXgafv = Nothing-    , _pjmlJobId = pPjmlJobId_-    , _pjmlUploadProtocol = Nothing-    , _pjmlLocation = Nothing-    , _pjmlStartTime = Nothing-    , _pjmlAccessToken = Nothing-    , _pjmlUploadType = Nothing-    , _pjmlEndTime = Nothing-    , _pjmlMinimumImportance = Nothing-    , _pjmlPageToken = Nothing-    , _pjmlProjectId = pPjmlProjectId_-    , _pjmlPageSize = Nothing-    , _pjmlCallback = Nothing-    }----- | V1 error format.-pjmlXgafv :: Lens' ProjectsJobsMessagesList (Maybe Xgafv)-pjmlXgafv-  = lens _pjmlXgafv (\ s a -> s{_pjmlXgafv = a})---- | The job to get messages about.-pjmlJobId :: Lens' ProjectsJobsMessagesList Text-pjmlJobId-  = lens _pjmlJobId (\ s a -> s{_pjmlJobId = a})---- | Upload protocol for media (e.g. \"raw\", \"multipart\").-pjmlUploadProtocol :: Lens' ProjectsJobsMessagesList (Maybe Text)-pjmlUploadProtocol-  = lens _pjmlUploadProtocol-      (\ s a -> s{_pjmlUploadProtocol = a})---- | 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})---- | If specified, return only messages with timestamps >= start_time. The--- default is the job creation time (i.e. beginning of messages).-pjmlStartTime :: Lens' ProjectsJobsMessagesList (Maybe UTCTime)-pjmlStartTime-  = lens _pjmlStartTime-      (\ s a -> s{_pjmlStartTime = a})-      . mapping _DateTime---- | OAuth access token.-pjmlAccessToken :: Lens' ProjectsJobsMessagesList (Maybe Text)-pjmlAccessToken-  = lens _pjmlAccessToken-      (\ s a -> s{_pjmlAccessToken = a})---- | Legacy upload protocol for media (e.g. \"media\", \"multipart\").-pjmlUploadType :: Lens' ProjectsJobsMessagesList (Maybe Text)-pjmlUploadType-  = lens _pjmlUploadType-      (\ s a -> s{_pjmlUploadType = a})---- | Return only messages with timestamps \< end_time. The default is now--- (i.e. return up to the latest messages available).-pjmlEndTime :: Lens' ProjectsJobsMessagesList (Maybe UTCTime)-pjmlEndTime-  = lens _pjmlEndTime (\ s a -> s{_pjmlEndTime = a}) .-      mapping _DateTime---- | Filter to only get messages with importance >= level-pjmlMinimumImportance :: Lens' ProjectsJobsMessagesList (Maybe Text)-pjmlMinimumImportance-  = lens _pjmlMinimumImportance-      (\ s a -> s{_pjmlMinimumImportance = a})---- | If supplied, this should be the value of next_page_token returned by an--- earlier call. This will cause the next page of results to be returned.-pjmlPageToken :: Lens' ProjectsJobsMessagesList (Maybe Text)-pjmlPageToken-  = lens _pjmlPageToken-      (\ s a -> s{_pjmlPageToken = a})---- | A project id.-pjmlProjectId :: Lens' ProjectsJobsMessagesList Text-pjmlProjectId-  = lens _pjmlProjectId-      (\ s a -> s{_pjmlProjectId = a})---- | If specified, determines the maximum number of messages to return. If--- unspecified, the service may choose an appropriate default, or may--- return an arbitrarily large number of results.-pjmlPageSize :: Lens' ProjectsJobsMessagesList (Maybe Int32)-pjmlPageSize-  = lens _pjmlPageSize (\ s a -> s{_pjmlPageSize = a})-      . mapping _Coerce---- | JSONP-pjmlCallback :: Lens' ProjectsJobsMessagesList (Maybe Text)-pjmlCallback-  = lens _pjmlCallback (\ s a -> s{_pjmlCallback = a})--instance GoogleRequest ProjectsJobsMessagesList where-        type Rs ProjectsJobsMessagesList =-             ListJobMessagesResponse-        type Scopes ProjectsJobsMessagesList =-             '["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 ProjectsJobsMessagesList'{..}-          = go _pjmlProjectId _pjmlJobId _pjmlXgafv-              _pjmlUploadProtocol-              _pjmlLocation-              _pjmlStartTime-              _pjmlAccessToken-              _pjmlUploadType-              _pjmlEndTime-              _pjmlMinimumImportance-              _pjmlPageToken-              _pjmlPageSize-              _pjmlCallback-              (Just AltJSON)-              dataflowService-          where go-                  = buildClient-                      (Proxy :: Proxy ProjectsJobsMessagesListResource)-                      mempty
− gen/Network/Google/Resource/Dataflow/Projects/Jobs/Snapshot.hs 
@@ -1,180 +0,0 @@-{-# 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.Jobs.Snapshot--- 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)------ Snapshot the state of a streaming job.------ /See:/ <https://cloud.google.com/dataflow Dataflow API Reference> for @dataflow.projects.jobs.snapshot@.-module Network.Google.Resource.Dataflow.Projects.Jobs.Snapshot-    (-    -- * REST Resource-      ProjectsJobsSnapshotResource--    -- * Creating a Request-    , projectsJobsSnapshot-    , ProjectsJobsSnapshot--    -- * Request Lenses-    , pjsXgafv-    , pjsJobId-    , pjsUploadProtocol-    , pjsAccessToken-    , pjsUploadType-    , pjsPayload-    , pjsProjectId-    , pjsCallback-    ) where--import           Network.Google.Dataflow.Types-import           Network.Google.Prelude---- | A resource alias for @dataflow.projects.jobs.snapshot@ method which the--- 'ProjectsJobsSnapshot' request conforms to.-type ProjectsJobsSnapshotResource =-     "v1b3" :>-       "projects" :>-         Capture "projectId" Text :>-           "jobs" :>-             CaptureMode "jobId" "snapshot" Text :>-               QueryParam "$.xgafv" Xgafv :>-                 QueryParam "upload_protocol" Text :>-                   QueryParam "access_token" Text :>-                     QueryParam "uploadType" Text :>-                       QueryParam "callback" Text :>-                         QueryParam "alt" AltJSON :>-                           ReqBody '[JSON] SnapshotJobRequest :>-                             Post '[JSON] Snapshot---- | Snapshot the state of a streaming job.------ /See:/ 'projectsJobsSnapshot' smart constructor.-data ProjectsJobsSnapshot =-  ProjectsJobsSnapshot'-    { _pjsXgafv          :: !(Maybe Xgafv)-    , _pjsJobId          :: !Text-    , _pjsUploadProtocol :: !(Maybe Text)-    , _pjsAccessToken    :: !(Maybe Text)-    , _pjsUploadType     :: !(Maybe Text)-    , _pjsPayload        :: !SnapshotJobRequest-    , _pjsProjectId      :: !Text-    , _pjsCallback       :: !(Maybe Text)-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'ProjectsJobsSnapshot' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'pjsXgafv'------ * 'pjsJobId'------ * 'pjsUploadProtocol'------ * 'pjsAccessToken'------ * 'pjsUploadType'------ * 'pjsPayload'------ * 'pjsProjectId'------ * 'pjsCallback'-projectsJobsSnapshot-    :: Text -- ^ 'pjsJobId'-    -> SnapshotJobRequest -- ^ 'pjsPayload'-    -> Text -- ^ 'pjsProjectId'-    -> ProjectsJobsSnapshot-projectsJobsSnapshot pPjsJobId_ pPjsPayload_ pPjsProjectId_ =-  ProjectsJobsSnapshot'-    { _pjsXgafv = Nothing-    , _pjsJobId = pPjsJobId_-    , _pjsUploadProtocol = Nothing-    , _pjsAccessToken = Nothing-    , _pjsUploadType = Nothing-    , _pjsPayload = pPjsPayload_-    , _pjsProjectId = pPjsProjectId_-    , _pjsCallback = Nothing-    }----- | V1 error format.-pjsXgafv :: Lens' ProjectsJobsSnapshot (Maybe Xgafv)-pjsXgafv = lens _pjsXgafv (\ s a -> s{_pjsXgafv = a})---- | The job to be snapshotted.-pjsJobId :: Lens' ProjectsJobsSnapshot Text-pjsJobId = lens _pjsJobId (\ s a -> s{_pjsJobId = a})---- | Upload protocol for media (e.g. \"raw\", \"multipart\").-pjsUploadProtocol :: Lens' ProjectsJobsSnapshot (Maybe Text)-pjsUploadProtocol-  = lens _pjsUploadProtocol-      (\ s a -> s{_pjsUploadProtocol = a})---- | OAuth access token.-pjsAccessToken :: Lens' ProjectsJobsSnapshot (Maybe Text)-pjsAccessToken-  = lens _pjsAccessToken-      (\ s a -> s{_pjsAccessToken = a})---- | Legacy upload protocol for media (e.g. \"media\", \"multipart\").-pjsUploadType :: Lens' ProjectsJobsSnapshot (Maybe Text)-pjsUploadType-  = lens _pjsUploadType-      (\ s a -> s{_pjsUploadType = a})---- | Multipart request metadata.-pjsPayload :: Lens' ProjectsJobsSnapshot SnapshotJobRequest-pjsPayload-  = lens _pjsPayload (\ s a -> s{_pjsPayload = a})---- | The project which owns the job to be snapshotted.-pjsProjectId :: Lens' ProjectsJobsSnapshot Text-pjsProjectId-  = lens _pjsProjectId (\ s a -> s{_pjsProjectId = a})---- | JSONP-pjsCallback :: Lens' ProjectsJobsSnapshot (Maybe Text)-pjsCallback-  = lens _pjsCallback (\ s a -> s{_pjsCallback = a})--instance GoogleRequest ProjectsJobsSnapshot where-        type Rs ProjectsJobsSnapshot = Snapshot-        type Scopes ProjectsJobsSnapshot =-             '["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 ProjectsJobsSnapshot'{..}-          = go _pjsProjectId _pjsJobId _pjsXgafv-              _pjsUploadProtocol-              _pjsAccessToken-              _pjsUploadType-              _pjsCallback-              (Just AltJSON)-              _pjsPayload-              dataflowService-          where go-                  = buildClient-                      (Proxy :: Proxy ProjectsJobsSnapshotResource)-                      mempty
− gen/Network/Google/Resource/Dataflow/Projects/Jobs/Update.hs 
@@ -1,203 +0,0 @@-{-# 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.Jobs.Update--- 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)------ 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-    (-    -- * REST Resource-      ProjectsJobsUpdateResource--    -- * Creating a Request-    , projectsJobsUpdate-    , ProjectsJobsUpdate--    -- * Request Lenses-    , pjuXgafv-    , pjuJobId-    , pjuUploadProtocol-    , pjuLocation-    , pjuAccessToken-    , pjuUploadType-    , pjuPayload-    , pjuProjectId-    , pjuCallback-    ) where--import           Network.Google.Dataflow.Types-import           Network.Google.Prelude---- | A resource alias for @dataflow.projects.jobs.update@ method which the--- 'ProjectsJobsUpdate' request conforms to.-type ProjectsJobsUpdateResource =-     "v1b3" :>-       "projects" :>-         Capture "projectId" Text :>-           "jobs" :>-             Capture "jobId" Text :>-               QueryParam "$.xgafv" Xgafv :>-                 QueryParam "upload_protocol" Text :>-                   QueryParam "location" Text :>-                     QueryParam "access_token" Text :>-                       QueryParam "uploadType" Text :>-                         QueryParam "callback" Text :>-                           QueryParam "alt" AltJSON :>-                             ReqBody '[JSON] Job :> Put '[JSON] 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'-    { _pjuXgafv          :: !(Maybe Xgafv)-    , _pjuJobId          :: !Text-    , _pjuUploadProtocol :: !(Maybe Text)-    , _pjuLocation       :: !(Maybe Text)-    , _pjuAccessToken    :: !(Maybe Text)-    , _pjuUploadType     :: !(Maybe Text)-    , _pjuPayload        :: !Job-    , _pjuProjectId      :: !Text-    , _pjuCallback       :: !(Maybe Text)-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'ProjectsJobsUpdate' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'pjuXgafv'------ * 'pjuJobId'------ * 'pjuUploadProtocol'------ * 'pjuLocation'------ * 'pjuAccessToken'------ * 'pjuUploadType'------ * 'pjuPayload'------ * 'pjuProjectId'------ * 'pjuCallback'-projectsJobsUpdate-    :: Text -- ^ 'pjuJobId'-    -> Job -- ^ 'pjuPayload'-    -> Text -- ^ 'pjuProjectId'-    -> ProjectsJobsUpdate-projectsJobsUpdate pPjuJobId_ pPjuPayload_ pPjuProjectId_ =-  ProjectsJobsUpdate'-    { _pjuXgafv = Nothing-    , _pjuJobId = pPjuJobId_-    , _pjuUploadProtocol = Nothing-    , _pjuLocation = Nothing-    , _pjuAccessToken = Nothing-    , _pjuUploadType = Nothing-    , _pjuPayload = pPjuPayload_-    , _pjuProjectId = pPjuProjectId_-    , _pjuCallback = Nothing-    }----- | V1 error format.-pjuXgafv :: Lens' ProjectsJobsUpdate (Maybe Xgafv)-pjuXgafv = lens _pjuXgafv (\ s a -> s{_pjuXgafv = a})---- | The job ID.-pjuJobId :: Lens' ProjectsJobsUpdate Text-pjuJobId = lens _pjuJobId (\ s a -> s{_pjuJobId = a})---- | Upload protocol for media (e.g. \"raw\", \"multipart\").-pjuUploadProtocol :: Lens' ProjectsJobsUpdate (Maybe Text)-pjuUploadProtocol-  = lens _pjuUploadProtocol-      (\ s a -> s{_pjuUploadProtocol = a})---- | 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})---- | OAuth access token.-pjuAccessToken :: Lens' ProjectsJobsUpdate (Maybe Text)-pjuAccessToken-  = lens _pjuAccessToken-      (\ s a -> s{_pjuAccessToken = a})---- | Legacy upload protocol for media (e.g. \"media\", \"multipart\").-pjuUploadType :: Lens' ProjectsJobsUpdate (Maybe Text)-pjuUploadType-  = lens _pjuUploadType-      (\ s a -> s{_pjuUploadType = a})---- | Multipart request metadata.-pjuPayload :: Lens' ProjectsJobsUpdate Job-pjuPayload-  = lens _pjuPayload (\ s a -> s{_pjuPayload = a})---- | The ID of the Cloud Platform project that the job belongs to.-pjuProjectId :: Lens' ProjectsJobsUpdate Text-pjuProjectId-  = lens _pjuProjectId (\ s a -> s{_pjuProjectId = a})---- | JSONP-pjuCallback :: Lens' ProjectsJobsUpdate (Maybe Text)-pjuCallback-  = lens _pjuCallback (\ s a -> s{_pjuCallback = a})--instance GoogleRequest ProjectsJobsUpdate where-        type Rs ProjectsJobsUpdate = Job-        type Scopes ProjectsJobsUpdate =-             '["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 ProjectsJobsUpdate'{..}-          = go _pjuProjectId _pjuJobId _pjuXgafv-              _pjuUploadProtocol-              _pjuLocation-              _pjuAccessToken-              _pjuUploadType-              _pjuCallback-              (Just AltJSON)-              _pjuPayload-              dataflowService-          where go-                  = buildClient-                      (Proxy :: Proxy ProjectsJobsUpdateResource)-                      mempty
− gen/Network/Google/Resource/Dataflow/Projects/Jobs/WorkItems/Lease.hs 
@@ -1,187 +0,0 @@-{-# 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.Jobs.WorkItems.Lease--- 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)------ Leases a dataflow WorkItem to run.------ /See:/ <https://cloud.google.com/dataflow Dataflow API Reference> for @dataflow.projects.jobs.workItems.lease@.-module Network.Google.Resource.Dataflow.Projects.Jobs.WorkItems.Lease-    (-    -- * REST Resource-      ProjectsJobsWorkItemsLeaseResource--    -- * Creating a Request-    , projectsJobsWorkItemsLease-    , ProjectsJobsWorkItemsLease--    -- * Request Lenses-    , pjwilXgafv-    , pjwilJobId-    , pjwilUploadProtocol-    , pjwilAccessToken-    , pjwilUploadType-    , pjwilPayload-    , pjwilProjectId-    , pjwilCallback-    ) where--import           Network.Google.Dataflow.Types-import           Network.Google.Prelude---- | A resource alias for @dataflow.projects.jobs.workItems.lease@ method which the--- 'ProjectsJobsWorkItemsLease' request conforms to.-type ProjectsJobsWorkItemsLeaseResource =-     "v1b3" :>-       "projects" :>-         Capture "projectId" Text :>-           "jobs" :>-             Capture "jobId" Text :>-               "workItems:lease" :>-                 QueryParam "$.xgafv" Xgafv :>-                   QueryParam "upload_protocol" Text :>-                     QueryParam "access_token" Text :>-                       QueryParam "uploadType" Text :>-                         QueryParam "callback" Text :>-                           QueryParam "alt" AltJSON :>-                             ReqBody '[JSON] LeaseWorkItemRequest :>-                               Post '[JSON] LeaseWorkItemResponse---- | Leases a dataflow WorkItem to run.------ /See:/ 'projectsJobsWorkItemsLease' smart constructor.-data ProjectsJobsWorkItemsLease =-  ProjectsJobsWorkItemsLease'-    { _pjwilXgafv          :: !(Maybe Xgafv)-    , _pjwilJobId          :: !Text-    , _pjwilUploadProtocol :: !(Maybe Text)-    , _pjwilAccessToken    :: !(Maybe Text)-    , _pjwilUploadType     :: !(Maybe Text)-    , _pjwilPayload        :: !LeaseWorkItemRequest-    , _pjwilProjectId      :: !Text-    , _pjwilCallback       :: !(Maybe Text)-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'ProjectsJobsWorkItemsLease' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'pjwilXgafv'------ * 'pjwilJobId'------ * 'pjwilUploadProtocol'------ * 'pjwilAccessToken'------ * 'pjwilUploadType'------ * 'pjwilPayload'------ * 'pjwilProjectId'------ * 'pjwilCallback'-projectsJobsWorkItemsLease-    :: Text -- ^ 'pjwilJobId'-    -> LeaseWorkItemRequest -- ^ 'pjwilPayload'-    -> Text -- ^ 'pjwilProjectId'-    -> ProjectsJobsWorkItemsLease-projectsJobsWorkItemsLease pPjwilJobId_ pPjwilPayload_ pPjwilProjectId_ =-  ProjectsJobsWorkItemsLease'-    { _pjwilXgafv = Nothing-    , _pjwilJobId = pPjwilJobId_-    , _pjwilUploadProtocol = Nothing-    , _pjwilAccessToken = Nothing-    , _pjwilUploadType = Nothing-    , _pjwilPayload = pPjwilPayload_-    , _pjwilProjectId = pPjwilProjectId_-    , _pjwilCallback = Nothing-    }----- | V1 error format.-pjwilXgafv :: Lens' ProjectsJobsWorkItemsLease (Maybe Xgafv)-pjwilXgafv-  = lens _pjwilXgafv (\ s a -> s{_pjwilXgafv = a})---- | Identifies the workflow job this worker belongs to.-pjwilJobId :: Lens' ProjectsJobsWorkItemsLease Text-pjwilJobId-  = lens _pjwilJobId (\ s a -> s{_pjwilJobId = a})---- | Upload protocol for media (e.g. \"raw\", \"multipart\").-pjwilUploadProtocol :: Lens' ProjectsJobsWorkItemsLease (Maybe Text)-pjwilUploadProtocol-  = lens _pjwilUploadProtocol-      (\ s a -> s{_pjwilUploadProtocol = a})---- | OAuth access token.-pjwilAccessToken :: Lens' ProjectsJobsWorkItemsLease (Maybe Text)-pjwilAccessToken-  = lens _pjwilAccessToken-      (\ s a -> s{_pjwilAccessToken = a})---- | Legacy upload protocol for media (e.g. \"media\", \"multipart\").-pjwilUploadType :: Lens' ProjectsJobsWorkItemsLease (Maybe Text)-pjwilUploadType-  = lens _pjwilUploadType-      (\ s a -> s{_pjwilUploadType = a})---- | Multipart request metadata.-pjwilPayload :: Lens' ProjectsJobsWorkItemsLease LeaseWorkItemRequest-pjwilPayload-  = lens _pjwilPayload (\ s a -> s{_pjwilPayload = a})---- | Identifies the project this worker belongs to.-pjwilProjectId :: Lens' ProjectsJobsWorkItemsLease Text-pjwilProjectId-  = lens _pjwilProjectId-      (\ s a -> s{_pjwilProjectId = a})---- | JSONP-pjwilCallback :: Lens' ProjectsJobsWorkItemsLease (Maybe Text)-pjwilCallback-  = lens _pjwilCallback-      (\ s a -> s{_pjwilCallback = a})--instance GoogleRequest ProjectsJobsWorkItemsLease-         where-        type Rs ProjectsJobsWorkItemsLease =-             LeaseWorkItemResponse-        type Scopes ProjectsJobsWorkItemsLease =-             '["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 ProjectsJobsWorkItemsLease'{..}-          = go _pjwilProjectId _pjwilJobId _pjwilXgafv-              _pjwilUploadProtocol-              _pjwilAccessToken-              _pjwilUploadType-              _pjwilCallback-              (Just AltJSON)-              _pjwilPayload-              dataflowService-          where go-                  = buildClient-                      (Proxy :: Proxy ProjectsJobsWorkItemsLeaseResource)-                      mempty
− gen/Network/Google/Resource/Dataflow/Projects/Jobs/WorkItems/ReportStatus.hs 
@@ -1,190 +0,0 @@-{-# 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.Jobs.WorkItems.ReportStatus--- 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)------ Reports the status of dataflow WorkItems leased by a worker.------ /See:/ <https://cloud.google.com/dataflow Dataflow API Reference> for @dataflow.projects.jobs.workItems.reportStatus@.-module Network.Google.Resource.Dataflow.Projects.Jobs.WorkItems.ReportStatus-    (-    -- * REST Resource-      ProjectsJobsWorkItemsReportStatusResource--    -- * Creating a Request-    , projectsJobsWorkItemsReportStatus-    , ProjectsJobsWorkItemsReportStatus--    -- * Request Lenses-    , pjwirsXgafv-    , pjwirsJobId-    , pjwirsUploadProtocol-    , pjwirsAccessToken-    , pjwirsUploadType-    , pjwirsPayload-    , pjwirsProjectId-    , pjwirsCallback-    ) where--import           Network.Google.Dataflow.Types-import           Network.Google.Prelude---- | A resource alias for @dataflow.projects.jobs.workItems.reportStatus@ method which the--- 'ProjectsJobsWorkItemsReportStatus' request conforms to.-type ProjectsJobsWorkItemsReportStatusResource =-     "v1b3" :>-       "projects" :>-         Capture "projectId" Text :>-           "jobs" :>-             Capture "jobId" Text :>-               "workItems:reportStatus" :>-                 QueryParam "$.xgafv" Xgafv :>-                   QueryParam "upload_protocol" Text :>-                     QueryParam "access_token" Text :>-                       QueryParam "uploadType" Text :>-                         QueryParam "callback" Text :>-                           QueryParam "alt" AltJSON :>-                             ReqBody '[JSON] ReportWorkItemStatusRequest :>-                               Post '[JSON] ReportWorkItemStatusResponse---- | Reports the status of dataflow WorkItems leased by a worker.------ /See:/ 'projectsJobsWorkItemsReportStatus' smart constructor.-data ProjectsJobsWorkItemsReportStatus =-  ProjectsJobsWorkItemsReportStatus'-    { _pjwirsXgafv          :: !(Maybe Xgafv)-    , _pjwirsJobId          :: !Text-    , _pjwirsUploadProtocol :: !(Maybe Text)-    , _pjwirsAccessToken    :: !(Maybe Text)-    , _pjwirsUploadType     :: !(Maybe Text)-    , _pjwirsPayload        :: !ReportWorkItemStatusRequest-    , _pjwirsProjectId      :: !Text-    , _pjwirsCallback       :: !(Maybe Text)-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'ProjectsJobsWorkItemsReportStatus' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'pjwirsXgafv'------ * 'pjwirsJobId'------ * 'pjwirsUploadProtocol'------ * 'pjwirsAccessToken'------ * 'pjwirsUploadType'------ * 'pjwirsPayload'------ * 'pjwirsProjectId'------ * 'pjwirsCallback'-projectsJobsWorkItemsReportStatus-    :: Text -- ^ 'pjwirsJobId'-    -> ReportWorkItemStatusRequest -- ^ 'pjwirsPayload'-    -> Text -- ^ 'pjwirsProjectId'-    -> ProjectsJobsWorkItemsReportStatus-projectsJobsWorkItemsReportStatus pPjwirsJobId_ pPjwirsPayload_ pPjwirsProjectId_ =-  ProjectsJobsWorkItemsReportStatus'-    { _pjwirsXgafv = Nothing-    , _pjwirsJobId = pPjwirsJobId_-    , _pjwirsUploadProtocol = Nothing-    , _pjwirsAccessToken = Nothing-    , _pjwirsUploadType = Nothing-    , _pjwirsPayload = pPjwirsPayload_-    , _pjwirsProjectId = pPjwirsProjectId_-    , _pjwirsCallback = Nothing-    }----- | V1 error format.-pjwirsXgafv :: Lens' ProjectsJobsWorkItemsReportStatus (Maybe Xgafv)-pjwirsXgafv-  = lens _pjwirsXgafv (\ s a -> s{_pjwirsXgafv = a})---- | The job which the WorkItem is part of.-pjwirsJobId :: Lens' ProjectsJobsWorkItemsReportStatus Text-pjwirsJobId-  = lens _pjwirsJobId (\ s a -> s{_pjwirsJobId = a})---- | Upload protocol for media (e.g. \"raw\", \"multipart\").-pjwirsUploadProtocol :: Lens' ProjectsJobsWorkItemsReportStatus (Maybe Text)-pjwirsUploadProtocol-  = lens _pjwirsUploadProtocol-      (\ s a -> s{_pjwirsUploadProtocol = a})---- | OAuth access token.-pjwirsAccessToken :: Lens' ProjectsJobsWorkItemsReportStatus (Maybe Text)-pjwirsAccessToken-  = lens _pjwirsAccessToken-      (\ s a -> s{_pjwirsAccessToken = a})---- | Legacy upload protocol for media (e.g. \"media\", \"multipart\").-pjwirsUploadType :: Lens' ProjectsJobsWorkItemsReportStatus (Maybe Text)-pjwirsUploadType-  = lens _pjwirsUploadType-      (\ s a -> s{_pjwirsUploadType = a})---- | Multipart request metadata.-pjwirsPayload :: Lens' ProjectsJobsWorkItemsReportStatus ReportWorkItemStatusRequest-pjwirsPayload-  = lens _pjwirsPayload-      (\ s a -> s{_pjwirsPayload = a})---- | The project which owns the WorkItem\'s job.-pjwirsProjectId :: Lens' ProjectsJobsWorkItemsReportStatus Text-pjwirsProjectId-  = lens _pjwirsProjectId-      (\ s a -> s{_pjwirsProjectId = a})---- | JSONP-pjwirsCallback :: Lens' ProjectsJobsWorkItemsReportStatus (Maybe Text)-pjwirsCallback-  = lens _pjwirsCallback-      (\ s a -> s{_pjwirsCallback = a})--instance GoogleRequest-           ProjectsJobsWorkItemsReportStatus-         where-        type Rs ProjectsJobsWorkItemsReportStatus =-             ReportWorkItemStatusResponse-        type Scopes ProjectsJobsWorkItemsReportStatus =-             '["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 ProjectsJobsWorkItemsReportStatus'{..}-          = go _pjwirsProjectId _pjwirsJobId _pjwirsXgafv-              _pjwirsUploadProtocol-              _pjwirsAccessToken-              _pjwirsUploadType-              _pjwirsCallback-              (Just AltJSON)-              _pjwirsPayload-              dataflowService-          where go-                  = buildClient-                      (Proxy ::-                         Proxy ProjectsJobsWorkItemsReportStatusResource)-                      mempty
− gen/Network/Google/Resource/Dataflow/Projects/Locations/Jobs/Create.hs 
@@ -1,218 +0,0 @@-{-# 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.Jobs.Create--- 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)------ 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-    (-    -- * REST Resource-      ProjectsLocationsJobsCreateResource--    -- * Creating a Request-    , projectsLocationsJobsCreate-    , ProjectsLocationsJobsCreate--    -- * Request Lenses-    , pljcXgafv-    , pljcUploadProtocol-    , pljcLocation-    , pljcAccessToken-    , pljcUploadType-    , pljcPayload-    , pljcView-    , pljcProjectId-    , pljcReplaceJobId-    , pljcCallback-    ) where--import           Network.Google.Dataflow.Types-import           Network.Google.Prelude---- | A resource alias for @dataflow.projects.locations.jobs.create@ method which the--- 'ProjectsLocationsJobsCreate' request conforms to.-type ProjectsLocationsJobsCreateResource =-     "v1b3" :>-       "projects" :>-         Capture "projectId" Text :>-           "locations" :>-             Capture "location" Text :>-               "jobs" :>-                 QueryParam "$.xgafv" Xgafv :>-                   QueryParam "upload_protocol" Text :>-                     QueryParam "access_token" Text :>-                       QueryParam "uploadType" Text :>-                         QueryParam "view" Text :>-                           QueryParam "replaceJobId" Text :>-                             QueryParam "callback" Text :>-                               QueryParam "alt" AltJSON :>-                                 ReqBody '[JSON] Job :> Post '[JSON] 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'-    { _pljcXgafv          :: !(Maybe Xgafv)-    , _pljcUploadProtocol :: !(Maybe Text)-    , _pljcLocation       :: !Text-    , _pljcAccessToken    :: !(Maybe Text)-    , _pljcUploadType     :: !(Maybe Text)-    , _pljcPayload        :: !Job-    , _pljcView           :: !(Maybe Text)-    , _pljcProjectId      :: !Text-    , _pljcReplaceJobId   :: !(Maybe Text)-    , _pljcCallback       :: !(Maybe Text)-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'ProjectsLocationsJobsCreate' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'pljcXgafv'------ * 'pljcUploadProtocol'------ * 'pljcLocation'------ * 'pljcAccessToken'------ * 'pljcUploadType'------ * 'pljcPayload'------ * 'pljcView'------ * 'pljcProjectId'------ * 'pljcReplaceJobId'------ * 'pljcCallback'-projectsLocationsJobsCreate-    :: Text -- ^ 'pljcLocation'-    -> Job -- ^ 'pljcPayload'-    -> Text -- ^ 'pljcProjectId'-    -> ProjectsLocationsJobsCreate-projectsLocationsJobsCreate pPljcLocation_ pPljcPayload_ pPljcProjectId_ =-  ProjectsLocationsJobsCreate'-    { _pljcXgafv = Nothing-    , _pljcUploadProtocol = Nothing-    , _pljcLocation = pPljcLocation_-    , _pljcAccessToken = Nothing-    , _pljcUploadType = Nothing-    , _pljcPayload = pPljcPayload_-    , _pljcView = Nothing-    , _pljcProjectId = pPljcProjectId_-    , _pljcReplaceJobId = Nothing-    , _pljcCallback = Nothing-    }----- | V1 error format.-pljcXgafv :: Lens' ProjectsLocationsJobsCreate (Maybe Xgafv)-pljcXgafv-  = lens _pljcXgafv (\ s a -> s{_pljcXgafv = a})---- | Upload protocol for media (e.g. \"raw\", \"multipart\").-pljcUploadProtocol :: Lens' ProjectsLocationsJobsCreate (Maybe Text)-pljcUploadProtocol-  = lens _pljcUploadProtocol-      (\ s a -> s{_pljcUploadProtocol = a})---- | 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})---- | OAuth access token.-pljcAccessToken :: Lens' ProjectsLocationsJobsCreate (Maybe Text)-pljcAccessToken-  = lens _pljcAccessToken-      (\ s a -> s{_pljcAccessToken = a})---- | Legacy upload protocol for media (e.g. \"media\", \"multipart\").-pljcUploadType :: Lens' ProjectsLocationsJobsCreate (Maybe Text)-pljcUploadType-  = lens _pljcUploadType-      (\ s a -> s{_pljcUploadType = a})---- | Multipart request metadata.-pljcPayload :: Lens' ProjectsLocationsJobsCreate Job-pljcPayload-  = lens _pljcPayload (\ s a -> s{_pljcPayload = a})---- | The level of information requested in response.-pljcView :: Lens' ProjectsLocationsJobsCreate (Maybe Text)-pljcView = lens _pljcView (\ s a -> s{_pljcView = a})---- | The ID of the Cloud Platform project that the job belongs to.-pljcProjectId :: Lens' ProjectsLocationsJobsCreate Text-pljcProjectId-  = lens _pljcProjectId-      (\ s a -> s{_pljcProjectId = a})---- | Deprecated. This field is now in the Job message.-pljcReplaceJobId :: Lens' ProjectsLocationsJobsCreate (Maybe Text)-pljcReplaceJobId-  = lens _pljcReplaceJobId-      (\ s a -> s{_pljcReplaceJobId = a})---- | JSONP-pljcCallback :: Lens' ProjectsLocationsJobsCreate (Maybe Text)-pljcCallback-  = lens _pljcCallback (\ s a -> s{_pljcCallback = a})--instance GoogleRequest ProjectsLocationsJobsCreate-         where-        type Rs ProjectsLocationsJobsCreate = Job-        type Scopes ProjectsLocationsJobsCreate =-             '["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 ProjectsLocationsJobsCreate'{..}-          = go _pljcProjectId _pljcLocation _pljcXgafv-              _pljcUploadProtocol-              _pljcAccessToken-              _pljcUploadType-              _pljcView-              _pljcReplaceJobId-              _pljcCallback-              (Just AltJSON)-              _pljcPayload-              dataflowService-          where go-                  = buildClient-                      (Proxy :: Proxy ProjectsLocationsJobsCreateResource)-                      mempty
− gen/Network/Google/Resource/Dataflow/Projects/Locations/Jobs/Debug/GetConfig.hs 
@@ -1,209 +0,0 @@-{-# 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.Jobs.Debug.GetConfig--- 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)------ Get encoded debug configuration for component. Not cacheable.------ /See:/ <https://cloud.google.com/dataflow Dataflow API Reference> for @dataflow.projects.locations.jobs.debug.getConfig@.-module Network.Google.Resource.Dataflow.Projects.Locations.Jobs.Debug.GetConfig-    (-    -- * REST Resource-      ProjectsLocationsJobsDebugGetConfigResource--    -- * Creating a Request-    , projectsLocationsJobsDebugGetConfig-    , ProjectsLocationsJobsDebugGetConfig--    -- * Request Lenses-    , pljdgcXgafv-    , pljdgcJobId-    , pljdgcUploadProtocol-    , pljdgcLocation-    , pljdgcAccessToken-    , pljdgcUploadType-    , pljdgcPayload-    , pljdgcProjectId-    , pljdgcCallback-    ) where--import           Network.Google.Dataflow.Types-import           Network.Google.Prelude---- | A resource alias for @dataflow.projects.locations.jobs.debug.getConfig@ method which the--- 'ProjectsLocationsJobsDebugGetConfig' request conforms to.-type ProjectsLocationsJobsDebugGetConfigResource =-     "v1b3" :>-       "projects" :>-         Capture "projectId" Text :>-           "locations" :>-             Capture "location" Text :>-               "jobs" :>-                 Capture "jobId" Text :>-                   "debug" :>-                     "getConfig" :>-                       QueryParam "$.xgafv" Xgafv :>-                         QueryParam "upload_protocol" Text :>-                           QueryParam "access_token" Text :>-                             QueryParam "uploadType" Text :>-                               QueryParam "callback" Text :>-                                 QueryParam "alt" AltJSON :>-                                   ReqBody '[JSON] GetDebugConfigRequest :>-                                     Post '[JSON] GetDebugConfigResponse---- | Get encoded debug configuration for component. Not cacheable.------ /See:/ 'projectsLocationsJobsDebugGetConfig' smart constructor.-data ProjectsLocationsJobsDebugGetConfig =-  ProjectsLocationsJobsDebugGetConfig'-    { _pljdgcXgafv          :: !(Maybe Xgafv)-    , _pljdgcJobId          :: !Text-    , _pljdgcUploadProtocol :: !(Maybe Text)-    , _pljdgcLocation       :: !Text-    , _pljdgcAccessToken    :: !(Maybe Text)-    , _pljdgcUploadType     :: !(Maybe Text)-    , _pljdgcPayload        :: !GetDebugConfigRequest-    , _pljdgcProjectId      :: !Text-    , _pljdgcCallback       :: !(Maybe Text)-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'ProjectsLocationsJobsDebugGetConfig' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'pljdgcXgafv'------ * 'pljdgcJobId'------ * 'pljdgcUploadProtocol'------ * 'pljdgcLocation'------ * 'pljdgcAccessToken'------ * 'pljdgcUploadType'------ * 'pljdgcPayload'------ * 'pljdgcProjectId'------ * 'pljdgcCallback'-projectsLocationsJobsDebugGetConfig-    :: Text -- ^ 'pljdgcJobId'-    -> Text -- ^ 'pljdgcLocation'-    -> GetDebugConfigRequest -- ^ 'pljdgcPayload'-    -> Text -- ^ 'pljdgcProjectId'-    -> ProjectsLocationsJobsDebugGetConfig-projectsLocationsJobsDebugGetConfig pPljdgcJobId_ pPljdgcLocation_ pPljdgcPayload_ pPljdgcProjectId_ =-  ProjectsLocationsJobsDebugGetConfig'-    { _pljdgcXgafv = Nothing-    , _pljdgcJobId = pPljdgcJobId_-    , _pljdgcUploadProtocol = Nothing-    , _pljdgcLocation = pPljdgcLocation_-    , _pljdgcAccessToken = Nothing-    , _pljdgcUploadType = Nothing-    , _pljdgcPayload = pPljdgcPayload_-    , _pljdgcProjectId = pPljdgcProjectId_-    , _pljdgcCallback = Nothing-    }----- | V1 error format.-pljdgcXgafv :: Lens' ProjectsLocationsJobsDebugGetConfig (Maybe Xgafv)-pljdgcXgafv-  = lens _pljdgcXgafv (\ s a -> s{_pljdgcXgafv = a})---- | The job id.-pljdgcJobId :: Lens' ProjectsLocationsJobsDebugGetConfig Text-pljdgcJobId-  = lens _pljdgcJobId (\ s a -> s{_pljdgcJobId = a})---- | Upload protocol for media (e.g. \"raw\", \"multipart\").-pljdgcUploadProtocol :: Lens' ProjectsLocationsJobsDebugGetConfig (Maybe Text)-pljdgcUploadProtocol-  = lens _pljdgcUploadProtocol-      (\ s a -> s{_pljdgcUploadProtocol = a})---- | 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-      (\ s a -> s{_pljdgcLocation = a})---- | OAuth access token.-pljdgcAccessToken :: Lens' ProjectsLocationsJobsDebugGetConfig (Maybe Text)-pljdgcAccessToken-  = lens _pljdgcAccessToken-      (\ s a -> s{_pljdgcAccessToken = a})---- | Legacy upload protocol for media (e.g. \"media\", \"multipart\").-pljdgcUploadType :: Lens' ProjectsLocationsJobsDebugGetConfig (Maybe Text)-pljdgcUploadType-  = lens _pljdgcUploadType-      (\ s a -> s{_pljdgcUploadType = a})---- | Multipart request metadata.-pljdgcPayload :: Lens' ProjectsLocationsJobsDebugGetConfig GetDebugConfigRequest-pljdgcPayload-  = lens _pljdgcPayload-      (\ s a -> s{_pljdgcPayload = a})---- | The project id.-pljdgcProjectId :: Lens' ProjectsLocationsJobsDebugGetConfig Text-pljdgcProjectId-  = lens _pljdgcProjectId-      (\ s a -> s{_pljdgcProjectId = a})---- | JSONP-pljdgcCallback :: Lens' ProjectsLocationsJobsDebugGetConfig (Maybe Text)-pljdgcCallback-  = lens _pljdgcCallback-      (\ s a -> s{_pljdgcCallback = a})--instance GoogleRequest-           ProjectsLocationsJobsDebugGetConfig-         where-        type Rs ProjectsLocationsJobsDebugGetConfig =-             GetDebugConfigResponse-        type Scopes ProjectsLocationsJobsDebugGetConfig =-             '["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-          ProjectsLocationsJobsDebugGetConfig'{..}-          = go _pljdgcProjectId _pljdgcLocation _pljdgcJobId-              _pljdgcXgafv-              _pljdgcUploadProtocol-              _pljdgcAccessToken-              _pljdgcUploadType-              _pljdgcCallback-              (Just AltJSON)-              _pljdgcPayload-              dataflowService-          where go-                  = buildClient-                      (Proxy ::-                         Proxy ProjectsLocationsJobsDebugGetConfigResource)-                      mempty
− gen/Network/Google/Resource/Dataflow/Projects/Locations/Jobs/Debug/SendCapture.hs 
@@ -1,209 +0,0 @@-{-# 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.Jobs.Debug.SendCapture--- 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)------ Send encoded debug capture data for component.------ /See:/ <https://cloud.google.com/dataflow Dataflow API Reference> for @dataflow.projects.locations.jobs.debug.sendCapture@.-module Network.Google.Resource.Dataflow.Projects.Locations.Jobs.Debug.SendCapture-    (-    -- * REST Resource-      ProjectsLocationsJobsDebugSendCaptureResource--    -- * Creating a Request-    , projectsLocationsJobsDebugSendCapture-    , ProjectsLocationsJobsDebugSendCapture--    -- * Request Lenses-    , pljdscXgafv-    , pljdscJobId-    , pljdscUploadProtocol-    , pljdscLocation-    , pljdscAccessToken-    , pljdscUploadType-    , pljdscPayload-    , pljdscProjectId-    , pljdscCallback-    ) where--import           Network.Google.Dataflow.Types-import           Network.Google.Prelude---- | A resource alias for @dataflow.projects.locations.jobs.debug.sendCapture@ method which the--- 'ProjectsLocationsJobsDebugSendCapture' request conforms to.-type ProjectsLocationsJobsDebugSendCaptureResource =-     "v1b3" :>-       "projects" :>-         Capture "projectId" Text :>-           "locations" :>-             Capture "location" Text :>-               "jobs" :>-                 Capture "jobId" Text :>-                   "debug" :>-                     "sendCapture" :>-                       QueryParam "$.xgafv" Xgafv :>-                         QueryParam "upload_protocol" Text :>-                           QueryParam "access_token" Text :>-                             QueryParam "uploadType" Text :>-                               QueryParam "callback" Text :>-                                 QueryParam "alt" AltJSON :>-                                   ReqBody '[JSON] SendDebugCaptureRequest :>-                                     Post '[JSON] SendDebugCaptureResponse---- | Send encoded debug capture data for component.------ /See:/ 'projectsLocationsJobsDebugSendCapture' smart constructor.-data ProjectsLocationsJobsDebugSendCapture =-  ProjectsLocationsJobsDebugSendCapture'-    { _pljdscXgafv          :: !(Maybe Xgafv)-    , _pljdscJobId          :: !Text-    , _pljdscUploadProtocol :: !(Maybe Text)-    , _pljdscLocation       :: !Text-    , _pljdscAccessToken    :: !(Maybe Text)-    , _pljdscUploadType     :: !(Maybe Text)-    , _pljdscPayload        :: !SendDebugCaptureRequest-    , _pljdscProjectId      :: !Text-    , _pljdscCallback       :: !(Maybe Text)-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'ProjectsLocationsJobsDebugSendCapture' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'pljdscXgafv'------ * 'pljdscJobId'------ * 'pljdscUploadProtocol'------ * 'pljdscLocation'------ * 'pljdscAccessToken'------ * 'pljdscUploadType'------ * 'pljdscPayload'------ * 'pljdscProjectId'------ * 'pljdscCallback'-projectsLocationsJobsDebugSendCapture-    :: Text -- ^ 'pljdscJobId'-    -> Text -- ^ 'pljdscLocation'-    -> SendDebugCaptureRequest -- ^ 'pljdscPayload'-    -> Text -- ^ 'pljdscProjectId'-    -> ProjectsLocationsJobsDebugSendCapture-projectsLocationsJobsDebugSendCapture pPljdscJobId_ pPljdscLocation_ pPljdscPayload_ pPljdscProjectId_ =-  ProjectsLocationsJobsDebugSendCapture'-    { _pljdscXgafv = Nothing-    , _pljdscJobId = pPljdscJobId_-    , _pljdscUploadProtocol = Nothing-    , _pljdscLocation = pPljdscLocation_-    , _pljdscAccessToken = Nothing-    , _pljdscUploadType = Nothing-    , _pljdscPayload = pPljdscPayload_-    , _pljdscProjectId = pPljdscProjectId_-    , _pljdscCallback = Nothing-    }----- | V1 error format.-pljdscXgafv :: Lens' ProjectsLocationsJobsDebugSendCapture (Maybe Xgafv)-pljdscXgafv-  = lens _pljdscXgafv (\ s a -> s{_pljdscXgafv = a})---- | The job id.-pljdscJobId :: Lens' ProjectsLocationsJobsDebugSendCapture Text-pljdscJobId-  = lens _pljdscJobId (\ s a -> s{_pljdscJobId = a})---- | Upload protocol for media (e.g. \"raw\", \"multipart\").-pljdscUploadProtocol :: Lens' ProjectsLocationsJobsDebugSendCapture (Maybe Text)-pljdscUploadProtocol-  = lens _pljdscUploadProtocol-      (\ s a -> s{_pljdscUploadProtocol = a})---- | 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-      (\ s a -> s{_pljdscLocation = a})---- | OAuth access token.-pljdscAccessToken :: Lens' ProjectsLocationsJobsDebugSendCapture (Maybe Text)-pljdscAccessToken-  = lens _pljdscAccessToken-      (\ s a -> s{_pljdscAccessToken = a})---- | Legacy upload protocol for media (e.g. \"media\", \"multipart\").-pljdscUploadType :: Lens' ProjectsLocationsJobsDebugSendCapture (Maybe Text)-pljdscUploadType-  = lens _pljdscUploadType-      (\ s a -> s{_pljdscUploadType = a})---- | Multipart request metadata.-pljdscPayload :: Lens' ProjectsLocationsJobsDebugSendCapture SendDebugCaptureRequest-pljdscPayload-  = lens _pljdscPayload-      (\ s a -> s{_pljdscPayload = a})---- | The project id.-pljdscProjectId :: Lens' ProjectsLocationsJobsDebugSendCapture Text-pljdscProjectId-  = lens _pljdscProjectId-      (\ s a -> s{_pljdscProjectId = a})---- | JSONP-pljdscCallback :: Lens' ProjectsLocationsJobsDebugSendCapture (Maybe Text)-pljdscCallback-  = lens _pljdscCallback-      (\ s a -> s{_pljdscCallback = a})--instance GoogleRequest-           ProjectsLocationsJobsDebugSendCapture-         where-        type Rs ProjectsLocationsJobsDebugSendCapture =-             SendDebugCaptureResponse-        type Scopes ProjectsLocationsJobsDebugSendCapture =-             '["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-          ProjectsLocationsJobsDebugSendCapture'{..}-          = go _pljdscProjectId _pljdscLocation _pljdscJobId-              _pljdscXgafv-              _pljdscUploadProtocol-              _pljdscAccessToken-              _pljdscUploadType-              _pljdscCallback-              (Just AltJSON)-              _pljdscPayload-              dataflowService-          where go-                  = buildClient-                      (Proxy ::-                         Proxy ProjectsLocationsJobsDebugSendCaptureResource)-                      mempty
− gen/Network/Google/Resource/Dataflow/Projects/Locations/Jobs/Get.hs 
@@ -1,206 +0,0 @@-{-# 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.Jobs.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 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-    (-    -- * REST Resource-      ProjectsLocationsJobsGetResource--    -- * Creating a Request-    , projectsLocationsJobsGet-    , ProjectsLocationsJobsGet--    -- * Request Lenses-    , pljgXgafv-    , pljgJobId-    , pljgUploadProtocol-    , pljgLocation-    , pljgAccessToken-    , pljgUploadType-    , pljgView-    , pljgProjectId-    , pljgCallback-    ) where--import           Network.Google.Dataflow.Types-import           Network.Google.Prelude---- | A resource alias for @dataflow.projects.locations.jobs.get@ method which the--- 'ProjectsLocationsJobsGet' request conforms to.-type ProjectsLocationsJobsGetResource =-     "v1b3" :>-       "projects" :>-         Capture "projectId" Text :>-           "locations" :>-             Capture "location" Text :>-               "jobs" :>-                 Capture "jobId" Text :>-                   QueryParam "$.xgafv" Xgafv :>-                     QueryParam "upload_protocol" Text :>-                       QueryParam "access_token" Text :>-                         QueryParam "uploadType" Text :>-                           QueryParam "view" Text :>-                             QueryParam "callback" Text :>-                               QueryParam "alt" AltJSON :> Get '[JSON] 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'-    { _pljgXgafv          :: !(Maybe Xgafv)-    , _pljgJobId          :: !Text-    , _pljgUploadProtocol :: !(Maybe Text)-    , _pljgLocation       :: !Text-    , _pljgAccessToken    :: !(Maybe Text)-    , _pljgUploadType     :: !(Maybe Text)-    , _pljgView           :: !(Maybe Text)-    , _pljgProjectId      :: !Text-    , _pljgCallback       :: !(Maybe Text)-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'ProjectsLocationsJobsGet' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'pljgXgafv'------ * 'pljgJobId'------ * 'pljgUploadProtocol'------ * 'pljgLocation'------ * 'pljgAccessToken'------ * 'pljgUploadType'------ * 'pljgView'------ * 'pljgProjectId'------ * 'pljgCallback'-projectsLocationsJobsGet-    :: Text -- ^ 'pljgJobId'-    -> Text -- ^ 'pljgLocation'-    -> Text -- ^ 'pljgProjectId'-    -> ProjectsLocationsJobsGet-projectsLocationsJobsGet pPljgJobId_ pPljgLocation_ pPljgProjectId_ =-  ProjectsLocationsJobsGet'-    { _pljgXgafv = Nothing-    , _pljgJobId = pPljgJobId_-    , _pljgUploadProtocol = Nothing-    , _pljgLocation = pPljgLocation_-    , _pljgAccessToken = Nothing-    , _pljgUploadType = Nothing-    , _pljgView = Nothing-    , _pljgProjectId = pPljgProjectId_-    , _pljgCallback = Nothing-    }----- | V1 error format.-pljgXgafv :: Lens' ProjectsLocationsJobsGet (Maybe Xgafv)-pljgXgafv-  = lens _pljgXgafv (\ s a -> s{_pljgXgafv = a})---- | The job ID.-pljgJobId :: Lens' ProjectsLocationsJobsGet Text-pljgJobId-  = lens _pljgJobId (\ s a -> s{_pljgJobId = a})---- | Upload protocol for media (e.g. \"raw\", \"multipart\").-pljgUploadProtocol :: Lens' ProjectsLocationsJobsGet (Maybe Text)-pljgUploadProtocol-  = lens _pljgUploadProtocol-      (\ s a -> s{_pljgUploadProtocol = a})---- | 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})---- | OAuth access token.-pljgAccessToken :: Lens' ProjectsLocationsJobsGet (Maybe Text)-pljgAccessToken-  = lens _pljgAccessToken-      (\ s a -> s{_pljgAccessToken = a})---- | Legacy upload protocol for media (e.g. \"media\", \"multipart\").-pljgUploadType :: Lens' ProjectsLocationsJobsGet (Maybe Text)-pljgUploadType-  = lens _pljgUploadType-      (\ s a -> s{_pljgUploadType = a})---- | The level of information requested in response.-pljgView :: Lens' ProjectsLocationsJobsGet (Maybe Text)-pljgView = lens _pljgView (\ s a -> s{_pljgView = a})---- | The ID of the Cloud Platform project that the job belongs to.-pljgProjectId :: Lens' ProjectsLocationsJobsGet Text-pljgProjectId-  = lens _pljgProjectId-      (\ s a -> s{_pljgProjectId = a})---- | JSONP-pljgCallback :: Lens' ProjectsLocationsJobsGet (Maybe Text)-pljgCallback-  = lens _pljgCallback (\ s a -> s{_pljgCallback = a})--instance GoogleRequest ProjectsLocationsJobsGet where-        type Rs ProjectsLocationsJobsGet = Job-        type Scopes ProjectsLocationsJobsGet =-             '["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 ProjectsLocationsJobsGet'{..}-          = go _pljgProjectId _pljgLocation _pljgJobId-              _pljgXgafv-              _pljgUploadProtocol-              _pljgAccessToken-              _pljgUploadType-              _pljgView-              _pljgCallback-              (Just AltJSON)-              dataflowService-          where go-                  = buildClient-                      (Proxy :: Proxy ProjectsLocationsJobsGetResource)-                      mempty
− gen/Network/Google/Resource/Dataflow/Projects/Locations/Jobs/GetMetrics.hs 
@@ -1,215 +0,0 @@-{-# 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.Jobs.GetMetrics--- 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)------ 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-    (-    -- * REST Resource-      ProjectsLocationsJobsGetMetricsResource--    -- * Creating a Request-    , projectsLocationsJobsGetMetrics-    , ProjectsLocationsJobsGetMetrics--    -- * Request Lenses-    , pljgmXgafv-    , pljgmJobId-    , pljgmUploadProtocol-    , pljgmLocation-    , pljgmStartTime-    , pljgmAccessToken-    , pljgmUploadType-    , pljgmProjectId-    , pljgmCallback-    ) where--import           Network.Google.Dataflow.Types-import           Network.Google.Prelude---- | A resource alias for @dataflow.projects.locations.jobs.getMetrics@ method which the--- 'ProjectsLocationsJobsGetMetrics' request conforms to.-type ProjectsLocationsJobsGetMetricsResource =-     "v1b3" :>-       "projects" :>-         Capture "projectId" Text :>-           "locations" :>-             Capture "location" Text :>-               "jobs" :>-                 Capture "jobId" Text :>-                   "metrics" :>-                     QueryParam "$.xgafv" Xgafv :>-                       QueryParam "upload_protocol" Text :>-                         QueryParam "startTime" DateTime' :>-                           QueryParam "access_token" Text :>-                             QueryParam "uploadType" Text :>-                               QueryParam "callback" Text :>-                                 QueryParam "alt" AltJSON :>-                                   Get '[JSON] JobMetrics---- | 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'-    { _pljgmXgafv          :: !(Maybe Xgafv)-    , _pljgmJobId          :: !Text-    , _pljgmUploadProtocol :: !(Maybe Text)-    , _pljgmLocation       :: !Text-    , _pljgmStartTime      :: !(Maybe DateTime')-    , _pljgmAccessToken    :: !(Maybe Text)-    , _pljgmUploadType     :: !(Maybe Text)-    , _pljgmProjectId      :: !Text-    , _pljgmCallback       :: !(Maybe Text)-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'ProjectsLocationsJobsGetMetrics' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'pljgmXgafv'------ * 'pljgmJobId'------ * 'pljgmUploadProtocol'------ * 'pljgmLocation'------ * 'pljgmStartTime'------ * 'pljgmAccessToken'------ * 'pljgmUploadType'------ * 'pljgmProjectId'------ * 'pljgmCallback'-projectsLocationsJobsGetMetrics-    :: Text -- ^ 'pljgmJobId'-    -> Text -- ^ 'pljgmLocation'-    -> Text -- ^ 'pljgmProjectId'-    -> ProjectsLocationsJobsGetMetrics-projectsLocationsJobsGetMetrics pPljgmJobId_ pPljgmLocation_ pPljgmProjectId_ =-  ProjectsLocationsJobsGetMetrics'-    { _pljgmXgafv = Nothing-    , _pljgmJobId = pPljgmJobId_-    , _pljgmUploadProtocol = Nothing-    , _pljgmLocation = pPljgmLocation_-    , _pljgmStartTime = Nothing-    , _pljgmAccessToken = Nothing-    , _pljgmUploadType = Nothing-    , _pljgmProjectId = pPljgmProjectId_-    , _pljgmCallback = Nothing-    }----- | V1 error format.-pljgmXgafv :: Lens' ProjectsLocationsJobsGetMetrics (Maybe Xgafv)-pljgmXgafv-  = lens _pljgmXgafv (\ s a -> s{_pljgmXgafv = a})---- | The job to get messages for.-pljgmJobId :: Lens' ProjectsLocationsJobsGetMetrics Text-pljgmJobId-  = lens _pljgmJobId (\ s a -> s{_pljgmJobId = a})---- | Upload protocol for media (e.g. \"raw\", \"multipart\").-pljgmUploadProtocol :: Lens' ProjectsLocationsJobsGetMetrics (Maybe Text)-pljgmUploadProtocol-  = lens _pljgmUploadProtocol-      (\ s a -> s{_pljgmUploadProtocol = a})---- | 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-      (\ s a -> s{_pljgmLocation = a})---- | Return only metric data that has changed since this time. Default is to--- return all information about all metrics for the job.-pljgmStartTime :: Lens' ProjectsLocationsJobsGetMetrics (Maybe UTCTime)-pljgmStartTime-  = lens _pljgmStartTime-      (\ s a -> s{_pljgmStartTime = a})-      . mapping _DateTime---- | OAuth access token.-pljgmAccessToken :: Lens' ProjectsLocationsJobsGetMetrics (Maybe Text)-pljgmAccessToken-  = lens _pljgmAccessToken-      (\ s a -> s{_pljgmAccessToken = a})---- | Legacy upload protocol for media (e.g. \"media\", \"multipart\").-pljgmUploadType :: Lens' ProjectsLocationsJobsGetMetrics (Maybe Text)-pljgmUploadType-  = lens _pljgmUploadType-      (\ s a -> s{_pljgmUploadType = a})---- | A project id.-pljgmProjectId :: Lens' ProjectsLocationsJobsGetMetrics Text-pljgmProjectId-  = lens _pljgmProjectId-      (\ s a -> s{_pljgmProjectId = a})---- | JSONP-pljgmCallback :: Lens' ProjectsLocationsJobsGetMetrics (Maybe Text)-pljgmCallback-  = lens _pljgmCallback-      (\ s a -> s{_pljgmCallback = a})--instance GoogleRequest-           ProjectsLocationsJobsGetMetrics-         where-        type Rs ProjectsLocationsJobsGetMetrics = JobMetrics-        type Scopes ProjectsLocationsJobsGetMetrics =-             '["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 ProjectsLocationsJobsGetMetrics'{..}-          = go _pljgmProjectId _pljgmLocation _pljgmJobId-              _pljgmXgafv-              _pljgmUploadProtocol-              _pljgmStartTime-              _pljgmAccessToken-              _pljgmUploadType-              _pljgmCallback-              (Just AltJSON)-              dataflowService-          where go-                  = buildClient-                      (Proxy ::-                         Proxy ProjectsLocationsJobsGetMetricsResource)-                      mempty
− gen/Network/Google/Resource/Dataflow/Projects/Locations/Jobs/List.hs 
@@ -1,241 +0,0 @@-{-# 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.Jobs.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)------ 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-    (-    -- * REST Resource-      ProjectsLocationsJobsListResource--    -- * Creating a Request-    , projectsLocationsJobsList-    , ProjectsLocationsJobsList--    -- * Request Lenses-    , pljlXgafv-    , pljlUploadProtocol-    , pljlLocation-    , pljlAccessToken-    , pljlUploadType-    , pljlView-    , pljlFilter-    , pljlPageToken-    , pljlProjectId-    , pljlPageSize-    , pljlCallback-    ) where--import           Network.Google.Dataflow.Types-import           Network.Google.Prelude---- | A resource alias for @dataflow.projects.locations.jobs.list@ method which the--- 'ProjectsLocationsJobsList' request conforms to.-type ProjectsLocationsJobsListResource =-     "v1b3" :>-       "projects" :>-         Capture "projectId" Text :>-           "locations" :>-             Capture "location" Text :>-               "jobs" :>-                 QueryParam "$.xgafv" Xgafv :>-                   QueryParam "upload_protocol" Text :>-                     QueryParam "access_token" Text :>-                       QueryParam "uploadType" Text :>-                         QueryParam "view" Text :>-                           QueryParam "filter" Text :>-                             QueryParam "pageToken" Text :>-                               QueryParam "pageSize" (Textual Int32) :>-                                 QueryParam "callback" Text :>-                                   QueryParam "alt" AltJSON :>-                                     Get '[JSON] ListJobsResponse---- | 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'-    { _pljlXgafv          :: !(Maybe Xgafv)-    , _pljlUploadProtocol :: !(Maybe Text)-    , _pljlLocation       :: !Text-    , _pljlAccessToken    :: !(Maybe Text)-    , _pljlUploadType     :: !(Maybe Text)-    , _pljlView           :: !(Maybe Text)-    , _pljlFilter         :: !(Maybe Text)-    , _pljlPageToken      :: !(Maybe Text)-    , _pljlProjectId      :: !Text-    , _pljlPageSize       :: !(Maybe (Textual Int32))-    , _pljlCallback       :: !(Maybe Text)-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'ProjectsLocationsJobsList' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'pljlXgafv'------ * 'pljlUploadProtocol'------ * 'pljlLocation'------ * 'pljlAccessToken'------ * 'pljlUploadType'------ * 'pljlView'------ * 'pljlFilter'------ * 'pljlPageToken'------ * 'pljlProjectId'------ * 'pljlPageSize'------ * 'pljlCallback'-projectsLocationsJobsList-    :: Text -- ^ 'pljlLocation'-    -> Text -- ^ 'pljlProjectId'-    -> ProjectsLocationsJobsList-projectsLocationsJobsList pPljlLocation_ pPljlProjectId_ =-  ProjectsLocationsJobsList'-    { _pljlXgafv = Nothing-    , _pljlUploadProtocol = Nothing-    , _pljlLocation = pPljlLocation_-    , _pljlAccessToken = Nothing-    , _pljlUploadType = Nothing-    , _pljlView = Nothing-    , _pljlFilter = Nothing-    , _pljlPageToken = Nothing-    , _pljlProjectId = pPljlProjectId_-    , _pljlPageSize = Nothing-    , _pljlCallback = Nothing-    }----- | V1 error format.-pljlXgafv :: Lens' ProjectsLocationsJobsList (Maybe Xgafv)-pljlXgafv-  = lens _pljlXgafv (\ s a -> s{_pljlXgafv = a})---- | Upload protocol for media (e.g. \"raw\", \"multipart\").-pljlUploadProtocol :: Lens' ProjectsLocationsJobsList (Maybe Text)-pljlUploadProtocol-  = lens _pljlUploadProtocol-      (\ s a -> s{_pljlUploadProtocol = a})---- | 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})---- | OAuth access token.-pljlAccessToken :: Lens' ProjectsLocationsJobsList (Maybe Text)-pljlAccessToken-  = lens _pljlAccessToken-      (\ s a -> s{_pljlAccessToken = a})---- | Legacy upload protocol for media (e.g. \"media\", \"multipart\").-pljlUploadType :: Lens' ProjectsLocationsJobsList (Maybe Text)-pljlUploadType-  = lens _pljlUploadType-      (\ s a -> s{_pljlUploadType = a})---- | Level of information requested in response. Default is--- \`JOB_VIEW_SUMMARY\`.-pljlView :: Lens' ProjectsLocationsJobsList (Maybe Text)-pljlView = lens _pljlView (\ s a -> s{_pljlView = a})---- | The kind of filter to use.-pljlFilter :: Lens' ProjectsLocationsJobsList (Maybe Text)-pljlFilter-  = lens _pljlFilter (\ s a -> s{_pljlFilter = a})---- | Set this to the \'next_page_token\' field of a previous response to--- request additional results in a long list.-pljlPageToken :: Lens' ProjectsLocationsJobsList (Maybe Text)-pljlPageToken-  = lens _pljlPageToken-      (\ s a -> s{_pljlPageToken = a})---- | The project which owns the jobs.-pljlProjectId :: Lens' ProjectsLocationsJobsList Text-pljlProjectId-  = lens _pljlProjectId-      (\ s a -> s{_pljlProjectId = a})---- | If there are many jobs, limit response to at most this many. The actual--- number of jobs returned will be the lesser of max_responses and an--- unspecified server-defined limit.-pljlPageSize :: Lens' ProjectsLocationsJobsList (Maybe Int32)-pljlPageSize-  = lens _pljlPageSize (\ s a -> s{_pljlPageSize = a})-      . mapping _Coerce---- | JSONP-pljlCallback :: Lens' ProjectsLocationsJobsList (Maybe Text)-pljlCallback-  = lens _pljlCallback (\ s a -> s{_pljlCallback = a})--instance GoogleRequest ProjectsLocationsJobsList-         where-        type Rs ProjectsLocationsJobsList = ListJobsResponse-        type Scopes ProjectsLocationsJobsList =-             '["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 ProjectsLocationsJobsList'{..}-          = go _pljlProjectId _pljlLocation _pljlXgafv-              _pljlUploadProtocol-              _pljlAccessToken-              _pljlUploadType-              _pljlView-              _pljlFilter-              _pljlPageToken-              _pljlPageSize-              _pljlCallback-              (Just AltJSON)-              dataflowService-          where go-                  = buildClient-                      (Proxy :: Proxy ProjectsLocationsJobsListResource)-                      mempty
− gen/Network/Google/Resource/Dataflow/Projects/Locations/Jobs/Messages/List.hs 
@@ -1,275 +0,0 @@-{-# 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.Jobs.Messages.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)------ 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-    (-    -- * REST Resource-      ProjectsLocationsJobsMessagesListResource--    -- * Creating a Request-    , projectsLocationsJobsMessagesList-    , ProjectsLocationsJobsMessagesList--    -- * Request Lenses-    , pljmlXgafv-    , pljmlJobId-    , pljmlUploadProtocol-    , pljmlLocation-    , pljmlStartTime-    , pljmlAccessToken-    , pljmlUploadType-    , pljmlEndTime-    , pljmlMinimumImportance-    , pljmlPageToken-    , pljmlProjectId-    , pljmlPageSize-    , pljmlCallback-    ) where--import           Network.Google.Dataflow.Types-import           Network.Google.Prelude---- | A resource alias for @dataflow.projects.locations.jobs.messages.list@ method which the--- 'ProjectsLocationsJobsMessagesList' request conforms to.-type ProjectsLocationsJobsMessagesListResource =-     "v1b3" :>-       "projects" :>-         Capture "projectId" Text :>-           "locations" :>-             Capture "location" Text :>-               "jobs" :>-                 Capture "jobId" Text :>-                   "messages" :>-                     QueryParam "$.xgafv" Xgafv :>-                       QueryParam "upload_protocol" Text :>-                         QueryParam "startTime" DateTime' :>-                           QueryParam "access_token" Text :>-                             QueryParam "uploadType" Text :>-                               QueryParam "endTime" DateTime' :>-                                 QueryParam "minimumImportance" Text :>-                                   QueryParam "pageToken" Text :>-                                     QueryParam "pageSize" (Textual Int32) :>-                                       QueryParam "callback" Text :>-                                         QueryParam "alt" AltJSON :>-                                           Get '[JSON] ListJobMessagesResponse---- | 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'-    { _pljmlXgafv             :: !(Maybe Xgafv)-    , _pljmlJobId             :: !Text-    , _pljmlUploadProtocol    :: !(Maybe Text)-    , _pljmlLocation          :: !Text-    , _pljmlStartTime         :: !(Maybe DateTime')-    , _pljmlAccessToken       :: !(Maybe Text)-    , _pljmlUploadType        :: !(Maybe Text)-    , _pljmlEndTime           :: !(Maybe DateTime')-    , _pljmlMinimumImportance :: !(Maybe Text)-    , _pljmlPageToken         :: !(Maybe Text)-    , _pljmlProjectId         :: !Text-    , _pljmlPageSize          :: !(Maybe (Textual Int32))-    , _pljmlCallback          :: !(Maybe Text)-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'ProjectsLocationsJobsMessagesList' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'pljmlXgafv'------ * 'pljmlJobId'------ * 'pljmlUploadProtocol'------ * 'pljmlLocation'------ * 'pljmlStartTime'------ * 'pljmlAccessToken'------ * 'pljmlUploadType'------ * 'pljmlEndTime'------ * 'pljmlMinimumImportance'------ * 'pljmlPageToken'------ * 'pljmlProjectId'------ * 'pljmlPageSize'------ * 'pljmlCallback'-projectsLocationsJobsMessagesList-    :: Text -- ^ 'pljmlJobId'-    -> Text -- ^ 'pljmlLocation'-    -> Text -- ^ 'pljmlProjectId'-    -> ProjectsLocationsJobsMessagesList-projectsLocationsJobsMessagesList pPljmlJobId_ pPljmlLocation_ pPljmlProjectId_ =-  ProjectsLocationsJobsMessagesList'-    { _pljmlXgafv = Nothing-    , _pljmlJobId = pPljmlJobId_-    , _pljmlUploadProtocol = Nothing-    , _pljmlLocation = pPljmlLocation_-    , _pljmlStartTime = Nothing-    , _pljmlAccessToken = Nothing-    , _pljmlUploadType = Nothing-    , _pljmlEndTime = Nothing-    , _pljmlMinimumImportance = Nothing-    , _pljmlPageToken = Nothing-    , _pljmlProjectId = pPljmlProjectId_-    , _pljmlPageSize = Nothing-    , _pljmlCallback = Nothing-    }----- | V1 error format.-pljmlXgafv :: Lens' ProjectsLocationsJobsMessagesList (Maybe Xgafv)-pljmlXgafv-  = lens _pljmlXgafv (\ s a -> s{_pljmlXgafv = a})---- | The job to get messages about.-pljmlJobId :: Lens' ProjectsLocationsJobsMessagesList Text-pljmlJobId-  = lens _pljmlJobId (\ s a -> s{_pljmlJobId = a})---- | Upload protocol for media (e.g. \"raw\", \"multipart\").-pljmlUploadProtocol :: Lens' ProjectsLocationsJobsMessagesList (Maybe Text)-pljmlUploadProtocol-  = lens _pljmlUploadProtocol-      (\ s a -> s{_pljmlUploadProtocol = a})---- | 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-      (\ s a -> s{_pljmlLocation = a})---- | If specified, return only messages with timestamps >= start_time. The--- default is the job creation time (i.e. beginning of messages).-pljmlStartTime :: Lens' ProjectsLocationsJobsMessagesList (Maybe UTCTime)-pljmlStartTime-  = lens _pljmlStartTime-      (\ s a -> s{_pljmlStartTime = a})-      . mapping _DateTime---- | OAuth access token.-pljmlAccessToken :: Lens' ProjectsLocationsJobsMessagesList (Maybe Text)-pljmlAccessToken-  = lens _pljmlAccessToken-      (\ s a -> s{_pljmlAccessToken = a})---- | Legacy upload protocol for media (e.g. \"media\", \"multipart\").-pljmlUploadType :: Lens' ProjectsLocationsJobsMessagesList (Maybe Text)-pljmlUploadType-  = lens _pljmlUploadType-      (\ s a -> s{_pljmlUploadType = a})---- | Return only messages with timestamps \< end_time. The default is now--- (i.e. return up to the latest messages available).-pljmlEndTime :: Lens' ProjectsLocationsJobsMessagesList (Maybe UTCTime)-pljmlEndTime-  = lens _pljmlEndTime (\ s a -> s{_pljmlEndTime = a})-      . mapping _DateTime---- | Filter to only get messages with importance >= level-pljmlMinimumImportance :: Lens' ProjectsLocationsJobsMessagesList (Maybe Text)-pljmlMinimumImportance-  = lens _pljmlMinimumImportance-      (\ s a -> s{_pljmlMinimumImportance = a})---- | If supplied, this should be the value of next_page_token returned by an--- earlier call. This will cause the next page of results to be returned.-pljmlPageToken :: Lens' ProjectsLocationsJobsMessagesList (Maybe Text)-pljmlPageToken-  = lens _pljmlPageToken-      (\ s a -> s{_pljmlPageToken = a})---- | A project id.-pljmlProjectId :: Lens' ProjectsLocationsJobsMessagesList Text-pljmlProjectId-  = lens _pljmlProjectId-      (\ s a -> s{_pljmlProjectId = a})---- | If specified, determines the maximum number of messages to return. If--- unspecified, the service may choose an appropriate default, or may--- return an arbitrarily large number of results.-pljmlPageSize :: Lens' ProjectsLocationsJobsMessagesList (Maybe Int32)-pljmlPageSize-  = lens _pljmlPageSize-      (\ s a -> s{_pljmlPageSize = a})-      . mapping _Coerce---- | JSONP-pljmlCallback :: Lens' ProjectsLocationsJobsMessagesList (Maybe Text)-pljmlCallback-  = lens _pljmlCallback-      (\ s a -> s{_pljmlCallback = a})--instance GoogleRequest-           ProjectsLocationsJobsMessagesList-         where-        type Rs ProjectsLocationsJobsMessagesList =-             ListJobMessagesResponse-        type Scopes ProjectsLocationsJobsMessagesList =-             '["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 ProjectsLocationsJobsMessagesList'{..}-          = go _pljmlProjectId _pljmlLocation _pljmlJobId-              _pljmlXgafv-              _pljmlUploadProtocol-              _pljmlStartTime-              _pljmlAccessToken-              _pljmlUploadType-              _pljmlEndTime-              _pljmlMinimumImportance-              _pljmlPageToken-              _pljmlPageSize-              _pljmlCallback-              (Just AltJSON)-              dataflowService-          where go-                  = buildClient-                      (Proxy ::-                         Proxy ProjectsLocationsJobsMessagesListResource)-                      mempty
− gen/Network/Google/Resource/Dataflow/Projects/Locations/Jobs/Snapshot.hs 
@@ -1,199 +0,0 @@-{-# 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.Jobs.Snapshot--- 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)------ Snapshot the state of a streaming job.------ /See:/ <https://cloud.google.com/dataflow Dataflow API Reference> for @dataflow.projects.locations.jobs.snapshot@.-module Network.Google.Resource.Dataflow.Projects.Locations.Jobs.Snapshot-    (-    -- * REST Resource-      ProjectsLocationsJobsSnapshotResource--    -- * Creating a Request-    , projectsLocationsJobsSnapshot-    , ProjectsLocationsJobsSnapshot--    -- * Request Lenses-    , pljsXgafv-    , pljsJobId-    , pljsUploadProtocol-    , pljsLocation-    , pljsAccessToken-    , pljsUploadType-    , pljsPayload-    , pljsProjectId-    , pljsCallback-    ) where--import           Network.Google.Dataflow.Types-import           Network.Google.Prelude---- | A resource alias for @dataflow.projects.locations.jobs.snapshot@ method which the--- 'ProjectsLocationsJobsSnapshot' request conforms to.-type ProjectsLocationsJobsSnapshotResource =-     "v1b3" :>-       "projects" :>-         Capture "projectId" Text :>-           "locations" :>-             Capture "location" Text :>-               "jobs" :>-                 CaptureMode "jobId" "snapshot" Text :>-                   QueryParam "$.xgafv" Xgafv :>-                     QueryParam "upload_protocol" Text :>-                       QueryParam "access_token" Text :>-                         QueryParam "uploadType" Text :>-                           QueryParam "callback" Text :>-                             QueryParam "alt" AltJSON :>-                               ReqBody '[JSON] SnapshotJobRequest :>-                                 Post '[JSON] Snapshot---- | Snapshot the state of a streaming job.------ /See:/ 'projectsLocationsJobsSnapshot' smart constructor.-data ProjectsLocationsJobsSnapshot =-  ProjectsLocationsJobsSnapshot'-    { _pljsXgafv          :: !(Maybe Xgafv)-    , _pljsJobId          :: !Text-    , _pljsUploadProtocol :: !(Maybe Text)-    , _pljsLocation       :: !Text-    , _pljsAccessToken    :: !(Maybe Text)-    , _pljsUploadType     :: !(Maybe Text)-    , _pljsPayload        :: !SnapshotJobRequest-    , _pljsProjectId      :: !Text-    , _pljsCallback       :: !(Maybe Text)-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'ProjectsLocationsJobsSnapshot' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'pljsXgafv'------ * 'pljsJobId'------ * 'pljsUploadProtocol'------ * 'pljsLocation'------ * 'pljsAccessToken'------ * 'pljsUploadType'------ * 'pljsPayload'------ * 'pljsProjectId'------ * 'pljsCallback'-projectsLocationsJobsSnapshot-    :: Text -- ^ 'pljsJobId'-    -> Text -- ^ 'pljsLocation'-    -> SnapshotJobRequest -- ^ 'pljsPayload'-    -> Text -- ^ 'pljsProjectId'-    -> ProjectsLocationsJobsSnapshot-projectsLocationsJobsSnapshot pPljsJobId_ pPljsLocation_ pPljsPayload_ pPljsProjectId_ =-  ProjectsLocationsJobsSnapshot'-    { _pljsXgafv = Nothing-    , _pljsJobId = pPljsJobId_-    , _pljsUploadProtocol = Nothing-    , _pljsLocation = pPljsLocation_-    , _pljsAccessToken = Nothing-    , _pljsUploadType = Nothing-    , _pljsPayload = pPljsPayload_-    , _pljsProjectId = pPljsProjectId_-    , _pljsCallback = Nothing-    }----- | V1 error format.-pljsXgafv :: Lens' ProjectsLocationsJobsSnapshot (Maybe Xgafv)-pljsXgafv-  = lens _pljsXgafv (\ s a -> s{_pljsXgafv = a})---- | The job to be snapshotted.-pljsJobId :: Lens' ProjectsLocationsJobsSnapshot Text-pljsJobId-  = lens _pljsJobId (\ s a -> s{_pljsJobId = a})---- | Upload protocol for media (e.g. \"raw\", \"multipart\").-pljsUploadProtocol :: Lens' ProjectsLocationsJobsSnapshot (Maybe Text)-pljsUploadProtocol-  = lens _pljsUploadProtocol-      (\ s a -> s{_pljsUploadProtocol = a})---- | The location that contains this job.-pljsLocation :: Lens' ProjectsLocationsJobsSnapshot Text-pljsLocation-  = lens _pljsLocation (\ s a -> s{_pljsLocation = a})---- | OAuth access token.-pljsAccessToken :: Lens' ProjectsLocationsJobsSnapshot (Maybe Text)-pljsAccessToken-  = lens _pljsAccessToken-      (\ s a -> s{_pljsAccessToken = a})---- | Legacy upload protocol for media (e.g. \"media\", \"multipart\").-pljsUploadType :: Lens' ProjectsLocationsJobsSnapshot (Maybe Text)-pljsUploadType-  = lens _pljsUploadType-      (\ s a -> s{_pljsUploadType = a})---- | Multipart request metadata.-pljsPayload :: Lens' ProjectsLocationsJobsSnapshot SnapshotJobRequest-pljsPayload-  = lens _pljsPayload (\ s a -> s{_pljsPayload = a})---- | The project which owns the job to be snapshotted.-pljsProjectId :: Lens' ProjectsLocationsJobsSnapshot Text-pljsProjectId-  = lens _pljsProjectId-      (\ s a -> s{_pljsProjectId = a})---- | JSONP-pljsCallback :: Lens' ProjectsLocationsJobsSnapshot (Maybe Text)-pljsCallback-  = lens _pljsCallback (\ s a -> s{_pljsCallback = a})--instance GoogleRequest ProjectsLocationsJobsSnapshot-         where-        type Rs ProjectsLocationsJobsSnapshot = Snapshot-        type Scopes ProjectsLocationsJobsSnapshot =-             '["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 ProjectsLocationsJobsSnapshot'{..}-          = go _pljsProjectId _pljsLocation _pljsJobId-              _pljsXgafv-              _pljsUploadProtocol-              _pljsAccessToken-              _pljsUploadType-              _pljsCallback-              (Just AltJSON)-              _pljsPayload-              dataflowService-          where go-                  = buildClient-                      (Proxy ::-                         Proxy ProjectsLocationsJobsSnapshotResource)-                      mempty
− gen/Network/Google/Resource/Dataflow/Projects/Locations/Jobs/Update.hs 
@@ -1,209 +0,0 @@-{-# 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.Jobs.Update--- 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)------ 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-    (-    -- * REST Resource-      ProjectsLocationsJobsUpdateResource--    -- * Creating a Request-    , projectsLocationsJobsUpdate-    , ProjectsLocationsJobsUpdate--    -- * Request Lenses-    , pljuXgafv-    , pljuJobId-    , pljuUploadProtocol-    , pljuLocation-    , pljuAccessToken-    , pljuUploadType-    , pljuPayload-    , pljuProjectId-    , pljuCallback-    ) where--import           Network.Google.Dataflow.Types-import           Network.Google.Prelude---- | A resource alias for @dataflow.projects.locations.jobs.update@ method which the--- 'ProjectsLocationsJobsUpdate' request conforms to.-type ProjectsLocationsJobsUpdateResource =-     "v1b3" :>-       "projects" :>-         Capture "projectId" Text :>-           "locations" :>-             Capture "location" Text :>-               "jobs" :>-                 Capture "jobId" Text :>-                   QueryParam "$.xgafv" Xgafv :>-                     QueryParam "upload_protocol" Text :>-                       QueryParam "access_token" Text :>-                         QueryParam "uploadType" Text :>-                           QueryParam "callback" Text :>-                             QueryParam "alt" AltJSON :>-                               ReqBody '[JSON] Job :> Put '[JSON] 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'-    { _pljuXgafv          :: !(Maybe Xgafv)-    , _pljuJobId          :: !Text-    , _pljuUploadProtocol :: !(Maybe Text)-    , _pljuLocation       :: !Text-    , _pljuAccessToken    :: !(Maybe Text)-    , _pljuUploadType     :: !(Maybe Text)-    , _pljuPayload        :: !Job-    , _pljuProjectId      :: !Text-    , _pljuCallback       :: !(Maybe Text)-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'ProjectsLocationsJobsUpdate' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'pljuXgafv'------ * 'pljuJobId'------ * 'pljuUploadProtocol'------ * 'pljuLocation'------ * 'pljuAccessToken'------ * 'pljuUploadType'------ * 'pljuPayload'------ * 'pljuProjectId'------ * 'pljuCallback'-projectsLocationsJobsUpdate-    :: Text -- ^ 'pljuJobId'-    -> Text -- ^ 'pljuLocation'-    -> Job -- ^ 'pljuPayload'-    -> Text -- ^ 'pljuProjectId'-    -> ProjectsLocationsJobsUpdate-projectsLocationsJobsUpdate pPljuJobId_ pPljuLocation_ pPljuPayload_ pPljuProjectId_ =-  ProjectsLocationsJobsUpdate'-    { _pljuXgafv = Nothing-    , _pljuJobId = pPljuJobId_-    , _pljuUploadProtocol = Nothing-    , _pljuLocation = pPljuLocation_-    , _pljuAccessToken = Nothing-    , _pljuUploadType = Nothing-    , _pljuPayload = pPljuPayload_-    , _pljuProjectId = pPljuProjectId_-    , _pljuCallback = Nothing-    }----- | V1 error format.-pljuXgafv :: Lens' ProjectsLocationsJobsUpdate (Maybe Xgafv)-pljuXgafv-  = lens _pljuXgafv (\ s a -> s{_pljuXgafv = a})---- | The job ID.-pljuJobId :: Lens' ProjectsLocationsJobsUpdate Text-pljuJobId-  = lens _pljuJobId (\ s a -> s{_pljuJobId = a})---- | Upload protocol for media (e.g. \"raw\", \"multipart\").-pljuUploadProtocol :: Lens' ProjectsLocationsJobsUpdate (Maybe Text)-pljuUploadProtocol-  = lens _pljuUploadProtocol-      (\ s a -> s{_pljuUploadProtocol = a})---- | 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})---- | OAuth access token.-pljuAccessToken :: Lens' ProjectsLocationsJobsUpdate (Maybe Text)-pljuAccessToken-  = lens _pljuAccessToken-      (\ s a -> s{_pljuAccessToken = a})---- | Legacy upload protocol for media (e.g. \"media\", \"multipart\").-pljuUploadType :: Lens' ProjectsLocationsJobsUpdate (Maybe Text)-pljuUploadType-  = lens _pljuUploadType-      (\ s a -> s{_pljuUploadType = a})---- | Multipart request metadata.-pljuPayload :: Lens' ProjectsLocationsJobsUpdate Job-pljuPayload-  = lens _pljuPayload (\ s a -> s{_pljuPayload = a})---- | The ID of the Cloud Platform project that the job belongs to.-pljuProjectId :: Lens' ProjectsLocationsJobsUpdate Text-pljuProjectId-  = lens _pljuProjectId-      (\ s a -> s{_pljuProjectId = a})---- | JSONP-pljuCallback :: Lens' ProjectsLocationsJobsUpdate (Maybe Text)-pljuCallback-  = lens _pljuCallback (\ s a -> s{_pljuCallback = a})--instance GoogleRequest ProjectsLocationsJobsUpdate-         where-        type Rs ProjectsLocationsJobsUpdate = Job-        type Scopes ProjectsLocationsJobsUpdate =-             '["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 ProjectsLocationsJobsUpdate'{..}-          = go _pljuProjectId _pljuLocation _pljuJobId-              _pljuXgafv-              _pljuUploadProtocol-              _pljuAccessToken-              _pljuUploadType-              _pljuCallback-              (Just AltJSON)-              _pljuPayload-              dataflowService-          where go-                  = buildClient-                      (Proxy :: Proxy ProjectsLocationsJobsUpdateResource)-                      mempty
− gen/Network/Google/Resource/Dataflow/Projects/Locations/Jobs/WorkItems/Lease.hs 
@@ -1,208 +0,0 @@-{-# 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.Jobs.WorkItems.Lease--- 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)------ Leases a dataflow WorkItem to run.------ /See:/ <https://cloud.google.com/dataflow Dataflow API Reference> for @dataflow.projects.locations.jobs.workItems.lease@.-module Network.Google.Resource.Dataflow.Projects.Locations.Jobs.WorkItems.Lease-    (-    -- * REST Resource-      ProjectsLocationsJobsWorkItemsLeaseResource--    -- * Creating a Request-    , projectsLocationsJobsWorkItemsLease-    , ProjectsLocationsJobsWorkItemsLease--    -- * Request Lenses-    , pljwilXgafv-    , pljwilJobId-    , pljwilUploadProtocol-    , pljwilLocation-    , pljwilAccessToken-    , pljwilUploadType-    , pljwilPayload-    , pljwilProjectId-    , pljwilCallback-    ) where--import           Network.Google.Dataflow.Types-import           Network.Google.Prelude---- | A resource alias for @dataflow.projects.locations.jobs.workItems.lease@ method which the--- 'ProjectsLocationsJobsWorkItemsLease' request conforms to.-type ProjectsLocationsJobsWorkItemsLeaseResource =-     "v1b3" :>-       "projects" :>-         Capture "projectId" Text :>-           "locations" :>-             Capture "location" Text :>-               "jobs" :>-                 Capture "jobId" Text :>-                   "workItems:lease" :>-                     QueryParam "$.xgafv" Xgafv :>-                       QueryParam "upload_protocol" Text :>-                         QueryParam "access_token" Text :>-                           QueryParam "uploadType" Text :>-                             QueryParam "callback" Text :>-                               QueryParam "alt" AltJSON :>-                                 ReqBody '[JSON] LeaseWorkItemRequest :>-                                   Post '[JSON] LeaseWorkItemResponse---- | Leases a dataflow WorkItem to run.------ /See:/ 'projectsLocationsJobsWorkItemsLease' smart constructor.-data ProjectsLocationsJobsWorkItemsLease =-  ProjectsLocationsJobsWorkItemsLease'-    { _pljwilXgafv          :: !(Maybe Xgafv)-    , _pljwilJobId          :: !Text-    , _pljwilUploadProtocol :: !(Maybe Text)-    , _pljwilLocation       :: !Text-    , _pljwilAccessToken    :: !(Maybe Text)-    , _pljwilUploadType     :: !(Maybe Text)-    , _pljwilPayload        :: !LeaseWorkItemRequest-    , _pljwilProjectId      :: !Text-    , _pljwilCallback       :: !(Maybe Text)-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'ProjectsLocationsJobsWorkItemsLease' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'pljwilXgafv'------ * 'pljwilJobId'------ * 'pljwilUploadProtocol'------ * 'pljwilLocation'------ * 'pljwilAccessToken'------ * 'pljwilUploadType'------ * 'pljwilPayload'------ * 'pljwilProjectId'------ * 'pljwilCallback'-projectsLocationsJobsWorkItemsLease-    :: Text -- ^ 'pljwilJobId'-    -> Text -- ^ 'pljwilLocation'-    -> LeaseWorkItemRequest -- ^ 'pljwilPayload'-    -> Text -- ^ 'pljwilProjectId'-    -> ProjectsLocationsJobsWorkItemsLease-projectsLocationsJobsWorkItemsLease pPljwilJobId_ pPljwilLocation_ pPljwilPayload_ pPljwilProjectId_ =-  ProjectsLocationsJobsWorkItemsLease'-    { _pljwilXgafv = Nothing-    , _pljwilJobId = pPljwilJobId_-    , _pljwilUploadProtocol = Nothing-    , _pljwilLocation = pPljwilLocation_-    , _pljwilAccessToken = Nothing-    , _pljwilUploadType = Nothing-    , _pljwilPayload = pPljwilPayload_-    , _pljwilProjectId = pPljwilProjectId_-    , _pljwilCallback = Nothing-    }----- | V1 error format.-pljwilXgafv :: Lens' ProjectsLocationsJobsWorkItemsLease (Maybe Xgafv)-pljwilXgafv-  = lens _pljwilXgafv (\ s a -> s{_pljwilXgafv = a})---- | Identifies the workflow job this worker belongs to.-pljwilJobId :: Lens' ProjectsLocationsJobsWorkItemsLease Text-pljwilJobId-  = lens _pljwilJobId (\ s a -> s{_pljwilJobId = a})---- | Upload protocol for media (e.g. \"raw\", \"multipart\").-pljwilUploadProtocol :: Lens' ProjectsLocationsJobsWorkItemsLease (Maybe Text)-pljwilUploadProtocol-  = lens _pljwilUploadProtocol-      (\ s a -> s{_pljwilUploadProtocol = a})---- | 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-      (\ s a -> s{_pljwilLocation = a})---- | OAuth access token.-pljwilAccessToken :: Lens' ProjectsLocationsJobsWorkItemsLease (Maybe Text)-pljwilAccessToken-  = lens _pljwilAccessToken-      (\ s a -> s{_pljwilAccessToken = a})---- | Legacy upload protocol for media (e.g. \"media\", \"multipart\").-pljwilUploadType :: Lens' ProjectsLocationsJobsWorkItemsLease (Maybe Text)-pljwilUploadType-  = lens _pljwilUploadType-      (\ s a -> s{_pljwilUploadType = a})---- | Multipart request metadata.-pljwilPayload :: Lens' ProjectsLocationsJobsWorkItemsLease LeaseWorkItemRequest-pljwilPayload-  = lens _pljwilPayload-      (\ s a -> s{_pljwilPayload = a})---- | Identifies the project this worker belongs to.-pljwilProjectId :: Lens' ProjectsLocationsJobsWorkItemsLease Text-pljwilProjectId-  = lens _pljwilProjectId-      (\ s a -> s{_pljwilProjectId = a})---- | JSONP-pljwilCallback :: Lens' ProjectsLocationsJobsWorkItemsLease (Maybe Text)-pljwilCallback-  = lens _pljwilCallback-      (\ s a -> s{_pljwilCallback = a})--instance GoogleRequest-           ProjectsLocationsJobsWorkItemsLease-         where-        type Rs ProjectsLocationsJobsWorkItemsLease =-             LeaseWorkItemResponse-        type Scopes ProjectsLocationsJobsWorkItemsLease =-             '["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-          ProjectsLocationsJobsWorkItemsLease'{..}-          = go _pljwilProjectId _pljwilLocation _pljwilJobId-              _pljwilXgafv-              _pljwilUploadProtocol-              _pljwilAccessToken-              _pljwilUploadType-              _pljwilCallback-              (Just AltJSON)-              _pljwilPayload-              dataflowService-          where go-                  = buildClient-                      (Proxy ::-                         Proxy ProjectsLocationsJobsWorkItemsLeaseResource)-                      mempty
− gen/Network/Google/Resource/Dataflow/Projects/Locations/Jobs/WorkItems/ReportStatus.hs 
@@ -1,212 +0,0 @@-{-# 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.Jobs.WorkItems.ReportStatus--- 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)------ Reports the status of dataflow WorkItems leased by a worker.------ /See:/ <https://cloud.google.com/dataflow Dataflow API Reference> for @dataflow.projects.locations.jobs.workItems.reportStatus@.-module Network.Google.Resource.Dataflow.Projects.Locations.Jobs.WorkItems.ReportStatus-    (-    -- * REST Resource-      ProjectsLocationsJobsWorkItemsReportStatusResource--    -- * Creating a Request-    , projectsLocationsJobsWorkItemsReportStatus-    , ProjectsLocationsJobsWorkItemsReportStatus--    -- * Request Lenses-    , pljwirsXgafv-    , pljwirsJobId-    , pljwirsUploadProtocol-    , pljwirsLocation-    , pljwirsAccessToken-    , pljwirsUploadType-    , pljwirsPayload-    , pljwirsProjectId-    , pljwirsCallback-    ) where--import           Network.Google.Dataflow.Types-import           Network.Google.Prelude---- | A resource alias for @dataflow.projects.locations.jobs.workItems.reportStatus@ method which the--- 'ProjectsLocationsJobsWorkItemsReportStatus' request conforms to.-type ProjectsLocationsJobsWorkItemsReportStatusResource-     =-     "v1b3" :>-       "projects" :>-         Capture "projectId" Text :>-           "locations" :>-             Capture "location" Text :>-               "jobs" :>-                 Capture "jobId" Text :>-                   "workItems:reportStatus" :>-                     QueryParam "$.xgafv" Xgafv :>-                       QueryParam "upload_protocol" Text :>-                         QueryParam "access_token" Text :>-                           QueryParam "uploadType" Text :>-                             QueryParam "callback" Text :>-                               QueryParam "alt" AltJSON :>-                                 ReqBody '[JSON] ReportWorkItemStatusRequest :>-                                   Post '[JSON] ReportWorkItemStatusResponse---- | Reports the status of dataflow WorkItems leased by a worker.------ /See:/ 'projectsLocationsJobsWorkItemsReportStatus' smart constructor.-data ProjectsLocationsJobsWorkItemsReportStatus =-  ProjectsLocationsJobsWorkItemsReportStatus'-    { _pljwirsXgafv          :: !(Maybe Xgafv)-    , _pljwirsJobId          :: !Text-    , _pljwirsUploadProtocol :: !(Maybe Text)-    , _pljwirsLocation       :: !Text-    , _pljwirsAccessToken    :: !(Maybe Text)-    , _pljwirsUploadType     :: !(Maybe Text)-    , _pljwirsPayload        :: !ReportWorkItemStatusRequest-    , _pljwirsProjectId      :: !Text-    , _pljwirsCallback       :: !(Maybe Text)-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'ProjectsLocationsJobsWorkItemsReportStatus' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'pljwirsXgafv'------ * 'pljwirsJobId'------ * 'pljwirsUploadProtocol'------ * 'pljwirsLocation'------ * 'pljwirsAccessToken'------ * 'pljwirsUploadType'------ * 'pljwirsPayload'------ * 'pljwirsProjectId'------ * 'pljwirsCallback'-projectsLocationsJobsWorkItemsReportStatus-    :: Text -- ^ 'pljwirsJobId'-    -> Text -- ^ 'pljwirsLocation'-    -> ReportWorkItemStatusRequest -- ^ 'pljwirsPayload'-    -> Text -- ^ 'pljwirsProjectId'-    -> ProjectsLocationsJobsWorkItemsReportStatus-projectsLocationsJobsWorkItemsReportStatus pPljwirsJobId_ pPljwirsLocation_ pPljwirsPayload_ pPljwirsProjectId_ =-  ProjectsLocationsJobsWorkItemsReportStatus'-    { _pljwirsXgafv = Nothing-    , _pljwirsJobId = pPljwirsJobId_-    , _pljwirsUploadProtocol = Nothing-    , _pljwirsLocation = pPljwirsLocation_-    , _pljwirsAccessToken = Nothing-    , _pljwirsUploadType = Nothing-    , _pljwirsPayload = pPljwirsPayload_-    , _pljwirsProjectId = pPljwirsProjectId_-    , _pljwirsCallback = Nothing-    }----- | V1 error format.-pljwirsXgafv :: Lens' ProjectsLocationsJobsWorkItemsReportStatus (Maybe Xgafv)-pljwirsXgafv-  = lens _pljwirsXgafv (\ s a -> s{_pljwirsXgafv = a})---- | The job which the WorkItem is part of.-pljwirsJobId :: Lens' ProjectsLocationsJobsWorkItemsReportStatus Text-pljwirsJobId-  = lens _pljwirsJobId (\ s a -> s{_pljwirsJobId = a})---- | Upload protocol for media (e.g. \"raw\", \"multipart\").-pljwirsUploadProtocol :: Lens' ProjectsLocationsJobsWorkItemsReportStatus (Maybe Text)-pljwirsUploadProtocol-  = lens _pljwirsUploadProtocol-      (\ s a -> s{_pljwirsUploadProtocol = a})---- | 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-      (\ s a -> s{_pljwirsLocation = a})---- | OAuth access token.-pljwirsAccessToken :: Lens' ProjectsLocationsJobsWorkItemsReportStatus (Maybe Text)-pljwirsAccessToken-  = lens _pljwirsAccessToken-      (\ s a -> s{_pljwirsAccessToken = a})---- | Legacy upload protocol for media (e.g. \"media\", \"multipart\").-pljwirsUploadType :: Lens' ProjectsLocationsJobsWorkItemsReportStatus (Maybe Text)-pljwirsUploadType-  = lens _pljwirsUploadType-      (\ s a -> s{_pljwirsUploadType = a})---- | Multipart request metadata.-pljwirsPayload :: Lens' ProjectsLocationsJobsWorkItemsReportStatus ReportWorkItemStatusRequest-pljwirsPayload-  = lens _pljwirsPayload-      (\ s a -> s{_pljwirsPayload = a})---- | The project which owns the WorkItem\'s job.-pljwirsProjectId :: Lens' ProjectsLocationsJobsWorkItemsReportStatus Text-pljwirsProjectId-  = lens _pljwirsProjectId-      (\ s a -> s{_pljwirsProjectId = a})---- | JSONP-pljwirsCallback :: Lens' ProjectsLocationsJobsWorkItemsReportStatus (Maybe Text)-pljwirsCallback-  = lens _pljwirsCallback-      (\ s a -> s{_pljwirsCallback = a})--instance GoogleRequest-           ProjectsLocationsJobsWorkItemsReportStatus-         where-        type Rs ProjectsLocationsJobsWorkItemsReportStatus =-             ReportWorkItemStatusResponse-        type Scopes-               ProjectsLocationsJobsWorkItemsReportStatus-             =-             '["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-          ProjectsLocationsJobsWorkItemsReportStatus'{..}-          = go _pljwirsProjectId _pljwirsLocation _pljwirsJobId-              _pljwirsXgafv-              _pljwirsUploadProtocol-              _pljwirsAccessToken-              _pljwirsUploadType-              _pljwirsCallback-              (Just AltJSON)-              _pljwirsPayload-              dataflowService-          where go-                  = buildClient-                      (Proxy ::-                         Proxy-                           ProjectsLocationsJobsWorkItemsReportStatusResource)-                      mempty
− gen/Network/Google/Resource/Dataflow/Projects/Locations/SQL/Validate.hs 
@@ -1,193 +0,0 @@-{-# 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
− gen/Network/Google/Resource/Dataflow/Projects/Locations/Snapshots/Delete.hs 
@@ -1,189 +0,0 @@-{-# 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
− gen/Network/Google/Resource/Dataflow/Projects/Locations/Snapshots/Get.hs 
@@ -1,186 +0,0 @@-{-# 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
− gen/Network/Google/Resource/Dataflow/Projects/Locations/Snapshots/List.hs 
@@ -1,174 +0,0 @@-{-# 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
− gen/Network/Google/Resource/Dataflow/Projects/Locations/Templates/Create.hs 
@@ -1,189 +0,0 @@-{-# 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.Templates.Create--- 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)------ Creates a Cloud Dataflow job from a template.------ /See:/ <https://cloud.google.com/dataflow Dataflow API Reference> for @dataflow.projects.locations.templates.create@.-module Network.Google.Resource.Dataflow.Projects.Locations.Templates.Create-    (-    -- * REST Resource-      ProjectsLocationsTemplatesCreateResource--    -- * Creating a Request-    , projectsLocationsTemplatesCreate-    , ProjectsLocationsTemplatesCreate--    -- * Request Lenses-    , pltcXgafv-    , pltcUploadProtocol-    , pltcLocation-    , pltcAccessToken-    , pltcUploadType-    , pltcPayload-    , pltcProjectId-    , pltcCallback-    ) where--import           Network.Google.Dataflow.Types-import           Network.Google.Prelude---- | A resource alias for @dataflow.projects.locations.templates.create@ method which the--- 'ProjectsLocationsTemplatesCreate' request conforms to.-type ProjectsLocationsTemplatesCreateResource =-     "v1b3" :>-       "projects" :>-         Capture "projectId" Text :>-           "locations" :>-             Capture "location" Text :>-               "templates" :>-                 QueryParam "$.xgafv" Xgafv :>-                   QueryParam "upload_protocol" Text :>-                     QueryParam "access_token" Text :>-                       QueryParam "uploadType" Text :>-                         QueryParam "callback" Text :>-                           QueryParam "alt" AltJSON :>-                             ReqBody '[JSON] CreateJobFromTemplateRequest :>-                               Post '[JSON] Job---- | Creates a Cloud Dataflow job from a template.------ /See:/ 'projectsLocationsTemplatesCreate' smart constructor.-data ProjectsLocationsTemplatesCreate =-  ProjectsLocationsTemplatesCreate'-    { _pltcXgafv          :: !(Maybe Xgafv)-    , _pltcUploadProtocol :: !(Maybe Text)-    , _pltcLocation       :: !Text-    , _pltcAccessToken    :: !(Maybe Text)-    , _pltcUploadType     :: !(Maybe Text)-    , _pltcPayload        :: !CreateJobFromTemplateRequest-    , _pltcProjectId      :: !Text-    , _pltcCallback       :: !(Maybe Text)-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'ProjectsLocationsTemplatesCreate' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'pltcXgafv'------ * 'pltcUploadProtocol'------ * 'pltcLocation'------ * 'pltcAccessToken'------ * 'pltcUploadType'------ * 'pltcPayload'------ * 'pltcProjectId'------ * 'pltcCallback'-projectsLocationsTemplatesCreate-    :: Text -- ^ 'pltcLocation'-    -> CreateJobFromTemplateRequest -- ^ 'pltcPayload'-    -> Text -- ^ 'pltcProjectId'-    -> ProjectsLocationsTemplatesCreate-projectsLocationsTemplatesCreate pPltcLocation_ pPltcPayload_ pPltcProjectId_ =-  ProjectsLocationsTemplatesCreate'-    { _pltcXgafv = Nothing-    , _pltcUploadProtocol = Nothing-    , _pltcLocation = pPltcLocation_-    , _pltcAccessToken = Nothing-    , _pltcUploadType = Nothing-    , _pltcPayload = pPltcPayload_-    , _pltcProjectId = pPltcProjectId_-    , _pltcCallback = Nothing-    }----- | V1 error format.-pltcXgafv :: Lens' ProjectsLocationsTemplatesCreate (Maybe Xgafv)-pltcXgafv-  = lens _pltcXgafv (\ s a -> s{_pltcXgafv = a})---- | Upload protocol for media (e.g. \"raw\", \"multipart\").-pltcUploadProtocol :: Lens' ProjectsLocationsTemplatesCreate (Maybe Text)-pltcUploadProtocol-  = lens _pltcUploadProtocol-      (\ s a -> s{_pltcUploadProtocol = a})---- | 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})---- | OAuth access token.-pltcAccessToken :: Lens' ProjectsLocationsTemplatesCreate (Maybe Text)-pltcAccessToken-  = lens _pltcAccessToken-      (\ s a -> s{_pltcAccessToken = a})---- | Legacy upload protocol for media (e.g. \"media\", \"multipart\").-pltcUploadType :: Lens' ProjectsLocationsTemplatesCreate (Maybe Text)-pltcUploadType-  = lens _pltcUploadType-      (\ s a -> s{_pltcUploadType = a})---- | Multipart request metadata.-pltcPayload :: Lens' ProjectsLocationsTemplatesCreate CreateJobFromTemplateRequest-pltcPayload-  = lens _pltcPayload (\ s a -> s{_pltcPayload = a})---- | Required. The ID of the Cloud Platform project that the job belongs to.-pltcProjectId :: Lens' ProjectsLocationsTemplatesCreate Text-pltcProjectId-  = lens _pltcProjectId-      (\ s a -> s{_pltcProjectId = a})---- | JSONP-pltcCallback :: Lens' ProjectsLocationsTemplatesCreate (Maybe Text)-pltcCallback-  = lens _pltcCallback (\ s a -> s{_pltcCallback = a})--instance GoogleRequest-           ProjectsLocationsTemplatesCreate-         where-        type Rs ProjectsLocationsTemplatesCreate = Job-        type Scopes ProjectsLocationsTemplatesCreate =-             '["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 ProjectsLocationsTemplatesCreate'{..}-          = go _pltcProjectId _pltcLocation _pltcXgafv-              _pltcUploadProtocol-              _pltcAccessToken-              _pltcUploadType-              _pltcCallback-              (Just AltJSON)-              _pltcPayload-              dataflowService-          where go-                  = buildClient-                      (Proxy ::-                         Proxy ProjectsLocationsTemplatesCreateResource)-                      mempty
− gen/Network/Google/Resource/Dataflow/Projects/Locations/Templates/Get.hs 
@@ -1,200 +0,0 @@-{-# 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.Templates.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)------ Get the template associated with a template.------ /See:/ <https://cloud.google.com/dataflow Dataflow API Reference> for @dataflow.projects.locations.templates.get@.-module Network.Google.Resource.Dataflow.Projects.Locations.Templates.Get-    (-    -- * REST Resource-      ProjectsLocationsTemplatesGetResource--    -- * Creating a Request-    , projectsLocationsTemplatesGet-    , ProjectsLocationsTemplatesGet--    -- * Request Lenses-    , pltgXgafv-    , pltgUploadProtocol-    , pltgLocation-    , pltgAccessToken-    , pltgUploadType-    , pltgGcsPath-    , pltgView-    , pltgProjectId-    , pltgCallback-    ) where--import           Network.Google.Dataflow.Types-import           Network.Google.Prelude---- | A resource alias for @dataflow.projects.locations.templates.get@ method which the--- 'ProjectsLocationsTemplatesGet' request conforms to.-type ProjectsLocationsTemplatesGetResource =-     "v1b3" :>-       "projects" :>-         Capture "projectId" Text :>-           "locations" :>-             Capture "location" Text :>-               "templates:get" :>-                 QueryParam "$.xgafv" Xgafv :>-                   QueryParam "upload_protocol" Text :>-                     QueryParam "access_token" Text :>-                       QueryParam "uploadType" Text :>-                         QueryParam "gcsPath" Text :>-                           QueryParam "view" Text :>-                             QueryParam "callback" Text :>-                               QueryParam "alt" AltJSON :>-                                 Get '[JSON] GetTemplateResponse---- | Get the template associated with a template.------ /See:/ 'projectsLocationsTemplatesGet' smart constructor.-data ProjectsLocationsTemplatesGet =-  ProjectsLocationsTemplatesGet'-    { _pltgXgafv          :: !(Maybe Xgafv)-    , _pltgUploadProtocol :: !(Maybe Text)-    , _pltgLocation       :: !Text-    , _pltgAccessToken    :: !(Maybe Text)-    , _pltgUploadType     :: !(Maybe Text)-    , _pltgGcsPath        :: !(Maybe Text)-    , _pltgView           :: !(Maybe Text)-    , _pltgProjectId      :: !Text-    , _pltgCallback       :: !(Maybe Text)-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'ProjectsLocationsTemplatesGet' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'pltgXgafv'------ * 'pltgUploadProtocol'------ * 'pltgLocation'------ * 'pltgAccessToken'------ * 'pltgUploadType'------ * 'pltgGcsPath'------ * 'pltgView'------ * 'pltgProjectId'------ * 'pltgCallback'-projectsLocationsTemplatesGet-    :: Text -- ^ 'pltgLocation'-    -> Text -- ^ 'pltgProjectId'-    -> ProjectsLocationsTemplatesGet-projectsLocationsTemplatesGet pPltgLocation_ pPltgProjectId_ =-  ProjectsLocationsTemplatesGet'-    { _pltgXgafv = Nothing-    , _pltgUploadProtocol = Nothing-    , _pltgLocation = pPltgLocation_-    , _pltgAccessToken = Nothing-    , _pltgUploadType = Nothing-    , _pltgGcsPath = Nothing-    , _pltgView = Nothing-    , _pltgProjectId = pPltgProjectId_-    , _pltgCallback = Nothing-    }----- | V1 error format.-pltgXgafv :: Lens' ProjectsLocationsTemplatesGet (Maybe Xgafv)-pltgXgafv-  = lens _pltgXgafv (\ s a -> s{_pltgXgafv = a})---- | Upload protocol for media (e.g. \"raw\", \"multipart\").-pltgUploadProtocol :: Lens' ProjectsLocationsTemplatesGet (Maybe Text)-pltgUploadProtocol-  = lens _pltgUploadProtocol-      (\ s a -> s{_pltgUploadProtocol = a})---- | 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})---- | OAuth access token.-pltgAccessToken :: Lens' ProjectsLocationsTemplatesGet (Maybe Text)-pltgAccessToken-  = lens _pltgAccessToken-      (\ s a -> s{_pltgAccessToken = a})---- | Legacy upload protocol for media (e.g. \"media\", \"multipart\").-pltgUploadType :: Lens' ProjectsLocationsTemplatesGet (Maybe Text)-pltgUploadType-  = lens _pltgUploadType-      (\ s a -> s{_pltgUploadType = a})---- | Required. A Cloud Storage path to the template from which to create the--- job. Must be valid Cloud Storage URL, beginning with \'gs:\/\/\'.-pltgGcsPath :: Lens' ProjectsLocationsTemplatesGet (Maybe Text)-pltgGcsPath-  = lens _pltgGcsPath (\ s a -> s{_pltgGcsPath = a})---- | The view to retrieve. Defaults to METADATA_ONLY.-pltgView :: Lens' ProjectsLocationsTemplatesGet (Maybe Text)-pltgView = lens _pltgView (\ s a -> s{_pltgView = a})---- | Required. The ID of the Cloud Platform project that the job belongs to.-pltgProjectId :: Lens' ProjectsLocationsTemplatesGet Text-pltgProjectId-  = lens _pltgProjectId-      (\ s a -> s{_pltgProjectId = a})---- | JSONP-pltgCallback :: Lens' ProjectsLocationsTemplatesGet (Maybe Text)-pltgCallback-  = lens _pltgCallback (\ s a -> s{_pltgCallback = a})--instance GoogleRequest ProjectsLocationsTemplatesGet-         where-        type Rs ProjectsLocationsTemplatesGet =-             GetTemplateResponse-        type Scopes ProjectsLocationsTemplatesGet =-             '["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 ProjectsLocationsTemplatesGet'{..}-          = go _pltgProjectId _pltgLocation _pltgXgafv-              _pltgUploadProtocol-              _pltgAccessToken-              _pltgUploadType-              _pltgGcsPath-              _pltgView-              _pltgCallback-              (Just AltJSON)-              dataflowService-          where go-                  = buildClient-                      (Proxy ::-                         Proxy ProjectsLocationsTemplatesGetResource)-                      mempty
− gen/Network/Google/Resource/Dataflow/Projects/Locations/Templates/Launch.hs 
@@ -1,245 +0,0 @@-{-# 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.Templates.Launch--- 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)------ Launch a template.------ /See:/ <https://cloud.google.com/dataflow Dataflow API Reference> for @dataflow.projects.locations.templates.launch@.-module Network.Google.Resource.Dataflow.Projects.Locations.Templates.Launch-    (-    -- * REST Resource-      ProjectsLocationsTemplatesLaunchResource--    -- * Creating a Request-    , projectsLocationsTemplatesLaunch-    , ProjectsLocationsTemplatesLaunch--    -- * Request Lenses-    , pltlXgafv-    , pltlValidateOnly-    , pltlUploadProtocol-    , pltlLocation-    , pltlAccessToken-    , pltlUploadType-    , pltlPayload-    , pltlDynamicTemplateStagingLocation-    , pltlGcsPath-    , pltlProjectId-    , pltlCallback-    , pltlDynamicTemplateGcsPath-    ) where--import           Network.Google.Dataflow.Types-import           Network.Google.Prelude---- | A resource alias for @dataflow.projects.locations.templates.launch@ method which the--- 'ProjectsLocationsTemplatesLaunch' request conforms to.-type ProjectsLocationsTemplatesLaunchResource =-     "v1b3" :>-       "projects" :>-         Capture "projectId" Text :>-           "locations" :>-             Capture "location" Text :>-               "templates:launch" :>-                 QueryParam "$.xgafv" Xgafv :>-                   QueryParam "validateOnly" Bool :>-                     QueryParam "upload_protocol" Text :>-                       QueryParam "access_token" Text :>-                         QueryParam "uploadType" Text :>-                           QueryParam "dynamicTemplate.stagingLocation" Text :>-                             QueryParam "gcsPath" Text :>-                               QueryParam "callback" Text :>-                                 QueryParam "dynamicTemplate.gcsPath" Text :>-                                   QueryParam "alt" AltJSON :>-                                     ReqBody '[JSON] LaunchTemplateParameters :>-                                       Post '[JSON] LaunchTemplateResponse---- | Launch a template.------ /See:/ 'projectsLocationsTemplatesLaunch' smart constructor.-data ProjectsLocationsTemplatesLaunch =-  ProjectsLocationsTemplatesLaunch'-    { _pltlXgafv                          :: !(Maybe Xgafv)-    , _pltlValidateOnly                   :: !(Maybe Bool)-    , _pltlUploadProtocol                 :: !(Maybe Text)-    , _pltlLocation                       :: !Text-    , _pltlAccessToken                    :: !(Maybe Text)-    , _pltlUploadType                     :: !(Maybe Text)-    , _pltlPayload                        :: !LaunchTemplateParameters-    , _pltlDynamicTemplateStagingLocation :: !(Maybe Text)-    , _pltlGcsPath                        :: !(Maybe Text)-    , _pltlProjectId                      :: !Text-    , _pltlCallback                       :: !(Maybe Text)-    , _pltlDynamicTemplateGcsPath         :: !(Maybe Text)-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'ProjectsLocationsTemplatesLaunch' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'pltlXgafv'------ * 'pltlValidateOnly'------ * 'pltlUploadProtocol'------ * 'pltlLocation'------ * 'pltlAccessToken'------ * 'pltlUploadType'------ * 'pltlPayload'------ * 'pltlDynamicTemplateStagingLocation'------ * 'pltlGcsPath'------ * 'pltlProjectId'------ * 'pltlCallback'------ * 'pltlDynamicTemplateGcsPath'-projectsLocationsTemplatesLaunch-    :: Text -- ^ 'pltlLocation'-    -> LaunchTemplateParameters -- ^ 'pltlPayload'-    -> Text -- ^ 'pltlProjectId'-    -> ProjectsLocationsTemplatesLaunch-projectsLocationsTemplatesLaunch pPltlLocation_ pPltlPayload_ pPltlProjectId_ =-  ProjectsLocationsTemplatesLaunch'-    { _pltlXgafv = Nothing-    , _pltlValidateOnly = Nothing-    , _pltlUploadProtocol = Nothing-    , _pltlLocation = pPltlLocation_-    , _pltlAccessToken = Nothing-    , _pltlUploadType = Nothing-    , _pltlPayload = pPltlPayload_-    , _pltlDynamicTemplateStagingLocation = Nothing-    , _pltlGcsPath = Nothing-    , _pltlProjectId = pPltlProjectId_-    , _pltlCallback = Nothing-    , _pltlDynamicTemplateGcsPath = Nothing-    }----- | V1 error format.-pltlXgafv :: Lens' ProjectsLocationsTemplatesLaunch (Maybe Xgafv)-pltlXgafv-  = lens _pltlXgafv (\ s a -> s{_pltlXgafv = a})---- | If true, the request is validated but not actually executed. Defaults to--- false.-pltlValidateOnly :: Lens' ProjectsLocationsTemplatesLaunch (Maybe Bool)-pltlValidateOnly-  = lens _pltlValidateOnly-      (\ s a -> s{_pltlValidateOnly = a})---- | Upload protocol for media (e.g. \"raw\", \"multipart\").-pltlUploadProtocol :: Lens' ProjectsLocationsTemplatesLaunch (Maybe Text)-pltlUploadProtocol-  = lens _pltlUploadProtocol-      (\ s a -> s{_pltlUploadProtocol = a})---- | 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})---- | OAuth access token.-pltlAccessToken :: Lens' ProjectsLocationsTemplatesLaunch (Maybe Text)-pltlAccessToken-  = lens _pltlAccessToken-      (\ s a -> s{_pltlAccessToken = a})---- | Legacy upload protocol for media (e.g. \"media\", \"multipart\").-pltlUploadType :: Lens' ProjectsLocationsTemplatesLaunch (Maybe Text)-pltlUploadType-  = lens _pltlUploadType-      (\ s a -> s{_pltlUploadType = a})---- | Multipart request metadata.-pltlPayload :: Lens' ProjectsLocationsTemplatesLaunch LaunchTemplateParameters-pltlPayload-  = lens _pltlPayload (\ s a -> s{_pltlPayload = a})---- | Cloud Storage path for staging dependencies. Must be a valid Cloud--- Storage URL, beginning with \`gs:\/\/\`.-pltlDynamicTemplateStagingLocation :: Lens' ProjectsLocationsTemplatesLaunch (Maybe Text)-pltlDynamicTemplateStagingLocation-  = lens _pltlDynamicTemplateStagingLocation-      (\ s a -> s{_pltlDynamicTemplateStagingLocation = a})---- | A Cloud Storage path to the template from which to create the job. Must--- be valid Cloud Storage URL, beginning with \'gs:\/\/\'.-pltlGcsPath :: Lens' ProjectsLocationsTemplatesLaunch (Maybe Text)-pltlGcsPath-  = lens _pltlGcsPath (\ s a -> s{_pltlGcsPath = a})---- | Required. The ID of the Cloud Platform project that the job belongs to.-pltlProjectId :: Lens' ProjectsLocationsTemplatesLaunch Text-pltlProjectId-  = lens _pltlProjectId-      (\ s a -> s{_pltlProjectId = a})---- | JSONP-pltlCallback :: Lens' ProjectsLocationsTemplatesLaunch (Maybe Text)-pltlCallback-  = lens _pltlCallback (\ s a -> s{_pltlCallback = a})---- | Path to dynamic template spec file on GCS. The file must be a Json--- serialized DynamicTemplateFieSpec object.-pltlDynamicTemplateGcsPath :: Lens' ProjectsLocationsTemplatesLaunch (Maybe Text)-pltlDynamicTemplateGcsPath-  = lens _pltlDynamicTemplateGcsPath-      (\ s a -> s{_pltlDynamicTemplateGcsPath = a})--instance GoogleRequest-           ProjectsLocationsTemplatesLaunch-         where-        type Rs ProjectsLocationsTemplatesLaunch =-             LaunchTemplateResponse-        type Scopes ProjectsLocationsTemplatesLaunch =-             '["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 ProjectsLocationsTemplatesLaunch'{..}-          = go _pltlProjectId _pltlLocation _pltlXgafv-              _pltlValidateOnly-              _pltlUploadProtocol-              _pltlAccessToken-              _pltlUploadType-              _pltlDynamicTemplateStagingLocation-              _pltlGcsPath-              _pltlCallback-              _pltlDynamicTemplateGcsPath-              (Just AltJSON)-              _pltlPayload-              dataflowService-          where go-                  = buildClient-                      (Proxy ::-                         Proxy ProjectsLocationsTemplatesLaunchResource)-                      mempty
− gen/Network/Google/Resource/Dataflow/Projects/Locations/WorkerMessages.hs 
@@ -1,190 +0,0 @@-{-# 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.WorkerMessages--- 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)------ Send a worker_message to the service.------ /See:/ <https://cloud.google.com/dataflow Dataflow API Reference> for @dataflow.projects.locations.workerMessages@.-module Network.Google.Resource.Dataflow.Projects.Locations.WorkerMessages-    (-    -- * REST Resource-      ProjectsLocationsWorkerMessagesResource--    -- * Creating a Request-    , projectsLocationsWorkerMessages-    , ProjectsLocationsWorkerMessages--    -- * Request Lenses-    , plwmXgafv-    , plwmUploadProtocol-    , plwmLocation-    , plwmAccessToken-    , plwmUploadType-    , plwmPayload-    , plwmProjectId-    , plwmCallback-    ) where--import           Network.Google.Dataflow.Types-import           Network.Google.Prelude---- | A resource alias for @dataflow.projects.locations.workerMessages@ method which the--- 'ProjectsLocationsWorkerMessages' request conforms to.-type ProjectsLocationsWorkerMessagesResource =-     "v1b3" :>-       "projects" :>-         Capture "projectId" Text :>-           "locations" :>-             Capture "location" Text :>-               "WorkerMessages" :>-                 QueryParam "$.xgafv" Xgafv :>-                   QueryParam "upload_protocol" Text :>-                     QueryParam "access_token" Text :>-                       QueryParam "uploadType" Text :>-                         QueryParam "callback" Text :>-                           QueryParam "alt" AltJSON :>-                             ReqBody '[JSON] SendWorkerMessagesRequest :>-                               Post '[JSON] SendWorkerMessagesResponse---- | Send a worker_message to the service.------ /See:/ 'projectsLocationsWorkerMessages' smart constructor.-data ProjectsLocationsWorkerMessages =-  ProjectsLocationsWorkerMessages'-    { _plwmXgafv          :: !(Maybe Xgafv)-    , _plwmUploadProtocol :: !(Maybe Text)-    , _plwmLocation       :: !Text-    , _plwmAccessToken    :: !(Maybe Text)-    , _plwmUploadType     :: !(Maybe Text)-    , _plwmPayload        :: !SendWorkerMessagesRequest-    , _plwmProjectId      :: !Text-    , _plwmCallback       :: !(Maybe Text)-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'ProjectsLocationsWorkerMessages' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'plwmXgafv'------ * 'plwmUploadProtocol'------ * 'plwmLocation'------ * 'plwmAccessToken'------ * 'plwmUploadType'------ * 'plwmPayload'------ * 'plwmProjectId'------ * 'plwmCallback'-projectsLocationsWorkerMessages-    :: Text -- ^ 'plwmLocation'-    -> SendWorkerMessagesRequest -- ^ 'plwmPayload'-    -> Text -- ^ 'plwmProjectId'-    -> ProjectsLocationsWorkerMessages-projectsLocationsWorkerMessages pPlwmLocation_ pPlwmPayload_ pPlwmProjectId_ =-  ProjectsLocationsWorkerMessages'-    { _plwmXgafv = Nothing-    , _plwmUploadProtocol = Nothing-    , _plwmLocation = pPlwmLocation_-    , _plwmAccessToken = Nothing-    , _plwmUploadType = Nothing-    , _plwmPayload = pPlwmPayload_-    , _plwmProjectId = pPlwmProjectId_-    , _plwmCallback = Nothing-    }----- | V1 error format.-plwmXgafv :: Lens' ProjectsLocationsWorkerMessages (Maybe Xgafv)-plwmXgafv-  = lens _plwmXgafv (\ s a -> s{_plwmXgafv = a})---- | Upload protocol for media (e.g. \"raw\", \"multipart\").-plwmUploadProtocol :: Lens' ProjectsLocationsWorkerMessages (Maybe Text)-plwmUploadProtocol-  = lens _plwmUploadProtocol-      (\ s a -> s{_plwmUploadProtocol = a})---- | 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})---- | OAuth access token.-plwmAccessToken :: Lens' ProjectsLocationsWorkerMessages (Maybe Text)-plwmAccessToken-  = lens _plwmAccessToken-      (\ s a -> s{_plwmAccessToken = a})---- | Legacy upload protocol for media (e.g. \"media\", \"multipart\").-plwmUploadType :: Lens' ProjectsLocationsWorkerMessages (Maybe Text)-plwmUploadType-  = lens _plwmUploadType-      (\ s a -> s{_plwmUploadType = a})---- | Multipart request metadata.-plwmPayload :: Lens' ProjectsLocationsWorkerMessages SendWorkerMessagesRequest-plwmPayload-  = lens _plwmPayload (\ s a -> s{_plwmPayload = a})---- | The project to send the WorkerMessages to.-plwmProjectId :: Lens' ProjectsLocationsWorkerMessages Text-plwmProjectId-  = lens _plwmProjectId-      (\ s a -> s{_plwmProjectId = a})---- | JSONP-plwmCallback :: Lens' ProjectsLocationsWorkerMessages (Maybe Text)-plwmCallback-  = lens _plwmCallback (\ s a -> s{_plwmCallback = a})--instance GoogleRequest-           ProjectsLocationsWorkerMessages-         where-        type Rs ProjectsLocationsWorkerMessages =-             SendWorkerMessagesResponse-        type Scopes ProjectsLocationsWorkerMessages =-             '["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 ProjectsLocationsWorkerMessages'{..}-          = go _plwmProjectId _plwmLocation _plwmXgafv-              _plwmUploadProtocol-              _plwmAccessToken-              _plwmUploadType-              _plwmCallback-              (Just AltJSON)-              _plwmPayload-              dataflowService-          where go-                  = buildClient-                      (Proxy ::-                         Proxy ProjectsLocationsWorkerMessagesResource)-                      mempty
− gen/Network/Google/Resource/Dataflow/Projects/Snapshots/Get.hs 
@@ -1,180 +0,0 @@-{-# 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
− gen/Network/Google/Resource/Dataflow/Projects/Snapshots/List.hs 
@@ -1,167 +0,0 @@-{-# 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
− gen/Network/Google/Resource/Dataflow/Projects/Templates/Create.hs 
@@ -1,168 +0,0 @@-{-# 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.Templates.Create--- 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)------ Creates a Cloud Dataflow job from a template.------ /See:/ <https://cloud.google.com/dataflow Dataflow API Reference> for @dataflow.projects.templates.create@.-module Network.Google.Resource.Dataflow.Projects.Templates.Create-    (-    -- * REST Resource-      ProjectsTemplatesCreateResource--    -- * Creating a Request-    , projectsTemplatesCreate-    , ProjectsTemplatesCreate--    -- * Request Lenses-    , ptcXgafv-    , ptcUploadProtocol-    , ptcAccessToken-    , ptcUploadType-    , ptcPayload-    , ptcProjectId-    , ptcCallback-    ) where--import           Network.Google.Dataflow.Types-import           Network.Google.Prelude---- | A resource alias for @dataflow.projects.templates.create@ method which the--- 'ProjectsTemplatesCreate' request conforms to.-type ProjectsTemplatesCreateResource =-     "v1b3" :>-       "projects" :>-         Capture "projectId" Text :>-           "templates" :>-             QueryParam "$.xgafv" Xgafv :>-               QueryParam "upload_protocol" Text :>-                 QueryParam "access_token" Text :>-                   QueryParam "uploadType" Text :>-                     QueryParam "callback" Text :>-                       QueryParam "alt" AltJSON :>-                         ReqBody '[JSON] CreateJobFromTemplateRequest :>-                           Post '[JSON] Job---- | Creates a Cloud Dataflow job from a template.------ /See:/ 'projectsTemplatesCreate' smart constructor.-data ProjectsTemplatesCreate =-  ProjectsTemplatesCreate'-    { _ptcXgafv          :: !(Maybe Xgafv)-    , _ptcUploadProtocol :: !(Maybe Text)-    , _ptcAccessToken    :: !(Maybe Text)-    , _ptcUploadType     :: !(Maybe Text)-    , _ptcPayload        :: !CreateJobFromTemplateRequest-    , _ptcProjectId      :: !Text-    , _ptcCallback       :: !(Maybe Text)-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'ProjectsTemplatesCreate' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'ptcXgafv'------ * 'ptcUploadProtocol'------ * 'ptcAccessToken'------ * 'ptcUploadType'------ * 'ptcPayload'------ * 'ptcProjectId'------ * 'ptcCallback'-projectsTemplatesCreate-    :: CreateJobFromTemplateRequest -- ^ 'ptcPayload'-    -> Text -- ^ 'ptcProjectId'-    -> ProjectsTemplatesCreate-projectsTemplatesCreate pPtcPayload_ pPtcProjectId_ =-  ProjectsTemplatesCreate'-    { _ptcXgafv = Nothing-    , _ptcUploadProtocol = Nothing-    , _ptcAccessToken = Nothing-    , _ptcUploadType = Nothing-    , _ptcPayload = pPtcPayload_-    , _ptcProjectId = pPtcProjectId_-    , _ptcCallback = Nothing-    }----- | V1 error format.-ptcXgafv :: Lens' ProjectsTemplatesCreate (Maybe Xgafv)-ptcXgafv = lens _ptcXgafv (\ s a -> s{_ptcXgafv = a})---- | Upload protocol for media (e.g. \"raw\", \"multipart\").-ptcUploadProtocol :: Lens' ProjectsTemplatesCreate (Maybe Text)-ptcUploadProtocol-  = lens _ptcUploadProtocol-      (\ s a -> s{_ptcUploadProtocol = a})---- | OAuth access token.-ptcAccessToken :: Lens' ProjectsTemplatesCreate (Maybe Text)-ptcAccessToken-  = lens _ptcAccessToken-      (\ s a -> s{_ptcAccessToken = a})---- | Legacy upload protocol for media (e.g. \"media\", \"multipart\").-ptcUploadType :: Lens' ProjectsTemplatesCreate (Maybe Text)-ptcUploadType-  = lens _ptcUploadType-      (\ s a -> s{_ptcUploadType = a})---- | Multipart request metadata.-ptcPayload :: Lens' ProjectsTemplatesCreate CreateJobFromTemplateRequest-ptcPayload-  = lens _ptcPayload (\ s a -> s{_ptcPayload = a})---- | Required. The ID of the Cloud Platform project that the job belongs to.-ptcProjectId :: Lens' ProjectsTemplatesCreate Text-ptcProjectId-  = lens _ptcProjectId (\ s a -> s{_ptcProjectId = a})---- | JSONP-ptcCallback :: Lens' ProjectsTemplatesCreate (Maybe Text)-ptcCallback-  = lens _ptcCallback (\ s a -> s{_ptcCallback = a})--instance GoogleRequest ProjectsTemplatesCreate where-        type Rs ProjectsTemplatesCreate = Job-        type Scopes ProjectsTemplatesCreate =-             '["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 ProjectsTemplatesCreate'{..}-          = go _ptcProjectId _ptcXgafv _ptcUploadProtocol-              _ptcAccessToken-              _ptcUploadType-              _ptcCallback-              (Just AltJSON)-              _ptcPayload-              dataflowService-          where go-                  = buildClient-                      (Proxy :: Proxy ProjectsTemplatesCreateResource)-                      mempty
− gen/Network/Google/Resource/Dataflow/Projects/Templates/Get.hs 
@@ -1,193 +0,0 @@-{-# 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.Templates.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)------ Get the template associated with a template.------ /See:/ <https://cloud.google.com/dataflow Dataflow API Reference> for @dataflow.projects.templates.get@.-module Network.Google.Resource.Dataflow.Projects.Templates.Get-    (-    -- * REST Resource-      ProjectsTemplatesGetResource--    -- * Creating a Request-    , projectsTemplatesGet-    , ProjectsTemplatesGet--    -- * Request Lenses-    , ptgXgafv-    , ptgUploadProtocol-    , ptgLocation-    , ptgAccessToken-    , ptgUploadType-    , ptgGcsPath-    , ptgView-    , ptgProjectId-    , ptgCallback-    ) where--import           Network.Google.Dataflow.Types-import           Network.Google.Prelude---- | A resource alias for @dataflow.projects.templates.get@ method which the--- 'ProjectsTemplatesGet' request conforms to.-type ProjectsTemplatesGetResource =-     "v1b3" :>-       "projects" :>-         Capture "projectId" Text :>-           "templates:get" :>-             QueryParam "$.xgafv" Xgafv :>-               QueryParam "upload_protocol" Text :>-                 QueryParam "location" Text :>-                   QueryParam "access_token" Text :>-                     QueryParam "uploadType" Text :>-                       QueryParam "gcsPath" Text :>-                         QueryParam "view" Text :>-                           QueryParam "callback" Text :>-                             QueryParam "alt" AltJSON :>-                               Get '[JSON] GetTemplateResponse---- | Get the template associated with a template.------ /See:/ 'projectsTemplatesGet' smart constructor.-data ProjectsTemplatesGet =-  ProjectsTemplatesGet'-    { _ptgXgafv          :: !(Maybe Xgafv)-    , _ptgUploadProtocol :: !(Maybe Text)-    , _ptgLocation       :: !(Maybe Text)-    , _ptgAccessToken    :: !(Maybe Text)-    , _ptgUploadType     :: !(Maybe Text)-    , _ptgGcsPath        :: !(Maybe Text)-    , _ptgView           :: !(Maybe Text)-    , _ptgProjectId      :: !Text-    , _ptgCallback       :: !(Maybe Text)-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'ProjectsTemplatesGet' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'ptgXgafv'------ * 'ptgUploadProtocol'------ * 'ptgLocation'------ * 'ptgAccessToken'------ * 'ptgUploadType'------ * 'ptgGcsPath'------ * 'ptgView'------ * 'ptgProjectId'------ * 'ptgCallback'-projectsTemplatesGet-    :: Text -- ^ 'ptgProjectId'-    -> ProjectsTemplatesGet-projectsTemplatesGet pPtgProjectId_ =-  ProjectsTemplatesGet'-    { _ptgXgafv = Nothing-    , _ptgUploadProtocol = Nothing-    , _ptgLocation = Nothing-    , _ptgAccessToken = Nothing-    , _ptgUploadType = Nothing-    , _ptgGcsPath = Nothing-    , _ptgView = Nothing-    , _ptgProjectId = pPtgProjectId_-    , _ptgCallback = Nothing-    }----- | V1 error format.-ptgXgafv :: Lens' ProjectsTemplatesGet (Maybe Xgafv)-ptgXgafv = lens _ptgXgafv (\ s a -> s{_ptgXgafv = a})---- | Upload protocol for media (e.g. \"raw\", \"multipart\").-ptgUploadProtocol :: Lens' ProjectsTemplatesGet (Maybe Text)-ptgUploadProtocol-  = lens _ptgUploadProtocol-      (\ s a -> s{_ptgUploadProtocol = a})---- | 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})---- | OAuth access token.-ptgAccessToken :: Lens' ProjectsTemplatesGet (Maybe Text)-ptgAccessToken-  = lens _ptgAccessToken-      (\ s a -> s{_ptgAccessToken = a})---- | Legacy upload protocol for media (e.g. \"media\", \"multipart\").-ptgUploadType :: Lens' ProjectsTemplatesGet (Maybe Text)-ptgUploadType-  = lens _ptgUploadType-      (\ s a -> s{_ptgUploadType = a})---- | Required. A Cloud Storage path to the template from which to create the--- job. Must be valid Cloud Storage URL, beginning with \'gs:\/\/\'.-ptgGcsPath :: Lens' ProjectsTemplatesGet (Maybe Text)-ptgGcsPath-  = lens _ptgGcsPath (\ s a -> s{_ptgGcsPath = a})---- | The view to retrieve. Defaults to METADATA_ONLY.-ptgView :: Lens' ProjectsTemplatesGet (Maybe Text)-ptgView = lens _ptgView (\ s a -> s{_ptgView = a})---- | Required. The ID of the Cloud Platform project that the job belongs to.-ptgProjectId :: Lens' ProjectsTemplatesGet Text-ptgProjectId-  = lens _ptgProjectId (\ s a -> s{_ptgProjectId = a})---- | JSONP-ptgCallback :: Lens' ProjectsTemplatesGet (Maybe Text)-ptgCallback-  = lens _ptgCallback (\ s a -> s{_ptgCallback = a})--instance GoogleRequest ProjectsTemplatesGet where-        type Rs ProjectsTemplatesGet = GetTemplateResponse-        type Scopes ProjectsTemplatesGet =-             '["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 ProjectsTemplatesGet'{..}-          = go _ptgProjectId _ptgXgafv _ptgUploadProtocol-              _ptgLocation-              _ptgAccessToken-              _ptgUploadType-              _ptgGcsPath-              _ptgView-              _ptgCallback-              (Just AltJSON)-              dataflowService-          where go-                  = buildClient-                      (Proxy :: Proxy ProjectsTemplatesGetResource)-                      mempty
− gen/Network/Google/Resource/Dataflow/Projects/Templates/Launch.hs 
@@ -1,238 +0,0 @@-{-# 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.Templates.Launch--- 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)------ Launch a template.------ /See:/ <https://cloud.google.com/dataflow Dataflow API Reference> for @dataflow.projects.templates.launch@.-module Network.Google.Resource.Dataflow.Projects.Templates.Launch-    (-    -- * REST Resource-      ProjectsTemplatesLaunchResource--    -- * Creating a Request-    , projectsTemplatesLaunch-    , ProjectsTemplatesLaunch--    -- * Request Lenses-    , ptlXgafv-    , ptlValidateOnly-    , ptlUploadProtocol-    , ptlLocation-    , ptlAccessToken-    , ptlUploadType-    , ptlPayload-    , ptlDynamicTemplateStagingLocation-    , ptlGcsPath-    , ptlProjectId-    , ptlCallback-    , ptlDynamicTemplateGcsPath-    ) where--import           Network.Google.Dataflow.Types-import           Network.Google.Prelude---- | A resource alias for @dataflow.projects.templates.launch@ method which the--- 'ProjectsTemplatesLaunch' request conforms to.-type ProjectsTemplatesLaunchResource =-     "v1b3" :>-       "projects" :>-         Capture "projectId" Text :>-           "templates:launch" :>-             QueryParam "$.xgafv" Xgafv :>-               QueryParam "validateOnly" Bool :>-                 QueryParam "upload_protocol" Text :>-                   QueryParam "location" Text :>-                     QueryParam "access_token" Text :>-                       QueryParam "uploadType" Text :>-                         QueryParam "dynamicTemplate.stagingLocation" Text :>-                           QueryParam "gcsPath" Text :>-                             QueryParam "callback" Text :>-                               QueryParam "dynamicTemplate.gcsPath" Text :>-                                 QueryParam "alt" AltJSON :>-                                   ReqBody '[JSON] LaunchTemplateParameters :>-                                     Post '[JSON] LaunchTemplateResponse---- | Launch a template.------ /See:/ 'projectsTemplatesLaunch' smart constructor.-data ProjectsTemplatesLaunch =-  ProjectsTemplatesLaunch'-    { _ptlXgafv                          :: !(Maybe Xgafv)-    , _ptlValidateOnly                   :: !(Maybe Bool)-    , _ptlUploadProtocol                 :: !(Maybe Text)-    , _ptlLocation                       :: !(Maybe Text)-    , _ptlAccessToken                    :: !(Maybe Text)-    , _ptlUploadType                     :: !(Maybe Text)-    , _ptlPayload                        :: !LaunchTemplateParameters-    , _ptlDynamicTemplateStagingLocation :: !(Maybe Text)-    , _ptlGcsPath                        :: !(Maybe Text)-    , _ptlProjectId                      :: !Text-    , _ptlCallback                       :: !(Maybe Text)-    , _ptlDynamicTemplateGcsPath         :: !(Maybe Text)-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'ProjectsTemplatesLaunch' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'ptlXgafv'------ * 'ptlValidateOnly'------ * 'ptlUploadProtocol'------ * 'ptlLocation'------ * 'ptlAccessToken'------ * 'ptlUploadType'------ * 'ptlPayload'------ * 'ptlDynamicTemplateStagingLocation'------ * 'ptlGcsPath'------ * 'ptlProjectId'------ * 'ptlCallback'------ * 'ptlDynamicTemplateGcsPath'-projectsTemplatesLaunch-    :: LaunchTemplateParameters -- ^ 'ptlPayload'-    -> Text -- ^ 'ptlProjectId'-    -> ProjectsTemplatesLaunch-projectsTemplatesLaunch pPtlPayload_ pPtlProjectId_ =-  ProjectsTemplatesLaunch'-    { _ptlXgafv = Nothing-    , _ptlValidateOnly = Nothing-    , _ptlUploadProtocol = Nothing-    , _ptlLocation = Nothing-    , _ptlAccessToken = Nothing-    , _ptlUploadType = Nothing-    , _ptlPayload = pPtlPayload_-    , _ptlDynamicTemplateStagingLocation = Nothing-    , _ptlGcsPath = Nothing-    , _ptlProjectId = pPtlProjectId_-    , _ptlCallback = Nothing-    , _ptlDynamicTemplateGcsPath = Nothing-    }----- | V1 error format.-ptlXgafv :: Lens' ProjectsTemplatesLaunch (Maybe Xgafv)-ptlXgafv = lens _ptlXgafv (\ s a -> s{_ptlXgafv = a})---- | If true, the request is validated but not actually executed. Defaults to--- false.-ptlValidateOnly :: Lens' ProjectsTemplatesLaunch (Maybe Bool)-ptlValidateOnly-  = lens _ptlValidateOnly-      (\ s a -> s{_ptlValidateOnly = a})---- | Upload protocol for media (e.g. \"raw\", \"multipart\").-ptlUploadProtocol :: Lens' ProjectsTemplatesLaunch (Maybe Text)-ptlUploadProtocol-  = lens _ptlUploadProtocol-      (\ s a -> s{_ptlUploadProtocol = a})---- | 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})---- | OAuth access token.-ptlAccessToken :: Lens' ProjectsTemplatesLaunch (Maybe Text)-ptlAccessToken-  = lens _ptlAccessToken-      (\ s a -> s{_ptlAccessToken = a})---- | Legacy upload protocol for media (e.g. \"media\", \"multipart\").-ptlUploadType :: Lens' ProjectsTemplatesLaunch (Maybe Text)-ptlUploadType-  = lens _ptlUploadType-      (\ s a -> s{_ptlUploadType = a})---- | Multipart request metadata.-ptlPayload :: Lens' ProjectsTemplatesLaunch LaunchTemplateParameters-ptlPayload-  = lens _ptlPayload (\ s a -> s{_ptlPayload = a})---- | Cloud Storage path for staging dependencies. Must be a valid Cloud--- Storage URL, beginning with \`gs:\/\/\`.-ptlDynamicTemplateStagingLocation :: Lens' ProjectsTemplatesLaunch (Maybe Text)-ptlDynamicTemplateStagingLocation-  = lens _ptlDynamicTemplateStagingLocation-      (\ s a -> s{_ptlDynamicTemplateStagingLocation = a})---- | A Cloud Storage path to the template from which to create the job. Must--- be valid Cloud Storage URL, beginning with \'gs:\/\/\'.-ptlGcsPath :: Lens' ProjectsTemplatesLaunch (Maybe Text)-ptlGcsPath-  = lens _ptlGcsPath (\ s a -> s{_ptlGcsPath = a})---- | Required. The ID of the Cloud Platform project that the job belongs to.-ptlProjectId :: Lens' ProjectsTemplatesLaunch Text-ptlProjectId-  = lens _ptlProjectId (\ s a -> s{_ptlProjectId = a})---- | JSONP-ptlCallback :: Lens' ProjectsTemplatesLaunch (Maybe Text)-ptlCallback-  = lens _ptlCallback (\ s a -> s{_ptlCallback = a})---- | Path to dynamic template spec file on GCS. The file must be a Json--- serialized DynamicTemplateFieSpec object.-ptlDynamicTemplateGcsPath :: Lens' ProjectsTemplatesLaunch (Maybe Text)-ptlDynamicTemplateGcsPath-  = lens _ptlDynamicTemplateGcsPath-      (\ s a -> s{_ptlDynamicTemplateGcsPath = a})--instance GoogleRequest ProjectsTemplatesLaunch where-        type Rs ProjectsTemplatesLaunch =-             LaunchTemplateResponse-        type Scopes ProjectsTemplatesLaunch =-             '["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 ProjectsTemplatesLaunch'{..}-          = go _ptlProjectId _ptlXgafv _ptlValidateOnly-              _ptlUploadProtocol-              _ptlLocation-              _ptlAccessToken-              _ptlUploadType-              _ptlDynamicTemplateStagingLocation-              _ptlGcsPath-              _ptlCallback-              _ptlDynamicTemplateGcsPath-              (Just AltJSON)-              _ptlPayload-              dataflowService-          where go-                  = buildClient-                      (Proxy :: Proxy ProjectsTemplatesLaunchResource)-                      mempty
− gen/Network/Google/Resource/Dataflow/Projects/WorkerMessages.hs 
@@ -1,169 +0,0 @@-{-# 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.WorkerMessages--- 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)------ Send a worker_message to the service.------ /See:/ <https://cloud.google.com/dataflow Dataflow API Reference> for @dataflow.projects.workerMessages@.-module Network.Google.Resource.Dataflow.Projects.WorkerMessages-    (-    -- * REST Resource-      ProjectsWorkerMessagesResource--    -- * Creating a Request-    , projectsWorkerMessages-    , ProjectsWorkerMessages--    -- * Request Lenses-    , pwmXgafv-    , pwmUploadProtocol-    , pwmAccessToken-    , pwmUploadType-    , pwmPayload-    , pwmProjectId-    , pwmCallback-    ) where--import           Network.Google.Dataflow.Types-import           Network.Google.Prelude---- | A resource alias for @dataflow.projects.workerMessages@ method which the--- 'ProjectsWorkerMessages' request conforms to.-type ProjectsWorkerMessagesResource =-     "v1b3" :>-       "projects" :>-         Capture "projectId" Text :>-           "WorkerMessages" :>-             QueryParam "$.xgafv" Xgafv :>-               QueryParam "upload_protocol" Text :>-                 QueryParam "access_token" Text :>-                   QueryParam "uploadType" Text :>-                     QueryParam "callback" Text :>-                       QueryParam "alt" AltJSON :>-                         ReqBody '[JSON] SendWorkerMessagesRequest :>-                           Post '[JSON] SendWorkerMessagesResponse---- | Send a worker_message to the service.------ /See:/ 'projectsWorkerMessages' smart constructor.-data ProjectsWorkerMessages =-  ProjectsWorkerMessages'-    { _pwmXgafv          :: !(Maybe Xgafv)-    , _pwmUploadProtocol :: !(Maybe Text)-    , _pwmAccessToken    :: !(Maybe Text)-    , _pwmUploadType     :: !(Maybe Text)-    , _pwmPayload        :: !SendWorkerMessagesRequest-    , _pwmProjectId      :: !Text-    , _pwmCallback       :: !(Maybe Text)-    }-  deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'ProjectsWorkerMessages' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'pwmXgafv'------ * 'pwmUploadProtocol'------ * 'pwmAccessToken'------ * 'pwmUploadType'------ * 'pwmPayload'------ * 'pwmProjectId'------ * 'pwmCallback'-projectsWorkerMessages-    :: SendWorkerMessagesRequest -- ^ 'pwmPayload'-    -> Text -- ^ 'pwmProjectId'-    -> ProjectsWorkerMessages-projectsWorkerMessages pPwmPayload_ pPwmProjectId_ =-  ProjectsWorkerMessages'-    { _pwmXgafv = Nothing-    , _pwmUploadProtocol = Nothing-    , _pwmAccessToken = Nothing-    , _pwmUploadType = Nothing-    , _pwmPayload = pPwmPayload_-    , _pwmProjectId = pPwmProjectId_-    , _pwmCallback = Nothing-    }----- | V1 error format.-pwmXgafv :: Lens' ProjectsWorkerMessages (Maybe Xgafv)-pwmXgafv = lens _pwmXgafv (\ s a -> s{_pwmXgafv = a})---- | Upload protocol for media (e.g. \"raw\", \"multipart\").-pwmUploadProtocol :: Lens' ProjectsWorkerMessages (Maybe Text)-pwmUploadProtocol-  = lens _pwmUploadProtocol-      (\ s a -> s{_pwmUploadProtocol = a})---- | OAuth access token.-pwmAccessToken :: Lens' ProjectsWorkerMessages (Maybe Text)-pwmAccessToken-  = lens _pwmAccessToken-      (\ s a -> s{_pwmAccessToken = a})---- | Legacy upload protocol for media (e.g. \"media\", \"multipart\").-pwmUploadType :: Lens' ProjectsWorkerMessages (Maybe Text)-pwmUploadType-  = lens _pwmUploadType-      (\ s a -> s{_pwmUploadType = a})---- | Multipart request metadata.-pwmPayload :: Lens' ProjectsWorkerMessages SendWorkerMessagesRequest-pwmPayload-  = lens _pwmPayload (\ s a -> s{_pwmPayload = a})---- | The project to send the WorkerMessages to.-pwmProjectId :: Lens' ProjectsWorkerMessages Text-pwmProjectId-  = lens _pwmProjectId (\ s a -> s{_pwmProjectId = a})---- | JSONP-pwmCallback :: Lens' ProjectsWorkerMessages (Maybe Text)-pwmCallback-  = lens _pwmCallback (\ s a -> s{_pwmCallback = a})--instance GoogleRequest ProjectsWorkerMessages where-        type Rs ProjectsWorkerMessages =-             SendWorkerMessagesResponse-        type Scopes ProjectsWorkerMessages =-             '["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 ProjectsWorkerMessages'{..}-          = go _pwmProjectId _pwmXgafv _pwmUploadProtocol-              _pwmAccessToken-              _pwmUploadType-              _pwmCallback-              (Just AltJSON)-              _pwmPayload-              dataflowService-          where go-                  = buildClient-                      (Proxy :: Proxy ProjectsWorkerMessagesResource)-                      mempty
gogol-dataflow.cabal view
@@ -1,83 +1,101 @@-name:                  gogol-dataflow-version:               0.5.0-synopsis:              Google Dataflow SDK.-homepage:              https://github.com/brendanhay/gogol-bug-reports:           https://github.com/brendanhay/gogol/issues-license:               OtherLicense-license-file:          LICENSE-author:                Brendan Hay-maintainer:            Brendan Hay <brendan.g.hay@gmail.com>-copyright:             Copyright (c) 2015-2016 Brendan Hay-category:              Network, Google, Cloud-build-type:            Simple-cabal-version:         >= 1.10-extra-source-files:    README.md src/.gitkeep+cabal-version:      2.2+name:               gogol-dataflow+version:            1.0.0+synopsis:           Google Dataflow SDK.+homepage:           https://github.com/brendanhay/gogol+bug-reports:        https://github.com/brendanhay/gogol/issues+license:            MPL-2.0+license-file:       LICENSE+author:             Brendan Hay+maintainer:+  Brendan Hay <brendan.g.hay+gogol@gmail.com>, Toni Cebrián <toni@tonicebrian.com> +copyright:          Copyright (c) 2015-2025 Brendan Hay+category:           Google+build-type:         Simple+extra-source-files:+  README.md+  src/.gitkeep+ description:-    Manages Google Cloud Dataflow projects on Google Cloud Platform.-    .-    /Warning:/ This is an experimental prototype/preview release which is still-    under exploratory development and not intended for public use, caveat emptor!-    .-    This library is compatible with version @v1b3@-    of the API.+  Manages Google Cloud Dataflow projects on Google Cloud Platform.+  .+  /Warning:/ This is an experimental prototype/preview release which is still+  under exploratory development and not intended for public use, caveat emptor!+  .+  This library is compatible with version @v1b3@+  of the API.  source-repository head-    type:     git-    location: git://github.com/brendanhay/gogol.git+  type:     git+  location: git://github.com/brendanhay/gogol.git+  subdir:   gogol-dataflow +flag field-selectors+  description:+    If record field selectors should be enabled. Disabling this requires GHC >=9.2 and the NoFieldSelectors extension.++  default:     False+  manual:      True+ library-    default-language:  Haskell2010-    hs-source-dirs:    src gen+  default-language: GHC2021+  hs-source-dirs:   src gen+  ghc-options:+    -Wall -fwarn-incomplete-uni-patterns+    -fwarn-incomplete-record-updates -funbox-strict-fields+    -fwarn-unused-packages -    ghc-options:       -Wall+  if (!flag(field-selectors) && impl(ghc >=9.2))+    default-extensions: NoFieldSelectors -    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-        , Network.Google.Resource.Dataflow.Projects.Jobs.Debug.SendCapture-        , Network.Google.Resource.Dataflow.Projects.Jobs.Get-        , Network.Google.Resource.Dataflow.Projects.Jobs.GetMetrics-        , Network.Google.Resource.Dataflow.Projects.Jobs.List-        , Network.Google.Resource.Dataflow.Projects.Jobs.Messages.List-        , Network.Google.Resource.Dataflow.Projects.Jobs.Snapshot-        , Network.Google.Resource.Dataflow.Projects.Jobs.Update-        , Network.Google.Resource.Dataflow.Projects.Jobs.WorkItems.Lease-        , Network.Google.Resource.Dataflow.Projects.Jobs.WorkItems.ReportStatus-        , Network.Google.Resource.Dataflow.Projects.Locations.Jobs.Create-        , Network.Google.Resource.Dataflow.Projects.Locations.Jobs.Debug.GetConfig-        , Network.Google.Resource.Dataflow.Projects.Locations.Jobs.Debug.SendCapture-        , Network.Google.Resource.Dataflow.Projects.Locations.Jobs.Get-        , Network.Google.Resource.Dataflow.Projects.Locations.Jobs.GetMetrics-        , Network.Google.Resource.Dataflow.Projects.Locations.Jobs.List-        , Network.Google.Resource.Dataflow.Projects.Locations.Jobs.Messages.List-        , Network.Google.Resource.Dataflow.Projects.Locations.Jobs.Snapshot-        , 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-        , Network.Google.Resource.Dataflow.Projects.WorkerMessages+  exposed-modules:+    Gogol.Dataflow+    Gogol.Dataflow.Projects.DeleteSnapshots+    Gogol.Dataflow.Projects.Jobs.Aggregated+    Gogol.Dataflow.Projects.Jobs.Create+    Gogol.Dataflow.Projects.Jobs.Debug.GetConfig+    Gogol.Dataflow.Projects.Jobs.Debug.SendCapture+    Gogol.Dataflow.Projects.Jobs.Get+    Gogol.Dataflow.Projects.Jobs.GetMetrics+    Gogol.Dataflow.Projects.Jobs.List+    Gogol.Dataflow.Projects.Jobs.Messages.List+    Gogol.Dataflow.Projects.Jobs.Snapshot+    Gogol.Dataflow.Projects.Jobs.Update+    Gogol.Dataflow.Projects.Jobs.WorkItems.Lease+    Gogol.Dataflow.Projects.Jobs.WorkItems.ReportStatus+    Gogol.Dataflow.Projects.Locations.FlexTemplates.Launch+    Gogol.Dataflow.Projects.Locations.Jobs.Create+    Gogol.Dataflow.Projects.Locations.Jobs.Debug.GetConfig+    Gogol.Dataflow.Projects.Locations.Jobs.Debug.SendCapture+    Gogol.Dataflow.Projects.Locations.Jobs.Get+    Gogol.Dataflow.Projects.Locations.Jobs.GetExecutionDetails+    Gogol.Dataflow.Projects.Locations.Jobs.GetMetrics+    Gogol.Dataflow.Projects.Locations.Jobs.List+    Gogol.Dataflow.Projects.Locations.Jobs.Messages.List+    Gogol.Dataflow.Projects.Locations.Jobs.Snapshot+    Gogol.Dataflow.Projects.Locations.Jobs.Snapshots.List+    Gogol.Dataflow.Projects.Locations.Jobs.Stages.GetExecutionDetails+    Gogol.Dataflow.Projects.Locations.Jobs.Update+    Gogol.Dataflow.Projects.Locations.Jobs.WorkItems.Lease+    Gogol.Dataflow.Projects.Locations.Jobs.WorkItems.ReportStatus+    Gogol.Dataflow.Projects.Locations.Snapshots.Delete+    Gogol.Dataflow.Projects.Locations.Snapshots.Get+    Gogol.Dataflow.Projects.Locations.Snapshots.List+    Gogol.Dataflow.Projects.Locations.Templates.Create+    Gogol.Dataflow.Projects.Locations.Templates.Get+    Gogol.Dataflow.Projects.Locations.Templates.Launch+    Gogol.Dataflow.Projects.Locations.WorkerMessages+    Gogol.Dataflow.Projects.Snapshots.Get+    Gogol.Dataflow.Projects.Snapshots.List+    Gogol.Dataflow.Projects.Templates.Create+    Gogol.Dataflow.Projects.Templates.Get+    Gogol.Dataflow.Projects.Templates.Launch+    Gogol.Dataflow.Projects.WorkerMessages+    Gogol.Dataflow.Types -    other-modules:-          Network.Google.Dataflow.Types.Product-        , Network.Google.Dataflow.Types.Sum+  other-modules:+    Gogol.Dataflow.Internal.Product+    Gogol.Dataflow.Internal.Sum -    build-depends:-          gogol-core == 0.5.0.*-        , base       >= 4.7 && < 5+  build-depends:    gogol-core ^>=1.0.0