From 102d6b19beadd76b28d32e1aa40844fad19af756 Mon Sep 17 00:00:00 2001
From: Alberto Ruiz <aruiz@um.es>
Date: Mon, 18 Jan 2010 09:51:31 +0000
Subject: deprecate .* and */

---
 lib/Numeric/LinearAlgebra/Tests/Instances.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'lib/Numeric/LinearAlgebra/Tests/Instances.hs')

diff --git a/lib/Numeric/LinearAlgebra/Tests/Instances.hs b/lib/Numeric/LinearAlgebra/Tests/Instances.hs
index 4995e39..d0adfba 100644
--- a/lib/Numeric/LinearAlgebra/Tests/Instances.hs
+++ b/lib/Numeric/LinearAlgebra/Tests/Instances.hs
@@ -180,7 +180,7 @@ instance (Field a, Arbitrary a, Num (Vector a)) => Arbitrary (PosDef a) where
         l <- replicateM n (choose (0,100))
         let s = diag (fromList l)
             p = v <> real s <> ctrans v
-        return $ PosDef (0.5 .* p + 0.5 .* ctrans p)
+        return $ PosDef (0.5 * p + 0.5 * ctrans p)
 
 #if MIN_VERSION_QuickCheck(2,0,0)
 #else
-- 
cgit v1.2.3