1 files changed, 3 insertions, 3 deletions
diff --git a/lib/Numeric/LinearAlgebra/Tests/Instances.hs b/lib/Numeric/LinearAlgebra/Tests/Instances.hs
index 677ad2b..4e829d2 100644
--- a/lib/Numeric/LinearAlgebra/Tests/Instances.hs
+++ b/lib/Numeric/LinearAlgebra/Tests/Instances.hs
@@ -30,9 +30,9 @@ import Control.Monad(replicateM)
 instance (Arbitrary a, RealFloat a) => Arbitrary (Complex a) where
    arbitrary = do
-        r <- arbitrary
+        re <- arbitrary
-        i <- arbitrary
+        im <- arbitrary
-        return (r:+i)
+        return (re :+ im)
    coarbitrary = undefined
 chooseDim = sized $ \m -> choose (1,max 1 m)

diff --git a/lib/Numeric/LinearAlgebra/Tests/Instances.hs b/lib/Numeric/LinearAlgebra/Tests/Instances.hs index 677ad2b..4e829d2 100644 --- a/lib/Numeric/LinearAlgebra/Tests/Instances.hs +++ b/lib/Numeric/LinearAlgebra/Tests/Instances.hs
@@ -30,9 +30,9 @@ import Control.Monad(replicateM)
30		30
31	instance (Arbitrary a, RealFloat a) => Arbitrary (Complex a) where	31	instance (Arbitrary a, RealFloat a) => Arbitrary (Complex a) where
32	arbitrary = do	32	arbitrary = do
33	r <- arbitrary	33	re <- arbitrary
34	i <- arbitrary	34	im <- arbitrary
35	return (r:+i)	35	return (re :+ im)
36	coarbitrary = undefined	36	coarbitrary = undefined
37		37
38	chooseDim = sized $ \m -> choose (1,max 1 m)	38	chooseDim = sized $ \m -> choose (1,max 1 m)