diff options
| author | Matthias Schiffer <mschiffer@universe-factory.net> | 2011-07-14 23:47:38 +0200 |
|---|---|---|
| committer | Matthias Schiffer <mschiffer@universe-factory.net> | 2011-07-14 23:47:38 +0200 |
| commit | 7da8a9114eecc750a93087d0ec985641ca2a3165 (patch) | |
| tree | 187b3ceed3ec89754997b38b53cf7d49c4dd884a | |
| parent | 55edb549a5b8d86821e360d2d9e19a889d59b4b9 (diff) | |
| download | phi-7da8a9114eecc750a93087d0ec985641ca2a3165.tar phi-7da8a9114eecc750a93087d0ec985641ca2a3165.zip | |
Only allocate XEvent once
| -rw-r--r-- | lib/Phi/X11.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lib/Phi/X11.hs b/lib/Phi/X11.hs index e5d220b..56293ef 100644 --- a/lib/Phi/X11.hs +++ b/lib/Phi/X11.hs @@ -136,7 +136,7 @@ receiveEvents :: Phi -> Widget.Display -> IO () receiveEvents phi dispvar = do connection <- Widget.withDisplay dispvar $ return . Fd . connectionNumber - forever $ allocaXEvent $ \xevent -> do + allocaXEvent $ \xevent -> forever $ do handled <- Widget.withDisplay dispvar $ \disp -> do pend <- pending disp if pend /= 0 then |