diff options
| author | Adam Vogt <vogt.adam@gmail.com> | 2011-06-09 00:56:13 +0200 |
|---|---|---|
| committer | Adam Vogt <vogt.adam@gmail.com> | 2011-06-09 00:56:13 +0200 |
| commit | fb477f2fb6c1e4559b679ce38ca7f2ee89d2cd5c (patch) | |
| tree | 9421da548c711ac5bc2cd25402cd1799219e6508 | |
| parent | 06893c2505abc8cd99dd20ce242545b2bad1c980 (diff) | |
| download | metatile-fb477f2fb6c1e4559b679ce38ca7f2ee89d2cd5c.tar metatile-fb477f2fb6c1e4559b679ce38ca7f2ee89d2cd5c.zip | |
Expose instances to haddock
Ignore-this: e3ab1e9940061a70a3c1c99a119af29e
While haddock may have choked on -XGeneralizedNewtypeDeriving before, this is
no longer the case. Also this doesn't change the results with a recent haddock
(2.9.2)
darcs-hash:20110608225613-1499c-d14443aa6cfd522bc70d9e6167993bf8c310ca7e
| -rw-r--r-- | XMonad/Core.hs | 4 |
1 files changed, 0 insertions, 4 deletions
diff --git a/XMonad/Core.hs b/XMonad/Core.hs index 46e1a35..765985f 100644 --- a/XMonad/Core.hs +++ b/XMonad/Core.hs @@ -135,9 +135,7 @@ data ScreenDetail = SD { screenRect :: !Rectangle } deriving (Eq,Show, Read) -- instantiated on 'XConf' and 'XState' automatically. -- newtype X a = X (ReaderT XConf (StateT XState IO) a) -#ifndef __HADDOCK__ deriving (Functor, Monad, MonadIO, MonadState XState, MonadReader XConf, Typeable) -#endif instance Applicative X where pure = return @@ -149,9 +147,7 @@ instance (Monoid a) => Monoid (X a) where type ManageHook = Query (Endo WindowSet) newtype Query a = Query (ReaderT Window X a) -#ifndef __HADDOCK__ deriving (Functor, Monad, MonadReader Window, MonadIO) -#endif runQuery :: Query a -> Window -> X a runQuery (Query m) w = runReaderT m w |