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 | a2fcbf0cdfff251b13706e630af6af9a3fcd98ba (patch) | |
| tree | 67f1495f344b0c183f320655662e6544516c9f30 /XMonad | |
| parent | c48647ee1817611876303ffc0562b3b8cc2737f3 (diff) | |
| download | xmonad-a2fcbf0cdfff251b13706e630af6af9a3fcd98ba.tar.gz xmonad-a2fcbf0cdfff251b13706e630af6af9a3fcd98ba.tar.xz xmonad-a2fcbf0cdfff251b13706e630af6af9a3fcd98ba.zip | |
Generalize the type of whenJust
darcs-hash:20071107062126-a5988-4c3e3ca904aab215d122ea6b9307c350b1eda89a.gz
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 |