diff options
| -rw-r--r-- | Operations.hs | 2 | ||||
| -rw-r--r-- | 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 @@ -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. |