diff options
| author | David Roundy <droundy@darcs.net> | 2007-06-12 19:06:25 +0200 |
|---|---|---|
| committer | David Roundy <droundy@darcs.net> | 2007-06-12 19:06:25 +0200 |
| commit | 85940fa043f84dec04d22c9646519685d5feeace (patch) | |
| tree | 84b91b906a80187f234d03559f983e0db4290348 | |
| parent | 0244bff4b032f2e16b52fa1c745e0119d0dde2d2 (diff) | |
| download | xmonad-85940fa043f84dec04d22c9646519685d5feeace.tar.gz xmonad-85940fa043f84dec04d22c9646519685d5feeace.tar.xz xmonad-85940fa043f84dec04d22c9646519685d5feeace.zip | |
resolve conflict in Operations.
darcs-hash:20070612170625-72aca-5d5ae145d30e5e9e971add6e906f6da30d214834.gz
| -rw-r--r-- | Operations.hs | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/Operations.hs b/Operations.hs index fd85106..0a112b4 100644 --- a/Operations.hs +++ b/Operations.hs @@ -145,7 +145,8 @@ windows f = do this = W.view n ws Just l = fmap fst $ M.lookup n fls flt = filter (flip M.member (W.floating ws)) (W.index this) - tiled = W.filter (not . flip M.member (W.floating ws)) . W.stack . W.workspace . W.current $ this + tiled = (W.stack . W.workspace . W.current $ this) + >>= W.filter (not . flip M.member (W.floating ws)) (Rectangle sx sy sw sh) = genericIndex xinesc (W.screen w) (gt,gb,gl,gr) = genericIndex gaps (W.screen w) viewrect = Rectangle (sx + fromIntegral gl) (sy + fromIntegral gt) |