From 4abcacb7c7238478c9a4a9e760e7b4c049d2d563 Mon Sep 17 00:00:00 2001 From: Lukas Mai Date: Wed, 28 Nov 2007 20:51:26 +0100 Subject: make Query a MonadIO darcs-hash:20071128195126-462cf-ba9e22dd2c03c5f077e39326ada21a1a52d3738a.gz --- XMonad/Core.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'XMonad/Core.hs') 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 -- cgit v1.2.3