From 2fc212c92a6b4d51c12520109d24f7d69a64d2d3 Mon Sep 17 00:00:00 2001
From: Andrea Rossato <andrea.rossato@unibz.it>
Date: Thu, 24 Jan 2008 02:32:07 +0100
Subject: Add emptyLayout to LayoutClass, a method to be called when a
 workspace is empty

darcs-hash:20080124013207-32816-35328360400d6ee06c81586b9e1cc45413df5a61.gz
---
 XMonad/Layout.hs | 3 +++
 1 file changed, 3 insertions(+)

(limited to 'XMonad/Layout.hs')

diff --git a/XMonad/Layout.hs b/XMonad/Layout.hs
index 01c0428..981541c 100644
--- a/XMonad/Layout.hs
+++ b/XMonad/Layout.hs
@@ -54,6 +54,9 @@ instance (LayoutClass l a, LayoutClass r a) => LayoutClass (Choose l r) a where
     doLayout (SLeft  r l) = (fmap (second . fmap $ SLeft r) .) . doLayout l
     doLayout (SRight l r) = (fmap (second . fmap $ SRight l) .) . doLayout r
 
+    emptyLayout (SLeft  r l) = (fmap (second . fmap $ SLeft r) .) $ emptyLayout l
+    emptyLayout (SRight l r) = (fmap (second . fmap $ SRight l) .) $ emptyLayout r
+
     description (SLeft _ l)  = description l
     description (SRight _ r) = description r
 
-- 
cgit v1.2.3