diff options
author | Spencer Janssen <sjanssen@cse.unl.edu> | 2007-05-21 06:21:18 +0200 |
---|---|---|
committer | Spencer Janssen <sjanssen@cse.unl.edu> | 2007-05-21 06:21:18 +0200 |
commit | cd75c27ff2e3b20d3adf8dcc1de9894873314c04 (patch) | |
tree | f64c9d3105a391f1c654e635b22af1e2a9e10f21 /FindEmptyWorkspace.hs | |
parent | ce00db454082a51ec95c817e97757e2e56f4ef8e (diff) | |
download | XMonadContrib-cd75c27ff2e3b20d3adf8dcc1de9894873314c04.tar.gz XMonadContrib-cd75c27ff2e3b20d3adf8dcc1de9894873314c04.tar.xz XMonadContrib-cd75c27ff2e3b20d3adf8dcc1de9894873314c04.zip |
Fixes for windowset -> workspace rename
darcs-hash:20070521042118-a5988-a2f979585ee35d3905dbcf6244c22af67489caa6.gz
Diffstat (limited to 'FindEmptyWorkspace.hs')
-rw-r--r-- | FindEmptyWorkspace.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/FindEmptyWorkspace.hs b/FindEmptyWorkspace.hs index efd524f..860f8b7 100644 --- a/FindEmptyWorkspace.hs +++ b/FindEmptyWorkspace.hs @@ -41,7 +41,7 @@ findEmptyWorkspace = findKey (([],[]) ==) . W.stacks withEmptyWorkspace :: (WorkspaceId -> X ()) -> X () withEmptyWorkspace f = do - ws <- gets workspace + ws <- gets windowset whenJust (findEmptyWorkspace ws) f -- | Find and view an empty workspace. Do nothing if all workspaces are |