summaryrefslogtreecommitdiff
path: root/lib/Data/Packed/Internal/Common.hs
diff options
context:
space:
mode:
Diffstat (limited to 'lib/Data/Packed/Internal/Common.hs')
-rw-r--r--lib/Data/Packed/Internal/Common.hs4
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
77class (Storable a, Typeable a) => Field a where 77class (Storable a, Typeable a) => Field a
78instance (Storable a, Typeable a) => Field a where 78instance (Storable a, Typeable a) => Field a
79 79
80isReal w x = typeOf (undefined :: Double) == typeOf (w x) 80isReal w x = typeOf (undefined :: Double) == typeOf (w x)
81isComp w x = typeOf (undefined :: Complex Double) == typeOf (w x) 81isComp w x = typeOf (undefined :: Complex Double) == typeOf (w x)