Refactor world events

src/Dodge/WorldPos.hs

@@ -0,0 +1,9 @@
+module Dodge.WorldPos where
+import Dodge.Data
+import Dodge.Base.You
+import Geometry
+
+doWorldPos :: WdP2 -> World -> Point2
+doWorldPos wp2 = case wp2 of
+    WdP2Const p -> const p
+    WdYouPos -> _crPos . you