git.iko.soy/streamly
on efecb26 help sign in
streamly/benchmark/Streamly/Benchmark/Data/Stream/ConcurrentInterleaved.hs
25 lines 736 B history raw
1{-# LANGUAGE FlexibleContexts #-}
2-- |
3-- Module : Main
4-- Copyright : (c) 2022 Composewell Technologies
5--
6-- License : BSD3
7-- Maintainer : streamly@composewell.com
9import Stream.ConcurrentCommon (allBenchmarks)
10import Streamly.Benchmark.Common (runWithCLIOpts, defaultStreamSize)
12import qualified Streamly.Internal.Data.Stream.Concurrent as Async
14moduleName :: String
15moduleName = "Data.Stream.ConcurrentInterleaved"
17-------------------------------------------------------------------------------
18-- Main
19-------------------------------------------------------------------------------
21main :: IO ()
22main =
23 runWithCLIOpts
24 defaultStreamSize
25 (allBenchmarks moduleName True (Async.interleaved True))