fix Commands to work with new workspaces.

This commit is contained in:
David Roundy
2007-08-14 00:41:46 +00:00
parent 1902feb3ce
commit 1fbdc5bb75

View File

@@ -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")]
]