Flatten values in creature manipulation data types

2024-09-24 21:50:21 +01:00
parent fe00af0e73
commit 25cec10313
24 changed files with 69 additions and 86 deletions
@@ -39,7 +39,7 @@ doWdWd we = case we of
    WdWdFromItixCrixWdWd _ crid f -> \w -> fromMaybe w $ do
        cr <- w ^? cWorld . lWorld . creatures . ix crid
        --it <- getItem itid w
-        itRef <- cr ^? crManipulation . manObject . inInventory . imSelectedItem
+        itRef <- cr ^? crManipulation . manObject . imSelectedItem
        it <- invTrees (_crInv cr) ^? ix itRef
        return $ doItCrWdWd f it cr w
    WdWdFromItCrixWdWd it crid f -> \w -> fromMaybe w $ do