Wine Crashes XMonad

Question

Configurei o xmonad on arch, mas quando inicio um arquivo .exe pelo wine, o xmonad pára de responder (ainda consigo digitar e interagir com o aplicativo, mas não alternar janelas, abrir o dmenu etc.). Eu olhei para o FAQ para xmonad, mas eu não estou usando unclutter e eu acho que eu tenho lidado com o problema de tubos.

aqui está o meu xmonad.hs:

import XMonad
import XMonad.ManageHook
import XMonad.Hooks.ManageDocks
import XMonad.Hooks.ManageHelpers
import XMonad.Hooks.DynamicLog
import XMonad.Hooks.FadeInactive
import XMonad.Hooks.EwmhDesktops
import XMonad.Util.Run
import XMonad.Util.EZConfig
import XMonad.Layout.Monitor
import XMonad.Layout.NoBorders(smartBorders)
import Graphics.X11.ExtraTypes.XF86
import System.IO
import Data.Default

main = xmonad  =<< statusBar "xmobar" barPP toggleStrutsKey myConfig
toggleStrutsKey XConfig {XMonad.modMask = mm} = (mm,xK_b)
barPP = xmobarPP
        { ppOutput = (\_ -> return ())
        , ppTitle = xmobarColor "white" "" . shorten 5
        }
myXmonadBar = "xmobar /home/iam/.xmobarrc"
myTerm = "urxvt"
myWorkspaces =
  [ "1:Main"
  , "2:Alt"
  , "3:Music"
  , "4:Chat"
  , "5:Web"
  , "6:Code"
  ]
myConfig = ewmh def
    { manageHook = (isFullscreen --> doFullFloat) <+> manageDocks <+> manageHook'
    , handleEventHook =  handleEventHook def <+> fullscreenEventHook
    , workspaces = myWorkspaces
    , layoutHook = smartBorders $ avoidStruts $ layoutHook def
    , modMask = mod4Mask
    , terminal = myTerm
    , normalBorderColor = "#1F034E"
    , focusedBorderColor = "#958500"
    } 'additionalKeys'
    [ ((mod4Mask .|. shiftMask, xK_z), spawn "xscreensaver-command -lock")
    , ((0, xF86XK_AudioLowerVolume), spawn "amixer set Master 2%- unmute")
    , ((0, xF86XK_AudioRaiseVolume), spawn "amixer set Master 2%+ unmute")
    , ((0, xF86XK_AudioMute), spawn "amixer set Master toggle")
    ]

manageHook' :: ManageHook
manageHook' = composeAll . concat $
              [ [className =? "Vivaldi-stable" --> doShift "5:Web"]
              --, [className =? c --> doShift "4:Term" | c <- terminals]
              , [className =? "Emacs" --> doShift "6:Code"]
              , [className =? music --> doShift "3:Music" | music <- ["Rhythmbox"]]
              --, [resource =? r --> doIgnore | r <- myIgnores]
              ]
  where
    terminals = [ "urxvt"
                , "gnome-terminal"
                , "terminator"
                , "xterm"
                ]
    myIgnores = [ "desktop"
                , "desktop_window"
                , "trayer"
                ]
    browsers = [ "Vivaldi-stable"
               , "Firefox"
               ]