Add text messages on loading screens

2025-12-05 10:29:16 +00:00
parent 14d50c4242
commit 0a34db312f
20 changed files with 409 additions and 318 deletions
@@ -242,7 +242,8 @@ doConLoop' ::
    -- | Current simulation state.
    world ->
    IO ()
-doConLoop' themvar spf window coneffs worldSideEffects eventFn !startWorld = go startWorld
+--doConLoop' themvar spf window coneffs worldSideEffects eventFn !startWorld = go startWorld
+doConLoop' themvar spf window coneffs worldSideEffects eventFn = go
  where
    worldSideEffectsWindow = worldSideEffects window
    go sw = do