Tweaks concerning item types

2024-12-18 11:39:12 +00:00
parent d0ef2628ce
commit d405747bd5
21 changed files with 98 additions and 69 deletions
@@ -237,7 +237,7 @@ useLoadedAmmo itmtree cr (cme, w) (mzid, Just (mz, x, magtree)) = (,) (cme & cme

 itemDetectorEffect :: Item -> Creature -> World -> World
 itemDetectorEffect itm cr w = fromMaybe w $ do
-    HELDDETECTOR dt <- itm ^? itType . ibtHeld
+    DETECTOR dt <- itm ^? itType . ibtHeld
    return $ detectorEffect dt itm cr w

 walkNozzle :: Int -> Muzzle -> Item -> Creature -> World -> World