From f00bc553a438434139adaf8766fe983b95401cb0 Mon Sep 17 00:00:00 2001 From: Spencer Janssen Date: Tue, 22 May 2007 06:37:58 +0200 Subject: Generalize withDisplay's type darcs-hash:20070522043758-a5988-7738168ac829a9b2cf79e6866072cccde379a977.gz --- XMonad.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'XMonad.hs') 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 -- cgit v1.2.3