add Show instance to Layout

darcs-hash:20070920161208-72aca-c7bbb3a9d7cd8f1445c89f1bf15d7302bd47896c

1 files changed, 3 insertions, 1 deletions

diff --git a/XMonad.hs b/XMonad.hs
index f46af7a..56d7a00 100644
--- a/XMonad.hs
+++ b/XMonad.hs
@@ -132,8 +132,10 @@ atom_WM_STATE           = getAtom "WM_STATE"
 -- returns an updated 'Layout' and the screen is refreshed.
 --
 data SomeLayout a = forall l. Layout l a => SomeLayout (l a)
+instance Show (SomeLayout a) where
+    show (SomeLayout l) = show l
 
-class Layout layout a where
+class Show (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))