From faa6fb0e15f0f8378f21b8b1f11934f3ced11a03 Mon Sep 17 00:00:00 2001
From: Spencer Janssen <sjanssen@cse.unl.edu>
Date: Mon, 17 Sep 2007 23:41:13 +0200
Subject: Operations.sink is gone

darcs-hash:20070917214113-a5988-99d1e7f13916bcbcb487306d24820053231b11e3.gz
---
 SinkAll.hs | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

(limited to 'SinkAll.hs')

diff --git a/SinkAll.hs b/SinkAll.hs
index b6caa1d..5531e2d 100644
--- a/SinkAll.hs
+++ b/SinkAll.hs
@@ -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
-- 
cgit v1.2.3