From a5bfc1b9277957124d315346da6d9d912b91c58b Mon Sep 17 00:00:00 2001
From: Andrea Rossato <andrea.rossato@unibz.it>
Date: Tue, 12 Jun 2007 07:51:44 +0200
Subject: the Stack can be Empty

darcs-hash:20070612055144-32816-ce6e65fc1ce44c16163c4414e5594f6475e07ae8.gz
---
 Tabbed.hs | 1 +
 1 file changed, 1 insertion(+)

(limited to 'Tabbed.hs')

diff --git a/Tabbed.hs b/Tabbed.hs
index 106afa8..d3ecc3b 100644
--- a/Tabbed.hs
+++ b/Tabbed.hs
@@ -25,6 +25,7 @@ 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 _ _) =
     do let ws = W.integrate s
-- 
cgit v1.2.3