From e0528e1a1e9ada67a39a0494f7dfccc2b6aefcad Mon Sep 17 00:00:00 2001 From: Alberto Ruiz Date: Sat, 15 Sep 2007 17:55:50 +0000 Subject: code refactoring --- lib/Data/Packed/Internal/Matrix.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'lib/Data') diff --git a/lib/Data/Packed/Internal/Matrix.hs b/lib/Data/Packed/Internal/Matrix.hs index 8bca510..951cec6 100644 --- a/lib/Data/Packed/Internal/Matrix.hs +++ b/lib/Data/Packed/Internal/Matrix.hs @@ -172,7 +172,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, Num a) => Field a where +class (Storable a, Floating 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