Refactor crPos to be a V3

src/Dodge/Lampoid.hs

@@ -1,5 +1,6 @@
 module Dodge.Lampoid (updateLampoid) where
 
+import Linear
 import Dodge.Creature.State
 import Dodge.Data.World
 import Dodge.LightSource
@@ -31,7 +32,7 @@ updateLampoid cr w = case cr ^?! crType . lampLSID of
                 & cWorld . lWorld . lightSources . ix i . lsParam . lsPos .~ addZ h cpos
                 & doDamage (cr ^. crID)
   where
-    cpos = _crPos cr
+    cpos = cr ^. crPos . _xy
     cid = _crID cr
     crtype = _crType cr
     h = _lampHeight crtype