Allow for real time window resize

2021-04-08 13:21:40 +02:00
parent 7969c3f9e8
commit feec924d5d
5 changed files with 25 additions and 8 deletions
@@ -60,8 +60,8 @@ doSideEffects preData w = do
                    . translate (-0.5) (-0.8) . scale 0.0005 0.0005
                    . text $ "ms/frame " ++ show (endTicks - lastFrameTicks)
                )
-    return $ preData & soundData . playingSounds .~ newPlayingSounds
-                     & frameTimer .~ endTicks
+    foldr (=<<) (return (preData & soundData . playingSounds .~ newPlayingSounds
+                    & frameTimer .~ endTicks)) (_doneSideEffects w)

 doPreload' :: Dodge.LoadConfig.Configuration -> IO (PreloadData a)
 doPreload' config = do
@@ -79,7 +79,6 @@ doPreload' config = do
        , _frameTimer   = 0
        }

-
 checkForGlErrors :: IO ()
 checkForGlErrors = do
    errs <- errors