@@ -203,7 +203,7 @@ where
203203
204204import Control.Exception (Exception)
205205import Control.Monad (when)
206−import Control.Monad.Catch (MonadCatch, MonadThrow(..))
206+import Control.Monad.Catch (MonadThrow(..))
207207import Data.Bifunctor (first)
208208import Fusion.Plugin.Types (Fuse(..))
209209import Streamly.Internal.Data.Fold.Type (Fold(..))
@@ -2163,7 +2163,7 @@ data ManyTillState fs sr sl
21632163-- /Pre-release/
21642164--
21652165{-# INLINE manyTill #-}
2166−manyTill :: MonadCatch m
2166+manyTill :: MonadThrow m
21672167 => Fold m b c -> Parser m a b -> Parser m a x -> Parser m a c
21682168manyTill (Fold fstep finitial fextract)
21692169 (Parser stepL initialL extractL)