Further refactoring

darcs-hash:20070426212257-a5988-dc5cc91918a152728de05a7f6c39d209d81c5b04

1 files changed, 2 insertions, 2 deletions

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