summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorSpencer Janssen <sjanssen@cse.unl.edu>2007-08-16 23:56:29 +0200
committerSpencer Janssen <sjanssen@cse.unl.edu>2007-08-16 23:56:29 +0200
commitfab070111489e8e239354b3faf708d320a75e971 (patch)
treefe399e62223c8db4d9a2fc0f66b622ed6cb7f133
parent18e57dafd1ff54e9532f5ab94afcb3e647842750 (diff)
downloadmetatile-fab070111489e8e239354b3faf708d320a75e971.tar
metatile-fab070111489e8e239354b3faf708d320a75e971.zip
Fix new bug in screen switching
darcs-hash:20070816215629-a5988-1fd9cbe1ddee7f475096884bf02d906f0bad8757
-rw-r--r--Config.hs3
1 files changed, 2 insertions, 1 deletions
diff --git a/Config.hs b/Config.hs
index 71bddbe..b4500e4 100644
--- a/Config.hs
+++ b/Config.hs
@@ -22,6 +22,7 @@ module Config where
--
import XMonad
import Operations
+import qualified StackSet as W
import Data.Ratio
import Data.Bits ((.|.))
import qualified Data.Map as M
@@ -165,7 +166,7 @@ keys = M.fromList $
++
[((m .|. modMask, key), screenWorkspace sc >>= flip whenJust f)
| (key, sc) <- zip [xK_w, xK_e, xK_r] [0..]
- , (f, m) <- [(view, 0), (shift, shiftMask)]]
+ , (f, m) <- [(windows . W.view, 0), (shift, shiftMask)]]
-- |
-- default actions bound to mouse events