From ca7f09d7bed6474878ad00c92e5f6f7ddddd536d Mon Sep 17 00:00:00 2001 From: Spencer Janssen Date: Mon, 28 Jan 2008 06:46:51 +0100 Subject: Generalize the type of catchIO, use it in Main.hs darcs-hash:20080128054651-a5988-263142a13a2bb7dbe0d0084456fbe29b7b603e47.gz --- 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 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 -- cgit v1.2.3