Add withStepWithOptions.

dillonkearns · Feb 15, 2024 · 924427b · 924427b
1 parent 7078225
commit 924427b
Showing 1 changed file with 18 additions and 1 deletion.
diff --git a/src/Pages/Script/Spinner.elm b/src/Pages/Script/Spinner.elm
@@ -1,4 +1,4 @@
-module Pages.Script.Spinner exposing (CompletionIcon(..), Options, Spinner, encodeCompletionIcon, options, runSteps, runTask, runTaskExisting, runTaskWithOptions, showStep, spinner, start, steps, withImmediateStart, withNamedAnimation, withOnCompletion, withStep)
+module Pages.Script.Spinner exposing (CompletionIcon(..), Options, Spinner, encodeCompletionIcon, options, runSteps, runTask, runTaskExisting, runTaskWithOptions, showStep, spinner, start, steps, withImmediateStart, withNamedAnimation, withOnCompletion, withStep, withStepWithOptions)
 
 import BackendTask exposing (BackendTask)
 import BackendTask.Http
@@ -308,6 +308,23 @@ withStep text backendTask steps_ =
                 )
 
 
+withStepWithOptions : Options FatalError newValue -> (oldValue -> BackendTask FatalError newValue) -> Steps FatalError oldValue -> Steps FatalError newValue
+withStepWithOptions options_ backendTask steps_ =
+    case steps_ of
+        Steps previousSteps ->
+            Steps
+                (BackendTask.map2
+                    (\pipelineValue newSpinner ->
+                        runTaskExisting
+                            newSpinner
+                            (backendTask pipelineValue)
+                    )
+                    previousSteps
+                    (showStep options_)
+                    |> BackendTask.andThen identity
+                )
+
+
 runSteps : Steps FatalError value -> BackendTask FatalError value
 runSteps (Steps steps_) =
     steps_