Tabbed and XPrompt updated to lates Extras changes

darcs-hash:20071007163825-32816-8ebe1d13dff1ac21304138a19b6ae883a54f71c7.gz

1 files changed, 2 insertions, 3 deletions

diff --git a/XPrompt.hs b/XPrompt.hs
index f092fa1..f4debb0 100644
--- a/XPrompt.hs
+++ b/XPrompt.hs
@@ -212,13 +212,12 @@ eventLoop action = do
 -- Main event handler
 handle :: KeyStroke -> Event -> XP ()
 handle k@(ks,_) e@(KeyEvent {ev_event_type = t})
-    | t == keyPress && ks == xK_Tab = do
+    | t == keyPress && ks == xK_Tab    = do
   c <- getCompletions
   completionHandle c k e
 handle ks (KeyEvent {ev_event_type = t, ev_state = m}) 
     | t == keyPress = keyPressHandle m ks
-handle _ (AnyEvent {ev_event_type = t, ev_window = w}) 
-    | t == expose = do 
+handle _ (ExposeEvent {ev_window = w}) = do
   st <- get
   when (win st == w) updateWindows
   eventLoop handle