Cleanup

src/Dodge/Item/Display.hs

@@ -109,15 +109,12 @@ showAutoRechargeProgress lc = case lc of
 
 itemNumberDisplay :: Creature -> Item -> [String]
 itemNumberDisplay cr itm = case iu of
-    --HeldUse{} -> [showReloadProgress cr itm]
-    HeldUse{} -> []
-    LeftUse{} -> [showAutoRechargeProgress (_leftConsumption iu)]
+    UseHeld{} -> []
+    UseHotkey{} -> [showAutoRechargeProgress (_leftConsumption iu)]
     EquipUse{} -> showEquipmentNumber cr itm
-    --CraftUse x -> [show $ x ^. getItAmount]
     CraftUse -> []
-    --ConsumeUse {_useAmount = x} -> [show $ x ^. getItAmount]
     ConsumeUse {} -> []
-    AttachUse {} -> [] --[showReloadProgress cr itm]
+    AttachUse {} -> []
     AmmoMagUse {} -> [maybe "" shortShow $ itm ^? itUse . amagLoadStatus . iaLoaded]
     ScopeUse OpticScope {_opticZoom = x} -> [shortShow x]
     ScopeUse {} -> []