streamly-0.7.2: benchmark/Streamly/Benchmark/Prelude/LinearAsync.hs

-- |
-- Module      : Main
-- Copyright   : (c) 2018 Harendra Kumar
--
-- License     : BSD3
-- Maintainer  : streamly@composewell.com

import Streamly.Benchmark.Common
import Streamly.Benchmark.Prelude

import Gauge

main :: IO ()
main = do
    (value, cfg, benches) <- parseCLIOpts defaultStreamSize
    value `seq` runMode (mode cfg) cfg benches (allBenchmarks value)
  where
    allBenchmarks value =
        concat
             [ async value
             , wAsync value
             , ahead value
             , zipAsync value
             ]
    async value =
        concat
            [ o_1_space_async_generation value
            , o_1_space_async_concatFoldable value
            , o_1_space_async_concatMap value
            , o_1_space_async_transformation value
            ]
    wAsync value =
        concat
            [ o_1_space_wAsync_generation value
            , o_1_space_wAsync_concatFoldable value
            , o_1_space_wAsync_concatMap value
            , o_1_space_wAsync_transformation value
            ]
    ahead value =
        concat
            [ o_1_space_ahead_generation value
            , o_1_space_ahead_concatFoldable value
            , o_1_space_ahead_concatMap value
            , o_1_space_ahead_transformation value
            ]
    zipAsync = o_1_space_async_zip