Закрытие окна по клику мыши в xmonad

myMouseBindings (XConfig {XMonad.modMask = modMask}) = M.fromList $
    [ ((modMask,                    button3), (\w -> focus w >> kill)) ] 

import qualified Data.Map as M
myMouse x  = [ (modMask, button3), (\w -> focus w >> kill) ]
newMouse x = M.union (mouseBindings defaultConfig x) (M.fromList (myMouse x))