From 05f4f9703162317f3d2610a9136a853eea7ab417 Mon Sep 17 00:00:00 2001
From: Alberto Ruiz <aruiz@um.es>
Date: Fri, 2 Sep 2011 12:05:54 +0000
Subject: thanks & bump version

---
 lib/Data/Packed/Internal/Vector.hs | 2 ++
 lib/Numeric/Vector.hs              | 1 +
 2 files changed, 3 insertions(+)

(limited to 'lib')

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
-- 
cgit v1.2.3