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
@@ -71,7 +71,7 @@ saveQuit :: Universe -> IO (Maybe Universe)
 saveQuit u =
    return $
        Just $
-            u & tryConcEffect True "SAVING" (saveQuitConc u)
+            u & addSideEffect (saveQuitConc u) "SAVING"

 saveQuitConc :: Universe -> IO (Universe -> Maybe Universe)
 saveQuitConc u = do