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 | 4abcacb7c7238478c9a4a9e760e7b4c049d2d563 (patch) | |
| tree | 663ca03634794ed0d36fe63dd888dce3bd7e1edb | |
| parent | 28025f8e0fa69f38504ab3a1fc49e67818c0f155 (diff) | |
| download | xmonad-4abcacb7c7238478c9a4a9e760e7b4c049d2d563.tar.gz xmonad-4abcacb7c7238478c9a4a9e760e7b4c049d2d563.tar.xz xmonad-4abcacb7c7238478c9a4a9e760e7b4c049d2d563.zip | |
make Query a MonadIO
darcs-hash:20071128195126-462cf-ba9e22dd2c03c5f077e39326ada21a1a52d3738a.gz
| -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 |