Refactor targeting

src/Dodge/Creature/State.hs

@@ -3,6 +3,7 @@ module Dodge.Creature.State
     , doDamage
     ) where
 import Dodge.Data
+import Dodge.Targeting
 import Dodge.ItEffect
 import Dodge.Euse
 import Dodge.EnergyBall
@@ -229,7 +230,7 @@ doItemTargeting :: Int -> Creature -> World -> World
 doItemTargeting invid cr w = case cr ^? crInv . ix invid . itTargeting of
     Nothing -> w
     Just NoTargeting -> w
-    Just t  -> let (w',t') = _tgUpdate t (_crInv cr IM.! invid) cr w t
+    Just t  -> let (w',t') = updateTargeting (_tgUpdate t) (_crInv cr IM.! invid) cr w t
         in w' & creatures . ix (_crID cr) . crInv . ix invid . itTargeting .~ t'
 
 weaponReloadSounds :: Creature -> World -> World