Fix glass debris bug

2022-06-19 16:42:41 +01:00
parent 4924aa0a57
commit 9e311cccf4
4 changed files with 76 additions and 50 deletions
@@ -52,10 +52,10 @@ checkBlockHP bl
 destroyBlock :: Block -> World -> World
 destroyBlock bl w = w
    & flip (foldr unshadowBlock) (_blShadows bl)
+    & _blDeath bl bl
    & deleteWallIDs wlids
    & blocks %~ IM.delete (_blID bl)
 --    & matDesSound (_blMaterial bl) pos
-    & _blDeath bl bl
    & flip (foldr (wlDustAt awl)) (map (pos +.+) ps)
  where
    wlids = _blWallIDs bl