From 6d612a5fe90bbddcce9e256ab75e5cbbcd595755 Mon Sep 17 00:00:00 2001
From: Anders Engstrom <ankaan@gmail.com>
Date: Sun, 26 Apr 2009 19:10:02 +0200
Subject: submapDefault fix key leakage

Ignore-this: edb0a2a03b2ed2959cb7068ae601fa28

darcs-hash:20090426171002-8978f-4ceb1e72cf94d546dfad4470079d02625a00b812.gz
---
 XMonad/Actions/Submap.hs | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'XMonad/Actions/Submap.hs')

diff --git a/XMonad/Actions/Submap.hs b/XMonad/Actions/Submap.hs
index 8e26721..469f97d 100644
--- a/XMonad/Actions/Submap.hs
+++ b/XMonad/Actions/Submap.hs
@@ -75,7 +75,7 @@ submapDefault def keys = do
             then nextkey
             else return (m, keysym)
 
-    io $ ungrabKeyboard d currentTime
-
     m' <- cleanMask m
     maybe def id (M.lookup (m', s) keys)
+
+    io $ ungrabKeyboard d currentTime
-- 
cgit v1.2.3