Fix the type of zip2 to be more general.

diff --git a/src/Linear/Matrix.hs b/src/Linear/Matrix.hs
index cefad606de25e0d59974386f0cf46f4adaa5dedf..82665578cf037def7c04ef223a8b6e350ad9232f 100644 (file)
--- a/src/Linear/Matrix.hs
+++ b/src/Linear/Matrix.hs
@@ -856,7 +856,7 @@ trace matrix =
 --   >>> zip2 m1 m2
 --   (((1,1),(2,1)),((3,1),(4,1)))
 --
-zip2 :: (Arity m, Arity n) => Mat m n a -> Mat m n a -> Mat m n (a,a)
+zip2 :: (Arity m, Arity n) => Mat m n a -> Mat m n b -> Mat m n (a,b)
 zip2 m1 m2 =
   construct lambda
   where