Clarify pause condition

swarm-game · Sep 9, 2024 · 3d00eff · 3d00eff
1 parent 8ea3d27
commit 3d00eff
Showing 1 changed file with 3 additions and 1 deletion.
diff --git a/src/swarm-engine/Swarm/Game/Step.hs b/src/swarm-engine/Swarm/Game/Step.hs
@@ -342,7 +342,9 @@ hypotheticalWinCheck em g ws oc = do
   queue <- messageInfo . announcementQueue Swarm.Util.<%= (>< Seq.fromList (map ObjectiveCompleted $ completionAnnouncementQueue finalAccumulator))
   shouldPause <- use $ temporal . pauseOnObjective
 
-  when (newWinState /= Ongoing || (notNull queue && shouldPause == PauseOnAnyObjective)) $
+  let gameFinished = newWinState /= Ongoing
+  let finishedObjectives = notNull queue
+  when (gameFinished || (finishedObjectives && shouldPause == PauseOnAnyObjective)) $
     temporal . runStatus .= AutoPause
 
   mapM_ handleException $ exceptions finalAccumulator