diff options
| author | Eric Mertens <emertens@galois.com> | 2007-10-17 19:43:57 +0200 |
|---|---|---|
| committer | Eric Mertens <emertens@galois.com> | 2007-10-17 19:43:57 +0200 |
| commit | 963a805b2d22bdb750ba28181f578d664f8448c3 (patch) | |
| tree | a70aba11f6003fbcfb70cdb80fdffec313cb2329 | |
| parent | 676c48167dcaa32eabf94969960fb2166801e7fd (diff) | |
| download | xmonad-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.hs | 4 |
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) |