disable the MonadPlus instance for base >= 4.3.0.0 (it moved to GHC.Conc)
authorSimon Marlow <marlowsd@gmail.com>
Tue, 1 Jun 2010 15:13:21 +0000 (15:13 +0000)
committerSimon Marlow <marlowsd@gmail.com>
Tue, 1 Jun 2010 15:13:21 +0000 (15:13 +0000)
Control/Monad/STM.hs

index f279efb..c046044 100644 (file)
@@ -36,15 +36,19 @@ module Control.Monad.STM (
 
 #ifdef __GLASGOW_HASKELL__
 import GHC.Conc
+#if ! MIN_VERSION_base(4,3,0)
 import Control.Monad   ( MonadPlus(..) )
+#endif
 #else
 import Control.Sequential.STM
 #endif
 
 #ifdef __GLASGOW_HASKELL__
+#if ! MIN_VERSION_base(4,3,0)
 instance MonadPlus STM where
   mzero = retry
   mplus = orElse
+#endif
 
 check :: Bool -> STM a
 check b = if b then return undefined else retry