Move function fields outside equipment

src/Dodge/Creature/State.hs

@@ -3,6 +3,7 @@ module Dodge.Creature.State
     , doDamage
     ) where
 import Dodge.Data
+import Dodge.Euse
 import Dodge.EnergyBall
 import Dodge.Damage
 import Dodge.Hammer
@@ -181,7 +182,7 @@ useUpdate = (useHammer %~ moveHammerUp)
     . (useDelay . rateTime %~ decreaseToZero)
 
 useEquipment :: Creature -> Int -> World -> World
-useEquipment cr i = _eqUse (_eqEq $ _itUse itm) itm cr
+useEquipment cr i = useE (_eqUse (_eqEq $ _itUse itm)) itm cr
   where
     itm = _crInv cr IM.! i
 -- a map updating all inventory items