25 lines
421 B
Haskell
25 lines
421 B
Haskell
-- 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
|
|
}
|