From 515581cd9a620ef797a85c2bb1b83cf2cf7af362 Mon Sep 17 00:00:00 2001
From: 3gg <3gg@shellblade.net>
Date: Wed, 14 Aug 2024 19:19:36 -0700
Subject: Enable vsync

---
 Spear/Window.hs | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/Spear/Window.hs b/Spear/Window.hs
index 453f67d..20d7acc 100644
--- a/Spear/Window.hs
+++ b/Spear/Window.hs
@@ -127,6 +127,8 @@ setup (w, h) windowTitle = do
 
   GLFW.makeContextCurrent maybeWindow
 
+  GLFW.swapInterval 1 -- Enable vsync.
+
   GLFW.setWindowCloseCallback window . Just $ onWindowClose closeRequest
   GLFW.setWindowSizeCallback  window . Just $ onResize      windowEvents
   GLFW.setKeyCallback         window . Just $ onKey         inputEvents
-- 
cgit v1.2.3