@@ -35,10 +35,7 @@ where
36import Control.Applicative (Alternative(..), liftA2)
36import Control.Applicative (Alternative(..), liftA2)
37import Control.Monad (MonadPlus(..), ap)
37import Control.Monad (MonadPlus(..), ap)
38−import Control.Monad.Catch (MonadCatch, MonadThrow(..))
39import Control.Monad.IO.Class (MonadIO, liftIO)
38import Control.Monad.IO.Class (MonadIO, liftIO)
40−import Control.Monad.Reader.Class (MonadReader, ask, local)
41−import Control.Monad.State.Class (MonadState, get, put)
42import Streamly.Internal.Data.Array (Array)
39import Streamly.Internal.Data.Array (Array)
43import qualified Control.Monad.Fail as Fail
40import qualified Control.Monad.Fail as Fail
@@ -271,23 +268,7 @@ instance Monad m => Fail.MonadFail (ParserChunked a m) where
271 {-# INLINE fail #-}
268 {-# INLINE fail #-}
272 fail = die
269 fail = die
274−instance (MonadThrow m, MonadReader r m, MonadCatch m) =>
275− MonadReader r (ParserChunked a m) where
278− ask = fromEffect ask
280− {-# INLINE local #-}
281− local f p = MkParser $ \n st arr k -> local f $ runParser p n st arr k
283−instance (MonadThrow m, MonadState s m) => MonadState s (ParserChunked a m) where
285− get = fromEffect get
288− put = fromEffect . put
290−instance (MonadThrow m, MonadIO m) => MonadIO (ParserChunked a m) where
271+instance MonadIO m => MonadIO (ParserChunked a m) where
291 {-# INLINE liftIO #-}
272 {-# INLINE liftIO #-}
292 liftIO = fromEffect . liftIO
273 liftIO = fromEffect . liftIO