diff options
author | Spencer Janssen <sjanssen@cse.unl.edu> | 2007-06-30 08:59:16 +0200 |
---|---|---|
committer | Spencer Janssen <sjanssen@cse.unl.edu> | 2007-06-30 08:59:16 +0200 |
commit | ccaac642dea074e397058f1a6a877673e54a86fe (patch) | |
tree | b302bd348a5d1131452f770d6faffb934c31a2b5 /FindEmptyWorkspace.hs | |
parent | 279e1da8e4e1cef7cd5eb71de2c1bb80c389c871 (diff) | |
download | XMonadContrib-ccaac642dea074e397058f1a6a877673e54a86fe.tar.gz XMonadContrib-ccaac642dea074e397058f1a6a877673e54a86fe.tar.xz XMonadContrib-ccaac642dea074e397058f1a6a877673e54a86fe.zip |
More ScreenDetails fixes
darcs-hash:20070630065916-a5988-433e92903a6530e5efe8f36c3af60339cb9876ec.gz
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 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 : |