diff options
author | David Roundy <droundy@darcs.net> | 2007-09-20 19:45:29 +0200 |
---|---|---|
committer | David Roundy <droundy@darcs.net> | 2007-09-20 19:45:29 +0200 |
commit | 1bfe92f582721d705942b72174683e36f7f812fc (patch) | |
tree | 3f428102eb38e9971cccd233edb9c8c93d96040a /XMonad.hs | |
parent | c76b803df04914e0883e875a86c3b8bd923bde08 (diff) | |
download | xmonad-1bfe92f582721d705942b72174683e36f7f812fc.tar.gz xmonad-1bfe92f582721d705942b72174683e36f7f812fc.tar.xz xmonad-1bfe92f582721d705942b72174683e36f7f812fc.zip |
add Read instance to Layout.
darcs-hash:20070920174529-72aca-b1cf11419d5cccbf67edbc3a7bbb356502e9186d.gz
Diffstat (limited to '')
-rw-r--r-- | XMonad.hs | 4 |
1 files changed, 3 insertions, 1 deletions
@@ -134,8 +134,10 @@ atom_WM_STATE = getAtom "WM_STATE" data SomeLayout a = forall l. Layout l a => SomeLayout (l a) instance Show (SomeLayout a) where show (SomeLayout l) = show l +instance Read (SomeLayout a) where + readsPrec _ _ = [] -- We can't read an existential type!!! -class Show (layout a) => Layout layout a where +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)) |