thanks & bump version

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,
                             unsafeToForeignPtr,
                             unsafeFromForeignPtr,
                             unsafeWith)
+#else
+import Foreign.ForeignPtr(withForeignPtr)
 #endif
 
 #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
 
 #ifdef VECTOR
 
+#if !MIN_VERSION_vector(0,8,0)
 instance (Element a, Read a) => Read (Vector a) where
     readsPrec _ s = [(fromList . read $ listnums, rest)]
         where (thing,trest) = breakAt ']' s