From fab070111489e8e239354b3faf708d320a75e971 Mon Sep 17 00:00:00 2001
From: Spencer Janssen <sjanssen@cse.unl.edu>
Date: Thu, 16 Aug 2007 23:56:29 +0200
Subject: Fix new bug in screen switching

darcs-hash:20070816215629-a5988-1fd9cbe1ddee7f475096884bf02d906f0bad8757
---
 Config.hs | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

(limited to 'Config.hs')

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
-- 
cgit v1.2.3