aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorLukas Mai <l.mai@web.de>2007-11-28 20:51:26 +0100
committerLukas Mai <l.mai@web.de>2007-11-28 20:51:26 +0100
commit4abcacb7c7238478c9a4a9e760e7b4c049d2d563 (patch)
tree663ca03634794ed0d36fe63dd888dce3bd7e1edb
parent28025f8e0fa69f38504ab3a1fc49e67818c0f155 (diff)
downloadxmonad-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.hs2
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