22 lines
420 B
Haskell
22 lines
420 B
Haskell
-- 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"
|
|
}
|