summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--Operations.hs7
1 files changed, 3 insertions, 4 deletions
diff --git a/Operations.hs b/Operations.hs
index 4eaf3e2..f1a7eb1 100644
--- a/Operations.hs
+++ b/Operations.hs
@@ -167,11 +167,10 @@ windows f = do
(sx + floor (toRational sw*rx)) (sy + floor (toRational sh*ry))
(floor (toRational sw*rw)) (floor (toRational sh*rh))
- io $ restackWindows d (flt ++
- maybe [] (\s@(W.Stack foc _ _) -> foc : delete foc (W.integrate s)) tiled)
-
+ let vs = flt ++ map fst rs
+ io $ restackWindows d vs
-- return the visible windows for this workspace:
- return (map fst rs ++ flt)
+ return vs
setTopFocus
logHook