Fix attachment of augmented hud to laser

This commit is contained in:
2024-10-08 17:36:00 +01:00
parent c0879393cd
commit d1ee0f997a
4 changed files with 5 additions and 5 deletions
+1 -1
View File
@@ -96,7 +96,7 @@ 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 "" shortShow (itm ^? itTargeting . itTgPos . _Just)]
(WeaponTargetingSF,_) -> [maybe "" (const "!TARG!") (itm ^? itTargeting . itTgPos . _Just)]
(_,UseHeld{}) -> []
(_,UseHotkey{}) -> [showAutoRechargeProgress (_leftConsumption iu)]
(_,UseEquip{}) -> showEquipmentNumber cr itm