summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorAndrea Rossato <andrea.rossato@unibz.it>2007-09-28 13:27:44 +0200
committerAndrea Rossato <andrea.rossato@unibz.it>2007-09-28 13:27:44 +0200
commit0fb82e56bba406be32553591667016972462b1e0 (patch)
treedbb0b117b9c8417409ad5ef496bdb56cbd5c0194
parent9072c23b699f588da3e08d9beeb0edaedea5d0d2 (diff)
downloadmetatile-0fb82e56bba406be32553591667016972462b1e0.tar
metatile-0fb82e56bba406be32553591667016972462b1e0.zip
Operation: coding style conformance
darcs-hash:20070928112744-32816-f7fe0d0141848e1fc8e0cf36574ce89e9c5f7a02
-rw-r--r--Operations.hs6
1 files changed, 3 insertions, 3 deletions
diff --git a/Operations.hs b/Operations.hs
index 1939ed2..200600c 100644
--- a/Operations.hs
+++ b/Operations.hs
@@ -122,9 +122,9 @@ windows f = do
d <- asks display
-- notify non visibility
- let oldvistags = map (W.tag . W.workspace) $ W.current old : W.visible old
- gottenHidden = filter (\w -> elem w oldvistags) $ map W.tag $ W.hidden ws
- sendMessageToWorkspaces Hide gottenHidden
+ let tags_oldvisible = map (W.tag . W.workspace) $ W.current old : W.visible old
+ gottenhidden = filter (`elem` tags_oldvisible) $ map W.tag $ W.hidden ws
+ sendMessageToWorkspaces Hide gottenhidden
-- for each workspace, layout the currently visible workspaces
let allscreens = W.screens ws