From 12deeb5550d31042816b43e95f7d5678a706c32e Mon Sep 17 00:00:00 2001 From: Alberto Ruiz Date: Wed, 15 Apr 2015 09:15:54 +0200 Subject: minor changes --- packages/tests/src/Numeric/LinearAlgebra/Tests.hs | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) (limited to 'packages/tests/src/Numeric') diff --git a/packages/tests/src/Numeric/LinearAlgebra/Tests.hs b/packages/tests/src/Numeric/LinearAlgebra/Tests.hs index a25f4cb..cf0f581 100644 --- a/packages/tests/src/Numeric/LinearAlgebra/Tests.hs +++ b/packages/tests/src/Numeric/LinearAlgebra/Tests.hs @@ -216,7 +216,7 @@ normsMTest = TestList [ ] where v = (2><2) [1,-2*iC,3:+4,7] :: Matrix (Complex Double) x = (2><2) [1,2,-3,5] :: Matrix Double a =~= b = fromList [a] :~10~: fromList [b] - a =~~= b = fromList [a] :~5~: fromList [b] +-- a =~~= b = fromList [a] :~5~: fromList [b] --------------------------------------------------------------------- @@ -592,8 +592,8 @@ runTests n = do -- single precision approximate equality -infixl 4 |~~| -a |~~| b = a :~6~: b +-- infixl 4 |~~| +-- a |~~| b = a :~6~: b makeUnitary v | realPart n > 1 = v / scalar n | otherwise = v -- cgit v1.2.3