diff --git a/web/elm/src/Build/StepTree/Models.elm b/web/elm/src/Build/StepTree/Models.elm index c884ce25abe..13648f2e69a 100644 --- a/web/elm/src/Build/StepTree/Models.elm +++ b/web/elm/src/Build/StepTree/Models.elm @@ -157,12 +157,16 @@ mostSevereStepState model stepTree = activeTreeSteps model stepTree |> List.foldl (\step state -> - case stepStateOrdering step.state state of - LT -> - step.state - - _ -> + case step.buildStep of + Concourse.BuildStepDo _ -> state + _ -> + case stepStateOrdering step.state state of + LT -> + step.state + + _ -> + state ) StepStateSucceeded