composewell/streamly
1
1
Fork 0
mirror of https://github.com/composewell/streamly.git synced 2024-08-16 15:00:25 +03:00
Code Issues Packages Projects Releases Wiki Activity

Fix array comparison benchmarks

Browse Source
This commit is contained in:
Harendra Kumar 2021-09-03 14:50:38 +00:00
parent 0cfd6251c1
commit 9b8398668a
2 changed files with 9 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
benchmark/bench-report/BenchReport.hs
View File

@ -185,16 +185,19 @@ showComparisons Options{..} cfg inp out =
where
separator = if useGauge then '/' else '.'
dropComponent = dropWhile (== separator) . dropWhile (/= separator)
dropComponent sep = dropWhile (== sep) . dropWhile (/= sep)
-- In case of tasty-bench the names could be like
-- All.Data.Array.Prim.Pinned/o-1-space.generation.show
-- All.Data.Array.Foreign/o-1-space.generation.show
classifyComparison b =
let b1 =
if useGauge
then b
else dropComponent b --- drop "All." at the beginning
else dropComponent separator b --- drop "All." at the beginning
in Just
( takeWhile (/= separator) b1
, dropComponent b1
( takeWhile (/= '/') b1
, dropComponent '/' b1 -- for tasty-bench drop up to "/"
)
------------------------------------------------------------------------------

4
bin/targets.sh
View File

@ -76,8 +76,8 @@ targets () {
serial_wserial_cmp="Prelude.Serial Prelude.WSerial"
serial_async_cmp="Prelude.Serial Prelude.Async"
concurrent_cmp="Prelude.Async Prelude.WAsync Prelude.Ahead Prelude.Parallel"
array_cmp="Memory.Array Data.Array.Prim Data.Array Data.Array.Prim.Pinned"
pinned_array_cmp="Memory.Array Data.Array.Prim.Pinned"
array_cmp="Data.Array.Foreign Data.Array.Prim Data.Array Data.Array.Prim.Pinned"
pinned_array_cmp="Data.Array.Foreign Data.Array.Prim.Pinned"
base_parser_cmp=$base_parser_grp
COMPARISONS="\