2048: actually allow game to progress

tweag · Oct 1, 2024 · f2bc32e · f2bc32e
1 parent 1e9cdf1
commit f2bc32e
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/hs2048/src/Logic.hs b/hs2048/src/Logic.hs
@@ -143,7 +143,7 @@ stepSlide state =
 step :: GameState -> GameState
 step state@GameState {..} =
   if | gameProgress == Won || gameProgress == GameOver -> state
-     | gameWon grid -> win state
+     | gameWon grid, gameProgress /= Continuing -> win state
      | gameLost grid -> lose state
      | direction /= None -> stepSlide state
      | otherwise -> state