Benchmark cleanup, reorganize to make them more modular

.github/workflows/regression-check.yml

@@ -17,7 +17,6 @@ on:
 #----------------------------------------------------------------------
 #-- Benchmarks listed in alphabetical order
 #----------------------------------------------------------------------
-# Removed Data.Fold.Prelude - was failing for some reason (memory issue?)
 jobs:
   build:
     name: "Comparison: master vs PR (ubuntu-latest ghc-9.14.1)"
@@ -27,8 +26,8 @@ jobs:
       CI_BENCHMARKS_WITH_CUTOFF: >-
         Data.Array
         Data.Array.Generic
-        Data.Array.Stream
         Data.Fold
+        Data.Fold.Prelude
         Data.MutArray
         Data.MutByteArray.DeriveSerialize
         Data.MutByteArray.DeriveUnboxGeneric
@@ -37,7 +36,9 @@ jobs:
         Data.ParserK
         Data.ParserK.Chunked
         Data.ParserK.Chunked.Generic
+        Data.Pipe
         Data.RingArray
+        Data.Scan
         Data.Scanl
         Data.Scanl.Concurrent
         Data.Stream
@@ -49,6 +50,7 @@ jobs:
         Data.StreamK:6
         Data.Unfold
         Data.Unfold.Prelude
+        CrossModule
         FileSystem.DirIO
         FileSystem.Handle
         Unicode.Parser

benchmark/Streamly/Benchmark/CrossModule.hs

@@ -0,0 +1,40 @@
+--
+-- Module      : CrossModule
+-- Copyright   : (c) 2019 Composewell Technologies
+-- License     : BSD-3-Clause
+-- Maintainer  : streamly@composewell.com
+-- Stability   : experimental
+-- Portability : GHC
+--
+-- Driver for benchmarks that combine operations from multiple library modules,
+-- primarily to test fusion and performance across module boundaries (e.g. file
+-- I/O fused with stream folds, chunking and splitting operations).
+
+import Test.Tasty.Bench hiding (env)
+import Streamly.Benchmark.Common
+import Streamly.Benchmark.Common.Handle
+
+import qualified CrossModule.FileSystem as FileSystem
+import qualified CrossModule.Split as Split
+import qualified CrossModule.SplitChunks as SplitChunks
+
+moduleName :: String
+moduleName = "CrossModule"
+
+main :: IO ()
+main = do
+    env <- mkHandleBenchEnv
+    defaultMain (allBenchmarks env)
+
+    where
+
+    allBenchmarks env =
+        let allBenches =
+                   FileSystem.benchmarks env
+                ++ Split.benchmarks env
+                ++ SplitChunks.benchmarks env
+            get x = map snd $ filter ((==) x . fst) allBenches
+            o_1_space = get SpaceO_1
+        in
+        [ bgroup (o_1_space_prefix moduleName) o_1_space
+        ]