From b5125366953a6ae66ff014b736baf79c0feb47dd Mon Sep 17 00:00:00 2001 From: Alberto Ruiz Date: Thu, 22 May 2014 20:08:22 +0200 Subject: auxliary container functions --- packages/base/src/Numeric/Matrix.hs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'packages/base/src/Numeric/Matrix.hs') diff --git a/packages/base/src/Numeric/Matrix.hs b/packages/base/src/Numeric/Matrix.hs index 719b591..a9022c6 100644 --- a/packages/base/src/Numeric/Matrix.hs +++ b/packages/base/src/Numeric/Matrix.hs @@ -90,8 +90,8 @@ instance (Container Vector t, Eq t, Num (Vector t), Product t) => M.Monoid (Matr mconcat xs = work (partition isScalar xs) where work (ss,[]) = product ss - work (ss,ms) = scale' (product ss) (optimiseMult ms) - scale' x m + work (ss,ms) = scl (product ss) (optimiseMult ms) + scl x m | isScalar x && x00 == 1 = m | otherwise = scale x00 m where -- cgit v1.2.3