From 197d10a9464bda62909e94a5aab0ad1599dc6535 Mon Sep 17 00:00:00 2001
From: David Roundy <droundy@darcs.net>
Date: Tue, 14 Aug 2007 02:41:46 +0200
Subject: fix Commands to work with new workspaces.

darcs-hash:20070814004146-72aca-a65ab13e111736e096243f84eb00f7f84474ac53.gz
---
 Commands.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'Commands.hs')

diff --git a/Commands.hs b/Commands.hs
index 0472a45..f5dd8f0 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")]
                     ]
 
-- 
cgit v1.2.3