Move towards introducing pipes, generalise blocks

2022-06-16 02:18:22 +01:00
parent f404f32241
commit a7201b8fb6
13 changed files with 154 additions and 65 deletions
@@ -50,6 +50,7 @@ destroyBlock bl w = w
    & 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