Generalize withDisplay's type

darcs-hash:20070522043758-a5988-7738168ac829a9b2cf79e6866072cccde379a977

1 files changed, 1 insertions, 1 deletions

diff --git a/XMonad.hs b/XMonad.hs
index d2f16a7..1484bf6 100644
--- a/XMonad.hs
+++ b/XMonad.hs
@@ -83,7 +83,7 @@ runX c st (X a) = runStateT (runReaderT a c) st >> return ()
 -- Convenient wrappers to state
 
 -- | Run a monad action with the current display settings
-withDisplay :: (Display -> X ()) -> X ()
+withDisplay :: (Display -> X a) -> X a
 withDisplay f = asks display >>= f
 
 -- | Run a monadic action with the current workspace