Operations.hs: make use of notElem and notMember

darcs-hash:20071017174357-b49f3-ec5a9b13f3b44d0cb85bbda74b48ea0745120293

1 files changed, 2 insertions, 2 deletions

diff --git a/Operations.hs b/Operations.hs
index 5f7a2de..9343f06 100644
--- a/Operations.hs
+++ b/Operations.hs
@@ -139,8 +139,8 @@ windows f = do
             l = W.layout (W.workspace w)
             flt = filter (flip M.member (W.floating ws)) (W.index this)
             tiled = (W.stack . W.workspace . W.current $ this)
-                    >>= W.filter (not . flip M.member (W.floating ws))
-                    >>= W.filter (not . (`elem` vis))
+                    >>= W.filter (`M.notMember` W.floating ws)
+                    >>= W.filter (`notElem` vis)
             (SD (Rectangle sx sy sw sh)
                 (gt,gb,gl,gr))          = W.screenDetail w
             viewrect = Rectangle (sx + fromIntegral gl)        (sy + fromIntegral gt)