From 1fbdc5bb751854f405e6460105b61747db8b7663 Mon Sep 17 00:00:00 2001
From: David Roundy <droundy@darcs.net>
Date: Tue, 14 Aug 2007 00:41:46 +0000
Subject: [PATCH] fix Commands to work with new workspaces.

---
 Commands.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/Commands.hs b/Commands.hs
index 0472a459..f5dd8f0d 100644
--- a/Commands.hs
+++ b/Commands.hs
@@ -59,7 +59,7 @@ commandMap c = M.fromList c
 
 workspaceCommands :: [(String, X ())]
 workspaceCommands = [((m ++ show i), f (fromIntegral i))
-                         | i <- [0 .. workspaces - 1]
+                         | i <- workspaces
                          , (f, m) <- [(view, "view"), (shift, "shift")]
                     ]