neocturne/htanks
Archived
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Use system sleep functions as threadDelay sleep to long without -threaded

Browse source
This commit is contained in:
Matthias Schiffer 2010-04-07 15:07:27 +02:00
parent c0d2d54ea1
commit d6b28723a2
5 changed files with 17 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

2
src/GLX.hs
View file

@ -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)