From fba3418e35ef746d63cb73bd24f7d3babf22ccc8 Mon Sep 17 00:00:00 2001
From: Joachim Fasting <joachim.fasting@gmail.com>
Date: Wed, 19 Sep 2007 23:23:59 +0200
Subject: SinkAll.hs: -Wall police.

darcs-hash:20070919212359-928c4-61e91ef6a0c3bf5c4726b73d99710a3e55f8ecc9.gz
---
 SinkAll.hs | 5 ++---
 1 file changed, 2 insertions(+), 3 deletions(-)

(limited to 'SinkAll.hs')

diff --git a/SinkAll.hs b/SinkAll.hs
index 5531e2d..04794cc 100644
--- a/SinkAll.hs
+++ b/SinkAll.hs
@@ -18,7 +18,6 @@ import Operations
 import XMonad
 import StackSet
 
-import Control.Monad.State
 import Graphics.X11.Xlib
 
 -- $usage
@@ -33,5 +32,5 @@ sinkAll = withAll sink
 
 -- Apply a function to all windows on current workspace.
 withAll :: (Window -> WindowSet -> WindowSet) -> X ()
-withAll f = windows $ \ws -> let all = integrate' . stack . workspace . current $ ws
-                             in foldr f ws all
+withAll f = windows $ \ws -> let all' = integrate' . stack . workspace . current $ ws
+                             in foldr f ws all'
-- 
cgit v1.2.3