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
@@ -6,6 +6,6 @@ module Loop.Data where
 data ConcurrentEffect world
    = NoConcurrentEffect
    | ConcurrentEffect
-        { _immediateEffect :: world -> world
+        { _immediateUpdate :: world
        , _sideEffect :: IO (world -> Maybe world)
        }