diff --git a/src/swarm-engine/Swarm/Game/Step.hs b/src/swarm-engine/Swarm/Game/Step.hs index 0ed104494..8f32b6e2a 100644 --- a/src/swarm-engine/Swarm/Game/Step.hs +++ b/src/swarm-engine/Swarm/Game/Step.hs @@ -344,7 +344,7 @@ hypotheticalWinCheck em g ws oc = do let gameFinished = newWinState /= Ongoing let finishedObjectives = notNull queue - when (gameFinished || (finishedObjectives && shouldPause == PauseOnAnyObjective)) $ + when (finishedObjectives && (gameFinished || shouldPause == PauseOnAnyObjective)) $ temporal . runStatus .= AutoPause mapM_ handleException $ exceptions finalAccumulator