From a32da62b52b6f0e4039ae4226e3e2867880ca05c Mon Sep 17 00:00:00 2001
From: Joshua Rahm <joshua.rahm@colorado.edu>
Date: Sun, 27 Apr 2014 20:39:00 -0600
Subject: hacky first person stuff

---
 Graphics/SDL/SDLHelp.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'Graphics/SDL')

diff --git a/Graphics/SDL/SDLHelp.hs b/Graphics/SDL/SDLHelp.hs
index 75806b2..06761fd 100644
--- a/Graphics/SDL/SDLHelp.hs
+++ b/Graphics/SDL/SDLHelp.hs
@@ -132,7 +132,7 @@ startPipeline reshapeH eventH displayH updateH ini = do
             _ -> eventH ev res >>= pumpEvents'
     let runPipeline val = do
             res <- pumpEvents' val >>= displayH
-            SDL.glSwapBuffers `seq` (updateH res) >>= runPipeline
+            updateH res >>= runPipeline
 
     -- TODO unhardcode this
     reshapeH 640 480 ini >>= runPipeline
-- 
cgit