Fixes for windowset -> workspace rename

This commit is contained in:
Spencer Janssen
2007-05-21 04:21:18 +00:00
parent 325c2b90c5
commit 2b171ea19c
6 changed files with 8 additions and 8 deletions

View File

@@ -18,7 +18,7 @@ import Data.Maybe ( listToMaybe )
import qualified StackSet as W ( stacks, current, visibleWorkspaces, index )
rotView :: Bool -> X ()
rotView b = do ws <- gets workspace
rotView b = do ws <- gets windowset
let m = W.current ws
vis = W.visibleWorkspaces ws
allws = if b then allWorkspaces ws else reverse $ allWorkspaces ws