diff options
Diffstat (limited to 'lib/Numeric/LinearAlgebra/Tests')
-rw-r--r-- | lib/Numeric/LinearAlgebra/Tests/Instances.hs | 2 |
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 |