From c76b803df04914e0883e875a86c3b8bd923bde08 Mon Sep 17 00:00:00 2001 From: David Roundy Date: Thu, 20 Sep 2007 18:12:08 +0200 Subject: add Show instance to Layout darcs-hash:20070920161208-72aca-c7bbb3a9d7cd8f1445c89f1bf15d7302bd47896c.gz --- XMonad.hs | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) (limited to 'XMonad.hs') 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)) -- cgit v1.2.3