-- Representation of all the game's data

module Game
( Game(..)
, initGame -- Initialize the game
) where

----------------------------- Constants ------------------------------

data Game = Game {
    -- TODO Add more
    playerName :: String
}

----------------------------------------------------------------------

-- Initialize the game
-- TODO Expand
initGame :: Game
initGame = Game { 
    playerName = "Tibo"
}