Refactor world events

src/Dodge/Default/World.hs

@@ -2,12 +2,8 @@ module Dodge.Default.World where
 import Dodge.Data
 import Dodge.Zone.Size
 import Dodge.Zone.Object
-import Dodge.Base
 import Geometry.Vector3D
 import Geometry.Zone
---import Dodge.Config.KeyConfig
---import Dodge.Menu
---import Picture
 import Geometry.Data
 import Geometry.Polygon
 
@@ -67,7 +63,7 @@ defaultWorld = World
     , _randGen = mkStdGen 2
     , _mousePos = V2 0 0
     , _yourID = 0
-    , _worldEvents = id
+    , _worldEvents = []
     , _delayedEvents = []
     , _pressPlates = IM.empty
     , _buttons = IM.empty
@@ -93,8 +89,8 @@ defaultWorld = World
     , _closeObjects     = []
     , _rbOptions        = NoRightButtonOptions
     , _seenLocations        = IM.fromList 
-        [(0, (_crPos . you, "CURRENT POSITION"))
-        ,(1, (const (V2 0 0) , "START POSITION"))
+        [(0, (WdYouPos, "CURRENT POSITION"))
+        ,(1, (WdP2Const (V2 0 0) , "START POSITION"))
         ]
     , _selLocation = 0
     --, _keyConfig = defaultKeyConfigSDL