summaryrefslogtreecommitdiff
path: root/packages/tests
diff options
context:
space:
mode:
Diffstat (limited to 'packages/tests')
-rw-r--r--packages/tests/src/Numeric/LinearAlgebra/Tests/Instances.hs6
1 files changed, 3 insertions, 3 deletions
diff --git a/packages/tests/src/Numeric/LinearAlgebra/Tests/Instances.hs b/packages/tests/src/Numeric/LinearAlgebra/Tests/Instances.hs
index 647a06c..30bf690 100644
--- a/packages/tests/src/Numeric/LinearAlgebra/Tests/Instances.hs
+++ b/packages/tests/src/Numeric/LinearAlgebra/Tests/Instances.hs
@@ -153,7 +153,7 @@ instance (ArbitraryField a) => Arbitrary (WC a) where
153 n = min r c 153 n = min r c
154 sv' <- replicateM n (choose (1,100)) 154 sv' <- replicateM n (choose (1,100))
155 let s = diagRect 0 (fromList sv') r c 155 let s = diagRect 0 (fromList sv') r c
156 return $ WC (u <> real s <> trans v) 156 return $ WC (u `mXm` real s `mXm` trans v)
157 157
158#if MIN_VERSION_QuickCheck(2,0,0) 158#if MIN_VERSION_QuickCheck(2,0,0)
159#else 159#else
@@ -170,7 +170,7 @@ instance (ArbitraryField a) => Arbitrary (SqWC a) where
170 n = rows m 170 n = rows m
171 sv' <- replicateM n (choose (1,100)) 171 sv' <- replicateM n (choose (1,100))
172 let s = diag (fromList sv') 172 let s = diag (fromList sv')
173 return $ SqWC (u <> real s <> trans v) 173 return $ SqWC (u `mXm` real s `mXm` trans v)
174 174
175#if MIN_VERSION_QuickCheck(2,0,0) 175#if MIN_VERSION_QuickCheck(2,0,0)
176#else 176#else
@@ -188,7 +188,7 @@ instance (ArbitraryField a, Num (Vector a))
188 n = rows m 188 n = rows m
189 l <- replicateM n (choose (0,100)) 189 l <- replicateM n (choose (0,100))
190 let s = diag (fromList l) 190 let s = diag (fromList l)
191 p = v <> real s <> ctrans v 191 p = v `mXm` real s `mXm` ctrans v
192 return $ PosDef (0.5 * p + 0.5 * ctrans p) 192 return $ PosDef (0.5 * p + 0.5 * ctrans p)
193 193
194#if MIN_VERSION_QuickCheck(2,0,0) 194#if MIN_VERSION_QuickCheck(2,0,0)