summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--XMonad.hs2
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