aboutsummaryrefslogtreecommitdiffstats
path: root/XMonad/Actions/Submap.hs
diff options
context:
space:
mode:
Diffstat (limited to 'XMonad/Actions/Submap.hs')
-rw-r--r--XMonad/Actions/Submap.hs4
1 files changed, 2 insertions, 2 deletions
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