From 1ef20612dbe4146b36a360740cd3751cfab6ddb8 Mon Sep 17 00:00:00 2001 From: David Roundy Date: Wed, 17 Oct 2007 01:12:18 +0200 Subject: code cleanup in selectWorkspace. darcs-hash:20071016231218-72aca-0da806169b43d3b2dfebae4f83b556dadc0fdb74.gz --- DynamicWorkspaces.hs | 7 +++---- 1 file changed, 3 insertions(+), 4 deletions(-) (limited to 'DynamicWorkspaces.hs') 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 -- cgit v1.2.3