diff options
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) |