Match 'Remove Operations functions which have StackSet equivalents' from the core

darcs-hash:20070917213329-a5988-b9cc2ae3e1c8740eecb9300a4b92a2dcd9c81aa1.gz

1 files changed, 3 insertions, 4 deletions

diff --git a/DynamicWorkspaces.hs b/DynamicWorkspaces.hs
index 8decab1..6cb5ba3 100644
--- a/DynamicWorkspaces.hs
+++ b/DynamicWorkspaces.hs
@@ -22,9 +22,8 @@ module XMonadContrib.DynamicWorkspaces (
 import Control.Monad.State ( gets, modify )
 
 import XMonad ( X, XState(..), Layout, WorkspaceId, trace )
-import Operations ( windows, view )
-import StackSet ( tagMember, StackSet(..), Screen(..), Workspace(..),
-                  integrate, differentiate )
+import Operations
+import StackSet hiding (filter, modify, delete)
 import Data.Map ( delete, insert )
 import Graphics.X11.Xlib ( Window )
 
@@ -51,7 +50,7 @@ removeWorkspace = do s <- gets windowset
                      case s of
                        StackSet { current = Screen { workspace = torem }
                                 , hidden = (w:_) }
-                           -> do view $ tag w
+                           -> do windows $ view (tag w)
                                  modify $ \st -> st { layouts = delete (tag torem) $ layouts st }
                                  windows (removeWorkspace' (tag torem))
                        _ -> return ()