Cleanup

2022-06-08 22:14:50 +01:00
parent b90e8a2118
commit 970858e129
9 changed files with 41 additions and 40 deletions
@@ -70,7 +70,7 @@ rmInvItem cid invid w = case w ^? creatures . ix cid . crInv . ix invid . itCons
        rmf <- itm ^? itUse . eqEq . eqOnRemove
        return $ rmf itm cr
    doanyitemeffect = fromMaybe id $ do
-        rmf <- itm ^? itEffect . itEffectDrop
+        rmf <- itm ^? itEffect . ieDrop
        return $ rmf itm cr
    removeAnySlotEquipment = case w ^? creatures . ix cid . crInvEquipped . ix invid of
        Just epos   -> creatures . ix cid . crEquipment . at epos .~ Nothing