Cleanup

2025-08-27 18:55:25 +01:00
parent 86696deb56
commit 40d2d316cb
35 changed files with 316 additions and 431 deletions
@@ -154,7 +154,7 @@ mcProxTest :: Machine -> World -> Bool
 mcProxTest mc w = case mc ^? mcType . _McSensor . proxRequirement of
    Just (RequireHealth x) -> _crHP cr >= x
    Just (RequireEquipment ct) -> any (\itm -> _itType itm == ct) 
-        (fmap (\k -> w ^?! cWorld . lWorld . items . ix k) $ _crInv cr)
+        ((\k -> w ^?! cWorld . lWorld . items . ix k) <$> _crInv cr)
    _ -> False
  where
    cr = you w