Use grid when creating block debris

src/Dodge/Block.hs

@@ -2,7 +2,7 @@ module Dodge.Block where
 import Dodge.Data
 import Dodge.Base.Collide
 import Dodge.Material
---import Dodge.Block.Debris
+import Dodge.Block.Debris
 import Dodge.Zone
 import Dodge.Wall.Zone
 import Dodge.WorldEvent.Sound
@@ -46,7 +46,7 @@ checkBlockHP bl
 destroyBlock :: Block -> World -> World
 destroyBlock bl w = w
     & flip (foldr unshadowBlock) (_blShadows bl)
-    & _blDeath bl bl
+    & makeBlockDebris bl
     & deleteWallIDs wlids
     & maybeClearPaths (_blObstructs bl) -- must happen after the walls are deleted
     & blocks %~ IM.delete (_blID bl)