Fix new bug in screen switching

darcs-hash:20070816215629-a5988-1fd9cbe1ddee7f475096884bf02d906f0bad8757

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