projects
/
ghc-hetmet.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
| inline |
side by side
(parent:
d15cb49
)
disable instance MonadPlus CoreM for GHC <= 6.6
author
Simon Marlow
<marlowsd@gmail.com>
Fri, 7 Nov 2008 08:52:50 +0000
(08:52 +0000)
committer
Simon Marlow
<marlowsd@gmail.com>
Fri, 7 Nov 2008 08:52:50 +0000
(08:52 +0000)
compiler/simplCore/CoreMonad.lhs
patch
|
blob
|
history
diff --git
a/compiler/simplCore/CoreMonad.lhs
b/compiler/simplCore/CoreMonad.lhs
index
ae45ba4
..
90b062f
100644
(file)
--- 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