@@ -254,13 +254,13 @@ sourceUnfoldrAction value n = S.serially $ S.unfoldr step n
254254
255255-- fromIndices
256256
257−{-# INLINE sourceFromIndices #-}
258−sourceFromIndices :: (Monad m, S.IsStream t) => Int -> Int -> t m Int
259−sourceFromIndices value n = S.take value $ S.fromIndices (+ n)
257+{-# INLINE _sourceFromIndices #-}
258+_sourceFromIndices :: (Monad m, S.IsStream t) => Int -> Int -> t m Int
259+_sourceFromIndices value n = S.take value $ S.fromIndices (+ n)
260260
261−{-# INLINE sourceFromIndicesM #-}
262−sourceFromIndicesM :: (S.MonadAsync m, S.IsStream t) => Int -> Int -> t m Int
263−sourceFromIndicesM value n = S.take value $ S.fromIndicesM (P.fmap return (+ n))
261+{-# INLINE _sourceFromIndicesM #-}
262+_sourceFromIndicesM :: (S.MonadAsync m, S.IsStream t) => Int -> Int -> t m Int
263+_sourceFromIndicesM value n = S.take value $ S.fromIndicesM (P.fmap return (+ n))
264264
265265-- fromList
266266
@@ -306,7 +306,7 @@ runStream = S.drain
306306{-# INLINE toList #-}
307307toList :: Monad m => Stream m Int -> m [Int]
308308
309−{-# INLINE head #-}
309+{-# INLINE _head #-}
310310{-# INLINE last #-}
311311{-# INLINE maximum #-}
312312{-# INLINE minimum #-}
@@ -314,7 +314,7 @@ toList :: Monad m => Stream m Int -> m [Int]
314314{-# INLINE findIndex #-}
315315{-# INLINE elemIndex #-}
316316{-# INLINE foldl1'Reduce #-}
317−head, last, minimum, maximum, foldl1'Reduce
317+_head, last, minimum, maximum, foldl1'Reduce
318318 :: Monad m => Stream m Int -> m (Maybe Int)
319319
320320find, findIndex, elemIndex
@@ -346,10 +346,10 @@ foldrMBuild, foldl'Build, foldlM'Build
346346{-# INLINE any #-}
347347{-# INLINE and #-}
348348{-# INLINE or #-}
349−{-# INLINE null #-}
349+{-# INLINE _null #-}
350350{-# INLINE elem #-}
351351{-# INLINE notElem #-}
352−null :: Monad m => Stream m Int -> m Bool
352+_null :: Monad m => Stream m Int -> m Bool
353353
354354elem, notElem, all, any, and, or :: Monad m => Int -> Stream m Int -> m Bool
355355
@@ -411,8 +411,8 @@ foldl1'Reduce = S.foldl1' (+)
411411foldlM'Reduce = S.foldlM' (\xs a -> return $ a + xs) 0
412412
413413last = S.last
414−null = S.null
415−head = S.head
414+_null = S.null
415+_head = S.head
416416elem value = S.elem (value + 1)
417417notElem value = S.notElem (value + 1)
418418length = S.length
@@ -471,14 +471,14 @@ composeN' n f =
471471{-# INLINE filterEven #-}
472472{-# INLINE filterAllOut #-}
473473{-# INLINE filterAllIn #-}
474−{-# INLINE takeOne #-}
474+{-# INLINE _takeOne #-}
475475{-# INLINE takeAll #-}
476476{-# INLINE takeWhileTrue #-}
477−{-# INLINE takeWhileMTrue #-}
477+{-# INLINE _takeWhileMTrue #-}
478478{-# INLINE dropOne #-}
479479{-# INLINE dropAll #-}
480480{-# INLINE dropWhileTrue #-}
481−{-# INLINE dropWhileMTrue #-}
481+{-# INLINE _dropWhileMTrue #-}
482482{-# INLINE dropWhileFalse #-}
483483{-# INLINE findIndices #-}
484484{-# INLINE elemIndices #-}
@@ -491,15 +491,15 @@ composeN' n f =
491491{-# INLINE foldrT #-}
492492{-# INLINE foldrTMap #-}
493493scan, scanl1', map, fmap, mapMaybe, filterEven,
494− takeOne, dropOne,
494+ _takeOne, dropOne,
495495 reverse, reverse',
496496 foldrS, foldrSMap, foldrT, foldrTMap
497497 :: MonadIO m
498498 => Int -> Stream m Int -> m ()
499499
500500filterAllOut,
501− filterAllIn, takeAll, takeWhileTrue, takeWhileMTrue,
502− dropAll, dropWhileTrue, dropWhileMTrue, dropWhileFalse,
501+ filterAllIn, takeAll, takeWhileTrue, _takeWhileMTrue,
502+ dropAll, dropWhileTrue, _dropWhileMTrue, dropWhileFalse,
503503 findIndices, elemIndices, insertBy, deleteBy
504504 :: MonadIO m
505505 => Int -> Int -> Stream m Int -> m ()
@@ -562,14 +562,14 @@ sequence t = transform . t . S.sequence
562562filterEven n = composeN n $ S.filter even
563563filterAllOut value n = composeN n $ S.filter (> (value + 1))
564564filterAllIn value n = composeN n $ S.filter (<= (value + 1))
565−takeOne n = composeN n $ S.take 1
565+_takeOne n = composeN n $ S.take 1
566566takeAll value n = composeN n $ S.take (value + 1)
567567takeWhileTrue value n = composeN n $ S.takeWhile (<= (value + 1))
568−takeWhileMTrue value n = composeN n $ S.takeWhileM (return . (<= (value + 1)))
568+_takeWhileMTrue value n = composeN n $ S.takeWhileM (return . (<= (value + 1)))
569569dropOne n = composeN n $ S.drop 1
570570dropAll value n = composeN n $ S.drop (value + 1)
571571dropWhileTrue value n = composeN n $ S.dropWhile (<= (value + 1))
572−dropWhileMTrue value n = composeN n $ S.dropWhileM (return . (<= (value + 1)))
572+_dropWhileMTrue value n = composeN n $ S.dropWhileM (return . (<= (value + 1)))
573573dropWhileFalse value n = composeN n $ S.dropWhile (> (value + 1))
574574findIndices value n = composeN n $ S.findIndices (== (value + 1))
575575elemIndices value n = composeN n $ S.elemIndices (value + 1)
@@ -1218,9 +1218,9 @@ foldableProduct :: Int -> Int -> Int
12181218foldableProduct value n =
12191219 P.product (sourceUnfoldr value n :: S.SerialT Identity Int)
12201220
1221−{-# INLINE foldableNull #-}
1222−foldableNull :: Int -> Int -> Bool
1223−foldableNull value n =
1221+{-# INLINE _foldableNull #-}
1222+_foldableNull :: Int -> Int -> Bool
1223+_foldableNull value n =
12241224 P.null (sourceUnfoldr value n :: S.SerialT Identity Int)
12251225
12261226{-# INLINE foldableElem #-}
@@ -1302,9 +1302,9 @@ foldableSequence_ :: Int -> Int -> IO ()
13021302foldableSequence_ value n =
13031303 F.sequence_ (sourceUnfoldrAction value n :: S.SerialT Identity (IO Int))
13041304
1305−{-# INLINE foldableMsum #-}
1306−foldableMsum :: Int -> Int -> IO Int
1307−foldableMsum value n =
1305+{-# INLINE _foldableMsum #-}
1306+_foldableMsum :: Int -> Int -> IO Int
1307+_foldableMsum value n =
13081308 F.msum (sourceUnfoldrAction value n :: S.SerialT Identity (IO Int))
13091309
13101310-------------------------------------------------------------------------------
@@ -1436,7 +1436,7 @@ o_1_space_serial_foldable value =
14361436 -- type class operations
14371437 [ bench "foldl'" $ nf (foldableFoldl' value) 1
14381438 , bench "foldrElem" $ nf (foldableFoldrElem value) 1
1439− -- , bench "null" $ nf (foldableNull value) 1
1439+ -- , bench "null" $ nf (_foldableNull value) 1
14401440 , bench "elem" $ nf (foldableElem value) 1
14411441 , bench "length" $ nf (foldableLength value) 1
14421442 , bench "sum" $ nf (foldableSum value) 1
@@ -1462,7 +1462,7 @@ o_1_space_serial_foldable value =
14621462 , benchIOSink1 "sequence_" (foldableSequence_ value)
14631463 -- TBD: sequenceA_
14641464 -- TBD: asum
1465− -- , benchIOSink1 "msum" (foldableMsum value)
1465+ -- , benchIOSink1 "msum" (_foldableMsum value)
14661466 ]
14671467 ]
14681468 ]
@@ -1846,7 +1846,7 @@ o_1_space_serial_filtering value =
18461846 "takeByTime-all"
18471847 (takeByTime (NanoSecond64 maxBound) 1)
18481848 , benchIOSink value "takeWhile-true" (takeWhileTrue value 1)
1849− --, benchIOSink value "takeWhileM-true" (takeWhileMTrue 1)
1849+ --, benchIOSink value "takeWhileM-true" (_takeWhileMTrue 1)
18501850 -- "drop-one" is dual to "last"
18511851 , benchIOSink value "drop-one" (dropOne 1)
18521852 , benchIOSink value "drop-all" (dropAll value 1)
@@ -1855,7 +1855,7 @@ o_1_space_serial_filtering value =
18551855 "dropByTime-all"
18561856 (dropByTime (NanoSecond64 maxBound) 1)
18571857 , benchIOSink value "dropWhile-true" (dropWhileTrue value 1)
1858− --, benchIOSink value "dropWhileM-true" (dropWhileMTrue 1)
1858+ --, benchIOSink value "dropWhileM-true" (_dropWhileMTrue 1)
18591859 , benchIOSink
18601860 value
18611861 "dropWhile-false"
@@ -1878,11 +1878,11 @@ o_1_space_serial_filteringX4 value =
18781878 , benchIOSink value "filter-all-in" (filterAllIn value 4)
18791879 , benchIOSink value "take-all" (takeAll value 4)
18801880 , benchIOSink value "takeWhile-true" (takeWhileTrue value 4)
1881− --, benchIOSink value "takeWhileM-true" (takeWhileMTrue 4)
1881+ --, benchIOSink value "takeWhileM-true" (_takeWhileMTrue 4)
18821882 , benchIOSink value "drop-one" (dropOne 4)
18831883 , benchIOSink value "drop-all" (dropAll value 4)
18841884 , benchIOSink value "dropWhile-true" (dropWhileTrue value 4)
1885− --, benchIOSink value "dropWhileM-true" (dropWhileMTrue 4)
1885+ --, benchIOSink value "dropWhileM-true" (_dropWhileMTrue 4)
18861886 , benchIOSink
18871887 value
18881888 "dropWhile-false"