From 22531f2914139818e98fc08b14b5a9dfb8c292bb Mon Sep 17 00:00:00 2001
From: Daniel Wagner <daniel@wagner-home.com>
Date: Sat, 27 Mar 2010 20:25:41 +0100
Subject: bugfix: removeKeys should remove all keys in the provided list

Ignore-this: 711c776a19d428a2ab4614ee82641de4

darcs-hash:20100327192541-76d51-86f4fab8c1dca9f10b2d999cc891290fdfcd6927.gz
---
 XMonad/Util/EZConfig.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'XMonad')

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
-- 
cgit v1.2.3