2048: actually allow game to progress

amesgen · amesgen · commit f2bc32ee8aa7 · 2024-10-01T09:58:30.000Z
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
