diff options
Diffstat (limited to 'ops/Data/Array/Strided/Arith/Internal.hs')
| -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 |