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
@@ -70,8 +70,6 @@ pauseMenuOptions =
 saveQuit :: Universe -> Universe
 saveQuit u = u & addSideEffect (saveQuitConc u) "SAVING"

-hardQuit :: Universe -> Universe
-hardQuit = addSideEffect (return $ const Nothing) "QUITTING"

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