diff options
| author | Adam Vogt <vogt.adam@gmail.com> | 2009-07-05 19:35:04 +0200 |
|---|---|---|
| committer | Adam Vogt <vogt.adam@gmail.com> | 2009-07-05 19:35:04 +0200 |
| commit | a2a6646a61a0cc8c9234a0464245c94ff51ac43f (patch) | |
| tree | fbb20b179055ce04be92b27e36e40f98b2c2f0e0 /XMonad | |
| parent | 44f7d7097d1867d45ff0be4303203814a5ab6ffe (diff) | |
| download | XMonadContrib-a2a6646a61a0cc8c9234a0464245c94ff51ac43f.tar.gz XMonadContrib-a2a6646a61a0cc8c9234a0464245c94ff51ac43f.tar.xz XMonadContrib-a2a6646a61a0cc8c9234a0464245c94ff51ac43f.zip | |
L.SubLayouts fix bug where previously run layouts would not get messages
Ignore-this: 1d54ddb6596173f2fb6f30a648d7f3ba
darcs-hash:20090705173504-1499c-f4c8bb7d90004d127196ecabea567cf4ebe27095.gz
Diffstat (limited to 'XMonad')
| -rw-r--r-- | XMonad/Layout/SubLayouts.hs | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/XMonad/Layout/SubLayouts.hs b/XMonad/Layout/SubLayouts.hs index 6e6c47e..05f5af4 100644 --- a/XMonad/Layout/SubLayouts.hs +++ b/XMonad/Layout/SubLayouts.hs @@ -50,7 +50,7 @@ import Control.Monad(Monad(return), Functor(..), import Data.Function((.), ($), flip, id, on) import Data.List((++), foldr, filter, map, concatMap, elem, notElem, null, nubBy, (\\), find) -import Data.Maybe(Maybe(..), maybe, fromMaybe, listToMaybe, +import Data.Maybe(Maybe(..), isNothing, maybe, fromMaybe, listToMaybe, mapMaybe) import Data.Traversable(sequenceA) @@ -450,8 +450,8 @@ fromGroups' :: (Ord k) => a -> [a] -> Maybe (W.Stack k) -> Groups k -> [a] -> [(Bool,(a, W.Stack k))] fromGroups' defl defls st gs sls = [ (isNew,fromMaybe2 (dl, single w) (l, M.lookup w gs)) - | l <- map Just sls ++ repeat Nothing - | (isNew,dl) <- map ((,) False) defls ++ map ((,) True) (repeat defl) + | l <- map Just sls ++ repeat Nothing, let isNew = isNothing l + | dl <- defls ++ repeat defl | w <- W.integrate' $ W.filter (`notElem` unfocs) =<< st ] where unfocs = unfocused =<< M.elems gs single w = W.Stack w [] [] |