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
@@ -188,7 +188,7 @@ dropItem cr invid = rmInvItem (_crID cr) invid .
 youDropItem :: World -> World
 youDropItem w = fromMaybe w $ do
    curpos <-
-        you w ^? crManipulation . manObject . inInventory . imSelectedItem
+        you w ^? crManipulation . manObject . imSelectedItem
            <|> fmap fst (IM.lookupMax =<< w ^? hud . hudElement . diSections . sssSections . ix 0 . ssItems)
    guard $ not $ _crInvLock (you w) || cursed
    return $