mirror of
https://github.com/composewell/streamly.git
synced 2024-10-26 11:39:05 +03:00
Fix array comparison benchmarks
This commit is contained in:
parent
0cfd6251c1
commit
9b8398668a
@ -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 "/"
|
||||
)
|
||||
|
||||
------------------------------------------------------------------------------
|
||||
|
@ -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="\
|
||||
|
Loading…
Reference in New Issue
Block a user