diff options
| author | Andrea Rossato <andrea.rossato@unibz.it> | 2007-06-12 07:51:44 +0200 |
|---|---|---|
| committer | Andrea Rossato <andrea.rossato@unibz.it> | 2007-06-12 07:51:44 +0200 |
| commit | a5bfc1b9277957124d315346da6d9d912b91c58b (patch) | |
| tree | 2119642dea19bb7695e960456f98e9d3dff5a760 /Tabbed.hs | |
| parent | 59ed41b0865c09278a16686b6e79c37d14867e97 (diff) | |
| download | XMonadContrib-a5bfc1b9277957124d315346da6d9d912b91c58b.tar.gz XMonadContrib-a5bfc1b9277957124d315346da6d9d912b91c58b.tar.xz XMonadContrib-a5bfc1b9277957124d315346da6d9d912b91c58b.zip | |
the Stack can be Empty
darcs-hash:20070612055144-32816-ce6e65fc1ce44c16163c4414e5594f6475e07ae8.gz
Diffstat (limited to 'Tabbed.hs')
| -rw-r--r-- | Tabbed.hs | 1 |
1 files changed, 1 insertions, 0 deletions
@@ -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 |