twin/xmonad
1
0
Fork 0
mirror of https://github.com/xmonad/xmonad.git synced 2025-08-17 04:43:47 -07:00
Code Issues Packages Projects Releases Wiki Activity

make Query a MonadIO

Browse Source
This commit is contained in:
Lukas Mai
2007-11-28 19:51:26 +00:00
parent 39eccc350c
commit 6908189698
1 changed files with 1 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
XMonad/Core.hs
View File

@@ -123,7 +123,7 @@ instance (Monoid a) => Monoid (X a) where
mappend = liftM2 mappend mappend = liftM2 mappend
type ManageHook = Query (Endo WindowSet) 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 :: ManageHook -> Window -> X (WindowSet -> WindowSet)
runManageHook (Query m) w = appEndo <$> runReaderT m w runManageHook (Query m) w = appEndo <$> runReaderT m w