@@ -30,6 +30,9 @@ blockSize, blockCount :: Int
3030blockSize = 32768
3131blockCount = 3200
3232
33+fileSize :: Int
34+fileSize = blockSize * blockCount
35+
3336#ifdef DEVBUILD
3437-- This is a 500MB text file for text processing benchmarks. We cannot
3538-- have it in the repo, therefore we use it locally with DEVBUILD
@@ -38,9 +41,6 @@ blockCount = 3200
3841infile :: String
3942infile = "benchmark/text-processing/gutenberg-500.txt"
4043
41−fileSize :: Int
42−fileSize = blockSize * blockCount
43−
4444#else
4545infile :: String
4646infile = scratchDir ++ "in-100MB.txt"
@@ -204,21 +204,26 @@ main = do
204204 Handles inh outh <- readIORef href
205205 BFS.copyCodecUtf8Lenient inh outh
206206 ]
207− , bgroup "grouping"
208− [ mkBench "chunksOf (single chunk)" href $ do
207+#endif
208+ , bgroup "grouping-chunks"
209+ [ mkBench "sumChunksOf (single chunk)" href $ do
209210 Handles inh _ <- readIORef href
210− BFS.chunksOf fileSize inh
211+ BFS.chunksOfSum fileSize inh
212+ , mkBench "sumChunksOf 1" href $ do
213+ Handles inh _ <- readIORef href
214+ BFS.chunksOfSum 1 inh
211215
212− , mkBench "chunksOf 1" href $ do
216+ , mkBench "arraysOf 1" href $ do
213217 Handles inh _ <- readIORef href
214218 BFS.chunksOf 1 inh
215− , mkBench "chunksOf 10" href $ do
219+ , mkBench "arraysOf 10" href $ do
216220 Handles inh _ <- readIORef href
217221 BFS.chunksOf 10 inh
218− , mkBench "chunksOf 1000" href $ do
222+ , mkBench "arraysOf 1000" href $ do
219223 Handles inh _ <- readIORef href
220224 BFS.chunksOf 1000 inh
221225 ]
226+#ifdef DEVBUILD
222227 , bgroup "group-ungroup-stream"
223228 [ mkBench "lines-unlines-[Char]" href $ do
224229 Handles inh outh <- readIORef href