@@ -41,7 +41,6 @@ where
4141
4242import Control.Applicative (liftA2)
4343import Control.DeepSeq (NFData(..), NFData1(..))
44−import Control.Monad.Base (MonadBase(..), liftBaseDefault)
4544import Control.Monad.Catch (MonadThrow, throwM)
4645import Control.Monad.IO.Class (MonadIO(..))
4746import Control.Monad.Reader.Class (MonadReader(..))
@@ -224,10 +223,6 @@ instance Monad m => Monad (Stream m) where
224223-- Transformers
225224------------------------------------------------------------------------------
226225
227−-- XXX Need to remove the MonadBase instance
228−instance (MonadBase b m, Monad m ) => MonadBase b (Stream m) where
229− liftBase = liftBaseDefault
230−
231226instance (MonadIO m) => MonadIO (Stream m) where
232227 liftIO = lift . liftIO
233228