Allow equipment on both wrists

2022-05-21 15:26:58 +01:00
parent 8ad332aced
commit c5818271d8
6 changed files with 42 additions and 50 deletions
@@ -134,12 +134,12 @@ subInventoryDisplay subinv cfig w = case subinv of

 eqPosText :: EquipPosition -> String
 eqPosText ep = case ep of
-    OnHead          -> "HEAD"
-    OnChest         -> "CHEST"
-    OnBack          -> "BACK"
-    OnLeftWrist     -> "L-WRIST"
-    OnRightWrist    -> "R-WRIST"
-    OnLegs          -> "LEGS"
+    OnHead          -> "ON HEAD"
+    OnChest         -> "ON CHEST"
+    OnBack          -> "ON BACK"
+    OnLeftWrist     -> "ON LEFT WRIST"
+    OnRightWrist    -> "ON RIGHT WRIST"
+    OnLegs          -> "ON LEGS"
    OnSpecial       -> "EQUIPPED"

 topInvW :: Int