diff options
| author | Joshua Rahm <joshua.rahm@colorado.edu> | 2014-04-27 20:39:00 -0600 |
|---|---|---|
| committer | Joshua Rahm <joshua.rahm@colorado.edu> | 2014-04-27 20:39:00 -0600 |
| commit | a32da62b52b6f0e4039ae4226e3e2867880ca05c (patch) | |
| tree | 1fc4033fd7202ad7191ab2ea26c48aec3a23580d /Graphics/SDL/SDLHelp.hs | |
| parent | 7dd8c59353167e84dab9e7a1afc16e2290b249e3 (diff) | |
| download | terralloc-a32da62b52b6f0e4039ae4226e3e2867880ca05c.tar.gz terralloc-a32da62b52b6f0e4039ae4226e3e2867880ca05c.tar.bz2 terralloc-a32da62b52b6f0e4039ae4226e3e2867880ca05c.zip | |
hacky first person stuff
Diffstat (limited to 'Graphics/SDL/SDLHelp.hs')
| -rw-r--r-- | Graphics/SDL/SDLHelp.hs | 2 |
1 files changed, 1 insertions, 1 deletions
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 |