1 files changed, 5 insertions, 1 deletions

diff --git a/packages/hmatrix/src/Numeric/Container.hs b/packages/hmatrix/src/Numeric/Container.hs
index 645a83f..e7f23d4 100644
--- a/packages/hmatrix/src/Numeric/Container.hs
+++ b/packages/hmatrix/src/Numeric/Container.hs
@@ -66,11 +66,11 @@ module Numeric.Container (
 
 import Data.Packed hiding (stepD, stepF, condD, condF, conjugateC, conjugateQ)
 import Data.Packed.Numeric
-import Numeric.Chain
 import Numeric.IO
 import Data.Complex
 import Numeric.LinearAlgebra.Algorithms(Field,linearSolveSVD)
 import Numeric.Random
+import Data.Monoid(Monoid(mconcat))
 
 ------------------------------------------------------------------
 
@@ -268,4 +268,8 @@ infixl 7 ◇
 dot :: (Container Vector t, Product t) => Vector t -> Vector t -> t
 dot u v = udot (conj u) v
 
+--------------------------------------------------------------------------------
+
+optimiseMult :: Monoid (Matrix t) => [Matrix t] -> Matrix t
+optimiseMult = mconcat