diff options
| author | Spencer Janssen <sjanssen@cse.unl.edu> | 2007-09-24 07:59:28 +0200 |
|---|---|---|
| committer | Spencer Janssen <sjanssen@cse.unl.edu> | 2007-09-24 07:59:28 +0200 |
| commit | 91c972ed3c25f7e0d9be094d0efbb7d02482189e (patch) | |
| tree | 91129bf0c2fb7e0d0e85ba59429626a86f6c0f8b | |
| parent | ef85e9bad7f649bb5d08c46acdb3b5bb3d1a2603 (diff) | |
| download | XMonadContrib-91c972ed3c25f7e0d9be094d0efbb7d02482189e.tar.gz XMonadContrib-91c972ed3c25f7e0d9be094d0efbb7d02482189e.tar.xz XMonadContrib-91c972ed3c25f7e0d9be094d0efbb7d02482189e.zip | |
Follow kind changes in FindEmptyWorkspace
darcs-hash:20070924055928-a5988-179474452e6a073e313b7fd3f07d20303d3d5d57.gz
| -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 : |