Block screen during long loading

src/Dodge/Flame.hs

@@ -1,7 +1,7 @@
 module Dodge.Flame (
     aFlameParticle,
     makeFlame,
-    moveFlame,
+    updateFlame,
 ) where
 
 import Dodge.Data.World
@@ -68,8 +68,8 @@ 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 w pt
+updateFlame :: World -> Flame -> (World, Maybe Flame)
+updateFlame w pt
     | time <= 0 = (makeFlamerSmokeAt (addZ 20 ep) w, Nothing)
     | otherwise = case List.safeHead $ thingsHit sp ep w of
         Just (_, Left _) -> (doSound $ dodamage w, mvPt' 0.7)