#3 Restrict player going places

lib/RPGEngine/Data/Defaults.hs

@@ -1,6 +1,8 @@
 module RPGEngine.Data.Defaults where
 
 import RPGEngine.Data
+import RPGEngine.Input.Player (spawnPlayer)
+import RPGEngine.Input.Level (putCoords)
 
 defaultEntity :: Entity
 defaultEntity = Entity {
@@ -21,7 +23,7 @@ initGame = Game {
     state   = defaultState,
     playing = defaultLevel,
     levels  = [defaultLevel],
-    player  = defaultPlayer
+    player  = spawnPlayer defaultLevel defaultPlayer
 }
 
 defaultItem :: Item
@@ -46,6 +48,7 @@ defaultLayout = [
 defaultLevel :: Level
 defaultLevel = Level {
     layout   = defaultLayout,
+    coordlayout = putCoords defaultLevel, -- TODO This should go
     items    = [],
     entities = []
 }
@@ -54,7 +57,7 @@ defaultPlayer :: Player
 defaultPlayer = Player {
     playerHp  = Prelude.Nothing, -- Compares to infinity
     inventory = [],
-    coord     = (0, 0)
+    position  = (0, 0)
 }
 
 -- Default state of the game, Menu