git.iko.soy/streamly
on master help sign in
Remove redundant MonadCatch constraint from manyTill
2ae9759Harendra Kumar
core/src/Streamly/Internal/Data/Parser/ParserD.hs+2−2
compare with master
unifiedsplit
@@ -203,7 +203,7 @@ where
203
203
204import Control.Exception (Exception)
204import Control.Exception (Exception)
205import Control.Monad (when)
205import Control.Monad (when)
206−import Control.Monad.Catch (MonadCatch, MonadThrow(..))
206+import Control.Monad.Catch (MonadThrow(..))
207import Data.Bifunctor (first)
207import Data.Bifunctor (first)
208import Fusion.Plugin.Types (Fuse(..))
208import Fusion.Plugin.Types (Fuse(..))
209import Streamly.Internal.Data.Fold.Type (Fold(..))
209import Streamly.Internal.Data.Fold.Type (Fold(..))
@@ -2163,7 +2163,7 @@ data ManyTillState fs sr sl
2163-- /Pre-release/
2163-- /Pre-release/
2164--
2164--
2165{-# INLINE manyTill #-}
2165{-# INLINE manyTill #-}
2166−manyTill :: MonadCatch m
2166+manyTill :: MonadThrow m
2167 => Fold m b c -> Parser m a b -> Parser m a x -> Parser m a c
2167 => Fold m b c -> Parser m a b -> Parser m a x -> Parser m a c
2168manyTill (Fold fstep finitial fextract)
2168manyTill (Fold fstep finitial fextract)
2169 (Parser stepL initialL extractL)
2169 (Parser stepL initialL extractL)