diff options
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 |