aboutsummaryrefslogtreecommitdiffstats
path: root/XMonad/Util
diff options
context:
space:
mode:
authorDaniel Wagner <daniel@wagner-home.com>2010-03-27 20:25:41 +0100
committerDaniel Wagner <daniel@wagner-home.com>2010-03-27 20:25:41 +0100
commit22531f2914139818e98fc08b14b5a9dfb8c292bb (patch)
treead6599a8e0a111dc80127203ed78b88142515e89 /XMonad/Util
parentb4697ad2371e65d3b22768fa09240074c2ced06a (diff)
downloadXMonadContrib-22531f2914139818e98fc08b14b5a9dfb8c292bb.tar.gz
XMonadContrib-22531f2914139818e98fc08b14b5a9dfb8c292bb.tar.xz
XMonadContrib-22531f2914139818e98fc08b14b5a9dfb8c292bb.zip
bugfix: removeKeys should remove all keys in the provided list
Ignore-this: 711c776a19d428a2ab4614ee82641de4 darcs-hash:20100327192541-76d51-86f4fab8c1dca9f10b2d999cc891290fdfcd6927.gz
Diffstat (limited to 'XMonad/Util')
-rw-r--r--XMonad/Util/EZConfig.hs2
1 files changed, 1 insertions, 1 deletions
diff --git a/XMonad/Util/EZConfig.hs b/XMonad/Util/EZConfig.hs
index aa219f8..2d5bda9 100644
--- a/XMonad/Util/EZConfig.hs
+++ b/XMonad/Util/EZConfig.hs
@@ -105,7 +105,7 @@ additionalKeysP conf keyList =
-- > `removeKeys` [(mod1Mask .|. shiftMask, n) | n <- [xK_1 .. xK_9]]
removeKeys :: XConfig a -> [(ButtonMask, KeySym)] -> XConfig a
removeKeys conf keyList =
- conf { keys = \cnf -> keys conf cnf `M.difference` M.fromList (zip keyList $ return ()) }
+ conf { keys = \cnf -> keys conf cnf `M.difference` M.fromList (zip keyList $ repeat ()) }
-- | Like 'removeKeys', except using short @String@ key descriptors
-- like @\"M-m\"@ instead of @(modMask, xK_m)@, as described in the