Block screen during long loading

src/Dodge/EnergyBall.hs

@@ -1,4 +1,8 @@
-module Dodge.EnergyBall where
+module Dodge.EnergyBall 
+    ( updateEnergyBall
+    , incBallAt
+    , makeFlamelet
+    ) where
 
 import Dodge.DamageCircle
 import Dodge.Data.World
@@ -38,8 +42,8 @@ makeFlamelet (V2 x y) z vel size time w =
   where
     (rot, g) = randomR (0, 3) $ _randGen w
 
-moveEnergyBall :: World -> EnergyBall -> (World, Maybe EnergyBall)
-moveEnergyBall w eb
+updateEnergyBall :: World -> EnergyBall -> (World, Maybe EnergyBall)
+updateEnergyBall w eb
     | _ebTimer eb <= 0 = (w, Nothing)
     | otherwise =
         ( ebFlicker eb $ uncurry (damageCircle 5 (_ebPos eb)) (_ebEff eb) w