From aa14e6615533e7bd5e2b15acdc3ec76afbe1aac4 Mon Sep 17 00:00:00 2001 From: Alberto Ruiz Date: Thu, 21 Jun 2007 08:39:22 +0000 Subject: working with tensors --- lib/Data/Packed/Internal/Common.hs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'lib/Data/Packed/Internal/Common.hs') diff --git a/lib/Data/Packed/Internal/Common.hs b/lib/Data/Packed/Internal/Common.hs index acefe92..91985f7 100644 --- a/lib/Data/Packed/Internal/Common.hs +++ b/lib/Data/Packed/Internal/Common.hs @@ -74,8 +74,8 @@ check msg ls f = do mapM_ (touchForeignPtr . fptr) ls return () -class (Storable a, Typeable a) => Field a where -instance (Storable a, Typeable a) => Field a where +class (Storable a, Typeable a) => Field a +instance (Storable a, Typeable a) => Field a isReal w x = typeOf (undefined :: Double) == typeOf (w x) isComp w x = typeOf (undefined :: Complex Double) == typeOf (w x) -- cgit v1.2.3