added Vectors typeclass and refactored

1 files changed, 3 insertions, 2 deletions

diff --git a/lib/Numeric/LinearAlgebra/Algorithms.hs b/lib/Numeric/LinearAlgebra/Algorithms.hs
index 55398e0..e058490 100644
--- a/lib/Numeric/LinearAlgebra/Algorithms.hs
+++ b/lib/Numeric/LinearAlgebra/Algorithms.hs
@@ -22,7 +22,7 @@ module Numeric.LinearAlgebra.Algorithms (
 -- * Supported types
     Field(),
 -- * Products
-    multiply, dot,
+    multiply, -- dot, moved dot to typeclass
     outer, kronecker,
 -- * Linear Systems
     linearSolve,
@@ -707,12 +707,13 @@ luFact (l_u,perm) | r <= c    = (l ,u ,p, s)
 
 --------------------------------------------------
 
+{- moved to Numeric.LinearAlgebra.Interface Vector typeclass
 -- | Euclidean inner product.
 dot :: (Field t) => Vector t -> Vector t -> t
 dot u v = multiply r c  @@> (0,0)
     where r = asRow u
           c = asColumn v
-
+-}
 
 {- | Outer product of two vectors.