From 943f2db1bce8c5984673b7242ccc0e27a1eb0772 Mon Sep 17 00:00:00 2001 From: markwright Date: Mon, 29 Aug 2011 11:11:05 +0000 Subject: Conditional patch to allow compilation with vector 0.8 --- lib/Numeric/Vector.hs | 2 ++ 1 file changed, 2 insertions(+) (limited to 'lib') 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 -- cgit v1.2.3