@@ -12,6 +12,7 @@ import Streamly.SVar (MonadAsync)
1212import qualified Streamly.Memory.Array as A
1313import qualified Streamly.FileSystem.Handle as FH
1414import qualified Streamly.Fold as FL
15+import qualified Streamly.Internal as Internal
1516import qualified Streamly.Prelude as S
1617import qualified Streamly.Streams.StreamK as K
1718
@@ -110,7 +111,7 @@ main = do
110111
111112 inText <- openFile "benchmark/text-processing/gutenberg-500.txt" ReadMode
112113 defaultMain [mkBenchText "splitOn abc...xyz" inText $ do
113− (S.length $ FL.splitOn (A.fromList $ map (fromIntegral . ord)
114+ (S.length $ Internal.splitOnSeq (A.fromList $ map (fromIntegral . ord)
114115 "abcdefghijklmnopqrstuvwxyz") FL.drain
115116 $ FH.read inText) >>= print
116117 ]