From ca38ba759d3b53fddfb1073db4e1c1fbf4ed493a Mon Sep 17 00:00:00 2001 From: glasser Date: Fri, 1 Jun 2007 02:13:25 +0200 Subject: Rename withWorkspace to withWindowSet. darcs-hash:20070601001325-64353-3ea08019b13ac470d7d2c60cbdea61de7d580c8c.gz --- XMonad.hs | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) (limited to 'XMonad.hs') diff --git a/XMonad.hs b/XMonad.hs index c646b27..9f89f19 100644 --- a/XMonad.hs +++ b/XMonad.hs @@ -18,7 +18,7 @@ module XMonad ( X, WindowSet, WorkspaceId(..), ScreenId(..), XState(..), XConf(..), Layout(..), Typeable, Message, SomeMessage(..), fromMessage, - runX, io, withDisplay, withWorkspace, isRoot, spawn, restart, trace, whenJust, whenX + runX, io, withDisplay, withWindowSet, isRoot, spawn, restart, trace, whenJust, whenX ) where import StackSet (StackSet) @@ -84,9 +84,9 @@ runX c st (X a) = runStateT (runReaderT a c) st >> return () withDisplay :: (Display -> X a) -> X a withDisplay f = asks display >>= f --- | Run a monadic action with the current workspace -withWorkspace :: (WindowSet -> X a) -> X a -withWorkspace f = gets windowset >>= f +-- | Run a monadic action with the current stack set +withWindowSet :: (WindowSet -> X a) -> X a +withWindowSet f = gets windowset >>= f -- | True if the given window is the root window isRoot :: Window -> X Bool -- cgit v1.2.3