diff options
author | Alberto Ruiz <aruiz@um.es> | 2014-05-22 20:08:22 +0200 |
---|---|---|
committer | Alberto Ruiz <aruiz@um.es> | 2014-05-22 20:08:22 +0200 |
commit | b5125366953a6ae66ff014b736baf79c0feb47dd (patch) | |
tree | 70d18652c9c5d1ecd49beb152de5d1bca29fe7f0 /packages/base/src/Numeric/Matrix.hs | |
parent | 9c4406534e826badee79b1fe585c9c11f0fa01a5 (diff) |
auxliary container functions
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 |