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
@@ -17,7 +17,7 @@ startNewGameInSlot slot u = startSeedGame slot i u
    i = fst $ randomR (0, maxBound) (_randGen (_uvWorld u))

 startSeedGame :: Int -> Int -> Universe -> Universe
-startSeedGame _ i = tryConcEffect True "GENERATING" (startSeedGameConc i)
+startSeedGame _ i = addSideEffect (startSeedGameConc i) "GENERATING"

 startSeedGameConc :: Int -> IO (Universe -> Maybe Universe)
 startSeedGameConc seed = do