diff options
author | Spencer Janssen <sjanssen@cse.unl.edu> | 2007-09-28 07:23:44 +0200 |
---|---|---|
committer | Spencer Janssen <sjanssen@cse.unl.edu> | 2007-09-28 07:23:44 +0200 |
commit | e388f75a997ee478a00073c4f1beaf17fb1276bc (patch) | |
tree | 874b2a52ba2b2e918c04b3e04692748cef4ba6ef | |
parent | 110c8e29c1c40bb3efa4c5ccd2aa768d0d54e561 (diff) | |
download | xmonad-e388f75a997ee478a00073c4f1beaf17fb1276bc.tar.gz xmonad-e388f75a997ee478a00073c4f1beaf17fb1276bc.tar.xz xmonad-e388f75a997ee478a00073c4f1beaf17fb1276bc.zip |
SomeLayout: use the description of the wrapped layout
darcs-hash:20070928052344-a5988-b6653a59a3dee58f947d0fc4064627f3808d2d79.gz
-rw-r--r-- | XMonad.hs | 1 |
1 files changed, 1 insertions, 0 deletions
@@ -139,6 +139,7 @@ instance ReadableSomeLayout a => Read (SomeLayout a) where instance ReadableSomeLayout a => Layout SomeLayout a where doLayout (SomeLayout l) r s = fmap (fmap $ fmap SomeLayout) $ doLayout l r s handleMessage (SomeLayout l) = fmap (fmap SomeLayout) . handleMessage l + description (SomeLayout l) = description l instance Show (SomeLayout a) where show (SomeLayout l) = show l |