the Stack can be Empty

darcs-hash:20070612055144-32816-ce6e65fc1ce44c16163c4414e5594f6475e07ae8.gz

1 files changed, 1 insertions, 0 deletions

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