diff options
| author | Spencer Janssen <sjanssen@cse.unl.edu> | 2008-01-28 06:46:51 +0100 |
|---|---|---|
| committer | Spencer Janssen <sjanssen@cse.unl.edu> | 2008-01-28 06:46:51 +0100 |
| commit | ca7f09d7bed6474878ad00c92e5f6f7ddddd536d (patch) | |
| tree | a88bc56eaa0410e890bcb25a313665b2ce3ae23e /XMonad/Core.hs | |
| parent | 2fc212c92a6b4d51c12520109d24f7d69a64d2d3 (diff) | |
| download | xmonad-ca7f09d7bed6474878ad00c92e5f6f7ddddd536d.tar.gz xmonad-ca7f09d7bed6474878ad00c92e5f6f7ddddd536d.tar.xz xmonad-ca7f09d7bed6474878ad00c92e5f6f7ddddd536d.zip | |
Generalize the type of catchIO, use it in Main.hs
darcs-hash:20080128054651-a5988-263142a13a2bb7dbe0d0084456fbe29b7b603e47.gz
Diffstat (limited to 'XMonad/Core.hs')
| -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 df9c4b7..8dfa91f 100644 --- a/XMonad/Core.hs +++ b/XMonad/Core.hs @@ -291,7 +291,7 @@ io = liftIO -- | Lift an IO action into the X monad. If the action results in an IO -- exception, log the exception to stderr and continue normal execution. -catchIO :: IO () -> X () +catchIO :: MonadIO m => IO () -> m () catchIO f = io (f `catch` \e -> hPrint stderr e >> hFlush stderr) -- | spawn. Launch an external application |