From 9b5766de1c90cd4561efd6d568fa0aefa010a815 Mon Sep 17 00:00:00 2001 From: Don Stewart Date: Fri, 4 May 2007 11:41:43 +0200 Subject: since we just ignore type errors, no need to derive Show darcs-hash:20070504094143-9c5c1-44d5edcd4b261a2d93b054f48e7818b0c9e58db2 --- Operations.hs | 2 +- XMonad.hs | 2 +- 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. -- cgit v1.2.3