Move flame into its own datatype

src/Dodge/WorldEvent/Explosion.hs

@@ -9,8 +9,7 @@ module Dodge.WorldEvent.Explosion
     ) where
 import Dodge.Data
 import Dodge.LightSource
---import Dodge.Default
---import Dodge.Zone
+import Dodge.Flame
 import Dodge.Base.Collide
 import Dodge.WorldEvent.SpawnParticle
 --import Dodge.WorldEvent.Flash
@@ -58,7 +57,7 @@ makeFlameExplosionAt
     -> World
 makeFlameExplosionAt p w 
     = soundMultiFrom [Explosion 0,Explosion 1] p bangS Nothing w
-    & instantParticles .++~ newFlames
+    & flames .++~ newFlames
   where 
     newFlames = zipWith makeFlameWithVelAndTime velocities timers
     makeFlameWithVelAndTime vel time = aFlameParticle time p vel