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 | 9aa3dda0e33560ca4fb4a93ce1d7b3a1c49d6357 (patch) | |
| tree | 2058277e7daf902a19a63b54f15c0a7c90222a6a /Config.hs | |
| parent | f322b4ad412d9702327649e0d0b6802985238cfb (diff) | |
| download | metatile-9aa3dda0e33560ca4fb4a93ce1d7b3a1c49d6357.tar metatile-9aa3dda0e33560ca4fb4a93ce1d7b3a1c49d6357.zip | |
Refactor in Config.hs (no real changes)
darcs-hash:20070426211407-a5988-e08784e64270523d8dac44d8249c335f029272fd
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 : |