Refactor crPos to be a V3

src/Dodge/Placement/PlaceSpot.hs

@@ -6,6 +6,7 @@
 -}
 module Dodge.Placement.PlaceSpot (placeSpot) where
 
+import Linear
 import Color
 import Control.Monad.State
 import Data.Bifunctor
@@ -184,7 +185,10 @@ mvPP :: Point2 -> Float -> PressPlate -> PressPlate
 mvPP p rot pp = pp{_ppPos = p, _ppRot = rot}
 
 mvCr :: Point2 -> Float -> Creature -> Creature
-mvCr p rot cr = cr{_crPos = p, _crOldPos = p, _crDir = rot}
+mvCr p rot cr = cr
+    & crPos . _xy .~ p
+    & crOldPos . _xy .~ p
+    & crDir .~ rot
 
 mvFS :: Point2 -> Float -> ForegroundShape -> ForegroundShape
 mvFS p a = (fsDir +~ a) . (fsPos %~ ((p +.+) . rotateV a))