diff options
| author | Spencer Janssen <sjanssen@cse.unl.edu> | 2007-09-17 23:41:13 +0200 |
|---|---|---|
| committer | Spencer Janssen <sjanssen@cse.unl.edu> | 2007-09-17 23:41:13 +0200 |
| commit | faa6fb0e15f0f8378f21b8b1f11934f3ced11a03 (patch) | |
| tree | 9d4ef078b355de14f7d178fef4b4919ba0c8b217 /SinkAll.hs | |
| parent | 1436b9a90835ec2abfee0ff0df8949ea84fc4b98 (diff) | |
| download | XMonadContrib-faa6fb0e15f0f8378f21b8b1f11934f3ced11a03.tar.gz XMonadContrib-faa6fb0e15f0f8378f21b8b1f11934f3ced11a03.tar.xz XMonadContrib-faa6fb0e15f0f8378f21b8b1f11934f3ced11a03.zip | |
Operations.sink is gone
darcs-hash:20070917214113-a5988-99d1e7f13916bcbcb487306d24820053231b11e3.gz
Diffstat (limited to '')
| -rw-r--r-- | SinkAll.hs | 8 |
1 files changed, 4 insertions, 4 deletions
@@ -16,7 +16,7 @@ module XMonadContrib.SinkAll ( import Operations import XMonad -import StackSet hiding (sink) +import StackSet import Control.Monad.State import Graphics.X11.Xlib @@ -32,6 +32,6 @@ sinkAll :: X () sinkAll = withAll sink -- Apply a function to all windows on current workspace. -withAll :: (Window -> X a) -> X () -withAll f = gets (integrate' . stack . workspace . current . windowset) >>= - mapM_ f +withAll :: (Window -> WindowSet -> WindowSet) -> X () +withAll f = windows $ \ws -> let all = integrate' . stack . workspace . current $ ws + in foldr f ws all |