1 files changed, 1 insertions, 1 deletions
diff --git a/Config.hs b/Config.hs
index 655d654..579a598 100644
--- a/Config.hs
+++ b/Config.hs
@@ -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)]]