diff options
| author | David Roundy <droundy@darcs.net> | 2007-10-17 01:12:18 +0200 |
|---|---|---|
| committer | David Roundy <droundy@darcs.net> | 2007-10-17 01:12:18 +0200 |
| commit | 1ef20612dbe4146b36a360740cd3751cfab6ddb8 (patch) | |
| tree | 87ce7d8ada30081587c1971061b1fb608043c4d0 /DynamicWorkspaces.hs | |
| parent | c6a85d16114d218fad10f6e611ddd30d701ec67c (diff) | |
| download | XMonadContrib-1ef20612dbe4146b36a360740cd3751cfab6ddb8.tar.gz XMonadContrib-1ef20612dbe4146b36a360740cd3751cfab6ddb8.tar.xz XMonadContrib-1ef20612dbe4146b36a360740cd3751cfab6ddb8.zip | |
code cleanup in selectWorkspace.
darcs-hash:20071016231218-72aca-0da806169b43d3b2dfebae4f83b556dadc0fdb74.gz
Diffstat (limited to '')
| -rw-r--r-- | DynamicWorkspaces.hs | 7 |
1 files changed, 3 insertions, 4 deletions
diff --git a/DynamicWorkspaces.hs b/DynamicWorkspaces.hs index 81c9686..ad003f4 100644 --- a/DynamicWorkspaces.hs +++ b/DynamicWorkspaces.hs @@ -63,10 +63,9 @@ withNthWorkspace job wnum = do ws <- gets (sort . map tag . workspaces . windows selectWorkspace :: XPConfig -> Layout Window -> X () selectWorkspace conf l = workspacePrompt conf $ \w -> - do s <- gets windowset - if tagMember w s - then windows $ greedyView w - else windows $ addWorkspace' w l + windows $ \s -> if tagMember w s + then greedyView w s + else addWorkspace' w l s addWorkspace :: Layout Window -> X () addWorkspace l = do s <- gets windowset |