Improve item location code

2024-09-22 14:29:02 +01:00
parent 236f7c7750
commit 4f6431968c
25 changed files with 218 additions and 186 deletions
@@ -47,7 +47,7 @@ itemEffect cr it w = case it ^. ldtValue . itUse of
    itm = it ^. ldtValue
    doequipmentchange = fromMaybe w $ do
        guard (_crHammerPosition cr == HammerUp)
-        invid <- itm ^? itLocation . ipInvID
+        invid <- itm ^? itLocation . ilInvID
        return $ toggleEquipmentAt invid cr w

 toggleEquipmentAt :: Int -> Creature -> World -> World