Commit before moving targeting

2023-01-05 09:58:41 +00:00
parent ac8afe513b
commit c48a553967
14 changed files with 50 additions and 17 deletions
@@ -75,9 +75,14 @@ showConsumption :: ItemUse -> String
 showConsumption iu = case iu of
    HeldUse{} -> showReloadProgress' (_heldConsumption iu)
    LeftUse{} -> showAutoRechargeProgress (_leftConsumption iu)
-    EquipUse{} -> ""
+    EquipUse ee -> showEUseNumber ee
    _ -> show $ iu ^?! useAmount . getItAmount

+showEUseNumber :: EquipEffect -> String
+showEUseNumber ee = case _eeUse ee of
+    EFuelSource x _ -> show x
+    _ -> ""
+
 showReloadProgress' :: HeldConsumption -> String
 showReloadProgress' ic = case ic ^? laProgress . _Just . ix 0 of
    Nothing -> show $ _laLoaded ic