diff options
| author | Spencer Janssen <sjanssen@cse.unl.edu> | 2007-12-08 02:50:15 +0100 |
|---|---|---|
| committer | Spencer Janssen <sjanssen@cse.unl.edu> | 2007-12-08 02:50:15 +0100 |
| commit | 8dc98f6420661f32ff64eab7823465d271114f8f (patch) | |
| tree | ff8d9b70260b16a3e3982fc7b23b32d7d7f058bd /XMonad | |
| parent | fd0aa99080ad8dc9e227740c2a8d8e0dd15590b6 (diff) | |
| download | metatile-8dc98f6420661f32ff64eab7823465d271114f8f.tar metatile-8dc98f6420661f32ff64eab7823465d271114f8f.zip | |
Hide generalized newtype deriving from Haddock
darcs-hash:20071208015015-a5988-71859e01140da3ecdacddab8f37f789fa495d9c8
Diffstat (limited to 'XMonad')
| -rw-r--r-- | XMonad/Core.hs | 7 |
1 files changed, 6 insertions, 1 deletions
diff --git a/XMonad/Core.hs b/XMonad/Core.hs index fc7040f..4e60c79 100644 --- a/XMonad/Core.hs +++ b/XMonad/Core.hs @@ -116,14 +116,19 @@ data ScreenDetail = SD { screenRect :: !Rectangle -- 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) +#endif instance (Monoid a) => Monoid (X a) where mempty = return mempty mappend = liftM2 mappend type ManageHook = Query (Endo WindowSet) -newtype Query a = Query (ReaderT Window X a) deriving (Functor, Monad, MonadReader Window, MonadIO) +newtype Query a = Query (ReaderT Window X a) +#ifndef __HADDOCK__ + deriving (Functor, Monad, MonadReader Window, MonadIO) +#endif runManageHook :: ManageHook -> Window -> X (WindowSet -> WindowSet) runManageHook (Query m) w = appEndo <$> runReaderT m w |