From b63642a41f3bddc991d92f2f59b9e3ad53c1f15e Mon Sep 17 00:00:00 2001
From: Tom Smeding <tom@tomsmeding.com>
Date: Tue, 2 Dec 2025 15:03:10 +0100
Subject: Provide ix*FromLinear for all three shape kinds

This speeds up {r,s}generatePrim
---
 bench/Main.hs | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'bench/Main.hs')

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
-- 
cgit v1.2.3-70-g09d2