From 8b7697792fdf2124cceb64ae2945098609857346 Mon Sep 17 00:00:00 2001
From: Spencer Janssen <spencerjanssen@gmail.com>
Date: Wed, 16 Dec 2009 02:21:40 +0100
Subject: Determine numlockMask automatically, fixes #120

Ignore-this: d80c82dd0a23dc7a77fdc32fd2792130

darcs-hash:20091216012140-25a6b-1730d8fef04b735b04475d1772e4825fa44cb318
---
 XMonad/Operations.hs | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'XMonad/Operations.hs')

diff --git a/XMonad/Operations.hs b/XMonad/Operations.hs
index 9a71872..d96ff1a 100644
--- a/XMonad/Operations.hs
+++ b/XMonad/Operations.hs
@@ -389,13 +389,13 @@ isClient w = withWindowSet $ return . W.member w
 -- (numlock and capslock)
 extraModifiers :: X [KeyMask]
 extraModifiers = do
-    nlm <- asks (numlockMask . config)
+    nlm <- gets numlockMask
     return [0, nlm, lockMask, nlm .|. lockMask ]
 
 -- | Strip numlock\/capslock from a mask
 cleanMask :: KeyMask -> X KeyMask
 cleanMask km = do
-    nlm <- asks (numlockMask . config)
+    nlm <- gets numlockMask
     return (complement (nlm .|. lockMask) .&. km)
 
 -- | Get the 'Pixel' value for a named color
-- 
cgit v1.2.3