3 files changed, 10 insertions, 9 deletions

diff --git a/CHANGELOG b/CHANGELOG
index 766bf26..3ddb4cb 100644
--- a/CHANGELOG
+++ b/CHANGELOG
@@ -10,11 +10,12 @@
 
     * join deprecated, use vjoin
 
-    * added udot (unconjugated dot product)
     * added (·) = cdot, which conjugates the first input vector
-    * dot and (<.>) deprecated, use udot or (×)
+    * added udot (unconjugated dot product)
+    * deprecated dot, use udot or (×) to keep the old behaviour
     
-    * added alternative overloaded multiplication operator (×)
+    * added alternative overloaded multiplication operator (×) (or (<.>))
+    * (<.>) changed to infixr
     * added Monoid instance for Matrix using matrix product
     
     * improved build and konst
diff --git a/lib/Numeric/Container.hs b/lib/Numeric/Container.hs
index dea8a79..7e46147 100644
--- a/lib/Numeric/Container.hs
+++ b/lib/Numeric/Container.hs
@@ -38,7 +38,7 @@ module Numeric.Container (
     -- * Matrix product
     Product(..), udot,
     Mul(..),
-    Contraction(..), mmul,
+    Contraction(..),
     optimiseMult,
     mXm,mXv,vXm,LSDiv(..), cdot, (·), dot, (<.>),
     outer, kronecker,
@@ -296,8 +296,8 @@ meanCov x = (med,cov) where
 dot :: Product e => Vector e -> Vector e -> e
 dot = udot
 
-{-# DEPRECATED (<.>) "use udot or (×)" #-}
-infixl 7 <.>
-(<.>) :: Product e => Vector e -> Vector e -> e
-(<.>) = udot
+-- | contraction operator, equivalent to (x)
+infixr 7 <.>
+(<.>) :: Contraction a b c => a -> b -> c
+(<.>) = (×)
 
diff --git a/lib/Numeric/HMatrix.hs b/lib/Numeric/HMatrix.hs
index 09ad518..2e01454 100644
--- a/lib/Numeric/HMatrix.hs
+++ b/lib/Numeric/HMatrix.hs
@@ -123,7 +123,7 @@ module Numeric.HMatrix (
     rand, randn, RandDist(..), randomVector, gaussianSample, uniformSample,
     
     -- * Misc
-    meanCov, peps, relativeError, haussholder, optimiseMult, udot, cdot, mmul
+    meanCov, peps, relativeError, haussholder, optimiseMult, udot, cdot, (<.>)
 ) where
 
 import Numeric.HMatrix.Data