From 1af7582b30d70ded97db92a69673849372c98fb9 Mon Sep 17 00:00:00 2001
From: David Roundy <droundy@darcs.net>
Date: Tue, 12 Jun 2007 17:12:09 +0200
Subject: changes to work with Stacks that can't be empty.

darcs-hash:20070612151209-72aca-62307f8565fc32ca80be8daf2c30fe414d49111e.gz
---
 Tabbed.hs | 5 ++---
 1 file changed, 2 insertions(+), 3 deletions(-)

(limited to 'Tabbed.hs')

diff --git a/Tabbed.hs b/Tabbed.hs
index d3ecc3b..adcb470 100644
--- a/Tabbed.hs
+++ b/Tabbed.hs
@@ -25,9 +25,8 @@ tabbed :: Layout
 tabbed =  Layout { doLayout = dolay, modifyLayout = const (return Nothing) }
 
 dolay :: Rectangle -> W.Stack Window -> X [(Window, Rectangle)]
-dolay _ W.Empty = return []
-dolay sc (W.Node w [] []) = return [(w,sc)]
-dolay sc@(Rectangle x y wid _) s@(W.Node w _ _) =
+dolay sc (W.Stack w [] []) = return [(w,sc)]
+dolay sc@(Rectangle x y wid _) s@(W.Stack w _ _) =
     do let ws = W.integrate s
            ts = gentabs x y wid (length ws)
            tws = zip ts ws
-- 
cgit v1.2.3