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