Cleanup targeting

src/Dodge/Item/Display.hs

@@ -75,7 +75,7 @@ showConsumption :: ItemUse -> String
 showConsumption iu = case iu of
     HeldUse{} -> showReloadProgress' (_heldConsumption iu)
     LeftUse{} -> showAutoRechargeProgress (_leftConsumption iu)
-    EquipUse ee -> showEUseNumber ee
+    EquipUse {_equipEffect = ee} -> showEUseNumber ee
     _ -> show $ iu ^?! useAmount . getItAmount
 
 showEUseNumber :: EquipEffect -> String