diff options
| author | David Roundy <droundy@darcs.net> | 2007-06-12 17:12:09 +0200 |
|---|---|---|
| committer | David Roundy <droundy@darcs.net> | 2007-06-12 17:12:09 +0200 |
| commit | 1af7582b30d70ded97db92a69673849372c98fb9 (patch) | |
| tree | f5e17574f1edd760920041bb551f02443046ae03 /FindEmptyWorkspace.hs | |
| parent | 11f2eae73be71fd0b810966fdb5fec22d856e6c9 (diff) | |
| download | XMonadContrib-1af7582b30d70ded97db92a69673849372c98fb9.tar.gz XMonadContrib-1af7582b30d70ded97db92a69673849372c98fb9.tar.xz XMonadContrib-1af7582b30d70ded97db92a69673849372c98fb9.zip | |
changes to work with Stacks that can't be empty.
darcs-hash:20070612151209-72aca-62307f8565fc32ca80be8daf2c30fe414d49111e.gz
Diffstat (limited to '')
| -rw-r--r-- | FindEmptyWorkspace.hs | 5 |
1 files changed, 2 insertions, 3 deletions
diff --git a/FindEmptyWorkspace.hs b/FindEmptyWorkspace.hs index ca00366..d94d0a8 100644 --- a/FindEmptyWorkspace.hs +++ b/FindEmptyWorkspace.hs @@ -29,6 +29,7 @@ module XMonadContrib.FindEmptyWorkspace ( import Control.Monad.State import Data.List +import Data.Maybe ( isNothing ) import XMonad import StackSet @@ -40,10 +41,8 @@ import qualified Operations as O -- focused workspace, other visible workspaces (when in Xinerama) and -- hidden workspaces in this order. findEmptyWorkspace :: StackSet i a s -> Maybe (Workspace i a) -findEmptyWorkspace = find (isEmpty . stack) . allWorkspaces +findEmptyWorkspace = find (isNothing . stack) . allWorkspaces where - isEmpty Empty = True - isEmpty _ = False allWorkspaces ss = (workspace . current) ss : (map workspace . visible) ss ++ hidden ss |