@@ -35,10 +35,7 @@ where
3535
3636import Control.Applicative (Alternative(..), liftA2)
3737import Control.Monad (MonadPlus(..), ap)
38−import Control.Monad.Catch (MonadCatch, MonadThrow(..))
3938import Control.Monad.IO.Class (MonadIO, liftIO)
40−import Control.Monad.Reader.Class (MonadReader, ask, local)
41−import Control.Monad.State.Class (MonadState, get, put)
4239import Streamly.Internal.Data.Array (Array)
4340import qualified Control.Monad.Fail as Fail
4441
@@ -271,23 +268,7 @@ instance Monad m => Fail.MonadFail (ParserChunked a m) where
271268 {-# INLINE fail #-}
272269 fail = die
273270
274−instance (MonadThrow m, MonadReader r m, MonadCatch m) =>
275− MonadReader r (ParserChunked a m) where
276−
277− {-# INLINE ask #-}
278− ask = fromEffect ask
279−
280− {-# INLINE local #-}
281− local f p = MkParser $ \n st arr k -> local f $ runParser p n st arr k
282−
283−instance (MonadThrow m, MonadState s m) => MonadState s (ParserChunked a m) where
284− {-# INLINE get #-}
285− get = fromEffect get
286−
287− {-# INLINE put #-}
288− put = fromEffect . put
289−
290−instance (MonadThrow m, MonadIO m) => MonadIO (ParserChunked a m) where
271+instance MonadIO m => MonadIO (ParserChunked a m) where
291272 {-# INLINE liftIO #-}
292273 liftIO = fromEffect . liftIO
293274