From 91c972ed3c25f7e0d9be094d0efbb7d02482189e Mon Sep 17 00:00:00 2001 From: Spencer Janssen Date: Mon, 24 Sep 2007 07:59:28 +0200 Subject: Follow kind changes in FindEmptyWorkspace darcs-hash:20070924055928-a5988-179474452e6a073e313b7fd3f07d20303d3d5d57.gz --- FindEmptyWorkspace.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'FindEmptyWorkspace.hs') 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 : -- cgit v1.2.3