From 0fb82e56bba406be32553591667016972462b1e0 Mon Sep 17 00:00:00 2001
From: Andrea Rossato <andrea.rossato@unibz.it>
Date: Fri, 28 Sep 2007 13:27:44 +0200
Subject: Operation: coding style conformance

darcs-hash:20070928112744-32816-f7fe0d0141848e1fc8e0cf36574ce89e9c5f7a02
---
 Operations.hs | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

(limited to 'Operations.hs')

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
-- 
cgit v1.2.3