From ad71439ad03d4df3225be98bac74c3444953029e Mon Sep 17 00:00:00 2001
From: Daniel Schoepe <daniel.schoepe@gmail.com>
Date: Mon, 12 Oct 2009 15:28:14 +0200
Subject: Filter extra modifier bits some layouts set in XMonad.Prompt

Ignore-this: c0898809766061700c11f6da84c74bed

darcs-hash:20091012132814-7f603-d02f321d42581906738c70da50b2acb9c04b1cad.gz
---
 XMonad/Prompt.hs | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

(limited to 'XMonad')

diff --git a/XMonad/Prompt.hs b/XMonad/Prompt.hs
index 5edfcad..6abb4d0 100644
--- a/XMonad/Prompt.hs
+++ b/XMonad/Prompt.hs
@@ -75,7 +75,7 @@ import Control.Monad.Reader
 import Control.Monad.State
 import Control.Applicative ((<$>))
 import Data.Char
-import Data.Bits ((.&.),complement)
+import Data.Bits
 import Data.Maybe
 import Data.List
 import Data.Set (fromList, toList)
@@ -335,7 +335,8 @@ eventLoop action = do
 cleanMask :: KeyMask -> XP KeyMask
 cleanMask msk = do
   numlock <- gets numlockMask
-  return (complement (numlock .|. lockMask) .&. msk)
+  let highMasks = 1 `shiftL` 12 - 1
+  return (complement (numlock .|. lockMask) .&. msk .&. highMasks)
 
 -- Main event handler
 handle :: KeyStroke -> Event -> XP ()
-- 
cgit v1.2.3