diff options
| author | Andrea Rossato <andrea.rossato@unibz.it> | 2007-09-28 13:27:44 +0200 |
|---|---|---|
| committer | Andrea Rossato <andrea.rossato@unibz.it> | 2007-09-28 13:27:44 +0200 |
| commit | 2ff5cd6fd2069ba8fbf8258975de4420a72a25b3 (patch) | |
| tree | dbb0b117b9c8417409ad5ef496bdb56cbd5c0194 /Operations.hs | |
| parent | a9dc618c3f92e2e308e1b7bb5bb6758a0530703b (diff) | |
| download | xmonad-2ff5cd6fd2069ba8fbf8258975de4420a72a25b3.tar.gz xmonad-2ff5cd6fd2069ba8fbf8258975de4420a72a25b3.tar.xz xmonad-2ff5cd6fd2069ba8fbf8258975de4420a72a25b3.zip | |
Operation: coding style conformance
darcs-hash:20070928112744-32816-f7fe0d0141848e1fc8e0cf36574ce89e9c5f7a02.gz
Diffstat (limited to 'Operations.hs')
| -rw-r--r-- | Operations.hs | 6 |
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 |