Cleanup

src/Dodge/Creature/Impulse/UseItem.hs

@@ -38,7 +38,7 @@ itemUseEffect cr it w = case it ^. ldtValue . itUse of
             & pointerToItem itm . itUse . heldHammer .~ HammerDown
     UseHotkey{} -> doequipmentchange
     EquipUse{} -> doequipmentchange
-    (ConsumeUse eff) -> useC eff (_ldtValue it) cr w
+    (UseConsume eff) -> useC eff (_ldtValue it) cr w
     CraftUse{} -> w
     AttachUse{} -> selectUse it cr  w
     TargetingUse {} -> w
@@ -104,7 +104,7 @@ useItemLeftClick cr w = fromMaybe w $ do
     ituse <- cr ^? crInv . ix invid . itUse
     case ituse of
         UseHeld{} -> return w
-        ConsumeUse{} -> return $ useItemLeftClick' cr w
+        UseConsume{} -> return $ useItemLeftClick' cr w
         EquipUse{} -> return $ useItemLeftClick' cr w
         UseHotkey{} -> return $ useItemLeftClick' cr w
         UseAmmoMag{} -> return w