diff options
author | Matthias Schiffer <matthias@gamezock.de> | 2010-04-07 15:07:27 +0200 |
---|---|---|
committer | Matthias Schiffer <matthias@gamezock.de> | 2010-04-07 15:07:27 +0200 |
commit | d6b28723a26151d8ac6cb195d4e2135b05fdac5a (patch) | |
tree | 3b70252d6384a1a4434364095c3b600118872307 /src/GLX.hs | |
parent | c0d2d54ea1687a80ff76fa032ad4dc89670d2988 (diff) | |
download | htanks-d6b28723a26151d8ac6cb195d4e2135b05fdac5a.tar htanks-d6b28723a26151d8ac6cb195d4e2135b05fdac5a.zip |
Use system sleep functions as threadDelay sleep to long without -threaded
Diffstat (limited to 'src/GLX.hs')
-rw-r--r-- | src/GLX.hs | 2 |
1 files changed, 2 insertions, 0 deletions
@@ -105,6 +105,8 @@ instance Driver GLX where swapBuffers glx = Bindings.GLX.swapBuffers (glxDisplay glx) (glxWindow glx) nextEvent glx = allocaXEvent $ nextEvent' glx + + usleep _ usecs = glxUsleep $ fromIntegral usecs nextEvent' :: GLX -> XEventPtr -> IO (GLX, Maybe SomeEvent) |