From 21943d95090614acde26969dc9f5ef8513a06799 Mon Sep 17 00:00:00 2001 From: Daniel Schoepe Date: Wed, 28 Jan 2009 22:54:06 +0100 Subject: Make X an instance of Typeable Ignore-this: bb155e62ea4e451460e3b94508dc49d2 darcs-hash:20090128215406-cb1c6-89d81563549a976a6c9abd1e1dcc5c0e1412c9e5 --- XMonad/Core.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) 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