Commit before modifying crEquipment for item locations

src/Dodge/Creature/ArmourChase.hs

@@ -3,8 +3,8 @@ module Dodge.Creature.ArmourChase (
     flockArmourChaseCrit,
 ) where
 
-import Dodge.Data.Equipment.Misc
-import Control.Lens
+--import Dodge.Data.Equipment.Misc
+--import Control.Lens
 import Dodge.Creature.ChaseCrit
 import Dodge.Data.Creature
 import Dodge.Default
@@ -43,4 +43,4 @@ armourChaseCrit =
 --                ]
 --        , _crMvType = defaultChaseMvType{_mvTurnRad = FloatConst 0.05}
         }
-        & crEquipment . at OnChest ?~ 0
+--        & crEquipment . at OnChest ?~ 0

src/Dodge/Inventory.hs

@@ -96,9 +96,7 @@ rmInvItem cid invid w =
     itm = w ^?! cWorld . lWorld . items . ix itid
     dounequipfunction = effectOnRemove itm cr
     removeAnySlotEquipment = fromMaybe id $ do
-        epos <-
-            w ^? cWorld . lWorld . creatures . ix cid . crInv . ix invid
-                >>= \k -> w ^? cWorld . lWorld . items . ix k
+        epos <- w ^? cWorld . lWorld . items . ix itid
                     . itLocation
                     . ilEquipSite
                     . _Just