diff options
| author | David Roundy <droundy@darcs.net> | 2007-08-14 02:41:46 +0200 |
|---|---|---|
| committer | David Roundy <droundy@darcs.net> | 2007-08-14 02:41:46 +0200 |
| commit | 197d10a9464bda62909e94a5aab0ad1599dc6535 (patch) | |
| tree | 084193fbcd3b5e11f90a75b92bd0eeb43cdc7d38 | |
| parent | 4a362ca697eef3e390cf6e2dd1fdcf1133f3cbf3 (diff) | |
| download | XMonadContrib-197d10a9464bda62909e94a5aab0ad1599dc6535.tar.gz XMonadContrib-197d10a9464bda62909e94a5aab0ad1599dc6535.tar.xz XMonadContrib-197d10a9464bda62909e94a5aab0ad1599dc6535.zip | |
fix Commands to work with new workspaces.
darcs-hash:20070814004146-72aca-a65ab13e111736e096243f84eb00f7f84474ac53.gz
| -rw-r--r-- | Commands.hs | 2 |
1 files changed, 1 insertions, 1 deletions
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")] ] |