diff --git a/src/Main.hs b/src/Main.hs
index 7c082c8..9ba1223 100644
--- a/src/Main.hs
+++ b/src/Main.hs
@@ -13,6 +13,7 @@ import qualified Data.Map.Strict as M
 import qualified Data.Vector as V
 import Data.Word
 import qualified SDL hiding (V2)
+import System.Mem
 import qualified Vulkan as Vk
 import qualified Vulkan.Zero as Vk
 
@@ -46,6 +47,7 @@ main = do
       (liftIO $ STM.atomically $ STM.readTMVar quit
         )
       ( do
+        liftIO performMajorGC
         number <- liftIO $ STM.atomically $ do
           number <- STM.readTMVar frameNumber
           void $ STM.swapTMVar frameNumber (succ number)