From ccaac642dea074e397058f1a6a877673e54a86fe Mon Sep 17 00:00:00 2001 From: Spencer Janssen Date: Sat, 30 Jun 2007 08:59:16 +0200 Subject: More ScreenDetails fixes darcs-hash:20070630065916-a5988-433e92903a6530e5efe8f36c3af60339cb9876ec.gz --- FindEmptyWorkspace.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'FindEmptyWorkspace.hs') diff --git a/FindEmptyWorkspace.hs b/FindEmptyWorkspace.hs index 2240d41..5cb3964 100644 --- a/FindEmptyWorkspace.hs +++ b/FindEmptyWorkspace.hs @@ -46,7 +46,7 @@ import qualified Operations as O -- 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 -> Maybe (Workspace i a) +findEmptyWorkspace :: StackSet i a s sd -> Maybe (Workspace i a) findEmptyWorkspace = find (isNothing . stack) . allWorkspaces where allWorkspaces ss = (workspace . current) ss : -- cgit v1.2.3