diff options
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 |