From f3f90f1ce9063cf63ea75318440b7fc6809350ef Mon Sep 17 00:00:00 2001 From: Ross Paterson Date: Wed, 20 Jun 2007 00:03:43 +0000 Subject: [PATCH] Hugs now gets MonadFix(mfix) from its prelude --- Control/Monad/Fix.hs | 5 +++++ 1 file changed, 5 insertions(+) diff --git a/Control/Monad/Fix.hs b/Control/Monad/Fix.hs index ea481d8..6196f73 100644 --- a/Control/Monad/Fix.hs +++ b/Control/Monad/Fix.hs @@ -26,7 +26,11 @@ import Prelude import System.IO import Control.Monad.Instances () import Data.Function (fix) +#ifdef __HUGS__ +import Hugs.Prelude (MonadFix(mfix)) +#endif +#ifndef __HUGS__ -- | Monads having fixed points with a \'knot-tying\' semantics. -- Instances of 'MonadFix' should satisfy the following laws: -- @@ -51,6 +55,7 @@ class (Monad m) => MonadFix m where -- output fed back as the input. Hence @f@ should not be strict, -- for then @'mfix' f@ would diverge. mfix :: (a -> m a) -> m a +#endif /* !__HUGS__ */ -- Instances of MonadFix for Prelude monads -- 1.7.10.4