From ecb8d1bb0443573c22a7972cf5c81f19c62ba478 Mon Sep 17 00:00:00 2001
From: David Roundy <droundy@darcs.net>
Date: Mon, 24 Sep 2007 20:57:53 +0200
Subject: Make a String description part of each Layout.

darcs-hash:20070924185753-72aca-95002aa27cfef74bf8caf1e6f243a4626f20659c.gz
---
 XMonad.hs | 2 ++
 1 file changed, 2 insertions(+)

(limited to 'XMonad.hs')

diff --git a/XMonad.hs b/XMonad.hs
index 7f5fe77..c0ca75d 100644
--- a/XMonad.hs
+++ b/XMonad.hs
@@ -153,6 +153,8 @@ class (Show (layout a), Read (layout a)) => Layout layout a where
     doLayout :: layout a -> Rectangle -> Stack a -> X ([(a, Rectangle)], Maybe (layout a))
     modifyLayout :: layout a -> SomeMessage -> X (Maybe (layout a))
     modifyLayout _ _ = return Nothing
+    description :: layout a -> String
+    description = show
 
 runLayout :: Layout l a => l a -> Rectangle -> StackOrNot a -> X ([(a, Rectangle)], Maybe (l a))
 runLayout l r = maybe (return ([], Nothing)) (doLayout l r)
-- 
cgit v1.2.3