diff options
| -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 |