Refactor crPos to be a V3

src/Dodge/Update/Camera.hs

@@ -87,8 +87,8 @@ updateInGameCamera cfig w =
 moveZoomCamera :: Config -> Input -> Creature -> World -> Camera -> Camera
 moveZoomCamera cfig theinput cr w campos =
     campos
-        & camCenter .~ fromMaybe (_crPos cr +.+ offset) mremotepos
-        & camViewFrom .~ fromMaybe (_crPos cr) mremotepos
+        & camCenter .~ fromMaybe (cr ^. crPos . _xy +.+ offset) mremotepos
+        & camViewFrom .~ fromMaybe (cr ^. crPos . _xy) mremotepos
         & camZoom .~ newzoom
         & camDefaultZoom .~ newDefaultZoom
         & camItemZoom .~ newItemZoom
@@ -215,7 +215,7 @@ rotateToOverlappingWall w =
         w
   where
     cr = you w
-    p = _crPos (you w)
+    p = (you w) ^. crPos . _xy
 
 doWallRotate :: Wall -> World -> World
 doWallRotate wl w