diff options
| -rw-r--r-- | Operations.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/Operations.hs b/Operations.hs index e516381..2a52e2d 100644 --- a/Operations.hs +++ b/Operations.hs @@ -121,7 +121,7 @@ windows f = do d <- asks display -- for each workspace, layout the currently visible workspaces - let allscreens = W.current ws : W.visible ws + let allscreens = W.screens ws summed_visible = scanl (++) [] $ map (W.integrate' . W.stack . W.workspace) allscreens visible <- fmap concat $ forM (zip allscreens summed_visible) $ \ (w, vis) -> do let n = W.tag (W.workspace w) |