Block screen during long loading

src/Dodge/Spark.hs

@@ -1,5 +1,5 @@
 module Dodge.Spark (
-    moveSpark,
+    updateSpark,
     colSpark,
     colSparkRandDir,
     createBarrelSpark,
@@ -16,8 +16,8 @@ import Geometry
 import LensHelp
 import System.Random
 
-moveSpark :: World -> Spark -> (World, Maybe Spark)
-moveSpark w sk
+updateSpark :: World -> Spark -> (World, Maybe Spark)
+updateSpark w sk
     | magV (_skVel sk) < 1 = (w, Nothing)
     | otherwise = case thingHit sp ep w of
         Nothing -> (w, Just $ sk & skPos .~ ep & skVel .*.*~ 0.9 & skOldPos .~ sp)