diff options
Diffstat (limited to 'packages/base/src/Numeric/Matrix.hs')
-rw-r--r-- | packages/base/src/Numeric/Matrix.hs | 4 |
1 files changed, 2 insertions, 2 deletions
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 | |||
90 | mconcat xs = work (partition isScalar xs) | 90 | mconcat xs = work (partition isScalar xs) |
91 | where | 91 | where |
92 | work (ss,[]) = product ss | 92 | work (ss,[]) = product ss |
93 | work (ss,ms) = scale' (product ss) (optimiseMult ms) | 93 | work (ss,ms) = scl (product ss) (optimiseMult ms) |
94 | scale' x m | 94 | scl x m |
95 | | isScalar x && x00 == 1 = m | 95 | | isScalar x && x00 == 1 = m |
96 | | otherwise = scale x00 m | 96 | | otherwise = scale x00 m |
97 | where | 97 | where |