Move towards allowing equipable targeting items

src/Dodge/Item/Weapon/Targeting.hs

@@ -1,6 +1,5 @@
 module Dodge.Item.Weapon.Targeting (
     useTargetPos,
-    removeItTarget,
 ) where
 
 import Control.Lens
@@ -12,9 +11,6 @@ useTargetPos ::
     Creature ->
     World ->
     World
-useTargetPos f cr w = case cr ^? crInv . ix (crSel cr) . itUse . heldTargeting . tgPos of
+useTargetPos f cr w = case cr ^? crTargeting . ctPos of
     Nothing -> w
     Just p -> f p cr w
-
-removeItTarget :: Item -> Item
-removeItTarget = itUse . heldTargeting . tgPos .~ Nothing