diff options
Diffstat (limited to 'examples')
-rw-r--r-- | examples/tests.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/examples/tests.hs b/examples/tests.hs index 7eabf87..56bd2ab 100644 --- a/examples/tests.hs +++ b/examples/tests.hs | |||
@@ -189,7 +189,7 @@ instance (Field a, Arbitrary a) => Arbitrary (PairV a) where | |||
189 | 189 | ||
190 | 190 | ||
191 | 191 | ||
192 | type BaseType = Double | 192 | type BaseType = Complex Double |
193 | 193 | ||
194 | svdTestR fun m = u <> s <> trans v |~| m | 194 | svdTestR fun m = u <> s <> trans v |~| m |
195 | && u <> trans u |~| ident (rows m) | 195 | && u <> trans u |~| ident (rows m) |