Cleanup

2024-09-30 12:54:31 +01:00
parent 65564c993b
commit fc5539cb38
58 changed files with 802 additions and 1255 deletions
@@ -201,7 +201,7 @@ useLoadedAmmo itmtree cr (cme,w) (mzid,Just (mz,x,magtree)) = (,) (cme & cmeSoun

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

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