Added state #6, #7, #8

lib/data/Game.hs

@@ -2,21 +2,24 @@
 
 module Game
 ( Game(..)
-, initGame -- Initialize the game
+
+-- Initialize the game
+, initGame
 ) where
 
+import State
+
 ----------------------------- Constants ------------------------------
 
+-- TODO Add more
 data Game = Game {
-    -- TODO Add more
-    playerName :: String
+    -- Current state of the game
+    state :: State
 }
 
 ----------------------------------------------------------------------
 
--- Initialize the game
--- TODO Expand
 initGame :: Game
 initGame = Game { 
-    playerName = "Tibo"
+    state = defaultState
 }