Reify shockwaves

src/Dodge/Flame.hs

@@ -59,9 +59,7 @@ doDamagesFL fdm (p,thhit) bt = case thhit of
     dams = fdm bt p
 
 {- TODO: add generalised area damage particles/hiteffects.  -}
-moveFlame :: World 
-    -> Flame
-    -> (World, Maybe Flame)
+moveFlame :: World -> Flame -> (World, Maybe Flame)
 moveFlame w pt 
     | time <= 0 = (makeFlamerSmokeAt (addZ 20 ep) w, Nothing)
     | otherwise = case List.safeHead $ thingsHit sp ep w of