Allow for concurrent effects

2022-08-16 16:02:09 +01:00
parent 919a179283
commit 26e88f059a
14 changed files with 181 additions and 53 deletions
@@ -63,7 +63,7 @@ import Sound.Data

 {- For most menus the only way to change the world is using event handling.  -}
 updateUniverse :: Universe -> Universe
-updateUniverse u = case _menuLayers u of
+updateUniverse u = (uvConcEffects .~ Nothing) $ case _menuLayers u of
    (WaitScreen s i : _)
        | i < 1 -> u & over uvWorld doWorldEvents
        | otherwise -> u & menuLayers %~ ((WaitScreen s (i -1) :) . tail)