@@ -114,7 +114,7 @@ main = do
114 defaultMain [mkBenchText "splitOn abc...xyz" inText $ do
114 defaultMain [mkBenchText "splitOn abc...xyz" inText $ do
115 (S.length $ Internal.splitOnSeq (A.fromList $ map (fromIntegral . ord)
115 (S.length $ Internal.splitOnSeq (A.fromList $ map (fromIntegral . ord)
116 "abcdefghijklmnopqrstuvwxyz") FL.drain
116 "abcdefghijklmnopqrstuvwxyz") FL.drain
117− $ IFH.toStream inText) >>= print
117+ $ IFH.toBytes inText) >>= print