@@ -23,23 +23,36 @@ import Network.Google.Prelude
23-- | A mapping from each stage to the information about that stage.
23-- | A mapping from each stage to the information about that stage.
25-- /See:/ 'jobExecutionInfoStages' smart constructor.
25-- /See:/ 'jobExecutionInfoStages' smart constructor.
26−data JobExecutionInfoStages =
26+newtype JobExecutionInfoStages = JobExecutionInfoStages
27− JobExecutionInfoStages
27+ { _jeisProperties :: HashMap Text JobExecutionStageInfo
28− deriving (Eq,Show,Data,Typeable,Generic)
28+ } deriving (Eq,Show,Data,Typeable,Generic)
30-- | Creates a value of 'JobExecutionInfoStages' with the minimum fields required to make a request.
30-- | Creates a value of 'JobExecutionInfoStages' with the minimum fields required to make a request.
32+-- Use one of the following lenses to modify other fields as desired:
32jobExecutionInfoStages
35jobExecutionInfoStages
36+ :: HashMap Text JobExecutionStageInfo -- ^ 'properties'
33− :: JobExecutionInfoStages
37+ -> JobExecutionInfoStages
34−jobExecutionInfoStages = JobExecutionInfoStages
38+jobExecutionInfoStages pJeisProperties_ =
39+ JobExecutionInfoStages
40+ { _jeisProperties = pJeisProperties_
43+jeisProperties :: Lens' JobExecutionInfoStages (HashMap Text JobExecutionStageInfo)
45+ = lens _jeisProperties
46+ (\ s a -> s{_jeisProperties = a})
36instance FromJSON JobExecutionInfoStages where
48instance FromJSON JobExecutionInfoStages where
38 = withObject "JobExecutionInfoStages"
50 = withObject "JobExecutionInfoStages"
39− (\ o -> pure JobExecutionInfoStages)
52+ JobExecutionInfoStages <$> (parseJSONObject o))
41instance ToJSON JobExecutionInfoStages where
54instance ToJSON JobExecutionInfoStages where
42− toJSON = const emptyObject
55+ toJSON = toJSON . _jeisProperties
44-- | All configuration data for a particular Computation.
57-- | All configuration data for a particular Computation.
@@ -569,23 +582,35 @@ instance ToJSON SourceSplitOptions where
569-- | Metadata to set on the Google Compute Engine VMs.
582-- | Metadata to set on the Google Compute Engine VMs.
571-- /See:/ 'workerPoolMetadata' smart constructor.
584-- /See:/ 'workerPoolMetadata' smart constructor.
572−data WorkerPoolMetadata =
585+newtype WorkerPoolMetadata = WorkerPoolMetadata
573− WorkerPoolMetadata
586+ { _wpmProperties :: HashMap Text Text
574− deriving (Eq,Show,Data,Typeable,Generic)
587+ } deriving (Eq,Show,Data,Typeable,Generic)
576-- | Creates a value of 'WorkerPoolMetadata' with the minimum fields required to make a request.
589-- | Creates a value of 'WorkerPoolMetadata' with the minimum fields required to make a request.
591+-- Use one of the following lenses to modify other fields as desired:
578workerPoolMetadata
594workerPoolMetadata
595+ :: HashMap Text Text -- ^ 'properties'
579− :: WorkerPoolMetadata
596+ -> WorkerPoolMetadata
580−workerPoolMetadata = WorkerPoolMetadata
597+workerPoolMetadata pWpmProperties_ =
599+ { _wpmProperties = pWpmProperties_
602+wpmProperties :: Lens' WorkerPoolMetadata (HashMap Text Text)
604+ = lens _wpmProperties
605+ (\ s a -> s{_wpmProperties = a})
582instance FromJSON WorkerPoolMetadata where
607instance FromJSON WorkerPoolMetadata where
583 parseJSON
608 parseJSON
584 = withObject "WorkerPoolMetadata"
609 = withObject "WorkerPoolMetadata"
585− (\ o -> pure WorkerPoolMetadata)
610+ (\ o -> WorkerPoolMetadata <$> (parseJSONObject o))
587instance ToJSON WorkerPoolMetadata where
612instance ToJSON WorkerPoolMetadata where
588− toJSON = const emptyObject
613+ toJSON = toJSON . _wpmProperties
590-- | Settings for WorkerPool autoscaling.
615-- | Settings for WorkerPool autoscaling.
@@ -806,23 +831,35 @@ instance ToJSON ReportWorkItemStatusRequest where
806-- service are required in order to run the job.
831-- service are required in order to run the job.
808-- /See:/ 'environmentVersion' smart constructor.
833-- /See:/ 'environmentVersion' smart constructor.
809−data EnvironmentVersion =
834+newtype EnvironmentVersion = EnvironmentVersion
810− EnvironmentVersion
835+ { _evProperties :: HashMap Text JSONValue
811− deriving (Eq,Show,Data,Typeable,Generic)
836+ } deriving (Eq,Show,Data,Typeable,Generic)
813-- | Creates a value of 'EnvironmentVersion' with the minimum fields required to make a request.
838-- | Creates a value of 'EnvironmentVersion' with the minimum fields required to make a request.
840+-- Use one of the following lenses to modify other fields as desired:
815environmentVersion
843environmentVersion
844+ :: HashMap Text JSONValue -- ^ 'properties'
816− :: EnvironmentVersion
845+ -> EnvironmentVersion
817−environmentVersion = EnvironmentVersion
846+environmentVersion pEvProperties_ =
848+ { _evProperties = pEvProperties_
851+-- | Properties of the object.
852+evProperties :: Lens' EnvironmentVersion (HashMap Text JSONValue)
854+ = lens _evProperties (\ s a -> s{_evProperties = a})
819instance FromJSON EnvironmentVersion where
856instance FromJSON EnvironmentVersion where
820 parseJSON
857 parseJSON
821 = withObject "EnvironmentVersion"
858 = withObject "EnvironmentVersion"
822− (\ o -> pure EnvironmentVersion)
859+ (\ o -> EnvironmentVersion <$> (parseJSONObject o))
824instance ToJSON EnvironmentVersion where
861instance ToJSON EnvironmentVersion where
825− toJSON = const emptyObject
862+ toJSON = toJSON . _evProperties
827-- | A sink that records can be encoded and written to.
864-- | A sink that records can be encoded and written to.
@@ -977,23 +1014,36 @@ instance ToJSON WriteInstruction where
977-- | A description of the process that generated the request.
1014-- | A description of the process that generated the request.
979-- /See:/ 'environmentUserAgent' smart constructor.
1016-- /See:/ 'environmentUserAgent' smart constructor.
980−data EnvironmentUserAgent =
1017+newtype EnvironmentUserAgent = EnvironmentUserAgent
981− EnvironmentUserAgent
1018+ { _euaProperties :: HashMap Text JSONValue
982− deriving (Eq,Show,Data,Typeable,Generic)
1019+ } deriving (Eq,Show,Data,Typeable,Generic)
984-- | Creates a value of 'EnvironmentUserAgent' with the minimum fields required to make a request.
1021-- | Creates a value of 'EnvironmentUserAgent' with the minimum fields required to make a request.
1023+-- Use one of the following lenses to modify other fields as desired:
1025+-- * 'euaProperties'
986environmentUserAgent
1026environmentUserAgent
1027+ :: HashMap Text JSONValue -- ^ 'properties'
987− :: EnvironmentUserAgent
1028+ -> EnvironmentUserAgent
988−environmentUserAgent = EnvironmentUserAgent
1029+environmentUserAgent pEuaProperties_ =
1030+ EnvironmentUserAgent
1031+ { _euaProperties = pEuaProperties_
1034+-- | Properties of the object.
1035+euaProperties :: Lens' EnvironmentUserAgent (HashMap Text JSONValue)
1037+ = lens _euaProperties
1038+ (\ s a -> s{_euaProperties = a})
990instance FromJSON EnvironmentUserAgent where
1040instance FromJSON EnvironmentUserAgent where
991 parseJSON
1041 parseJSON
992 = withObject "EnvironmentUserAgent"
1042 = withObject "EnvironmentUserAgent"
993− (\ o -> pure EnvironmentUserAgent)
1043+ (\ o -> EnvironmentUserAgent <$> (parseJSONObject o))
995instance ToJSON EnvironmentUserAgent where
1045instance ToJSON EnvironmentUserAgent where
996− toJSON = const emptyObject
1046+ toJSON = toJSON . _euaProperties
998-- | Describes the data disk used by a workflow job.
1048-- | Describes the data disk used by a workflow job.
@@ -1444,23 +1494,36 @@ instance ToJSON ConcatPosition where
1444-- will have context[\'pcollection\'] = .
1494-- will have context[\'pcollection\'] = .
1446-- /See:/ 'metricStructuredNameContext' smart constructor.
1496-- /See:/ 'metricStructuredNameContext' smart constructor.
1447−data MetricStructuredNameContext =
1497+newtype MetricStructuredNameContext = MetricStructuredNameContext
1448− MetricStructuredNameContext
1498+ { _msncProperties :: HashMap Text Text
1449− deriving (Eq,Show,Data,Typeable,Generic)
1499+ } deriving (Eq,Show,Data,Typeable,Generic)
1451-- | Creates a value of 'MetricStructuredNameContext' with the minimum fields required to make a request.
1501-- | Creates a value of 'MetricStructuredNameContext' with the minimum fields required to make a request.
1503+-- Use one of the following lenses to modify other fields as desired:
1505+-- * 'msncProperties'
1453metricStructuredNameContext
1506metricStructuredNameContext
1507+ :: HashMap Text Text -- ^ 'properties'
1454− :: MetricStructuredNameContext
1508+ -> MetricStructuredNameContext
1455−metricStructuredNameContext = MetricStructuredNameContext
1509+metricStructuredNameContext pMsncProperties_ =
1510+ MetricStructuredNameContext
1511+ { _msncProperties = pMsncProperties_
1514+msncProperties :: Lens' MetricStructuredNameContext (HashMap Text Text)
1516+ = lens _msncProperties
1517+ (\ s a -> s{_msncProperties = a})
1457instance FromJSON MetricStructuredNameContext where
1519instance FromJSON MetricStructuredNameContext where
1458 parseJSON
1520 parseJSON
1459 = withObject "MetricStructuredNameContext"
1521 = withObject "MetricStructuredNameContext"
1460− (\ o -> pure MetricStructuredNameContext)
1523+ MetricStructuredNameContext <$> (parseJSONObject o))
1462instance ToJSON MetricStructuredNameContext where
1525instance ToJSON MetricStructuredNameContext where
1463− toJSON = const emptyObject
1526+ toJSON = toJSON . _msncProperties
1465-- | Identifies the location of a streaming computation stage, for
1528-- | Identifies the location of a streaming computation stage, for
1466-- stage-to-stage communication.
1529-- stage-to-stage communication.
@@ -1839,43 +1902,69 @@ instance ToJSON FlattenInstruction where
1839-- corresponding name prefixes of the new job.
1902-- corresponding name prefixes of the new job.
1841-- /See:/ 'jobTransformNameMApping' smart constructor.
1904-- /See:/ 'jobTransformNameMApping' smart constructor.
1842−data JobTransformNameMApping =
1905+newtype JobTransformNameMApping = JobTransformNameMApping
1843− JobTransformNameMApping
1906+ { _jtnmaProperties :: HashMap Text Text
1844− deriving (Eq,Show,Data,Typeable,Generic)
1907+ } deriving (Eq,Show,Data,Typeable,Generic)
1846-- | Creates a value of 'JobTransformNameMApping' with the minimum fields required to make a request.
1909-- | Creates a value of 'JobTransformNameMApping' with the minimum fields required to make a request.
1911+-- Use one of the following lenses to modify other fields as desired:
1913+-- * 'jtnmaProperties'
1848jobTransformNameMApping
1914jobTransformNameMApping
1915+ :: HashMap Text Text -- ^ 'properties'
1849− :: JobTransformNameMApping
1916+ -> JobTransformNameMApping
1850−jobTransformNameMApping = JobTransformNameMApping
1917+jobTransformNameMApping pJtnmaProperties_ =
1918+ JobTransformNameMApping
1919+ { _jtnmaProperties = pJtnmaProperties_
1922+jtnmaProperties :: Lens' JobTransformNameMApping (HashMap Text Text)
1924+ = lens _jtnmaProperties
1925+ (\ s a -> s{_jtnmaProperties = a})
1852instance FromJSON JobTransformNameMApping where
1927instance FromJSON JobTransformNameMApping where
1853 parseJSON
1928 parseJSON
1854 = withObject "JobTransformNameMApping"
1929 = withObject "JobTransformNameMApping"
1855− (\ o -> pure JobTransformNameMApping)
1931+ JobTransformNameMApping <$> (parseJSONObject o))
1857instance ToJSON JobTransformNameMApping where
1933instance ToJSON JobTransformNameMApping where
1858− toJSON = const emptyObject
1934+ toJSON = toJSON . _jtnmaProperties
1860-- | The source to read from, plus its parameters.
1936-- | The source to read from, plus its parameters.
1862-- /See:/ 'sourceSpec' smart constructor.
1938-- /See:/ 'sourceSpec' smart constructor.
1863−data SourceSpec =
1939+newtype SourceSpec = SourceSpec
1864− SourceSpec
1940+ { _ssProperties :: HashMap Text JSONValue
1865− deriving (Eq,Show,Data,Typeable,Generic)
1941+ } deriving (Eq,Show,Data,Typeable,Generic)
1867-- | Creates a value of 'SourceSpec' with the minimum fields required to make a request.
1943-- | Creates a value of 'SourceSpec' with the minimum fields required to make a request.
1945+-- Use one of the following lenses to modify other fields as desired:
1869sourceSpec
1948sourceSpec
1949+ :: HashMap Text JSONValue -- ^ 'properties'
1870− :: SourceSpec
1950+ -> SourceSpec
1871−sourceSpec = SourceSpec
1951+sourceSpec pSsProperties_ =
1953+ { _ssProperties = pSsProperties_
1956+-- | Properties of the object.
1957+ssProperties :: Lens' SourceSpec (HashMap Text JSONValue)
1959+ = lens _ssProperties (\ s a -> s{_ssProperties = a})
1873instance FromJSON SourceSpec where
1961instance FromJSON SourceSpec where
1874 parseJSON
1962 parseJSON
1875− = withObject "SourceSpec" (\ o -> pure SourceSpec)
1963+ = withObject "SourceSpec"
1964+ (\ o -> SourceSpec <$> (parseJSONObject o))
1877instance ToJSON SourceSpec where
1966instance ToJSON SourceSpec where
1878− toJSON = const emptyObject
1967+ toJSON = toJSON . _ssProperties
1880-- | Metadata about a Source useful for automatically optimizing and tuning
1969-- | Metadata about a Source useful for automatically optimizing and tuning
1881-- the pipeline, etc.
1970-- the pipeline, etc.
@@ -1946,24 +2035,39 @@ instance ToJSON SourceMetadata where
1946-- | Experimental settings.
2035-- | Experimental settings.
1948-- /See:/ 'environmentInternalExperiments' smart constructor.
2037-- /See:/ 'environmentInternalExperiments' smart constructor.
1949−data EnvironmentInternalExperiments =
2038+newtype EnvironmentInternalExperiments = EnvironmentInternalExperiments
1950− EnvironmentInternalExperiments
2039+ { _eieProperties :: HashMap Text JSONValue
1951− deriving (Eq,Show,Data,Typeable,Generic)
2040+ } deriving (Eq,Show,Data,Typeable,Generic)
1953-- | Creates a value of 'EnvironmentInternalExperiments' with the minimum fields required to make a request.
2042-- | Creates a value of 'EnvironmentInternalExperiments' with the minimum fields required to make a request.
2044+-- Use one of the following lenses to modify other fields as desired:
2046+-- * 'eieProperties'
1955environmentInternalExperiments
2047environmentInternalExperiments
2048+ :: HashMap Text JSONValue -- ^ 'properties'
1956− :: EnvironmentInternalExperiments
2049+ -> EnvironmentInternalExperiments
1957−environmentInternalExperiments = EnvironmentInternalExperiments
2050+environmentInternalExperiments pEieProperties_ =
2051+ EnvironmentInternalExperiments
2052+ { _eieProperties = pEieProperties_
2055+-- | Properties of the object. Contains field \'ype with type URL.
2056+eieProperties :: Lens' EnvironmentInternalExperiments (HashMap Text JSONValue)
2058+ = lens _eieProperties
2059+ (\ s a -> s{_eieProperties = a})
1959instance FromJSON EnvironmentInternalExperiments
2061instance FromJSON EnvironmentInternalExperiments
1961 parseJSON
2063 parseJSON
1962 = withObject "EnvironmentInternalExperiments"
2064 = withObject "EnvironmentInternalExperiments"
1963− (\ o -> pure EnvironmentInternalExperiments)
2066+ EnvironmentInternalExperiments <$>
2067+ (parseJSONObject o))
1965instance ToJSON EnvironmentInternalExperiments where
2069instance ToJSON EnvironmentInternalExperiments where
1966− toJSON = const emptyObject
2070+ toJSON = toJSON . _eieProperties
1968-- | Taskrunner configuration settings.
2072-- | Taskrunner configuration settings.
@@ -2239,23 +2343,38 @@ instance ToJSON TaskRunnerSettings where
2241-- /See:/ 'environmentSdkPipelineOptions' smart constructor.
2345-- /See:/ 'environmentSdkPipelineOptions' smart constructor.
2242−data EnvironmentSdkPipelineOptions =
2346+newtype EnvironmentSdkPipelineOptions = EnvironmentSdkPipelineOptions
2243− EnvironmentSdkPipelineOptions
2347+ { _espoProperties :: HashMap Text JSONValue
2244− deriving (Eq,Show,Data,Typeable,Generic)
2348+ } deriving (Eq,Show,Data,Typeable,Generic)
2246-- | Creates a value of 'EnvironmentSdkPipelineOptions' with the minimum fields required to make a request.
2350-- | Creates a value of 'EnvironmentSdkPipelineOptions' with the minimum fields required to make a request.
2352+-- Use one of the following lenses to modify other fields as desired:
2354+-- * 'espoProperties'
2248environmentSdkPipelineOptions
2355environmentSdkPipelineOptions
2356+ :: HashMap Text JSONValue -- ^ 'properties'
2249− :: EnvironmentSdkPipelineOptions
2357+ -> EnvironmentSdkPipelineOptions
2250−environmentSdkPipelineOptions = EnvironmentSdkPipelineOptions
2358+environmentSdkPipelineOptions pEspoProperties_ =
2359+ EnvironmentSdkPipelineOptions
2360+ { _espoProperties = pEspoProperties_
2363+-- | Properties of the object.
2364+espoProperties :: Lens' EnvironmentSdkPipelineOptions (HashMap Text JSONValue)
2366+ = lens _espoProperties
2367+ (\ s a -> s{_espoProperties = a})
2252instance FromJSON EnvironmentSdkPipelineOptions where
2369instance FromJSON EnvironmentSdkPipelineOptions where
2253 parseJSON
2370 parseJSON
2254 = withObject "EnvironmentSdkPipelineOptions"
2371 = withObject "EnvironmentSdkPipelineOptions"
2255− (\ o -> pure EnvironmentSdkPipelineOptions)
2373+ EnvironmentSdkPipelineOptions <$>
2374+ (parseJSONObject o))
2257instance ToJSON EnvironmentSdkPipelineOptions where
2376instance ToJSON EnvironmentSdkPipelineOptions where
2258− toJSON = const emptyObject
2377+ toJSON = toJSON . _espoProperties
2260-- | Request to lease WorkItems.
2379-- | Request to lease WorkItems.
@@ -2402,16 +2521,27 @@ instance ToJSON SourceOperationResponse where
2402-- | Maps user stage names to stable computation names.
2521-- | Maps user stage names to stable computation names.
2404-- /See:/ 'topologyConfigUserStageToComputationNameMap' smart constructor.
2523-- /See:/ 'topologyConfigUserStageToComputationNameMap' smart constructor.
2405−data TopologyConfigUserStageToComputationNameMap =
2524+newtype TopologyConfigUserStageToComputationNameMap = TopologyConfigUserStageToComputationNameMap
2406− TopologyConfigUserStageToComputationNameMap
2525+ { _tcustcnmProperties :: HashMap Text Text
2407− deriving (Eq,Show,Data,Typeable,Generic)
2526+ } deriving (Eq,Show,Data,Typeable,Generic)
2409-- | Creates a value of 'TopologyConfigUserStageToComputationNameMap' with the minimum fields required to make a request.
2528-- | Creates a value of 'TopologyConfigUserStageToComputationNameMap' with the minimum fields required to make a request.
2530+-- Use one of the following lenses to modify other fields as desired:
2532+-- * 'tcustcnmProperties'
2411topologyConfigUserStageToComputationNameMap
2533topologyConfigUserStageToComputationNameMap
2534+ :: HashMap Text Text -- ^ 'properties'
2412− :: TopologyConfigUserStageToComputationNameMap
2535+ -> TopologyConfigUserStageToComputationNameMap
2413−topologyConfigUserStageToComputationNameMap =
2536+topologyConfigUserStageToComputationNameMap pTcustcnmProperties_ =
2414 TopologyConfigUserStageToComputationNameMap
2537 TopologyConfigUserStageToComputationNameMap
2538+ { _tcustcnmProperties = pTcustcnmProperties_
2541+tcustcnmProperties :: Lens' TopologyConfigUserStageToComputationNameMap (HashMap Text Text)
2543+ = lens _tcustcnmProperties
2544+ (\ s a -> s{_tcustcnmProperties = a})
2416instance FromJSON
2546instance FromJSON
2417 TopologyConfigUserStageToComputationNameMap where
2547 TopologyConfigUserStageToComputationNameMap where
@@ -2419,11 +2549,12 @@ instance FromJSON
2419 = withObject
2549 = withObject
2420 "TopologyConfigUserStageToComputationNameMap"
2550 "TopologyConfigUserStageToComputationNameMap"
2422− pure TopologyConfigUserStageToComputationNameMap)
2552+ TopologyConfigUserStageToComputationNameMap <$>
2553+ (parseJSONObject o))
2424instance ToJSON
2555instance ToJSON
2425 TopologyConfigUserStageToComputationNameMap where
2556 TopologyConfigUserStageToComputationNameMap where
2426− toJSON = const emptyObject
2557+ toJSON = toJSON . _tcustcnmProperties
2428-- | A task which consists of a shell command for the worker to execute.
2559-- | A task which consists of a shell command for the worker to execute.
@@ -2474,45 +2605,70 @@ instance ToJSON ShellTask where
2476-- /See:/ 'statusDetailsItem' smart constructor.
2607-- /See:/ 'statusDetailsItem' smart constructor.
2477−data StatusDetailsItem =
2608+newtype StatusDetailsItem = StatusDetailsItem
2478− StatusDetailsItem
2609+ { _sdiProperties :: HashMap Text JSONValue
2479− deriving (Eq,Show,Data,Typeable,Generic)
2610+ } deriving (Eq,Show,Data,Typeable,Generic)
2481-- | Creates a value of 'StatusDetailsItem' with the minimum fields required to make a request.
2612-- | Creates a value of 'StatusDetailsItem' with the minimum fields required to make a request.
2614+-- Use one of the following lenses to modify other fields as desired:
2616+-- * 'sdiProperties'
2483statusDetailsItem
2617statusDetailsItem
2618+ :: HashMap Text JSONValue -- ^ 'properties'
2484− :: StatusDetailsItem
2619+ -> StatusDetailsItem
2485−statusDetailsItem = StatusDetailsItem
2620+statusDetailsItem pSdiProperties_ =
2622+ { _sdiProperties = pSdiProperties_
2625+-- | Properties of the object. Contains field \'ype with type URL.
2626+sdiProperties :: Lens' StatusDetailsItem (HashMap Text JSONValue)
2628+ = lens _sdiProperties
2629+ (\ s a -> s{_sdiProperties = a})
2487instance FromJSON StatusDetailsItem where
2631instance FromJSON StatusDetailsItem where
2488 parseJSON
2632 parseJSON
2489 = withObject "StatusDetailsItem"
2633 = withObject "StatusDetailsItem"
2490− (\ o -> pure StatusDetailsItem)
2634+ (\ o -> StatusDetailsItem <$> (parseJSONObject o))
2492instance ToJSON StatusDetailsItem where
2636instance ToJSON StatusDetailsItem where
2493− toJSON = const emptyObject
2637+ toJSON = toJSON . _sdiProperties
2495-- | Named properties associated with the step. Each kind of predefined step
2639-- | Named properties associated with the step. Each kind of predefined step
2496-- has its own required set of properties.
2640-- has its own required set of properties.
2498-- /See:/ 'stepProperties' smart constructor.
2642-- /See:/ 'stepProperties' smart constructor.
2499−data StepProperties =
2643+newtype StepProperties = StepProperties
2500− StepProperties
2644+ { _spProperties :: HashMap Text JSONValue
2501− deriving (Eq,Show,Data,Typeable,Generic)
2645+ } deriving (Eq,Show,Data,Typeable,Generic)
2503-- | Creates a value of 'StepProperties' with the minimum fields required to make a request.
2647-- | Creates a value of 'StepProperties' with the minimum fields required to make a request.
2649+-- Use one of the following lenses to modify other fields as desired:
2505stepProperties
2652stepProperties
2653+ :: HashMap Text JSONValue -- ^ 'properties'
2506− :: StepProperties
2654+ -> StepProperties
2507−stepProperties = StepProperties
2655+stepProperties pSpProperties_ =
2657+ { _spProperties = pSpProperties_
2660+-- | Properties of the object.
2661+spProperties :: Lens' StepProperties (HashMap Text JSONValue)
2663+ = lens _spProperties (\ s a -> s{_spProperties = a})
2509instance FromJSON StepProperties where
2665instance FromJSON StepProperties where
2510 parseJSON
2666 parseJSON
2511 = withObject "StepProperties"
2667 = withObject "StepProperties"
2512− (\ o -> pure StepProperties)
2668+ (\ o -> StepProperties <$> (parseJSONObject o))
2514instance ToJSON StepProperties where
2670instance ToJSON StepProperties where
2515− toJSON = const emptyObject
2671+ toJSON = toJSON . _spProperties
2517-- | Global topology of the streaming Dataflow job, including all
2673-- | Global topology of the streaming Dataflow job, including all
2518-- computations and their sharded locations.
2674-- computations and their sharded locations.
@@ -2692,24 +2848,39 @@ instance ToJSON WorkerSettings where
2692-- harness.
2848-- harness.
2694-- /See:/ 'workItemServiceStateHarnessData' smart constructor.
2850-- /See:/ 'workItemServiceStateHarnessData' smart constructor.
2695−data WorkItemServiceStateHarnessData =
2851+newtype WorkItemServiceStateHarnessData = WorkItemServiceStateHarnessData
2696− WorkItemServiceStateHarnessData
2852+ { _wisshdProperties :: HashMap Text JSONValue
2697− deriving (Eq,Show,Data,Typeable,Generic)
2853+ } deriving (Eq,Show,Data,Typeable,Generic)
2699-- | Creates a value of 'WorkItemServiceStateHarnessData' with the minimum fields required to make a request.
2855-- | Creates a value of 'WorkItemServiceStateHarnessData' with the minimum fields required to make a request.
2857+-- Use one of the following lenses to modify other fields as desired:
2859+-- * 'wisshdProperties'
2701workItemServiceStateHarnessData
2860workItemServiceStateHarnessData
2861+ :: HashMap Text JSONValue -- ^ 'properties'
2702− :: WorkItemServiceStateHarnessData
2862+ -> WorkItemServiceStateHarnessData
2703−workItemServiceStateHarnessData = WorkItemServiceStateHarnessData
2863+workItemServiceStateHarnessData pWisshdProperties_ =
2864+ WorkItemServiceStateHarnessData
2865+ { _wisshdProperties = pWisshdProperties_
2868+-- | Properties of the object.
2869+wisshdProperties :: Lens' WorkItemServiceStateHarnessData (HashMap Text JSONValue)
2871+ = lens _wisshdProperties
2872+ (\ s a -> s{_wisshdProperties = a})
2705instance FromJSON WorkItemServiceStateHarnessData
2874instance FromJSON WorkItemServiceStateHarnessData
2707 parseJSON
2876 parseJSON
2708 = withObject "WorkItemServiceStateHarnessData"
2877 = withObject "WorkItemServiceStateHarnessData"
2709− (\ o -> pure WorkItemServiceStateHarnessData)
2879+ WorkItemServiceStateHarnessData <$>
2880+ (parseJSONObject o))
2711instance ToJSON WorkItemServiceStateHarnessData where
2882instance ToJSON WorkItemServiceStateHarnessData where
2712− toJSON = const emptyObject
2883+ toJSON = toJSON . _wisshdProperties
2714-- | Data disk assignment for a given VM instance.
2885-- | Data disk assignment for a given VM instance.
@@ -2940,16 +3111,28 @@ instance ToJSON StreamingSetupTask where
2940-- | The codec to use for interpreting an element in the input PTable.
3111-- | The codec to use for interpreting an element in the input PTable.
2942-- /See:/ 'partialGroupByKeyInstructionInputElementCodec' smart constructor.
3113-- /See:/ 'partialGroupByKeyInstructionInputElementCodec' smart constructor.
2943−data PartialGroupByKeyInstructionInputElementCodec =
3114+newtype PartialGroupByKeyInstructionInputElementCodec = PartialGroupByKeyInstructionInputElementCodec
2944− PartialGroupByKeyInstructionInputElementCodec
3115+ { _pgbkiiecProperties :: HashMap Text JSONValue
2945− deriving (Eq,Show,Data,Typeable,Generic)
3116+ } deriving (Eq,Show,Data,Typeable,Generic)
2947-- | Creates a value of 'PartialGroupByKeyInstructionInputElementCodec' with the minimum fields required to make a request.
3118-- | Creates a value of 'PartialGroupByKeyInstructionInputElementCodec' with the minimum fields required to make a request.
3120+-- Use one of the following lenses to modify other fields as desired:
3122+-- * 'pgbkiiecProperties'
2949partialGroupByKeyInstructionInputElementCodec
3123partialGroupByKeyInstructionInputElementCodec
3124+ :: HashMap Text JSONValue -- ^ 'properties'
2950− :: PartialGroupByKeyInstructionInputElementCodec
3125+ -> PartialGroupByKeyInstructionInputElementCodec
2951−partialGroupByKeyInstructionInputElementCodec =
3126+partialGroupByKeyInstructionInputElementCodec pPgbkiiecProperties_ =
2952 PartialGroupByKeyInstructionInputElementCodec
3127 PartialGroupByKeyInstructionInputElementCodec
3128+ { _pgbkiiecProperties = pPgbkiiecProperties_
3131+-- | Properties of the object.
3132+pgbkiiecProperties :: Lens' PartialGroupByKeyInstructionInputElementCodec (HashMap Text JSONValue)
3134+ = lens _pgbkiiecProperties
3135+ (\ s a -> s{_pgbkiiecProperties = a})
2954instance FromJSON
3137instance FromJSON
2955 PartialGroupByKeyInstructionInputElementCodec where
3138 PartialGroupByKeyInstructionInputElementCodec where
@@ -2957,11 +3140,12 @@ instance FromJSON
2957 = withObject
3140 = withObject
2958 "PartialGroupByKeyInstructionInputElementCodec"
3141 "PartialGroupByKeyInstructionInputElementCodec"
2960− pure PartialGroupByKeyInstructionInputElementCodec)
3143+ PartialGroupByKeyInstructionInputElementCodec <$>
3144+ (parseJSONObject o))
2962instance ToJSON
3146instance ToJSON
2963 PartialGroupByKeyInstructionInputElementCodec where
3147 PartialGroupByKeyInstructionInputElementCodec where
2964− toJSON = const emptyObject
3148+ toJSON = toJSON . _pgbkiiecProperties
2966-- | MapTask consists of an ordered set of instructions, each of which
3150-- | MapTask consists of an ordered set of instructions, each of which
2967-- describes one particular low-level operation for the worker to perform
3151-- describes one particular low-level operation for the worker to perform
@@ -3068,64 +3252,105 @@ instance ToJSON MountedDataDisk where
3068-- | The codec to use to encode data written to the sink.
3252-- | The codec to use to encode data written to the sink.
3070-- /See:/ 'sinkCodec' smart constructor.
3254-- /See:/ 'sinkCodec' smart constructor.
3071−data SinkCodec =
3255+newtype SinkCodec = SinkCodec
3072− SinkCodec
3256+ { _scProperties :: HashMap Text JSONValue
3073− deriving (Eq,Show,Data,Typeable,Generic)
3257+ } deriving (Eq,Show,Data,Typeable,Generic)
3075-- | Creates a value of 'SinkCodec' with the minimum fields required to make a request.
3259-- | Creates a value of 'SinkCodec' with the minimum fields required to make a request.
3261+-- Use one of the following lenses to modify other fields as desired:
3077sinkCodec
3264sinkCodec
3265+ :: HashMap Text JSONValue -- ^ 'properties'
3078− :: SinkCodec
3266+ -> SinkCodec
3079−sinkCodec = SinkCodec
3267+sinkCodec pScProperties_ =
3269+ { _scProperties = pScProperties_
3272+-- | Properties of the object.
3273+scProperties :: Lens' SinkCodec (HashMap Text JSONValue)
3275+ = lens _scProperties (\ s a -> s{_scProperties = a})
3081instance FromJSON SinkCodec where
3277instance FromJSON SinkCodec where
3082 parseJSON
3278 parseJSON
3083− = withObject "SinkCodec" (\ o -> pure SinkCodec)
3279+ = withObject "SinkCodec"
3280+ (\ o -> SinkCodec <$> (parseJSONObject o))
3085instance ToJSON SinkCodec where
3282instance ToJSON SinkCodec where
3086− toJSON = const emptyObject
3283+ toJSON = toJSON . _scProperties
3088-- | The user function to invoke.
3285-- | The user function to invoke.
3090-- /See:/ 'parDoInstructionUserFn' smart constructor.
3287-- /See:/ 'parDoInstructionUserFn' smart constructor.
3091−data ParDoInstructionUserFn =
3288+newtype ParDoInstructionUserFn = ParDoInstructionUserFn
3092− ParDoInstructionUserFn
3289+ { _pdiufProperties :: HashMap Text JSONValue
3093− deriving (Eq,Show,Data,Typeable,Generic)
3290+ } deriving (Eq,Show,Data,Typeable,Generic)
3095-- | Creates a value of 'ParDoInstructionUserFn' with the minimum fields required to make a request.
3292-- | Creates a value of 'ParDoInstructionUserFn' with the minimum fields required to make a request.
3294+-- Use one of the following lenses to modify other fields as desired:
3296+-- * 'pdiufProperties'
3097parDoInstructionUserFn
3297parDoInstructionUserFn
3298+ :: HashMap Text JSONValue -- ^ 'properties'
3098− :: ParDoInstructionUserFn
3299+ -> ParDoInstructionUserFn
3099−parDoInstructionUserFn = ParDoInstructionUserFn
3300+parDoInstructionUserFn pPdiufProperties_ =
3301+ ParDoInstructionUserFn
3302+ { _pdiufProperties = pPdiufProperties_
3305+-- | Properties of the object.
3306+pdiufProperties :: Lens' ParDoInstructionUserFn (HashMap Text JSONValue)
3308+ = lens _pdiufProperties
3309+ (\ s a -> s{_pdiufProperties = a})
3101instance FromJSON ParDoInstructionUserFn where
3311instance FromJSON ParDoInstructionUserFn where
3102 parseJSON
3312 parseJSON
3103 = withObject "ParDoInstructionUserFn"
3313 = withObject "ParDoInstructionUserFn"
3104− (\ o -> pure ParDoInstructionUserFn)
3315+ ParDoInstructionUserFn <$> (parseJSONObject o))
3106instance ToJSON ParDoInstructionUserFn where
3317instance ToJSON ParDoInstructionUserFn where
3107− toJSON = const emptyObject
3318+ toJSON = toJSON . _pdiufProperties
3109-- | The codec to use to encode data being written via this output.
3320-- | The codec to use to encode data being written via this output.
3111-- /See:/ 'instructionOutputCodec' smart constructor.
3322-- /See:/ 'instructionOutputCodec' smart constructor.
3112−data InstructionOutputCodec =
3323+newtype InstructionOutputCodec = InstructionOutputCodec
3113− InstructionOutputCodec
3324+ { _iocProperties :: HashMap Text JSONValue
3114− deriving (Eq,Show,Data,Typeable,Generic)
3325+ } deriving (Eq,Show,Data,Typeable,Generic)
3116-- | Creates a value of 'InstructionOutputCodec' with the minimum fields required to make a request.
3327-- | Creates a value of 'InstructionOutputCodec' with the minimum fields required to make a request.
3329+-- Use one of the following lenses to modify other fields as desired:
3331+-- * 'iocProperties'
3118instructionOutputCodec
3332instructionOutputCodec
3333+ :: HashMap Text JSONValue -- ^ 'properties'
3119− :: InstructionOutputCodec
3334+ -> InstructionOutputCodec
3120−instructionOutputCodec = InstructionOutputCodec
3335+instructionOutputCodec pIocProperties_ =
3336+ InstructionOutputCodec
3337+ { _iocProperties = pIocProperties_
3340+-- | Properties of the object.
3341+iocProperties :: Lens' InstructionOutputCodec (HashMap Text JSONValue)
3343+ = lens _iocProperties
3344+ (\ s a -> s{_iocProperties = a})
3122instance FromJSON InstructionOutputCodec where
3346instance FromJSON InstructionOutputCodec where
3123 parseJSON
3347 parseJSON
3124 = withObject "InstructionOutputCodec"
3348 = withObject "InstructionOutputCodec"
3125− (\ o -> pure InstructionOutputCodec)
3350+ InstructionOutputCodec <$> (parseJSONObject o))
3127instance ToJSON InstructionOutputCodec where
3352instance ToJSON InstructionOutputCodec where
3128− toJSON = const emptyObject
3353+ toJSON = toJSON . _iocProperties
3130-- | Describes a stream of data, either as input to be processed or as output
3355-- | Describes a stream of data, either as input to be processed or as output
3131-- of a streaming Dataflow job.
3356-- of a streaming Dataflow job.
@@ -3208,23 +3433,36 @@ instance ToJSON StreamLocation where
3208-- | Extra arguments for this worker pool.
3433-- | Extra arguments for this worker pool.
3210-- /See:/ 'workerPoolPoolArgs' smart constructor.
3435-- /See:/ 'workerPoolPoolArgs' smart constructor.
3211−data WorkerPoolPoolArgs =
3436+newtype WorkerPoolPoolArgs = WorkerPoolPoolArgs
3212− WorkerPoolPoolArgs
3437+ { _wppaProperties :: HashMap Text JSONValue
3213− deriving (Eq,Show,Data,Typeable,Generic)
3438+ } deriving (Eq,Show,Data,Typeable,Generic)
3215-- | Creates a value of 'WorkerPoolPoolArgs' with the minimum fields required to make a request.
3440-- | Creates a value of 'WorkerPoolPoolArgs' with the minimum fields required to make a request.
3442+-- Use one of the following lenses to modify other fields as desired:
3444+-- * 'wppaProperties'
3217workerPoolPoolArgs
3445workerPoolPoolArgs
3446+ :: HashMap Text JSONValue -- ^ 'properties'
3218− :: WorkerPoolPoolArgs
3447+ -> WorkerPoolPoolArgs
3219−workerPoolPoolArgs = WorkerPoolPoolArgs
3448+workerPoolPoolArgs pWppaProperties_ =
3450+ { _wppaProperties = pWppaProperties_
3453+-- | Properties of the object. Contains field \'ype with type URL.
3454+wppaProperties :: Lens' WorkerPoolPoolArgs (HashMap Text JSONValue)
3456+ = lens _wppaProperties
3457+ (\ s a -> s{_wppaProperties = a})
3221instance FromJSON WorkerPoolPoolArgs where
3459instance FromJSON WorkerPoolPoolArgs where
3222 parseJSON
3460 parseJSON
3223 = withObject "WorkerPoolPoolArgs"
3461 = withObject "WorkerPoolPoolArgs"
3224− (\ o -> pure WorkerPoolPoolArgs)
3462+ (\ o -> WorkerPoolPoolArgs <$> (parseJSONObject o))
3226instance ToJSON WorkerPoolPoolArgs where
3464instance ToJSON WorkerPoolPoolArgs where
3227− toJSON = const emptyObject
3465+ toJSON = toJSON . _wppaProperties
3229-- | Identifies the location of a streaming side input.
3467-- | Identifies the location of a streaming side input.
@@ -3490,37 +3728,62 @@ instance ToJSON SourceGetMetadataRequest where
3490-- | The user function to invoke.
3728-- | The user function to invoke.
3492-- /See:/ 'seqMapTaskUserFn' smart constructor.
3730-- /See:/ 'seqMapTaskUserFn' smart constructor.
3493−data SeqMapTaskUserFn =
3731+newtype SeqMapTaskUserFn = SeqMapTaskUserFn
3494− SeqMapTaskUserFn
3732+ { _smtufProperties :: HashMap Text JSONValue
3495− deriving (Eq,Show,Data,Typeable,Generic)
3733+ } deriving (Eq,Show,Data,Typeable,Generic)
3497-- | Creates a value of 'SeqMapTaskUserFn' with the minimum fields required to make a request.
3735-- | Creates a value of 'SeqMapTaskUserFn' with the minimum fields required to make a request.
3737+-- Use one of the following lenses to modify other fields as desired:
3739+-- * 'smtufProperties'
3499seqMapTaskUserFn
3740seqMapTaskUserFn
3741+ :: HashMap Text JSONValue -- ^ 'properties'
3500− :: SeqMapTaskUserFn
3742+ -> SeqMapTaskUserFn
3501−seqMapTaskUserFn = SeqMapTaskUserFn
3743+seqMapTaskUserFn pSmtufProperties_ =
3745+ { _smtufProperties = pSmtufProperties_
3748+-- | Properties of the object.
3749+smtufProperties :: Lens' SeqMapTaskUserFn (HashMap Text JSONValue)
3751+ = lens _smtufProperties
3752+ (\ s a -> s{_smtufProperties = a})
3503instance FromJSON SeqMapTaskUserFn where
3754instance FromJSON SeqMapTaskUserFn where
3504 parseJSON
3755 parseJSON
3505 = withObject "SeqMapTaskUserFn"
3756 = withObject "SeqMapTaskUserFn"
3506− (\ o -> pure SeqMapTaskUserFn)
3757+ (\ o -> SeqMapTaskUserFn <$> (parseJSONObject o))
3508instance ToJSON SeqMapTaskUserFn where
3759instance ToJSON SeqMapTaskUserFn where
3509− toJSON = const emptyObject
3760+ toJSON = toJSON . _smtufProperties
3511-- | The value combining function to invoke.
3762-- | The value combining function to invoke.
3513-- /See:/ 'partialGroupByKeyInstructionValueCombiningFn' smart constructor.
3764-- /See:/ 'partialGroupByKeyInstructionValueCombiningFn' smart constructor.
3514−data PartialGroupByKeyInstructionValueCombiningFn =
3765+newtype PartialGroupByKeyInstructionValueCombiningFn = PartialGroupByKeyInstructionValueCombiningFn
3515− PartialGroupByKeyInstructionValueCombiningFn
3766+ { _pgbkivcfProperties :: HashMap Text JSONValue
3516− deriving (Eq,Show,Data,Typeable,Generic)
3767+ } deriving (Eq,Show,Data,Typeable,Generic)
3518-- | Creates a value of 'PartialGroupByKeyInstructionValueCombiningFn' with the minimum fields required to make a request.
3769-- | Creates a value of 'PartialGroupByKeyInstructionValueCombiningFn' with the minimum fields required to make a request.
3771+-- Use one of the following lenses to modify other fields as desired:
3773+-- * 'pgbkivcfProperties'
3520partialGroupByKeyInstructionValueCombiningFn
3774partialGroupByKeyInstructionValueCombiningFn
3775+ :: HashMap Text JSONValue -- ^ 'properties'
3521− :: PartialGroupByKeyInstructionValueCombiningFn
3776+ -> PartialGroupByKeyInstructionValueCombiningFn
3522−partialGroupByKeyInstructionValueCombiningFn =
3777+partialGroupByKeyInstructionValueCombiningFn pPgbkivcfProperties_ =
3523 PartialGroupByKeyInstructionValueCombiningFn
3778 PartialGroupByKeyInstructionValueCombiningFn
3779+ { _pgbkivcfProperties = pPgbkivcfProperties_
3782+-- | Properties of the object.
3783+pgbkivcfProperties :: Lens' PartialGroupByKeyInstructionValueCombiningFn (HashMap Text JSONValue)
3785+ = lens _pgbkivcfProperties
3786+ (\ s a -> s{_pgbkivcfProperties = a})
3525instance FromJSON
3788instance FromJSON
3526 PartialGroupByKeyInstructionValueCombiningFn where
3789 PartialGroupByKeyInstructionValueCombiningFn where
@@ -3528,11 +3791,12 @@ instance FromJSON
3528 = withObject
3791 = withObject
3529 "PartialGroupByKeyInstructionValueCombiningFn"
3792 "PartialGroupByKeyInstructionValueCombiningFn"
3531− pure PartialGroupByKeyInstructionValueCombiningFn)
3794+ PartialGroupByKeyInstructionValueCombiningFn <$>
3795+ (parseJSONObject o))
3533instance ToJSON
3797instance ToJSON
3534 PartialGroupByKeyInstructionValueCombiningFn where
3798 PartialGroupByKeyInstructionValueCombiningFn where
3535− toJSON = const emptyObject
3799+ toJSON = toJSON . _pgbkivcfProperties
3537-- | Defines a job to be run by the Dataflow service.
3801-- | Defines a job to be run by the Dataflow service.
@@ -3790,22 +4054,35 @@ instance ToJSON ReadInstruction where
3790-- | The sink to write to, plus its parameters.
4054-- | The sink to write to, plus its parameters.
3792-- /See:/ 'sinkSpec' smart constructor.
4056-- /See:/ 'sinkSpec' smart constructor.
3793−data SinkSpec =
4057+newtype SinkSpec = SinkSpec
3794− SinkSpec
4058+ { _ssProperties :: HashMap Text JSONValue
3795− deriving (Eq,Show,Data,Typeable,Generic)
4059+ } deriving (Eq,Show,Data,Typeable,Generic)
3797-- | Creates a value of 'SinkSpec' with the minimum fields required to make a request.
4061-- | Creates a value of 'SinkSpec' with the minimum fields required to make a request.
4063+-- Use one of the following lenses to modify other fields as desired:
4067+ :: HashMap Text JSONValue -- ^ 'properties'
3800− :: SinkSpec
4068+ -> SinkSpec
3801−sinkSpec = SinkSpec
4069+sinkSpec pSsProperties_ =
4071+ { _ssProperties = pSsProperties_
4074+-- | Properties of the object.
4075+ssProperties :: Lens' SinkSpec (HashMap Text JSONValue)
4077+ = lens _ssProperties (\ s a -> s{_ssProperties = a})
3803instance FromJSON SinkSpec where
4079instance FromJSON SinkSpec where
3804 parseJSON
4080 parseJSON
3805− = withObject "SinkSpec" (\ o -> pure SinkSpec)
4081+ = withObject "SinkSpec"
4082+ (\ o -> SinkSpec <$> (parseJSONObject o))
3807instance ToJSON SinkSpec where
4084instance ToJSON SinkSpec where
3808− toJSON = const emptyObject
4085+ toJSON = toJSON . _ssProperties
3810-- | Describes one particular pool of Dataflow workers to be instantiated by
4087-- | Describes one particular pool of Dataflow workers to be instantiated by
3811-- the Dataflow service in order to perform the computations required by a
4088-- the Dataflow service in order to perform the computations required by a
@@ -4918,23 +5195,36 @@ instance ToJSON CustomSourceLocation where
4920-- /See:/ 'sourceBaseSpecsItem' smart constructor.
5197-- /See:/ 'sourceBaseSpecsItem' smart constructor.
4921−data SourceBaseSpecsItem =
5198+newtype SourceBaseSpecsItem = SourceBaseSpecsItem
4922− SourceBaseSpecsItem
5199+ { _sbsiProperties :: HashMap Text JSONValue
4923− deriving (Eq,Show,Data,Typeable,Generic)
5200+ } deriving (Eq,Show,Data,Typeable,Generic)
4925-- | Creates a value of 'SourceBaseSpecsItem' with the minimum fields required to make a request.
5202-- | Creates a value of 'SourceBaseSpecsItem' with the minimum fields required to make a request.
5204+-- Use one of the following lenses to modify other fields as desired:
5206+-- * 'sbsiProperties'
4927sourceBaseSpecsItem
5207sourceBaseSpecsItem
5208+ :: HashMap Text JSONValue -- ^ 'properties'
4928− :: SourceBaseSpecsItem
5209+ -> SourceBaseSpecsItem
4929−sourceBaseSpecsItem = SourceBaseSpecsItem
5210+sourceBaseSpecsItem pSbsiProperties_ =
5211+ SourceBaseSpecsItem
5212+ { _sbsiProperties = pSbsiProperties_
5215+-- | Properties of the object.
5216+sbsiProperties :: Lens' SourceBaseSpecsItem (HashMap Text JSONValue)
5218+ = lens _sbsiProperties
5219+ (\ s a -> s{_sbsiProperties = a})
4931instance FromJSON SourceBaseSpecsItem where
5221instance FromJSON SourceBaseSpecsItem where
4932 parseJSON
5222 parseJSON
4933 = withObject "SourceBaseSpecsItem"
5223 = withObject "SourceBaseSpecsItem"
4934− (\ o -> pure SourceBaseSpecsItem)
5224+ (\ o -> SourceBaseSpecsItem <$> (parseJSONObject o))
4936instance ToJSON SourceBaseSpecsItem where
5226instance ToJSON SourceBaseSpecsItem where
4937− toJSON = const emptyObject
5227+ toJSON = toJSON . _sbsiProperties
4939-- | Describes a particular operation comprising a MapTask.
5229-- | Describes a particular operation comprising a MapTask.
@@ -5050,23 +5340,36 @@ instance ToJSON ParallelInstruction where
5050-- | How to interpret the source element(s) as a side input value.
5340-- | How to interpret the source element(s) as a side input value.
5052-- /See:/ 'sideInputInfoKind' smart constructor.
5342-- /See:/ 'sideInputInfoKind' smart constructor.
5053−data SideInputInfoKind =
5343+newtype SideInputInfoKind = SideInputInfoKind
5054− SideInputInfoKind
5344+ { _siikProperties :: HashMap Text JSONValue
5055− deriving (Eq,Show,Data,Typeable,Generic)
5345+ } deriving (Eq,Show,Data,Typeable,Generic)
5057-- | Creates a value of 'SideInputInfoKind' with the minimum fields required to make a request.
5347-- | Creates a value of 'SideInputInfoKind' with the minimum fields required to make a request.
5349+-- Use one of the following lenses to modify other fields as desired:
5351+-- * 'siikProperties'
5059sideInputInfoKind
5352sideInputInfoKind
5353+ :: HashMap Text JSONValue -- ^ 'properties'
5060− :: SideInputInfoKind
5354+ -> SideInputInfoKind
5061−sideInputInfoKind = SideInputInfoKind
5355+sideInputInfoKind pSiikProperties_ =
5357+ { _siikProperties = pSiikProperties_
5360+-- | Properties of the object.
5361+siikProperties :: Lens' SideInputInfoKind (HashMap Text JSONValue)
5363+ = lens _siikProperties
5364+ (\ s a -> s{_siikProperties = a})
5063instance FromJSON SideInputInfoKind where
5366instance FromJSON SideInputInfoKind where
5064 parseJSON
5367 parseJSON
5065 = withObject "SideInputInfoKind"
5368 = withObject "SideInputInfoKind"
5066− (\ o -> pure SideInputInfoKind)
5369+ (\ o -> SideInputInfoKind <$> (parseJSONObject o))
5068instance ToJSON SideInputInfoKind where
5371instance ToJSON SideInputInfoKind where
5069− toJSON = const emptyObject
5372+ toJSON = toJSON . _siikProperties
5071-- | DEPRECATED in favor of DerivedSource.
5374-- | DEPRECATED in favor of DerivedSource.
@@ -5214,22 +5517,35 @@ instance ToJSON JobExecutionInfo where
5214-- | The codec to use to decode data read from the source.
5517-- | The codec to use to decode data read from the source.
5216-- /See:/ 'sourceCodec' smart constructor.
5519-- /See:/ 'sourceCodec' smart constructor.
5217−data SourceCodec =
5520+newtype SourceCodec = SourceCodec
5218− SourceCodec
5521+ { _scProperties :: HashMap Text JSONValue
5219− deriving (Eq,Show,Data,Typeable,Generic)
5522+ } deriving (Eq,Show,Data,Typeable,Generic)
5221-- | Creates a value of 'SourceCodec' with the minimum fields required to make a request.
5524-- | Creates a value of 'SourceCodec' with the minimum fields required to make a request.
5526+-- Use one of the following lenses to modify other fields as desired:
5223sourceCodec
5529sourceCodec
5530+ :: HashMap Text JSONValue -- ^ 'properties'
5224− :: SourceCodec
5531+ -> SourceCodec
5225−sourceCodec = SourceCodec
5532+sourceCodec pScProperties_ =
5534+ { _scProperties = pScProperties_
5537+-- | Properties of the object.
5538+scProperties :: Lens' SourceCodec (HashMap Text JSONValue)
5540+ = lens _scProperties (\ s a -> s{_scProperties = a})
5227instance FromJSON SourceCodec where
5542instance FromJSON SourceCodec where
5228 parseJSON
5543 parseJSON
5229− = withObject "SourceCodec" (\ o -> pure SourceCodec)
5544+ = withObject "SourceCodec"
5545+ (\ o -> SourceCodec <$> (parseJSONObject o))
5231instance ToJSON SourceCodec where
5547instance ToJSON SourceCodec where
5232− toJSON = const emptyObject
5548+ toJSON = toJSON . _scProperties
5234-- | State family configuration.
5550-- | State family configuration.