diff options
| author | Tom Smeding <tom@tomsmeding.com> | 2025-03-20 13:22:28 +0100 |
|---|---|---|
| committer | Tom Smeding <tom@tomsmeding.com> | 2025-03-20 13:22:28 +0100 |
| commit | 8d01c5d7d6fba8d7afef1d7bd19d9f3991982032 (patch) | |
| tree | 9349eed336ff93d890acbe1b579fa5bee0437292 | |
| parent | 2c080cb245a616565b14d78159fcc50ffad6f760 (diff) | |
Fix typo in error message
| -rw-r--r-- | ops/Data/Array/Strided/Arith/Internal.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/ops/Data/Array/Strided/Arith/Internal.hs b/ops/Data/Array/Strided/Arith/Internal.hs index fe0fc4b..a74e43d 100644 --- a/ops/Data/Array/Strided/Arith/Internal.hs +++ b/ops/Data/Array/Strided/Arith/Internal.hs @@ -79,7 +79,7 @@ liftOpEltwise2 :: Storable a liftOpEltwise2 sn@SNat valconv ptrconv f_ss f_sv f_vs f_vv arr1@(Array sh1 strides1 offset1 vec1) arr2@(Array sh2 strides2 offset2 vec2) - | sh1 /= sh2 = error $ "liftVEltwise2: shapes unequal: " ++ show sh1 ++ " vs " ++ show sh2 + | sh1 /= sh2 = error $ "liftOpEltwise2: shapes unequal: " ++ show sh1 ++ " vs " ++ show sh2 | any (<= 0) sh1 = Array sh1 (0 <$ strides1) 0 VS.empty | otherwise = case (stridesDense sh1 offset1 strides1, stridesDense sh2 offset2 strides2) of (Just (_, 1), Just (_, 1)) -> -- both are a (potentially replicated) scalar; just apply f to the scalars |