diff options
| author | Tom Smeding <tom@tomsmeding.com> | 2025-12-02 15:03:10 +0100 |
|---|---|---|
| committer | Tom Smeding <tom@tomsmeding.com> | 2025-12-02 15:03:43 +0100 |
| commit | b63642a41f3bddc991d92f2f59b9e3ad53c1f15e (patch) | |
| tree | a63b978be8baab76c7aa7a99b13a93b408bfc913 /bench/Main.hs | |
| parent | af0c099079dae7aa52a660b883204035cbed99c3 (diff) | |
Provide ix*FromLinear for all three shape kinds
This speeds up {r,s}generatePrim
Diffstat (limited to 'bench/Main.hs')
| -rw-r--r-- | bench/Main.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/bench/Main.hs b/bench/Main.hs index 01d9a3f..2058e77 100644 --- a/bench/Main.hs +++ b/bench/Main.hs @@ -144,10 +144,10 @@ main_tests = defaultMain ,bench "ixxFromLinear 10000x" $ let n = 10000 sh0 = SUnknown 10 :$% SUnknown 10 :$% SUnknown 10 :$% SUnknown 10 :$% SUnknown 10 :$% ZSX - in nf (\sh -> [ixxFromLinear sh i | i <- [1..n]]) sh0 + in nf (\sh -> [ixxFromLinear @Int sh i | i <- [1..n]]) sh0 ,bench "ixxFromLinear 1x" $ let sh0 = SUnknown 10 :$% SUnknown 10 :$% SUnknown 10 :$% SUnknown 10 :$% SUnknown 10 :$% ZSX - in nf (\sh -> ixxFromLinear sh 1234) sh0 + in nf (\sh -> ixxFromLinear @Int sh 1234) sh0 ,bench "shxEnum" $ let sh0 = SUnknown 10 :$% SUnknown 10 :$% SUnknown 10 :$% SUnknown 10 :$% SUnknown 10 :$% ZSX in nf (\sh -> shxEnum sh) sh0 |