summaryrefslogtreecommitdiffstats
path: root/lib/Phi
diff options
context:
space:
mode:
authorMatthias Schiffer <mschiffer@universe-factory.net>2011-07-14 23:47:38 +0200
committerMatthias Schiffer <mschiffer@universe-factory.net>2011-07-14 23:47:38 +0200
commit7da8a9114eecc750a93087d0ec985641ca2a3165 (patch)
tree187b3ceed3ec89754997b38b53cf7d49c4dd884a /lib/Phi
parent55edb549a5b8d86821e360d2d9e19a889d59b4b9 (diff)
downloadphi-7da8a9114eecc750a93087d0ec985641ca2a3165.tar
phi-7da8a9114eecc750a93087d0ec985641ca2a3165.zip
Only allocate XEvent once
Diffstat (limited to 'lib/Phi')
-rw-r--r--lib/Phi/X11.hs2
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