From 8857f01488afe113bcf7fd8b46418eb863cced42 Mon Sep 17 00:00:00 2001
From: Spencer Janssen <sjanssen@cse.unl.edu>
Date: Tue, 14 Aug 2007 19:04:16 +0200
Subject: Use maskEvent rather than nextEvent.  Fixes rare segfaults

darcs-hash:20070814170416-a5988-dd4a3197f2442953ece2075a39b18d3372b313ba.gz
---
 XPrompt.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'XPrompt.hs')

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)
-- 
cgit v1.2.3