summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--Operations.hs2
-rw-r--r--XMonad.hs2
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.