From a6212291c0b54907b98e8f9b3e535aa14062fd3a Mon Sep 17 00:00:00 2001
From: David Roundy <droundy@darcs.net>
Date: Mon, 27 Aug 2007 20:58:58 +0200
Subject: fix bug leading to early exit in XPrompt.

darcs-hash:20070827185858-72aca-b770e1c7723cd4c879200243ef8300f8e5ca85cb.gz
---
 XPrompt.hs | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

(limited to 'XPrompt.hs')

diff --git a/XPrompt.hs b/XPrompt.hs
index 5341cbb..ecd0022 100644
--- a/XPrompt.hs
+++ b/XPrompt.hs
@@ -220,7 +220,8 @@ handle ks (KeyEvent {ev_event_type = t, ev_state = m})
 handle _ (AnyEvent {ev_event_type = t, ev_window = w}) 
     | t == expose = do 
   st <- get
-  when (win st == w) $ updateWindows >> eventLoop handle                 
+  when (win st == w) updateWindows
+  eventLoop handle
 handle _  _ = eventLoop handle
 
 -- completion event handler
-- 
cgit v1.2.3