Stop displaying hotkeys and equip positions, fixes space leak

2025-01-05 22:33:05 +00:00
parent 9769480d0b
commit 2837f0d0af
3 changed files with 17 additions and 21 deletions
@@ -5,7 +5,7 @@ import Dodge.Data.Equipment.Misc
 eqPosText :: EquipSite -> String
 eqPosText ep = case ep of
    OnHead -> "HEAD"
-    OnChest -> "CHESt"
+    OnChest -> "CHEST"
    OnBack -> "BACK"
    OnLeftWrist -> "L.WRIST"
    OnRightWrist -> "R.WRIST"