Allow for hard quitting

2022-11-01 16:48:55 +00:00
parent d982ac728a
commit 7d358fde29
4 changed files with 17 additions and 11 deletions
@@ -5,6 +5,9 @@ module Loop.Data where

 data ConcurrentEffect world
    = NoConcurrentEffect
+    | ImmediateEffect
+        { _immediateEffect :: IO (Maybe world)
+        }
    | ConcurrentEffect
        { _immediateUpdate :: world
        , _sideEffect :: IO (world -> Maybe world)