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
@@ -7,7 +7,7 @@ import Data.Maybe

 useC :: Cuse -> Item -> Creature -> World -> World
 useC cu itm cr = fromMaybe id $ do
-    i <- itm ^? itLocation . ipInvID
+    i <- itm ^? itLocation . ilInvID
    return $ rmInvItem (_crID cr) i . useC' cu itm cr

 useC' :: Cuse -> Item -> Creature -> World -> World