From 963a805b2d22bdb750ba28181f578d664f8448c3 Mon Sep 17 00:00:00 2001
From: Eric Mertens <emertens@galois.com>
Date: Wed, 17 Oct 2007 19:43:57 +0200
Subject: Operations.hs: make use of notElem and notMember

darcs-hash:20071017174357-b49f3-ec5a9b13f3b44d0cb85bbda74b48ea0745120293.gz
---
 Operations.hs | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'Operations.hs')

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)
-- 
cgit v1.2.3