From 7d2c080540f57cfb4bca155cf27b792c7e5d2d8c Mon Sep 17 00:00:00 2001
From: Spencer Janssen <sjanssen@cse.unl.edu>
Date: Fri, 4 May 2007 06:56:44 +0200
Subject: Handle empty layout lists

darcs-hash:20070504045644-a5988-68a6d650bacab936f893b96bf866696da3f73436
---
 XMonad.hs | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

(limited to 'XMonad.hs')

diff --git a/XMonad.hs b/XMonad.hs
index 1f602c8..8293212 100644
--- a/XMonad.hs
+++ b/XMonad.hs
@@ -36,7 +36,8 @@ import qualified Data.Map as M
 -- Just the display, width, height and a window list
 data XState = XState
     { workspace         :: !WindowSet                      -- ^ workspace list
-    , layouts           :: !(M.Map WorkspaceId [Layout])   -- ^ mapping of workspaces 
+    , layouts           :: !(M.Map WorkspaceId (Layout, [Layout]))
+                                                           -- ^ mapping of workspaces 
                                                            -- to descriptions of their layouts
     }
 
-- 
cgit v1.2.3