diff options
author | Joachim Fasting <joachim.fasting@gmail.com> | 2007-09-19 23:23:59 +0200 |
---|---|---|
committer | Joachim Fasting <joachim.fasting@gmail.com> | 2007-09-19 23:23:59 +0200 |
commit | fba3418e35ef746d63cb73bd24f7d3babf22ccc8 (patch) | |
tree | a462cdb505459f72f0d0417934c44b2cd1d0fa62 | |
parent | 5f7d8e9fcd070f30794f68f5b0b91b9d5ce7a974 (diff) | |
download | XMonadContrib-fba3418e35ef746d63cb73bd24f7d3babf22ccc8.tar.gz XMonadContrib-fba3418e35ef746d63cb73bd24f7d3babf22ccc8.tar.xz XMonadContrib-fba3418e35ef746d63cb73bd24f7d3babf22ccc8.zip |
SinkAll.hs: -Wall police.
darcs-hash:20070919212359-928c4-61e91ef6a0c3bf5c4726b73d99710a3e55f8ecc9.gz
-rw-r--r-- | SinkAll.hs | 5 |
1 files changed, 2 insertions, 3 deletions
@@ -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' |