-- Representation of all the game's data module Game ( Game(..) -- Initialize the game , initGame ) where import State ----------------------------- Constants ------------------------------ -- TODO Add more data Game = Game { -- Current state of the game state :: State } ---------------------------------------------------------------------- initGame :: Game initGame = Game { state = defaultState }