since we just ignore type errors, no need to derive Show

darcs-hash:20070504094143-9c5c1-44d5edcd4b261a2d93b054f48e7818b0c9e58db2.gz

2 files changed, 2 insertions, 2 deletions

diff --git a/Operations.hs b/Operations.hs
index c90ff09..0b45b75 100644
--- a/Operations.hs
+++ b/Operations.hs
@@ -96,7 +96,7 @@ sendMessage a = layout $ \x@(l, ls) -> maybe x (flip (,) ls) (modifyLayout l (So
 --      Expand
 --
 
-data Resize = Shrink | Expand deriving (Typeable, Show)
+data Resize = Shrink | Expand deriving Typeable
 instance Message Resize
 
 full :: Layout
diff --git a/XMonad.hs b/XMonad.hs
index b20f3f7..71270e0 100644
--- a/XMonad.hs
+++ b/XMonad.hs
@@ -104,7 +104,7 @@ data Layout = Layout { doLayout     :: Rectangle -> [Window] -> [(Window, Rectan
 -- 
 -- User-extensible messages must be a member of this class:
 --
-class (Typeable a, Show a) => Message a
+class Typeable a => Message a
 
 --
 -- A wrapped value of some type in the Message class.