This commit is contained in:
Ranjeet Kumar Ranjan 2023-08-21 12:35:16 +05:30
parent 2a8c658b14
commit 41c77860f4

View File

@ -23,7 +23,7 @@ import Control.DeepSeq (NFData(..))
import Control.Monad.IO.Class (MonadIO)
import Data.Foldable (asum)
#ifdef BENCH_CHUNKED
import Streamly.Data.Array (Array, Unbox)
import Streamly.Data.Array (Array, Unbox, streamChunksOf)
#endif
#ifdef BENCH_CHUNKED_GENERIC
import Streamly.Data.Array.Generic (Array)
@ -41,7 +41,6 @@ import Prelude hiding
import qualified Control.Applicative as AP
import qualified Data.Foldable as F
import qualified Data.Traversable as TR
import qualified Streamly.Data.Array as Array
import qualified Streamly.Data.Stream as Stream
import qualified Streamly.Data.Fold as FL
import qualified Streamly.Internal.Data.Fold as Fold
@ -117,7 +116,7 @@ benchIOSink value name f =
>>= f
. StreamK.fromStream
#ifdef BENCH_CHUNKED
. Array.streamChunksOf 4000
. streamChunksOf 4000
#endif
#ifdef BENCH_CHUNKED_GENERIC
. GenArr.chunksOf 4000