Destroying mounted lights flashes, move equipment datatype

src/Dodge/Block.hs

@@ -4,6 +4,7 @@ import Dodge.Base.Collide
 import Dodge.Material
 import Dodge.Block.Debris
 import Dodge.Zone
+import Dodge.LightSource
 import Dodge.Wall.Zone
 import Dodge.WorldEvent.Sound
 import Dodge.Wall.Delete
@@ -87,7 +88,7 @@ destroyMounts mos w = foldr destroyMount w mos
 
 destroyMount :: MountedObject -> World -> World
 destroyMount mo = case mo of
-    MountedLS lsid -> lightSources . at lsid .~ Nothing
+    MountedLS lsid -> destroyLS lsid
     MountedProp prid -> props . at prid .~ Nothing
 
 stopPushing :: Maybe Int -> World -> World