aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorEric Mertens <emertens@galois.com>2007-10-17 19:43:57 +0200
committerEric Mertens <emertens@galois.com>2007-10-17 19:43:57 +0200
commit963a805b2d22bdb750ba28181f578d664f8448c3 (patch)
treea70aba11f6003fbcfb70cdb80fdffec313cb2329
parent676c48167dcaa32eabf94969960fb2166801e7fd (diff)
downloadxmonad-963a805b2d22bdb750ba28181f578d664f8448c3.tar.gz
xmonad-963a805b2d22bdb750ba28181f578d664f8448c3.tar.xz
xmonad-963a805b2d22bdb750ba28181f578d664f8448c3.zip
Operations.hs: make use of notElem and notMember
darcs-hash:20071017174357-b49f3-ec5a9b13f3b44d0cb85bbda74b48ea0745120293.gz
-rw-r--r--Operations.hs4
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)