From 11c3fda9ff63c466566e1f1375f5d8ae03833c90 Mon Sep 17 00:00:00 2001 From: Tom Smeding Date: Wed, 12 Mar 2025 23:17:48 +0100 Subject: Slight cleanup of arith instances for Mixed/Ranked/Shaped Reformulate error messages; add NumElt superclass to FloatElt --- src/Data/Array/Mixed/Internal/Arith.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'src/Data/Array/Mixed/Internal') diff --git a/src/Data/Array/Mixed/Internal/Arith.hs b/src/Data/Array/Mixed/Internal/Arith.hs index fede541..313c885 100644 --- a/src/Data/Array/Mixed/Internal/Arith.hs +++ b/src/Data/Array/Mixed/Internal/Arith.hs @@ -794,7 +794,7 @@ instance NumElt CInt where numEltDotprodInner = intWidBranchDotprod @CInt (scaleFromSVStrided (c_binary_i32_sv_strided (aboEnum BO_MUL))) (c_reduce1_i32 (aroEnum RO_SUM)) c_dotprodinner_i32 (scaleFromSVStrided (c_binary_i64_sv_strided (aboEnum BO_MUL))) (c_reduce1_i64 (aroEnum RO_SUM)) c_dotprodinner_i64 -class FloatElt a where +class NumElt a => FloatElt a where floatEltDiv :: SNat n -> RS.Array n a -> RS.Array n a -> RS.Array n a floatEltPow :: SNat n -> RS.Array n a -> RS.Array n a -> RS.Array n a floatEltLogbase :: SNat n -> RS.Array n a -> RS.Array n a -> RS.Array n a -- cgit v1.2.3-70-g09d2