diff options
| author | Spencer Janssen <sjanssen@cse.unl.edu> | 2007-11-07 07:21:26 +0100 |
|---|---|---|
| committer | Spencer Janssen <sjanssen@cse.unl.edu> | 2007-11-07 07:21:26 +0100 |
| commit | cd045042f71ee5fc532ba79bd4b2a0417eb3677e (patch) | |
| tree | 67f1495f344b0c183f320655662e6544516c9f30 /XMonad | |
| parent | 59882d0779b0c9dd4ced0d18208afed6fa18acf0 (diff) | |
| download | metatile-cd045042f71ee5fc532ba79bd4b2a0417eb3677e.tar metatile-cd045042f71ee5fc532ba79bd4b2a0417eb3677e.zip | |
Generalize the type of whenJust
darcs-hash:20071107062126-a5988-4c3e3ca904aab215d122ea6b9307c350b1eda89a
Diffstat (limited to 'XMonad')
| -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 |