@@ -38,6 +38,7 @@ main = do
3838 postBuild <- getPostBuild
3939 let f n = liftIO $ if n < 3000
4040 then do performMajorGC
41+ threadDelay 1000 -- Wait a bit to allow requestAnimationFrame to call its callback sometimes; this value was experimentally determined
4142 gcStats <- getGCStats
4243 print $ currentBytesUsed gcStats
4344 when (currentBytesUsed gcStats < minBytesAllowed) $ do