Ready for takeoff

lib/data/Game.hs

@@ -0,0 +1,22 @@
+-- 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"
+}