diff options
| -rw-r--r-- | XMonad/Core.hs | 2 |
1 files changed, 1 insertions, 1 deletions
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 |