More hlinting

2025-12-21 19:27:49 +00:00
parent 2fbaa47c0b
commit 51c52ace7d
18 changed files with 41 additions and 46 deletions
@@ -207,8 +207,8 @@ mcProxTest w = \case
    RequireHealth x -> fromMaybe 0 (cr ^? crHP . _HP) >= x
    RequireEquipment ct ->
        any
-            (\itm -> _itType itm == ct)
-            ((\k -> w ^?! cWorld . lWorld . items . ix k) <$> _crInv cr)
+            ((\itm -> _itType itm == ct)
+            . (\k -> w ^?! cWorld . lWorld . items . ix k)) (_crInv cr)
    RequireDeadCreatures is -> all (\x -> null (x ^? crHP . _HP))
        (IM.restrictKeys  (w ^. cWorld . lWorld . creatures) (IS.fromList is))
  where