From 9aa3dda0e33560ca4fb4a93ce1d7b3a1c49d6357 Mon Sep 17 00:00:00 2001
From: Spencer Janssen <sjanssen@cse.unl.edu>
Date: Thu, 26 Apr 2007 23:14:07 +0200
Subject: Refactor in Config.hs (no real changes)

darcs-hash:20070426211407-a5988-e08784e64270523d8dac44d8249c335f029272fd
---
 Config.hs | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/Config.hs b/Config.hs
index 4e905f4..2adc0d7 100644
--- a/Config.hs
+++ b/Config.hs
@@ -139,8 +139,8 @@ keys = M.fromList $
 
     ] ++
     -- Keybindings to get to each workspace:
-    [((m .|. modMask, xK_0 + fromIntegral i), f (fromIntegral (pred i))) -- index from 0.
-        | i <- [1 .. workspaces]
+    [((m .|. modMask, k), f (fromIntegral (pred i))) -- index from 0.
+        | (i, k) <- zip [1 .. workspaces] [xK_1 ..]
         , (f, m) <- [(view, 0), (tag, shiftMask)]]
 
     -- Keybindings to each screen :
-- 
cgit v1.2.3