Fix bug in flame wall damages, cleanup

src/Dodge/WorldEvent/Explosion.hs

@@ -12,7 +12,6 @@ import Control.Monad
 import Data.List
 import Dodge.Data.World
 import Dodge.EnergyBall
-import Dodge.Flame
 import Dodge.SoundLogic
 import Dodge.WorldEvent.Shockwave
 import Dodge.WorldEvent.SpawnParticle
@@ -62,7 +61,7 @@ makeFlameExplosionAt p w =
         & cWorld . lWorld . flames .++~ newFlames
   where
     newFlames = zipWith makeFlameWithVelAndTime velocities timers
-    makeFlameWithVelAndTime vel time = aFlameParticle time p vel
+    makeFlameWithVelAndTime vel time = Flame time vel p
     velocities = replicateM 15 (randInCirc 1) & evalState $ _randGen w
     timers = randomRs (80, 100) $ _randGen w