Allow for equipment items to set a minimum view distance

src/Dodge/Inventory.hs

@@ -67,7 +67,7 @@ rmInvItem cid invid w = case w ^? creatures . ix cid . crInv . ix invid . itCons
     cr = _creatures w IM.! cid
     itm = _crInv cr IM.! invid
     dounequipfunction = fromMaybe id $ do
-        rmf <- itm ^? itUse . eqOnRemove
+        rmf <- itm ^? itUse . eqEq . eqOnRemove
         return $ rmf itm cr
     doanyitemeffect = fromMaybe id $ do
         rmf <- itm ^? itEffect . itEffectDrop
@@ -196,7 +196,7 @@ updateRBList :: World -> World
 updateRBList w 
     | w ^? rbOptions . opCurInvPos == Just curinvid 
         = w & setEquipAllocation & setEquipActivation
-    | otherwise = case cr ^? crInv . ix curinvid . itUse . eqSite of
+    | otherwise = case cr ^? crInv . ix curinvid . itUse . eqEq . eqSite of
         Just esite -> w 
             & rbOptions .~ EquipOptions (equipSiteToPositions esite) 
                 (chooseEquipmentPosition cr (equipSiteToPositions esite))