Fix no damage to walls bug

src/Dodge/Machine/Destroy.hs

@@ -1,5 +1,6 @@
 module Dodge.Machine.Destroy where
 
+import Dodge.FloorItem
 import Data.Maybe
 import Dodge.Data.World
 import Dodge.Wall.Delete
@@ -15,6 +16,12 @@ destroyMachine mc =
         . makeExplosionAt (_mcPos mc)
         . mcKillTerm mc
         . mcKillBut mc
+        . destroyMcType (mc ^. mcType) mc
+
+destroyMcType :: MachineType -> Machine -> World -> World
+destroyMcType mt mc = case mt of
+    McTurret tu -> copyItemToFloor (_mcPos mc) (_tuWeapon tu)
+    _ -> id
 
 mcKillTerm :: Machine -> World -> World
 mcKillTerm mc w = fromMaybe w $ do