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
@@ -91,7 +91,7 @@ crInAimStance as cr =
        && mitstance == Just as
  where
    mitstance = do
-        i <- cr ^? crManipulation . manObject . inInventory . imRootItem
+        i <- cr ^? crManipulation . manObject . imRootItem
        cr ^? crInv . ix i . itUse . heldAim . aimStance

 oneH :: Creature -> Bool