Move types out

src/Game.hs

@@ -1,22 +1 @@
 module Game where
-
-import Data.Text
-import Types.GameBoard
-import Types.GameMode (GameMode)
-
-newtype PlayerName = MkPlayerName Text
-    deriving (Eq, Show, Ord)
-
-data PlayerState = MkPlayerState
-    { name :: Text
-    , score :: Int
-    }
-    deriving (Eq, Show)
-
-data GameState mode = MkGameState
-    { board :: GameBoard mode
-    , players :: PlayerState
-    }
-
-newGame :: (GameMode mode) => mode -> [PlayerName] -> IO (GameState mode)
-newGame = undefined

src/Types/GameState.hs

@@ -0,0 +1,13 @@
+module Types.GameState where
+
+import Types.GameBoard
+import Types.GameMode (GameMode)
+import Types.Player
+
+data GameState mode = MkGameState
+    { board :: GameBoard mode
+    , players :: [PlayerState]
+    }
+
+newGame :: (GameMode mode) => mode -> [PlayerName] -> IO (GameState mode)
+newGame = undefined

src/Types/Player.hs

@@ -0,0 +1,12 @@
+module Types.Player where
+
+import Data.Text
+
+newtype PlayerName = MkPlayerName Text
+    deriving (Eq, Show, Ord)
+
+data PlayerState = MkPlayerState
+    { name :: Text
+    , score :: Int
+    }
+    deriving (Eq, Show)