From 83cd37211c4949ff8403f3eecff2a87facc3e834 Mon Sep 17 00:00:00 2001
From: Adam Vogt <vogt.adam@gmail.com>
Date: Fri, 23 Sep 2011 14:39:07 +0200
Subject: U.EZConfig allow removing more than one mouse binding.

Ignore-this: 6f32ef805566f03977ea5c0fe0ace958

darcs-hash:20110923123907-1499c-0ad09e11f53a5d3d55aa95462f84bea5943fe2b1.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 cecdc90..53f893a 100644
--- a/XMonad/Util/EZConfig.hs
+++ b/XMonad/Util/EZConfig.hs
@@ -127,7 +127,7 @@ additionalMouseBindings conf mouseBindingsList =
 removeMouseBindings :: XConfig a -> [(ButtonMask, Button)] -> XConfig a
 removeMouseBindings conf mouseBindingList =
     conf { mouseBindings = \cnf -> mouseBindings conf cnf `M.difference`
-                                   M.fromList (zip mouseBindingList $ return ()) }
+                                   M.fromList (zip mouseBindingList $ repeat ()) }
 
 
 --------------------------------------------------------------
-- 
cgit v1.2.3