Improve frontArmour equipment

src/Dodge/Inventory.hs

@@ -37,7 +37,7 @@ import qualified IntMapHelp as IM
 import ListHelp
 import LensHelp
 
-import qualified Data.IntSet as IS
+--import qualified Data.IntSet as IS
 import Data.Maybe
 --import Data.List
 --import System.Random
@@ -197,12 +197,12 @@ changeSwapInvSel k w
     n = length $ _crInv $ _creatures w IM.! _yourID w
     numCO = length $ _closeObjects w
 
-swapIntSetKeys :: Int -> Int -> IS.IntSet -> IS.IntSet
-swapIntSetKeys i j is
-    | i `IS.member` is && j `IS.member` is = is
-    | i `IS.member` is = j `IS.insert` (i `IS.delete` is)
-    | j `IS.member` is = i `IS.insert` (j `IS.delete` is)
-    | otherwise = is
+--swapIntSetKeys :: Int -> Int -> IS.IntSet -> IS.IntSet
+--swapIntSetKeys i j is
+--    | i `IS.member` is && j `IS.member` is = is
+--    | i `IS.member` is = j `IS.insert` (i `IS.delete` is)
+--    | j `IS.member` is = i `IS.insert` (j `IS.delete` is)
+--    | otherwise = is
 
 changeAugInvSel :: Int -> World -> World
 changeAugInvSel i w