From 0ab93b8eb934167e16dbae193c4fd2b5359a184b Mon Sep 17 00:00:00 2001 From: Alberto Ruiz Date: Fri, 16 May 2014 09:20:47 +0200 Subject: instances moved to base --- packages/hmatrix/src/Numeric/Container.hs | 6 +++++- 1 file changed, 5 insertions(+), 1 deletion(-) (limited to 'packages/hmatrix/src/Numeric/Container.hs') 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 -- cgit v1.2.3