From 2df0c61e36ebff35a4be1f782fe99b405413fe17 Mon Sep 17 00:00:00 2001 From: Simon Marlow Date: Fri, 7 Nov 2008 08:52:50 +0000 Subject: [PATCH] disable instance MonadPlus CoreM for GHC <= 6.6 --- compiler/simplCore/CoreMonad.lhs | 3 +++ 1 file changed, 3 insertions(+) diff --git a/compiler/simplCore/CoreMonad.lhs b/compiler/simplCore/CoreMonad.lhs index ae45ba4..90b062f 100644 --- a/compiler/simplCore/CoreMonad.lhs +++ b/compiler/simplCore/CoreMonad.lhs @@ -125,9 +125,12 @@ instance Applicative CoreM where -- For use if the user has imported Control.Monad.Error from MTL -- Requires UndecidableInstances +#if __GLASGOW_HASKELL__ > 606 +-- see instance MonadPlus IOEnv instance MonadPlus IO => MonadPlus CoreM where mzero = CoreM (const mzero) m `mplus` n = CoreM (\rs -> unCoreM m rs `mplus` unCoreM n rs) +#endif instance MonadUnique CoreM where getUniqueSupplyM = do -- 1.7.10.4