Add frame clock

2021-09-09 13:29:09 +01:00
parent a2288110ae
commit be7b2d2cd7
27 changed files with 176 additions and 87 deletions
@@ -35,12 +35,8 @@ import System.Random
 --import Data.Bifunctor

 update :: World -> World
-update = functionalUpdate . pushSideEffects
+update = (frameClock +~ 1) . functionalUpdate

-pushSideEffects :: World -> World
-pushSideEffects w = w 
-    & sideEffects .~ []
-    & doneSideEffects .~ _sideEffects w
 {- | 
 The update step.
 For most menus the only way to change the world is using event handling.  -}