From 9f826eef5b1a302c28dbdce0ffb6456b8a36a2ed Mon Sep 17 00:00:00 2001
From: Spencer Janssen <sjanssen@cse.unl.edu>
Date: Sun, 8 Jul 2007 00:38:42 +0200
Subject: Operations.screenWorkspace: return Nothing when the screen does not
 exist

darcs-hash:20070707223842-a5988-7cd70e25326d577a30279c976ae64bce3f70f2df.gz
---
 Config.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'Config.hs')

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)]]
 
-- 
cgit v1.2.3