diff options
author | Spencer Janssen <sjanssen@cse.unl.edu> | 2007-04-26 23:14:07 +0200 |
---|---|---|
committer | Spencer Janssen <sjanssen@cse.unl.edu> | 2007-04-26 23:14:07 +0200 |
commit | 4e3124ade00100e108f451be010068746a910c88 (patch) | |
tree | 2058277e7daf902a19a63b54f15c0a7c90222a6a /Config.hs | |
parent | 1af9954e5f74648af0b090103f67fd458ff57c06 (diff) | |
download | xmonad-4e3124ade00100e108f451be010068746a910c88.tar.gz xmonad-4e3124ade00100e108f451be010068746a910c88.tar.xz xmonad-4e3124ade00100e108f451be010068746a910c88.zip |
Refactor in Config.hs (no real changes)
darcs-hash:20070426211407-a5988-e08784e64270523d8dac44d8249c335f029272fd.gz
Diffstat (limited to 'Config.hs')
-rw-r--r-- | Config.hs | 4 |
1 files changed, 2 insertions, 2 deletions
@@ -139,8 +139,8 @@ keys = M.fromList $ ] ++ -- Keybindings to get to each workspace: - [((m .|. modMask, xK_0 + fromIntegral i), f (fromIntegral (pred i))) -- index from 0. - | i <- [1 .. workspaces] + [((m .|. modMask, k), f (fromIntegral (pred i))) -- index from 0. + | (i, k) <- zip [1 .. workspaces] [xK_1 ..] , (f, m) <- [(view, 0), (tag, shiftMask)]] -- Keybindings to each screen : |