diff options
| author | David Roundy <droundy@darcs.net> | 2007-09-20 18:12:08 +0200 |
|---|---|---|
| committer | David Roundy <droundy@darcs.net> | 2007-09-20 18:12:08 +0200 |
| commit | c76b803df04914e0883e875a86c3b8bd923bde08 (patch) | |
| tree | 298b2bc4a32097a7ed0185c317480b6827cbb2da /XMonad.hs | |
| parent | 5cf01dc654d11489b04ac6a37f6dc86fb6f376c3 (diff) | |
| download | xmonad-c76b803df04914e0883e875a86c3b8bd923bde08.tar.gz xmonad-c76b803df04914e0883e875a86c3b8bd923bde08.tar.xz xmonad-c76b803df04914e0883e875a86c3b8bd923bde08.zip | |
add Show instance to Layout
darcs-hash:20070920161208-72aca-c7bbb3a9d7cd8f1445c89f1bf15d7302bd47896c.gz
Diffstat (limited to 'XMonad.hs')
| -rw-r--r-- | XMonad.hs | 4 |
1 files changed, 3 insertions, 1 deletions
@@ -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)) |