Conditional patch to allow compilation with vector 0.8

1 files changed, 2 insertions, 0 deletions

diff --git a/lib/Numeric/Vector.hs b/lib/Numeric/Vector.hs
index 3fcd880..5b72951 100644
--- a/lib/Numeric/Vector.hs
+++ b/lib/Numeric/Vector.hs
@@ -41,11 +41,13 @@ 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
               (dims,listnums) = breakAt ' ' (dropWhile (==' ') thing)
               rest = drop 31 trest
+#endif
 #else
 
 instance (Element a, Read a) => Read (Vector a) where