Operations.screenWorkspace: return Nothing when the screen does not exist

This commit is contained in:
Spencer Janssen
2007-07-07 22:38:42 +00:00
parent a48ec57cd9
commit bfd638d818
2 changed files with 4 additions and 4 deletions

View File

@@ -163,7 +163,7 @@ keys = M.fromList $
-- mod-{w,e,r} @@ Switch to physical/Xinerama screens 1, 2, or 3
-- mod-shift-{w,e,r} @@ Move client to screen 1, 2, or 3
++
[((m .|. modMask, key), screenWorkspace sc >>= f)
[((m .|. modMask, key), screenWorkspace sc >>= flip whenJust f)
| (key, sc) <- zip [xK_w, xK_e, xK_r] [0..]
, (f, m) <- [(view, 0), (shift, shiftMask)]]