twin/xmonad
1
0
Fork 0
mirror of https://github.com/xmonad/xmonad.git synced 2025-08-04 06:01:53 -07:00
Code Issues Packages Projects Releases Wiki Activity

add Show instance to Layout

Browse Source
This commit is contained in:
David Roundy
2007-09-20 16:12:08 +00:00
parent 0e5f8b03e8
commit b4929576e7
2 changed files with 7 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
XMonad.hs
View File

@@ -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))