16 lines
571 B
Plaintext
16 lines
571 B
Plaintext
$OpenBSD: patch-src_Pugs_Compat_Monads_hs,v 1.1 2011/04/11 14:46:52 kili Exp $
|
|
|
|
From upstream git repo.
|
|
|
|
--- src/Pugs/Compat/Monads.hs.orig Wed Dec 16 14:47:04 2009
|
|
+++ src/Pugs/Compat/Monads.hs Sun Apr 10 16:52:39 2011
|
|
@@ -87,7 +87,7 @@ maybeM :: (Traversable f, Monad m)
|
|
-> m (f b) -- ^ Monad containing (@Just@ /result/) or @Nothing@
|
|
maybeM f m = mapM m =<< f
|
|
|
|
-catchIO :: IO a -> (Control.Exception.Exception -> IO a) -> IO a
|
|
+catchIO :: Exception e => forall a. IO a -> (e -> IO a) -> IO a
|
|
catchIO = Control.Exception.catch
|
|
|
|
evaluateIO :: a -> IO a
|