From 9c65a03f4e2b3b09f6f2ac606c5b22f6df9cea14 Mon Sep 17 00:00:00 2001
From: Alberto Ruiz <aruiz@um.es>
Date: Tue, 23 Oct 2007 19:53:03 +0000
Subject: removed conjTrans

---
 examples/tests.hs | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'examples/tests.hs')

diff --git a/examples/tests.hs b/examples/tests.hs
index 974ec24..b44d140 100644
--- a/examples/tests.hs
+++ b/examples/tests.hs
@@ -83,7 +83,7 @@ her (Her a) = a
 instance {-(Field a, Arbitrary a, Num a) =>-} Arbitrary Her where
     arbitrary = do
         SqM m <- arbitrary
-        return $ Her (m + conjTrans m)
+        return $ Her (m + ctrans m)
     coarbitrary = undefined
 
 data PairSM a = PairSM (Matrix a) (Matrix a) deriving Show
@@ -125,7 +125,7 @@ pseudorandomC seed (n,m) = toComplex (pseudorandomR seed (n,m), pseudorandomR (s
 
 bigmat = m + trans m :: RM
     where m = pseudorandomR 18 (1000,1000)
-bigmatc = mc + conjTrans mc ::CM
+bigmatc = mc + ctrans mc ::CM
     where mc = pseudorandomC 19 (1000,1000)
 
 ----------------------------------------------------------------------
-- 
cgit v1.2.3