summaryrefslogtreecommitdiff
path: root/lib/Numeric/LinearAlgebra/Tests/Instances.hs
diff options
context:
space:
mode:
authorAlberto Ruiz <aruiz@um.es>2010-01-18 09:51:31 +0000
committerAlberto Ruiz <aruiz@um.es>2010-01-18 09:51:31 +0000
commit102d6b19beadd76b28d32e1aa40844fad19af756 (patch)
tree1b7736d5d392b0ef43e2e119fc2d1d1a91cd5831 /lib/Numeric/LinearAlgebra/Tests/Instances.hs
parent830164c7c34d874aa66754206be956f85456842f (diff)
deprecate .* and */
Diffstat (limited to 'lib/Numeric/LinearAlgebra/Tests/Instances.hs')
-rw-r--r--lib/Numeric/LinearAlgebra/Tests/Instances.hs2
1 files changed, 1 insertions, 1 deletions
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
180 l <- replicateM n (choose (0,100)) 180 l <- replicateM n (choose (0,100))
181 let s = diag (fromList l) 181 let s = diag (fromList l)
182 p = v <> real s <> ctrans v 182 p = v <> real s <> ctrans v
183 return $ PosDef (0.5 .* p + 0.5 .* ctrans p) 183 return $ PosDef (0.5 * p + 0.5 * ctrans p)
184 184
185#if MIN_VERSION_QuickCheck(2,0,0) 185#if MIN_VERSION_QuickCheck(2,0,0)
186#else 186#else