Tweak posture

2026-03-31 22:50:53 +01:00
parent 074d354970
commit ecdc19fb5e
13 changed files with 134 additions and 143 deletions
@@ -239,7 +239,7 @@ floorItemPickupInfo n itm
 -- it is probably desirable for this to crash hard for now
 yourAugmentedItem :: (Item -> a) -> a -> (Either Item Button -> a) -> World -> a
 yourAugmentedItem f x g w = case you w ^? crManipulation . manObject of
-    Just (SelectedItem i _ _) -> f $ yourInv w ^?! ix i
+    Just (SelectedItem i _ _ _) -> f $ yourInv w ^?! ix i
    Just (SelCloseItem i) -> fromMaybe x $ do
        j <- w ^? hud . closeItems . ix i . unNInt
        flit <- w ^? cWorld . lWorld . items . ix j