summaryrefslogtreecommitdiff
path: root/lib
diff options
context:
space:
mode:
Diffstat (limited to 'lib')
-rw-r--r--lib/Data/Packed/Internal/Vector.hs2
-rw-r--r--lib/Numeric/Vector.hs1
2 files changed, 3 insertions, 0 deletions
diff --git a/lib/Data/Packed/Internal/Vector.hs b/lib/Data/Packed/Internal/Vector.hs
index e5a7782..43b3fd8 100644
--- a/lib/Data/Packed/Internal/Vector.hs
+++ b/lib/Data/Packed/Internal/Vector.hs
@@ -60,6 +60,8 @@ import Data.Vector.Storable(Vector,
60 unsafeToForeignPtr, 60 unsafeToForeignPtr,
61 unsafeFromForeignPtr, 61 unsafeFromForeignPtr,
62 unsafeWith) 62 unsafeWith)
63#else
64import Foreign.ForeignPtr(withForeignPtr)
63#endif 65#endif
64 66
65#ifdef VECTOR 67#ifdef VECTOR
diff --git a/lib/Numeric/Vector.hs b/lib/Numeric/Vector.hs
index 01637d5..5b72951 100644
--- a/lib/Numeric/Vector.hs
+++ b/lib/Numeric/Vector.hs
@@ -41,6 +41,7 @@ instance (Show a, Storable a) => (Show (Vector a)) where
41 41
42#ifdef VECTOR 42#ifdef VECTOR
43 43
44#if !MIN_VERSION_vector(0,8,0)
44instance (Element a, Read a) => Read (Vector a) where 45instance (Element a, Read a) => Read (Vector a) where
45 readsPrec _ s = [(fromList . read $ listnums, rest)] 46 readsPrec _ s = [(fromList . read $ listnums, rest)]
46 where (thing,trest) = breakAt ']' s 47 where (thing,trest) = breakAt ']' s