Cleanup

2024-09-26 16:32:07 +01:00
parent 772886c8c6
commit fb6fcff61c
9 changed files with 59 additions and 192 deletions
@@ -40,7 +40,7 @@ doWdWd we = case we of
        cr <- w ^? cWorld . lWorld . creatures . ix crid
        --it <- getItem itid w
        itRef <- cr ^? crManipulation . manObject . imSelectedItem
-        it <- invTrees' (_crInv cr) ^? ix itRef
+        it <- invTrees (_crInv cr) ^? ix itRef
        return $ doItCrWdWd f it cr w
    WdWdFromItCrixWdWd it crid f -> \w -> fromMaybe w $ do
        cr <- w ^? cWorld . lWorld . creatures . ix crid