Remove _crCamouflage/wrist invisibility on equip/unequip

Invisibility no longer works

src/Dodge/Item/Display.hs

@@ -88,7 +88,7 @@ itemNumberDisplay cr ci = case (ci ^. _2, itm ^?! itUse, itm ^. itType) of
         $ itm ^? itConsumables . magLoadStatus . iaLoaded]
     (_,UseHeld{},_) -> []
     (_,UseHotkey{_leftConsumption=lc},_) -> [showAutoRechargeProgress lc]
-    (_,UseEquip{},_) -> showEquipmentNumber cr itm
+    (_,UseEquip{},_) -> mempty
     (_,UseNothing,_) -> []
     (_,UseConsume {},_) -> []
     (_,UseAttach (APInt i),_) -> [show i]
@@ -105,15 +105,6 @@ displayPulse x = take 5 $ drop y "----^-----"
   where
     y = min 5 $ x `div` 3
 
-showEquipmentNumber :: Creature -> Item -> [String]
-showEquipmentNumber _ itm = case _eeUse ee of
---    EFuelSource x _ -> [show x]
-    EAmmoSource{_euseAmmoAmount = x} -> [show x]--showAmmoSource cr itm
-    EBatterySource{_euseBatteryAmount = x} -> [show x]
-    _ -> [""]
-  where
-    ee = itm ^?! itUse . uequipEffect
-
 maybeWarmupStatus :: Item -> Maybe String
 maybeWarmupStatus it = case it ^? itUse . heldDelay . warmMax of
     Nothing -> Nothing