diff options
Diffstat (limited to 'examples/tests.hs')
| -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) |