diff options
| -rw-r--r-- | FindEmptyWorkspace.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/FindEmptyWorkspace.hs b/FindEmptyWorkspace.hs index 4eced8c..4cc9775 100644 --- a/FindEmptyWorkspace.hs +++ b/FindEmptyWorkspace.hs @@ -50,7 +50,7 @@ import Operations -- Nothing if all workspaces are in use. Function searches currently -- focused workspace, other visible workspaces (when in Xinerama) and -- hidden workspaces in this order. -findEmptyWorkspace :: StackSet i a s sd -> Maybe (Workspace i a) +findEmptyWorkspace :: StackSet i l a s sd -> Maybe (Workspace i l a) findEmptyWorkspace = find (isNothing . stack) . allWorkspaces where allWorkspaces ss = (workspace . current) ss : |