diff options
| author | Stefan O'Rear <stefanor@cox.net> | 2007-06-12 08:05:46 +0200 |
|---|---|---|
| committer | Stefan O'Rear <stefanor@cox.net> | 2007-06-12 08:05:46 +0200 |
| commit | b2bff118ceb2eaf58257f514af1514934aed9c48 (patch) | |
| tree | 821ad8f1e13843a65ddd826da8a494acaaa387df | |
| parent | 57747bd16d223ac7c942439787ccbc35ca3aad78 (diff) | |
| download | xmonad-b2bff118ceb2eaf58257f514af1514934aed9c48.tar.gz xmonad-b2bff118ceb2eaf58257f514af1514934aed9c48.tar.xz xmonad-b2bff118ceb2eaf58257f514af1514934aed9c48.zip | |
-Wall police
darcs-hash:20070612060546-e3110-2fd1f5c7dbcadaa4791b60158d261f2c7a10995b.gz
Diffstat (limited to '')
| -rw-r--r-- | Operations.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/Operations.hs b/Operations.hs index b0819f6..cc274ce 100644 --- a/Operations.hs +++ b/Operations.hs @@ -143,7 +143,7 @@ windows f = do visible <- fmap concat $ forM (W.current ws : W.visible ws) $ \w -> do let n = W.tag (W.workspace w) this = W.view n ws - Just (l,ls) = M.lookup n fls + 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 (Rectangle sx sy sw sh) = genericIndex xinesc (W.screen w) |