Refactor concurrent side effects

2022-10-30 14:55:30 +00:00
parent 11e873ea48
commit 624a4c3bcd
10 changed files with 56 additions and 47 deletions
@@ -161,7 +161,7 @@ doConLoop themvar spf window coneffs worldSideEffects eventFn !startWorld = go s
                return ()
        let startWorld'' = case mconeff of
                NoConcurrentEffect -> sw
-                ConcurrentEffect immediatef _ -> immediatef sw
+                ConcurrentEffect immediatef _ -> immediatef
        mconupdate <- tryTakeMVar themvar
        let mstartWorld' = case mconupdate of
                Just conupdate -> conupdate startWorld''