~bwe/kit commit - sourcehut hg

2 files changed, 1 insertions(+), 6 deletions(-)

M src/Rework.elm
M src/Round.elm

M src/Rework.elm +0 -5

@@ 25,11 25,6 @@ setRework p j =
         Random.weighted ( p, NeedsRework ) [ ( 100 - p, NoRework ) ]
 
 
-setReworksSingleMode : ProbPerRound -> List Job -> Random.Generator (List Job)
-setReworksSingleMode p =
-    Random.Extra.traverse (setRework p)
-
-
 
 -- new setRework mechanism to improve perf with increasing no. of jobs on w0
 -- aim: constant computing amount for increasing no. of jobs on w0

M src/Round.elm +1 -1

@@ 39,7 39,7 @@ fieldRound f r p l field =
         field2 =
             newRoundField r field
     in
-    Random.Extra.traverse (setRework p) field2.w0 |> Random.andThen (\x -> Random.constant ({ field2 | w0 = x } |> f r l))
+    setReworksFieldWrapper p field2 |> Random.andThen (\x -> Random.constant (x |> f r l))
 
 
 bothFieldsRound : Round -> ProbPerRound -> Maybe ScrapLimit -> ( Field, Field, Stats ) -> Random.Generator ( Field, Field, Stats )