Refactor crPos to be a V3

src/Dodge/Item/Weapon/Shatter.hs

@@ -1,5 +1,6 @@
 module Dodge.Item.Weapon.Shatter (shootShatter) where
 
+import Linear
 import Dodge.Base.Collide
 import Dodge.Block.Debris
 import Dodge.Data.World
@@ -18,7 +19,7 @@ shootShatter _ cr w =
         Opaque {} -> True
         SeeThrough -> True
         _ -> False
-    sp = _crPos cr +.+ 10 *.* unitVectorAtAngle dir
+    sp = cr ^. crPos ._xy +.+ 10 *.* unitVectorAtAngle dir
     -- the 10 is arbtrary and should be changed to a muzzle position
     dir = _crDir cr
     ep = sp +.+ 200 *.* unitVectorAtAngle dir