From 02dd73a4d2e11b5793da90b0d40d4810479e59a1 Mon Sep 17 00:00:00 2001
From: Spencer Janssen <sjanssen@cse.unl.edu>
Date: Fri, 19 Oct 2007 10:37:46 +0200
Subject: Only assign workspace keys up to xK_9.  Related to bug #63

darcs-hash:20071019083746-a5988-2d6cd7089f2e2a013f471dd80f786a0d6395b3d2
---
 Config.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'Config.hs')

diff --git a/Config.hs b/Config.hs
index 57b45cc..ffcaf04 100644
--- a/Config.hs
+++ b/Config.hs
@@ -230,7 +230,7 @@ keys = M.fromList $
     -- mod-[1..9] %! Switch to workspace N
     -- mod-shift-[1..9] %! Move client to workspace N
     [((m .|. modMask, k), windows $ f i)
-        | (i, k) <- zip workspaces [xK_1 ..]
+        | (i, k) <- zip workspaces [xK_1 .. xK_9]
         , (f, m) <- [(W.greedyView, 0), (W.shift, shiftMask)]]
     ++
     -- mod-{w,e,r} %! Switch to physical/Xinerama screens 1, 2, or 3
-- 
cgit v1.2.3