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

Only allocate XEvent once

Browse source
This commit is contained in:
Matthias Schiffer 2011-07-14 23:47:38 +02:00
parent 55edb549a5
commit 7da8a9114e
1 changed files with 1 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
lib/Phi/X11.hs
View file

@ -136,7 +136,7 @@ receiveEvents :: Phi -> Widget.Display -> IO ()
receiveEvents phi dispvar = do receiveEvents phi dispvar = do
connection <- Widget.withDisplay dispvar $ return . Fd . connectionNumber connection <- Widget.withDisplay dispvar $ return . Fd . connectionNumber
forever $ allocaXEvent $ \xevent -> do allocaXEvent $ \xevent -> forever $ do
handled <- Widget.withDisplay dispvar $ \disp -> do handled <- Widget.withDisplay dispvar $ \disp -> do
pend <- pending disp pend <- pending disp
if pend /= 0 then if pend /= 0 then