From ff1918ad2031946e2ceff1089ab39407523da44d Mon Sep 17 00:00:00 2001
From: Aaron Denney <wnoise@ofb.net>
Date: Sat, 29 Sep 2007 22:47:55 +0000
Subject: [PATCH] On change of keyboard mapping, grabKeys from the root window.

---
 Main.hs | 6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

diff --git a/Main.hs b/Main.hs
index 326955a..39e5dcd 100644
--- a/Main.hs
+++ b/Main.hs
@@ -178,9 +178,11 @@ handle (UnmapEvent {ev_window = w, ev_send_event = synthetic}) = whenX (isClient
         else modify (\s -> s { waitingUnmap = M.adjust pred w (waitingUnmap s) })
 
 -- set keyboard mapping
-handle e@(MappingNotifyEvent {ev_window = w}) = do
+handle e@(MappingNotifyEvent {}) = do
     io $ refreshKeyboardMapping e
-    when (ev_request e == mappingKeyboard) $ withDisplay $ io . flip grabKeys w
+    when (ev_request e == mappingKeyboard) $ withDisplay $ \dpy -> do
+        rootw <- asks theRoot
+        io $ grabKeys dpy rootw
 
 -- handle button release, which may finish dragging.
 handle e@(ButtonEvent {ev_event_type = t})