From cd045042f71ee5fc532ba79bd4b2a0417eb3677e Mon Sep 17 00:00:00 2001 From: Spencer Janssen Date: Wed, 7 Nov 2007 07:21:26 +0100 Subject: Generalize the type of whenJust darcs-hash:20071107062126-a5988-4c3e3ca904aab215d122ea6b9307c350b1eda89a --- XMonad/Core.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'XMonad') diff --git a/XMonad/Core.hs b/XMonad/Core.hs index 728fb61..3f96592 100644 --- a/XMonad/Core.hs +++ b/XMonad/Core.hs @@ -281,7 +281,7 @@ restart mprog resume = do where showWs = show . mapLayout show -- | Run a side effecting action with the current workspace. Like 'when' but -whenJust :: Maybe a -> (a -> X ()) -> X () +whenJust :: Monad m => Maybe a -> (a -> m ()) -> m () whenJust mg f = maybe (return ()) f mg -- | Conditionally run an action, using a X event to decide -- cgit v1.2.3