From e388f75a997ee478a00073c4f1beaf17fb1276bc Mon Sep 17 00:00:00 2001
From: Spencer Janssen <sjanssen@cse.unl.edu>
Date: Fri, 28 Sep 2007 07:23:44 +0200
Subject: SomeLayout: use the description of the wrapped layout

darcs-hash:20070928052344-a5988-b6653a59a3dee58f947d0fc4064627f3808d2d79.gz
---
 XMonad.hs | 1 +
 1 file changed, 1 insertion(+)

(limited to 'XMonad.hs')

diff --git a/XMonad.hs b/XMonad.hs
index 6e7cdd4..cd6bcad 100644
--- a/XMonad.hs
+++ b/XMonad.hs
@@ -139,6 +139,7 @@ instance ReadableSomeLayout a => Read (SomeLayout a) where
 instance ReadableSomeLayout a => Layout SomeLayout a where
     doLayout (SomeLayout l) r s = fmap (fmap $ fmap SomeLayout) $ doLayout l r s
     handleMessage (SomeLayout l) = fmap (fmap SomeLayout) . handleMessage l
+    description (SomeLayout l) = description l
 
 instance Show (SomeLayout a) where
     show (SomeLayout l) = show l
-- 
cgit v1.2.3