Use maskEvent rather than nextEvent. Fixes rare segfaults

darcs-hash:20070814170416-a5988-dd4a3197f2442953ece2075a39b18d3372b313ba.gz

1 files changed, 1 insertions, 1 deletions

diff --git a/XPrompt.hs b/XPrompt.hs
index 1ab75ec..165697f 100644
--- a/XPrompt.hs
+++ b/XPrompt.hs
@@ -166,7 +166,7 @@ eventLoop action = do
   d <- gets dpy
   (keysym,string,event) <- io $ 
             allocaXEvent $ \e -> do 
-              nextEvent d e
+              maskEvent d keyPressMask e
               ev <- getEvent e
               (ks,s) <- lookupString $ asKeyEvent e
               return (ks,s,ev)