From b0c7f6c55789b235da77bf78ca1fa301e4e09c12 Mon Sep 17 00:00:00 2001
From: Sam Tay <samctay@pm.me>
Date: Sun, 17 Nov 2024 13:58:35 -0500
Subject: [PATCH] Dont reset board on level up

---
 src/Tetris.hs | 10 +---------
 1 file changed, 1 insertion(+), 9 deletions(-)

diff --git a/src/Tetris.hs b/src/Tetris.hs
index 4dfe45b..0e4b031 100644
--- a/src/Tetris.hs
+++ b/src/Tetris.hs
@@ -175,18 +175,10 @@ initGame lvl = do
     , _board        = mempty
     }
 
--- | Increment level and reset the board
+-- | Increment level
 nextLevel :: (MonadIO m, MonadState Game m) => m ()
 nextLevel = do
-  -- Increment level
   level %= (+ 1)
-  -- Reset board
-  (s1, bag1) <- liftIO $ bagFourTetriminoEach mempty
-  (s2, bag2) <- liftIO $ bagFourTetriminoEach bag1
-  block .= initBlock s1
-  nextShape .= s2
-  nextShapeBag .= bag2
-  board .= mempty
 
 isGameOver :: Game -> Bool
 isGameOver g = blockStopped g && g ^. (block . origin) == startOrigin