Make weapon fail sound distinct

src/Dodge/Item/Display.hs

@@ -60,7 +60,6 @@ itemBaseName itm = case _itType itm of
 showAttachItem :: AttachType -> Item -> String
 showAttachItem t itm = case t of
     ZOOMSCOPE -> "ZOOMSCOPE"
---    TARGETATTACH x -> show x
     BULLETSYNTHESIZER -> "BSYNTH"
     REMOTESCREEN -> "REMOTE SCREEN " ++ show (itm ^? itUse . uaParams . apLinkedProjectile . _Just)
     HOMINGMODULE -> "HOMING MOD"
@@ -94,8 +93,6 @@ showAutoRechargeProgress lc = case lc of
 
 itemNumberDisplay :: Creature -> ComposedItem -> [String]
 itemNumberDisplay cr ci = case (ci ^. cItemFunction,iu) of
---    UseTargeting {_tgPos = mp} -> [maybe "" shortShow mp]
-        -- this could be cleaner here...
     (WeaponTargetingSF,_) -> [maybe "" (const "!TARG!") (itm ^? itTargeting . itTgPos . _Just)]
     (_,UseHeld{}) -> []
     (_,UseHotkey{}) -> [showAutoRechargeProgress (_leftConsumption iu)]