Improve frontArmour equipment

src/Dodge/Render/HUD.hs

@@ -19,7 +19,7 @@ import ListHelp
 import Data.Maybe
 import qualified Data.IntMap.Strict as IM
 import qualified Data.Set as S
-import qualified Data.IntSet as IS
+--import qualified Data.IntSet as IS
 import Control.Lens
 import SDL (MouseButton (..))
 --import Data.List
@@ -134,12 +134,12 @@ subInventoryDisplay subinv cfig w = case subinv of
 
 eqPosText :: EquipPosition -> String
 eqPosText ep = case ep of
-    OnHead          -> "ON HEAD"
-    OnChest         -> "ON CHEST"
-    OnBack          -> "ON BACK"
-    OnLeftWrist     -> "ON LEFT WRIST"
-    OnRightWrist    -> "ON RIGHT WRIST"
-    OnLegs          -> "ON LEGS"
+    OnHead          -> "HEAD"
+    OnChest         -> "CHEST"
+    OnBack          -> "BACK"
+    OnLeftWrist     -> "L.WRIST"
+    OnRightWrist    -> "R.WRIST"
+    OnLegs          -> "LEGS"
     OnSpecial       -> "EQUIPPED"
 
 topInvW :: Int