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
@@ -41,7 +41,7 @@ main = do
        sizey = floor $ _windowY con
        posx = _windowPosX con
        posy = _windowPosY con
-    setupConLoop
+    setupConLoop'
        20
        (T.pack "Simple Game Loop")
        (winConfig sizex sizey (Just (posx, posy)))