From fac71029b800760e229904604040c39b002db6ed Mon Sep 17 00:00:00 2001
From: Wouter Swierstra <wouter@chalmers.se>
Date: Sun, 3 May 2009 17:43:21 +0200
Subject: Minor bugfix in the creation of new StackSets.

darcs-hash:20090503154321-72cfd-985afe234c939954d49603f010939c93c072d2e8
---
 XMonad/StackSet.hs | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

(limited to 'XMonad')

diff --git a/XMonad/StackSet.hs b/XMonad/StackSet.hs
index 6cf43a5..98497cd 100644
--- a/XMonad/StackSet.hs
+++ b/XMonad/StackSet.hs
@@ -194,7 +194,8 @@ abort x = error $ "xmonad: StackSet: " ++ x
 -- Xinerama: Virtual workspaces are assigned to physical screens, starting at 0.
 --
 new :: (Integral s) => l -> [i] -> [sd] -> StackSet i l a s sd
-new l wids m | not (null wids) && length m <= length wids = StackSet cur visi unseen M.empty
+new l wids m | not (null wids) && length m <= length wids && not (null m)
+  = StackSet cur visi unseen M.empty
   where (seen,unseen) = L.splitAt (length m) $ map (\i -> Workspace i l Nothing) wids
         (cur:visi)    = [ Screen i s sd |  (i, s, sd) <- zip3 seen [0..] m ]
                 -- now zip up visibles with their screen id
-- 
cgit v1.2.3