Simplify the main loop, events only perform functional update

2022-11-01 11:05:51 +00:00
parent 82c4b992b0
commit d982ac728a
14 changed files with 232 additions and 150 deletions
@@ -25,6 +25,9 @@ conEffects u = case u ^? uvSideEffects . _head of
 addSideEffect :: IO (Universe -> Maybe Universe) -> String -> Universe -> Universe
 addSideEffect f s = uvSideEffects %~ (|> NewSideEffect f s)

+hardQuit :: Universe -> Universe
+hardQuit = addSideEffect (return $ const Nothing) "QUITTING"
+
 --tryConcEffect :: Bool -> String -> IO (Universe -> Maybe Universe) -> Universe -> Universe
 --tryConcEffect bl str eff u = case u ^. uvConcEffects of
 --    NoConcEffect -> u & uvConcEffects .~ NewConcEffect (ConcurrentEffect setstr (clearConcEff eff)) str bl