project skeleton

app/Main.hs

@@ -1,4 +1,4 @@
 module Main (main) where
 
 main :: IO ()
-main = putStrLn "Hello, Haskell!"
+main = putStrLn "hi"

src/Game.hs

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

src/Types.hs

@@ -0,0 +1,19 @@
+{-# LANGUAGE NamedFieldPuns #-}
+
+module Types where
+
+import Data.Array
+import Data.Array.Base (genArray)
+
+data GameBoard = MkGameBoard
+    { width :: Int
+    , height :: Int
+    , board :: Array (Int, Int) (Maybe Int)
+    }
+    deriving (Show, Eq)
+
+mkEmptyBoard :: Int -> Int -> GameBoard
+mkEmptyBoard width height = MkGameBoard{width, height, board}
+  where
+    board :: Array (Int, Int) (Maybe Int)
+    board = genArray ((0, 0), (width - 1, height - 1)) (const Nothing)

test/Spec.hs

@@ -0,0 +1,9 @@
+module Main where
+
+import Test.Hspec
+
+spec :: Spec
+spec = undefined
+
+main :: IO ()
+main = hspec spec