From f7025bc3727e5ee058df3dfebb1fb73b933ee6b0 Mon Sep 17 00:00:00 2001 From: Tom Smeding Date: Sat, 15 Nov 2025 11:24:00 +0100 Subject: arith: Add IntElt instances for Int8 and Int16 --- ops/Data/Array/Strided/Arith/Internal.hs | 8 ++++++++ 1 file changed, 8 insertions(+) (limited to 'ops/Data') diff --git a/ops/Data/Array/Strided/Arith/Internal.hs b/ops/Data/Array/Strided/Arith/Internal.hs index 6364802..d94fc65 100644 --- a/ops/Data/Array/Strided/Arith/Internal.hs +++ b/ops/Data/Array/Strided/Arith/Internal.hs @@ -860,6 +860,14 @@ class NumElt a => IntElt a where intEltQuot :: SNat n -> Array n a -> Array n a -> Array n a intEltRem :: SNat n -> Array n a -> Array n a -> Array n a +instance IntElt Int8 where + intEltQuot = quotVectorInt8 + intEltRem = remVectorInt8 + +instance IntElt Int16 where + intEltQuot = quotVectorInt16 + intEltRem = remVectorInt16 + instance IntElt Int32 where intEltQuot = quotVectorInt32 intEltRem = remVectorInt32 -- cgit v1.2.3-70-g09d2