1 files changed, 7 insertions, 1 deletions

diff --git a/lib/Numeric/LinearAlgebra/Interface.hs b/lib/Numeric/LinearAlgebra/Interface.hs
index 30547d9..f8917a0 100644
--- a/lib/Numeric/LinearAlgebra/Interface.hs
+++ b/lib/Numeric/LinearAlgebra/Interface.hs
@@ -28,6 +28,9 @@ import Numeric.LinearAlgebra.Instances()
 import Data.Packed.Vector
 import Data.Packed.Matrix
 import Numeric.LinearAlgebra.Algorithms
+import Numeric.LinearAlgebra.Linear
+
+--import Numeric.GSL.Vector
 
 class Mul a b c | a b -> c where
  infixl 7 <>
@@ -46,7 +49,8 @@ instance Mul Vector Matrix Vector where
 ---------------------------------------------------
 
 -- | Dot product: @u \<.\> v = dot u v@
-(<.>) :: (Field t) => Vector t -> Vector t -> t
+--(<.>) :: (Field t) => Vector t -> Vector t -> t
+(<.>) :: Vectors Vector t => Vector t -> Vector t -> t
 infixl 7 <.>
 (<.>) = dot
 
@@ -115,3 +119,5 @@ a <|> b = joinH a b
 -- (<->) :: (Element t, Joinable a b) => a t -> b t -> Matrix t
 a <-> b = joinV a b
 
+----------------------------------------------------
+