@@ -336,12 +336,12 @@ main = do
336 Just opts@Options{..} ->
336 Just opts@Options{..} ->
337 case benchType of
337 case benchType of
338 Linear -> benchShow opts cfg
338 Linear -> benchShow opts cfg
339− { title = Just "100,000 elems" }
339+ { title = Just "Linear" }
340 makeLinearGraphs
340 makeLinearGraphs
341 "charts/linear/results.csv"
341 "charts/linear/results.csv"
342 "charts/linear"
342 "charts/linear"
343 LinearAsync -> benchShow opts cfg
343 LinearAsync -> benchShow opts cfg
344− { title = Just "Async 10,000 elems" }
344+ { title = Just "Linear Async" }
345 makeLinearAsyncGraphs
345 makeLinearAsyncGraphs
346 "charts/linear-async/results.csv"
346 "charts/linear-async/results.csv"
347 "charts/linear-async"
347 "charts/linear-async"
@@ -349,17 +349,17 @@ main = do
349 "charts/linear-rate/results.csv"
349 "charts/linear-rate/results.csv"
350 "charts/linear-rate"
350 "charts/linear-rate"
351 Nested -> benchShow opts cfg
351 Nested -> benchShow opts cfg
352− { title = Just "Nested loops 316 x 316 elems" }
352+ { title = Just "Nested loops" }
353 makeNestedGraphs
353 makeNestedGraphs
354 "charts/nested/results.csv"
354 "charts/nested/results.csv"
355 "charts/nested"
355 "charts/nested"
356 NestedConcurrent -> benchShow opts cfg
356 NestedConcurrent -> benchShow opts cfg
357− { title = Just "Nested concurrent loops 316 x 316 elems" }
357+ { title = Just "Nested concurrent loops" }
358 makeNestedGraphs
358 makeNestedGraphs
359 "charts/nested-concurrent/results.csv"
359 "charts/nested-concurrent/results.csv"
360 "charts/nested-concurrent"
360 "charts/nested-concurrent"
361 NestedUnfold -> benchShow opts cfg
361 NestedUnfold -> benchShow opts cfg
362− { title = Just "Nested unfold loops 316 x 316 elems" }
362+ { title = Just "Nested unfold loops" }
363 makeNestedGraphs
363 makeNestedGraphs
364 "charts/nested-unfold/results.csv"
364 "charts/nested-unfold/results.csv"
365 "charts/nested-unfold"
365 "charts/nested-unfold"
@@ -379,7 +379,7 @@ main = do
379 "charts/concurrent/results.csv"
379 "charts/concurrent/results.csv"
380 "charts/concurrent"
380 "charts/concurrent"
381 Base -> do
381 Base -> do
382− let cfg' = cfg { title = Just "100,000 elems" }
382+ let cfg' = cfg { title = Just "Base stream" }
383 if groupDiff
383 if groupDiff
384 then showStreamDVsK opts cfg'
384 then showStreamDVsK opts cfg'
385 "charts/base/results.csv"
385 "charts/base/results.csv"