diff options
| author | Lukas Mai <l.mai@web.de> | 2007-11-28 20:51:26 +0100 |
|---|---|---|
| committer | Lukas Mai <l.mai@web.de> | 2007-11-28 20:51:26 +0100 |
| commit | ee7d5ae286db29513d22e86e2b62c469cb869040 (patch) | |
| tree | 663ca03634794ed0d36fe63dd888dce3bd7e1edb | |
| parent | 246261deaf2eac9f8605f38986b41a304d9db520 (diff) | |
| download | metatile-ee7d5ae286db29513d22e86e2b62c469cb869040.tar metatile-ee7d5ae286db29513d22e86e2b62c469cb869040.zip | |
make Query a MonadIO
darcs-hash:20071128195126-462cf-ba9e22dd2c03c5f077e39326ada21a1a52d3738a
| -rw-r--r-- | XMonad/Core.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/XMonad/Core.hs b/XMonad/Core.hs index 05f2b9b..fc7040f 100644 --- a/XMonad/Core.hs +++ b/XMonad/Core.hs @@ -123,7 +123,7 @@ instance (Monoid a) => Monoid (X a) where mappend = liftM2 mappend type ManageHook = Query (Endo WindowSet) -newtype Query a = Query (ReaderT Window X a) deriving (Functor, Monad, MonadReader Window) +newtype Query a = Query (ReaderT Window X a) deriving (Functor, Monad, MonadReader Window, MonadIO) runManageHook :: ManageHook -> Window -> X (WindowSet -> WindowSet) runManageHook (Query m) w = appEndo <$> runReaderT m w |