Broken: refactor terminals

src/Dodge/Machine/Destroy.hs

@@ -1,4 +1,6 @@
 module Dodge.Machine.Destroy where
+import Dodge.WorldEffect
+import Dodge.Terminal
 import Dodge.Wall.Delete
 import Dodge.Data
 import Dodge.WorldEvent.Explosion
@@ -19,7 +21,7 @@ mcKillTerm mc w = fromMaybe w $ do
     tmid <- mc ^? mcMounts . ix ObTerminal
     tm <- w ^? terminals . ix tmid 
     return $ w 
-        & _tmDeathEffect tm tm
+        & doTmWdWd (_tmDeathEffect tm) tm
 
 mcKillBut :: Machine -> World -> World
 mcKillBut mc w = fromMaybe w $ do