Refactor crPos to be a V3

src/Dodge/WorldPos.hs

@@ -1,10 +1,13 @@
+{-# LANGUAGE LambdaCase #-}
 module Dodge.WorldPos where
 
 import Dodge.Base.You
 import Dodge.Data.World
 import Geometry
+import Control.Lens
+import Linear
 
 doWorldPos :: WdP2 -> World -> Point2
-doWorldPos wp2 = case wp2 of
+doWorldPos = \case
     WdP2Const p -> const p
-    WdYouPos -> _crPos . you
+    WdYouPos -> (^. crPos . _xy) . you