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