Refactor crPos to be a V3

src/Dodge/Update/Cloud.hs

@@ -6,11 +6,12 @@ import Dodge.Data.World
 import Dodge.Zoning.Creature
 import Geometry.Vector3D
 import LensHelp
+import Linear
 
 cloudPoisonDamage :: Cloud -> World -> World
 cloudPoisonDamage c w = foldl' (flip doDam) w (filter f $ crsNearPoint clpos w)
   where
     doDam cr =
         cWorld . lWorld . creatures . ix (_crID cr) . crDamage .:~ Poison 1
-    f cr = dist3 (addZ 20 $ _crPos cr) (_clPos c) < crRad (cr ^. crType) + 20
+    f cr = dist3 (_crPos cr & _z +~ 20) (_clPos c) < crRad (cr ^. crType) + 20
     clpos = stripZ $ _clPos c