Skip to content
Merged
Show file tree
Hide file tree
Changes from all commits
Commits
File filter

Filter by extension

Filter by extension

Conversations
Failed to load comments.
Loading
Jump to
Jump to file
Failed to load files.
Loading
Diff view
Diff view
4 changes: 0 additions & 4 deletions benchmark/Streamly/Benchmark/Data/Stream.hs
Original file line number Diff line number Diff line change
Expand Up @@ -19,9 +19,7 @@ module Main (main) where
import Streamly.Benchmark.Common.Handle (mkHandleBenchEnv)

import qualified Stream.Eliminate as Elimination
#ifndef USE_STREAMLY_CORE
import qualified Stream.Exceptions as Exceptions
#endif
import qualified Stream.Expand as NestedStream
import qualified Stream.Generate as Generation
import qualified Stream.Lift as Lift
Expand Down Expand Up @@ -61,9 +59,7 @@ main = do
allBenchmarks env size = Prelude.concat
[ Generation.benchmarks moduleName size
, Elimination.benchmarks moduleName size
#ifndef USE_STREAMLY_CORE
, Exceptions.benchmarks moduleName env size
#endif
, Split.benchmarks moduleName env
, Transformation.benchmarks moduleName size
, NestedFold.benchmarks moduleName size
Expand Down
1 change: 1 addition & 0 deletions benchmark/Streamly/Benchmark/Data/Stream/Eliminate.hs
Original file line number Diff line number Diff line change
Expand Up @@ -261,6 +261,7 @@ uncons s = do
{-# INLINE toNull #-}
toNull :: Monad m => Stream m Int -> m ()
toNull = S.drain

{-# INLINE init #-}
init :: Monad m => Stream m a -> m ()
init s = S.init s >>= Prelude.mapM_ S.drain
Expand Down
Loading
Loading