diff options
author | glasser <glasser@mit.edu> | 2007-06-01 02:13:25 +0200 |
---|---|---|
committer | glasser <glasser@mit.edu> | 2007-06-01 02:13:25 +0200 |
commit | ca38ba759d3b53fddfb1073db4e1c1fbf4ed493a (patch) | |
tree | 4e5a2db52a1321a21cba06ebd5eb1bd22a1d4acd /XMonad.hs | |
parent | 2c5abb6201197e176a873c1601d8ba6c3b791601 (diff) | |
download | xmonad-ca38ba759d3b53fddfb1073db4e1c1fbf4ed493a.tar.gz xmonad-ca38ba759d3b53fddfb1073db4e1c1fbf4ed493a.tar.xz xmonad-ca38ba759d3b53fddfb1073db4e1c1fbf4ed493a.zip |
Rename withWorkspace to withWindowSet.
darcs-hash:20070601001325-64353-3ea08019b13ac470d7d2c60cbdea61de7d580c8c.gz
Diffstat (limited to '')
-rw-r--r-- | XMonad.hs | 8 |
1 files changed, 4 insertions, 4 deletions
@@ -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 |