modsMouseBindings :: ([KeyMask], Button, WinFunc) -> [((KeyMask, Button), WinFunc)]
modsMouseBindings (ms, b, f) = map (\m -> ((m, b), f)) $ ms
modsMouseBindings :: ([KeyMask], Button, WinFunc) -> [((KeyMask, Button), WinFunc)]
modsMouseBindings (ms, b, f) = map (\m -> ((m, b), f)) $ ms
modsMouseBindings (ms, b, f) = map (\m -> ((m, b), f)) $ ms