From 9e2f7fb0ca902665b430a96f77959522976a97f9 Mon Sep 17 00:00:00 2001 From: Alberto Ruiz Date: Fri, 14 Sep 2007 11:06:57 +0000 Subject: code refactoring --- lib/Data/Packed/Internal/Matrix.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'lib/Data/Packed/Internal') diff --git a/lib/Data/Packed/Internal/Matrix.hs b/lib/Data/Packed/Internal/Matrix.hs index f9dd9a9..89a162a 100644 --- a/lib/Data/Packed/Internal/Matrix.hs +++ b/lib/Data/Packed/Internal/Matrix.hs @@ -171,7 +171,7 @@ compat m1 m2 = rows m1 == rows m2 && cols m1 == cols m2 ---------------------------------------------------------------- -- | Optimized matrix computations are provided for elements in the Field class. -class Storable a => Field a where +class (Storable a, Num a) => Field a where constantD :: a -> Int -> Vector a transdata :: Int -> Vector a -> Int -> Vector a multiplyD :: Matrix a -> Matrix a -> Matrix a -- cgit v1.2.3