Refactor crPos to be a V3

src/Dodge/TractorBeam/Update.hs

@@ -4,6 +4,7 @@ import Control.Lens
 import Dodge.Data.World
 import Geometry
 import qualified IntMapHelp as IM
+import Linear
 
 updateTractorBeam :: World -> TractorBeam -> (World, Maybe TractorBeam)
 updateTractorBeam w pj
@@ -26,7 +27,7 @@ tractFlIt q p1 outpos it
 
 tractCr :: Point2 -> Point2 -> Point2 -> Creature -> Creature
 tractCr q p1 outpos cr
-    | segOnCirc p1 outpos (_crPos cr) 10 = cr & crPos %~ tractorPullPos q p1
+    | segOnCirc p1 outpos (cr ^. crPos . _xy) 10 = cr & crPos . _xy %~ tractorPullPos q p1
     | otherwise = cr
 
 tractorPullPos :: Point2 -> Point2 -> Point2 -> Point2