From cd75c27ff2e3b20d3adf8dcc1de9894873314c04 Mon Sep 17 00:00:00 2001
From: Spencer Janssen <sjanssen@cse.unl.edu>
Date: Mon, 21 May 2007 06:21:18 +0200
Subject: Fixes for windowset -> workspace rename

darcs-hash:20070521042118-a5988-a2f979585ee35d3905dbcf6244c22af67489caa6.gz
---
 SwapFocus.hs | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

(limited to 'SwapFocus.hs')

diff --git a/SwapFocus.hs b/SwapFocus.hs
index 339f526..0c715ba 100644
--- a/SwapFocus.hs
+++ b/SwapFocus.hs
@@ -10,7 +10,7 @@ module XMonadContrib.SwapFocus ( swapFocus ) where
 import Control.Monad.State
 
 import Operations ( refresh )
-import XMonad ( X, WindowSet, workspace )
+import XMonad ( X, WindowSet, windowset )
 import StackSet ( StackSet, peekStack, popFocus, pushFocus, current )
 
 sf :: (Integral i, Integral j, Ord a) => StackSet i j a -> Maybe (StackSet i j a)
@@ -24,7 +24,7 @@ swapFocus = smartwindows sf
 
 -- | smartwindows. Modify the current window list with a pure function, and only refresh if necesary
 smartwindows :: (WindowSet -> Maybe WindowSet) -> X ()
-smartwindows f = do w <- gets workspace
-                    case (f w) of Just f' -> do modify $ \s -> s { workspace = f' }
+smartwindows f = do w <- gets windowset
+                    case (f w) of Just f' -> do modify $ \s -> s { windowset = f' }
                                                 refresh
                                   Nothing -> return ()
-- 
cgit v1.2.3