From eb878b5bf235ca70b192c8b5174de53b830a4885 Mon Sep 17 00:00:00 2001
From: Daniel Schoepe <asgaroth_@gmx.de>
Date: Wed, 28 Jan 2009 22:54:06 +0100
Subject: Make X an instance of Typeable

Ignore-this: bb155e62ea4e451460e3b94508dc49d2

darcs-hash:20090128215406-cb1c6-89d81563549a976a6c9abd1e1dcc5c0e1412c9e5.gz
---
 XMonad/Core.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'XMonad')

diff --git a/XMonad/Core.hs b/XMonad/Core.hs
index e36e165..c86a170 100644
--- a/XMonad/Core.hs
+++ b/XMonad/Core.hs
@@ -125,7 +125,7 @@ data ScreenDetail   = SD { screenRect :: !Rectangle } deriving (Eq,Show, Read)
 --
 newtype X a = X (ReaderT XConf (StateT XState IO) a)
 #ifndef __HADDOCK__
-    deriving (Functor, Monad, MonadIO, MonadState XState, MonadReader XConf)
+    deriving (Functor, Monad, MonadIO, MonadState XState, MonadReader XConf, Typeable)
 #endif
 
 instance Applicative X where
-- 
cgit v1.2.3