[XMonad] Fix goToNextScreen

This commit is contained in:
Ivan Malison 2017-04-15 23:30:57 -07:00
parent 1c6c49bf26
commit 0741c10b47
No known key found for this signature in database
GPG Key ID: 62530EFBE99DC2F8

View File

@ -728,7 +728,7 @@ goToNextScreen ws =
nextScreen = getNextScreen ws nextScreen = getNextScreen ws
screenEq a b = W.screen a == W.screen b screenEq a b = W.screen a == W.screen b
trimmedVisible = trimmedVisible =
(filter (screenEq nextScreen) $ W.visible ws) (filter (not . screenEq nextScreen) $ W.visible ws)
goToNextScreenX = windows goToNextScreen goToNextScreenX = windows goToNextScreen