Cleanup

2025-10-29 12:18:55 +00:00
parent c9ec962575
commit 40c1907689
5 changed files with 11 additions and 16 deletions
@@ -31,8 +31,7 @@ makeDoorDebris dr w = w & makeDebris mt p
    mt = fromMaybe Stone $ do
        wlids <- w ^? cWorld . lWorld . doors . ix (_drID dr) . drFootPrint
        ((wlid,_),_) <- IM.minViewWithKey wlids 
-        wl <- w ^? cWorld . lWorld . walls . ix wlid
-        return $ wl ^. wlMaterial
+        w ^? cWorld . lWorld . walls . ix wlid . wlMaterial

 makeBlockDebris :: Block -> World -> World
 makeBlockDebris bl w = foldl' (flip $ makeDebris mt) w ps