From c00dd7b51bc5b3d970c2db63ee85b26e85aef75b Mon Sep 17 00:00:00 2001
From: Adam Vogt <vogt.adam@gmail.com>
Date: Fri, 23 Sep 2011 12:39:07 +0000
Subject: [PATCH] U.EZConfig allow removing more than one mouse binding.

---
 XMonad/Util/EZConfig.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/XMonad/Util/EZConfig.hs b/XMonad/Util/EZConfig.hs
index cecdc909..53f893a5 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 ()) }
 
 
 --------------------------------------------------------------