diff options
| author | Alberto Ruiz <aruiz@um.es> | 2007-06-21 08:39:22 +0000 |
|---|---|---|
| committer | Alberto Ruiz <aruiz@um.es> | 2007-06-21 08:39:22 +0000 |
| commit | aa14e6615533e7bd5e2b15acdc3ec76afbe1aac4 (patch) | |
| tree | 619fc0cdb35be0d67a111dc2665981aa858ebd5e /lib/Data/Packed/Internal/Common.hs | |
| parent | b2af660f87a55dd15f4519b21e66837ec811dc25 (diff) | |
working with tensors
Diffstat (limited to 'lib/Data/Packed/Internal/Common.hs')
| -rw-r--r-- | lib/Data/Packed/Internal/Common.hs | 4 |
1 files changed, 2 insertions, 2 deletions
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 | |||
| 74 | mapM_ (touchForeignPtr . fptr) ls | 74 | mapM_ (touchForeignPtr . fptr) ls |
| 75 | return () | 75 | return () |
| 76 | 76 | ||
| 77 | class (Storable a, Typeable a) => Field a where | 77 | class (Storable a, Typeable a) => Field a |
| 78 | instance (Storable a, Typeable a) => Field a where | 78 | instance (Storable a, Typeable a) => Field a |
| 79 | 79 | ||
| 80 | isReal w x = typeOf (undefined :: Double) == typeOf (w x) | 80 | isReal w x = typeOf (undefined :: Double) == typeOf (w x) |
| 81 | isComp w x = typeOf (undefined :: Complex Double) == typeOf (w x) | 81 | isComp w x = typeOf (undefined :: Complex Double) == typeOf (w x) |