@@ -2992,6 +2992,7 @@ instance ToJSON StepProperties where
2992-- /See:/ 'topologyConfig' smart constructor.
2992-- /See:/ 'topologyConfig' smart constructor.
2993data TopologyConfig = TopologyConfig'
2993data TopologyConfig = TopologyConfig'
2994 { _tcDataDiskAssignments :: !(Maybe [DataDiskAssignment])
2994 { _tcDataDiskAssignments :: !(Maybe [DataDiskAssignment])
2995+ , _tcPersistentStateVersion :: !(Maybe (Textual Int32))
2995 , _tcForwardingKeyBits :: !(Maybe (Textual Int32))
2996 , _tcForwardingKeyBits :: !(Maybe (Textual Int32))
2996 , _tcUserStageToComputationNameMap :: !(Maybe TopologyConfigUserStageToComputationNameMap)
2997 , _tcUserStageToComputationNameMap :: !(Maybe TopologyConfigUserStageToComputationNameMap)
2997 , _tcComputations :: !(Maybe [ComputationTopology])
2998 , _tcComputations :: !(Maybe [ComputationTopology])
@@ -3003,6 +3004,8 @@ data TopologyConfig = TopologyConfig'
3004-- * 'tcDataDiskAssignments'
3005-- * 'tcDataDiskAssignments'
3007+-- * 'tcPersistentStateVersion'
3006-- * 'tcForwardingKeyBits'
3009-- * 'tcForwardingKeyBits'
3008-- * 'tcUserStageToComputationNameMap'
3011-- * 'tcUserStageToComputationNameMap'
@@ -3013,6 +3016,7 @@ topologyConfig
3013topologyConfig =
3016topologyConfig =
3014 TopologyConfig'
3017 TopologyConfig'
3015 { _tcDataDiskAssignments = Nothing
3018 { _tcDataDiskAssignments = Nothing
3019+ , _tcPersistentStateVersion = Nothing
3016 , _tcForwardingKeyBits = Nothing
3020 , _tcForwardingKeyBits = Nothing
3017 , _tcUserStageToComputationNameMap = Nothing
3021 , _tcUserStageToComputationNameMap = Nothing
3018 , _tcComputations = Nothing
3022 , _tcComputations = Nothing
@@ -3026,6 +3030,13 @@ tcDataDiskAssignments
3026 . _Default
3030 . _Default
3027 . _Coerce
3031 . _Coerce
3033+-- | Version number for persistent state.
3034+tcPersistentStateVersion :: Lens' TopologyConfig (Maybe Int32)
3035+tcPersistentStateVersion
3036+ = lens _tcPersistentStateVersion
3037+ (\ s a -> s{_tcPersistentStateVersion = a})
3029-- | The size (in bits) of keys that will be assigned to source messages.
3040-- | The size (in bits) of keys that will be assigned to source messages.
3030tcForwardingKeyBits :: Lens' TopologyConfig (Maybe Int32)
3041tcForwardingKeyBits :: Lens' TopologyConfig (Maybe Int32)
3031tcForwardingKeyBits
3042tcForwardingKeyBits
@@ -3053,7 +3064,8 @@ instance FromJSON TopologyConfig where
3054 TopologyConfig' <$>
3065 TopologyConfig' <$>
3055 (o .:? "dataDiskAssignments" .!= mempty) <*>
3066 (o .:? "dataDiskAssignments" .!= mempty) <*>
3067+ (o .:? "persistentStateVersion")
3056− (o .:? "forwardingKeyBits")
3068+ <*> (o .:? "forwardingKeyBits")
3057 <*> (o .:? "userStageToComputationNameMap")
3069 <*> (o .:? "userStageToComputationNameMap")
3058 <*> (o .:? "computations" .!= mempty))
3070 <*> (o .:? "computations" .!= mempty))
@@ -3063,6 +3075,8 @@ instance ToJSON TopologyConfig where
3063 (catMaybes
3075 (catMaybes
3064 [("dataDiskAssignments" .=) <$>
3076 [("dataDiskAssignments" .=) <$>
3065 _tcDataDiskAssignments,
3077 _tcDataDiskAssignments,
3078+ ("persistentStateVersion" .=) <$>
3079+ _tcPersistentStateVersion,
3066 ("forwardingKeyBits" .=) <$> _tcForwardingKeyBits,
3080 ("forwardingKeyBits" .=) <$> _tcForwardingKeyBits,
3067 ("userStageToComputationNameMap" .=) <$>
3081 ("userStageToComputationNameMap" .=) <$>
3068 _tcUserStageToComputationNameMap,
3082 _tcUserStageToComputationNameMap,
@@ -4737,6 +4751,7 @@ instance ToJSON SinkSpec where
4737-- /See:/ 'workerPool' smart constructor.
4751-- /See:/ 'workerPool' smart constructor.
4738data WorkerPool = WorkerPool'
4752data WorkerPool = WorkerPool'
4739 { _wpAutoscalingSettings :: !(Maybe AutoscalingSettings)
4753 { _wpAutoscalingSettings :: !(Maybe AutoscalingSettings)
4754+ , _wpNumThreadsPerWorker :: !(Maybe (Textual Int32))
4740 , _wpDiskSizeGb :: !(Maybe (Textual Int32))
4755 , _wpDiskSizeGb :: !(Maybe (Textual Int32))
4741 , _wpKind :: !(Maybe Text)
4756 , _wpKind :: !(Maybe Text)
4742 , _wpTaskrunnerSettings :: !(Maybe TaskRunnerSettings)
4757 , _wpTaskrunnerSettings :: !(Maybe TaskRunnerSettings)
@@ -4763,6 +4778,8 @@ data WorkerPool = WorkerPool'
4764-- * 'wpAutoscalingSettings'
4779-- * 'wpAutoscalingSettings'
4781+-- * 'wpNumThreadsPerWorker'
4766-- * 'wpDiskSizeGb'
4783-- * 'wpDiskSizeGb'
4768-- * 'wpKind'
4785-- * 'wpKind'
@@ -4803,6 +4820,7 @@ workerPool
4803workerPool =
4820workerPool =
4804 WorkerPool'
4821 WorkerPool'
4805 { _wpAutoscalingSettings = Nothing
4822 { _wpAutoscalingSettings = Nothing
4823+ , _wpNumThreadsPerWorker = Nothing
4806 , _wpDiskSizeGb = Nothing
4824 , _wpDiskSizeGb = Nothing
4807 , _wpKind = Nothing
4825 , _wpKind = Nothing
4808 , _wpTaskrunnerSettings = Nothing
4826 , _wpTaskrunnerSettings = Nothing
@@ -4829,6 +4847,16 @@ wpAutoscalingSettings
4829 = lens _wpAutoscalingSettings
4847 = lens _wpAutoscalingSettings
4830 (\ s a -> s{_wpAutoscalingSettings = a})
4848 (\ s a -> s{_wpAutoscalingSettings = a})
4850+-- | The number of threads per worker harness. If empty or unspecified, the
4851+-- service will choose a number of threads (according to the number of
4852+-- cores on the selected machine type for batch, or 1 by convention for
4854+wpNumThreadsPerWorker :: Lens' WorkerPool (Maybe Int32)
4855+wpNumThreadsPerWorker
4856+ = lens _wpNumThreadsPerWorker
4857+ (\ s a -> s{_wpNumThreadsPerWorker = a})
4832-- | Size of root disk for VMs, in GB. If zero or unspecified, the service
4860-- | Size of root disk for VMs, in GB. If zero or unspecified, the service
4833-- will attempt to choose a reasonable default.
4861-- will attempt to choose a reasonable default.
4834wpDiskSizeGb :: Lens' WorkerPool (Maybe Int32)
4862wpDiskSizeGb :: Lens' WorkerPool (Maybe Int32)
@@ -4960,7 +4988,8 @@ instance FromJSON WorkerPool where
4961 WorkerPool' <$>
4989 WorkerPool' <$>
4962 (o .:? "autoscalingSettings") <*>
4990 (o .:? "autoscalingSettings") <*>
4991+ (o .:? "numThreadsPerWorker")
4963− (o .:? "diskSizeGb")
4992+ <*> (o .:? "diskSizeGb")
4964 <*> (o .:? "kind")
4993 <*> (o .:? "kind")
4965 <*> (o .:? "taskrunnerSettings")
4994 <*> (o .:? "taskrunnerSettings")
4966 <*> (o .:? "numWorkers")
4995 <*> (o .:? "numWorkers")
@@ -4985,6 +5014,8 @@ instance ToJSON WorkerPool where
4985 (catMaybes
5014 (catMaybes
4986 [("autoscalingSettings" .=) <$>
5015 [("autoscalingSettings" .=) <$>
4987 _wpAutoscalingSettings,
5016 _wpAutoscalingSettings,
5017+ ("numThreadsPerWorker" .=) <$>
5018+ _wpNumThreadsPerWorker,
4988 ("diskSizeGb" .=) <$> _wpDiskSizeGb,
5019 ("diskSizeGb" .=) <$> _wpDiskSizeGb,
4989 ("kind" .=) <$> _wpKind,
5020 ("kind" .=) <$> _wpKind,
4990 ("taskrunnerSettings" .=) <$> _wpTaskrunnerSettings,
5021 ("taskrunnerSettings" .=) <$> _wpTaskrunnerSettings,