@@ -41,7 +41,6 @@ where
42import Control.Applicative (liftA2)
42import Control.Applicative (liftA2)
43import Control.DeepSeq (NFData(..), NFData1(..))
43import Control.DeepSeq (NFData(..), NFData1(..))
44−import Control.Monad.Base (MonadBase(..), liftBaseDefault)
45import Control.Monad.Catch (MonadThrow, throwM)
44import Control.Monad.Catch (MonadThrow, throwM)
46import Control.Monad.IO.Class (MonadIO(..))
45import Control.Monad.IO.Class (MonadIO(..))
47import Control.Monad.Reader.Class (MonadReader(..))
46import Control.Monad.Reader.Class (MonadReader(..))
@@ -224,10 +223,6 @@ instance Monad m => Monad (Stream m) where
224-- Transformers
223-- Transformers
225------------------------------------------------------------------------------
224------------------------------------------------------------------------------
227−-- XXX Need to remove the MonadBase instance
228−instance (MonadBase b m, Monad m ) => MonadBase b (Stream m) where
229− liftBase = liftBaseDefault
231instance (MonadIO m) => MonadIO (Stream m) where
226instance (MonadIO m) => MonadIO (Stream m) where
232 liftIO = lift . liftIO
227 liftIO = lift . liftIO