summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorSpencer Janssen <sjanssen@cse.unl.edu>2007-08-15 05:15:21 +0200
committerSpencer Janssen <sjanssen@cse.unl.edu>2007-08-15 05:15:21 +0200
commit43ce1fc018fbd3017c8fd0faadcbd8a63779b781 (patch)
treed2482445a93266bcdedd2d0d2fa78122f628639c
parent74be11b60da8ad9373d26fb2a669ba3c4852b6a7 (diff)
downloadmetatile-43ce1fc018fbd3017c8fd0faadcbd8a63779b781.tar
metatile-43ce1fc018fbd3017c8fd0faadcbd8a63779b781.zip
Operations.windows: minor refactor
darcs-hash:20070815031521-a5988-e94826af7bfcc133c7fe99718310e817975ef759
-rw-r--r--Operations.hs5
1 files changed, 2 insertions, 3 deletions
diff --git a/Operations.hs b/Operations.hs
index 3e2a561..ca91dcb 100644
--- a/Operations.hs
+++ b/Operations.hs
@@ -141,9 +141,8 @@ windows f = do
d <- asks display
-- for each workspace, layout the currently visible workspaces
- let allscreens = W.current ws : W.visible ws
- each_visible = map (W.integrate' . W.stack . W.workspace) allscreens
- summed_visible = reverse $ foldl (\ (x:xs) y -> ((x++y):x:xs)) [[]] each_visible
+ let allscreens = W.current ws : W.visible 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)
this = W.view n ws