move makeMove to Game

src/Game.hs

@@ -1 +1,16 @@
 module Game where
+
+import Optics
+import Types.BoardAction
+import Types.GameBoard
+import Types.GameMode
+import Types.GameState
+
+makeMove :: (GameMode mode) => PlayerIndex -> BoardAction -> GameState mode -> GameState mode
+makeMove (MkPlayerIndex idx) (SelectSquare topLeft bottomRight) state@MkGameState{board} =
+    let tiles = select topLeft bottomRight board
+        gMode = gameMode board
+     in if check gMode tiles
+            then
+                over (#players % (ix idx) % #score) (+ 1) state
+            else state

src/Types/GameState.hs

@@ -26,12 +26,3 @@ newGame gmode playerInfos rng =
     let (initialBoard, nextRng) = newRandomBoard gmode 10 10 rng
         playerStates = S.fromList $ map (\n -> MkPlayerState{name = n, score = 0}) playerInfos
      in (MkGameState initialBoard playerStates, nextRng)
-
-makeMove :: (GameMode mode) => PlayerIndex -> BoardAction -> GameState mode -> GameState mode
-makeMove (MkPlayerIndex idx) (SelectSquare topLeft bottomRight) state@MkGameState{board} =
-    let tiles = select topLeft bottomRight board
-        gMode = gameMode board
-     in if check gMode tiles
-            then
-                over (#players % (ix idx) % #score) (+ 1) state
-            else state

test/Spec.hs

@@ -6,6 +6,7 @@ module Spec where
 import Data.Array (array, elems)
 import Data.Sequence qualified as S
 import Display (displayText)
+import Game
 import Optics
 import Test.Hspec
 import Types.BoardAction