Cleanup UseEquip constructor

src/Dodge/Creature/Impulse/UseItem.hs

@@ -37,7 +37,7 @@ itemUseEffect cr it w = case it ^. ldtValue . itUse of
     UseHeld{} -> heldEffect it cr w
             & pointerToItem itm . itUse . heldHammer .~ HammerDown
     UseHotkey{} -> doequipmentchange
-    EquipUse{} -> doequipmentchange
+    UseEquip{} -> doequipmentchange
     (UseConsume eff) -> useC eff (_ldtValue it) cr w
     CraftUse{} -> w
     UseAttach{} -> selectUse it cr  w
@@ -105,7 +105,7 @@ useItemLeftClick cr w = fromMaybe w $ do
     case ituse of
         UseHeld{} -> return w
         UseConsume{} -> return $ useItemLeftClick' cr w
-        EquipUse{} -> return $ useItemLeftClick' cr w
+        UseEquip{} -> return $ useItemLeftClick' cr w
         UseHotkey{} -> return $ useItemLeftClick' cr w
         UseAmmoMag{} -> return w
         _ -> Nothing