diff options
| author | Spencer Janssen <sjanssen@cse.unl.edu> | 2008-02-04 06:33:36 +0100 |
|---|---|---|
| committer | Spencer Janssen <sjanssen@cse.unl.edu> | 2008-02-04 06:33:36 +0100 |
| commit | cb39abea0d1bed5b7ce7d9d0b3897dd675f325fe (patch) | |
| tree | ceb80e5939c712e1ddee038663cef89ce4f441ac /XMonad/Core.hs | |
| parent | d6ff01a3811b776cde95b5787358b876f2abc2d6 (diff) | |
| download | xmonad-cb39abea0d1bed5b7ce7d9d0b3897dd675f325fe.tar.gz xmonad-cb39abea0d1bed5b7ce7d9d0b3897dd675f325fe.tar.xz xmonad-cb39abea0d1bed5b7ce7d9d0b3897dd675f325fe.zip | |
Rename runManageHook to runQuery
darcs-hash:20080204053336-a5988-0c8760f33f319acd30cd18630ada2b77a0875a5b.gz
Diffstat (limited to 'XMonad/Core.hs')
| -rw-r--r-- | XMonad/Core.hs | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/XMonad/Core.hs b/XMonad/Core.hs index feeae6e..253e3fe 100644 --- a/XMonad/Core.hs +++ b/XMonad/Core.hs @@ -27,7 +27,7 @@ module XMonad.Core ( runX, catchX, userCode, io, catchIO, doubleFork, withDisplay, withWindowSet, isRoot, runOnWorkspaces, broadcastMessage, getAtom, spawn, restart, getXMonadDir, recompile, trace, whenJust, whenX, - atom_WM_STATE, atom_WM_PROTOCOLS, atom_WM_DELETE_WINDOW, ManageHook, Query(..), runManageHook + atom_WM_STATE, atom_WM_PROTOCOLS, atom_WM_DELETE_WINDOW, ManageHook, Query(..), runQuery ) where import XMonad.StackSet hiding (modify) @@ -131,8 +131,8 @@ newtype Query a = Query (ReaderT Window X a) deriving (Functor, Monad, MonadReader Window, MonadIO) #endif -runManageHook :: ManageHook -> Window -> X (WindowSet -> WindowSet) -runManageHook (Query m) w = appEndo <$> runReaderT m w +runQuery :: Query a -> Window -> X a +runQuery (Query m) w = runReaderT m w instance Monoid a => Monoid (Query a) where mempty = return mempty |