summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--lib/Numeric/Vector.hs2
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
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
47 (dims,listnums) = breakAt ' ' (dropWhile (==' ') thing) 48 (dims,listnums) = breakAt ' ' (dropWhile (==' ') thing)
48 rest = drop 31 trest 49 rest = drop 31 trest
50#endif
49#else 51#else
50 52
51instance (Element a, Read a) => Read (Vector a) where 53instance (Element a, Read a) => Read (Vector a) where