Cleanup targeting

src/Dodge/Item/Weapon/ExtraEffect.hs

@@ -147,7 +147,7 @@ targetLaserUpdate _ cr w t
                 , _lpDir = _crDir cr
                 , _lpPos = sp
                 , _lpColor = col
-                , _lpType = TargetLaser
+                , _lpType = TargetingLaser
                 }
     --wpammo = _itConsumption it
     --    reloadFrac

src/Dodge/Item/Weapon/Targeting.hs

@@ -12,9 +12,9 @@ useTargetPos ::
     Creature ->
     World ->
     World
-useTargetPos f cr w = case cr ^? crInv . ix (crSel cr) . itTargeting . tgPos of
+useTargetPos f cr w = case cr ^? crInv . ix (crSel cr) . itUse . heldTargeting . tgPos of
     Nothing -> w
     Just p -> f p cr w
 
 removeItTarget :: Item -> Item
-removeItTarget = itTargeting . tgPos .~ Nothing
+removeItTarget = itUse . heldTargeting . tgPos .~ Nothing