From 1a23ef975fac557cdacb28824a26307c389230bc Mon Sep 17 00:00:00 2001 From: Peter De Wachter Date: Sat, 30 Jun 2007 09:22:06 +0200 Subject: Magnifier: unbreak: raise focus window darcs-hash:20070630072206-06a25-30138cf10620a3a86b7aa712d668cae222412002.gz --- Magnifier.hs | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/Magnifier.hs b/Magnifier.hs index da18c2e..584d869 100644 --- a/Magnifier.hs +++ b/Magnifier.hs @@ -43,9 +43,9 @@ unlessMaster mainmod r s wrs = if null (up s) then return (wrs, Nothing) else mainmod r s wrs applyMagnifier :: Eq a => ModDo a -applyMagnifier r s wrs = return (map mag wrs, Nothing) - where mag (w,wr) | w == focus s = (w, shrink r $ magnify wr) - | otherwise = (w,wr) +applyMagnifier r s wrs = return (reverse $ foldr mag [] wrs, Nothing) + where mag (w,wr) ws | w == focus s = ws ++ [(w, shrink r $ magnify wr)] + | otherwise = (w,wr) : ws magnify :: Rectangle -> Rectangle magnify (Rectangle x y w h) = Rectangle x' y' w' h' -- cgit v1.2.3