U.EZConfig allow removing more than one mouse binding.

This commit is contained in:
Adam Vogt 2011-09-23 12:39:07 +00:00
parent 41d23c1749
commit c00dd7b51b

View File

@ -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 ()) }
--------------------------------------------------------------