From ba5dbac933d6e14aad4fbf34bff08ebdb6f42a5a Mon Sep 17 00:00:00 2001
From: David Roundy <droundy@darcs.net>
Date: Wed, 26 Sep 2007 20:33:09 +0200
Subject: merge old workspace tags with new on restart.

darcs-hash:20070926183309-72aca-82f1dcb215861fd866ad0bc89454b9c14ce10adb
---
 Main.hs | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

(limited to 'Main.hs')

diff --git a/Main.hs b/Main.hs
index 19876db..89e2b0f 100644
--- a/Main.hs
+++ b/Main.hs
@@ -51,9 +51,9 @@ main = do
     args <- getArgs
 
     let winset | ("--resume" : s : _) <- args
-               , [(x, "")]            <- reads s = x
-               | otherwise = new (SomeLayout $ LayoutSelection safeLayouts)
-                             workspaces $ zipWith SD xinesc gaps
+               , [(x, "")]            <- reads s = W.ensureTags defaultLayout workspaces x
+               | otherwise = new defaultLayout workspaces $ zipWith SD xinesc gaps
+        defaultLayout = SomeLayout $ LayoutSelection safeLayouts
         gaps = take (length xinesc) $ defaultGaps ++ repeat (0,0,0,0)
 
         safeLayouts = if null defaultLayouts then [SomeLayout Full] else defaultLayouts
-- 
cgit v1.2.3