aboutsummaryrefslogtreecommitdiffstats
path: root/XMonad
diff options
context:
space:
mode:
authorAdam Vogt <vogt.adam@gmail.com>2011-06-09 00:56:13 +0200
committerAdam Vogt <vogt.adam@gmail.com>2011-06-09 00:56:13 +0200
commit9f97c1e27b2e2338cfb6d46689011b163854af2d (patch)
tree9421da548c711ac5bc2cd25402cd1799219e6508 /XMonad
parent369f1776dff5a14670edbb90e937db3baa4241a6 (diff)
downloadxmonad-9f97c1e27b2e2338cfb6d46689011b163854af2d.tar.gz
xmonad-9f97c1e27b2e2338cfb6d46689011b163854af2d.tar.xz
xmonad-9f97c1e27b2e2338cfb6d46689011b163854af2d.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.gz
Diffstat (limited to 'XMonad')
-rw-r--r--XMonad/Core.hs4
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