diff options
author | Spencer Janssen <sjanssen@cse.unl.edu> | 2007-05-21 06:21:18 +0200 |
---|---|---|
committer | Spencer Janssen <sjanssen@cse.unl.edu> | 2007-05-21 06:21:18 +0200 |
commit | cd75c27ff2e3b20d3adf8dcc1de9894873314c04 (patch) | |
tree | f64c9d3105a391f1c654e635b22af1e2a9e10f21 /SwapFocus.hs | |
parent | ce00db454082a51ec95c817e97757e2e56f4ef8e (diff) | |
download | XMonadContrib-cd75c27ff2e3b20d3adf8dcc1de9894873314c04.tar.gz XMonadContrib-cd75c27ff2e3b20d3adf8dcc1de9894873314c04.tar.xz XMonadContrib-cd75c27ff2e3b20d3adf8dcc1de9894873314c04.zip |
Fixes for windowset -> workspace rename
darcs-hash:20070521042118-a5988-a2f979585ee35d3905dbcf6244c22af67489caa6.gz
Diffstat (limited to 'SwapFocus.hs')
-rw-r--r-- | SwapFocus.hs | 6 |
1 files changed, 3 insertions, 3 deletions
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 () |