diff options
| author | Daniel Wagner <daniel@wagner-home.com> | 2010-03-27 20:25:41 +0100 |
|---|---|---|
| committer | Daniel Wagner <daniel@wagner-home.com> | 2010-03-27 20:25:41 +0100 |
| commit | 22531f2914139818e98fc08b14b5a9dfb8c292bb (patch) | |
| tree | ad6599a8e0a111dc80127203ed78b88142515e89 | |
| parent | b4697ad2371e65d3b22768fa09240074c2ced06a (diff) | |
| download | XMonadContrib-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
| -rw-r--r-- | XMonad/Util/EZConfig.hs | 2 |
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 |