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
@@ -282,7 +282,7 @@ updateAutoRecharge it = case it ^? itUse . leftConsumption of
 -- in the inventory
 crGetTargeting :: Creature -> Maybe TargetType
 crGetTargeting cr = do
-    i <- cr ^? crManipulation . manObject . inInventory . imRootItem
+    i <- cr ^? crManipulation . manObject . imRootItem
    itm <- cr ^? crInv . ix i
    itm ^? itType . iyModules . ix ModTarget . imtTargetType
        <|> do