diff options
Diffstat (limited to 'lib')
-rw-r--r-- | lib/Data/Packed/Internal/Vector.hs | 2 | ||||
-rw-r--r-- | lib/Numeric/Vector.hs | 1 |
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, | |||
60 | unsafeToForeignPtr, | 60 | unsafeToForeignPtr, |
61 | unsafeFromForeignPtr, | 61 | unsafeFromForeignPtr, |
62 | unsafeWith) | 62 | unsafeWith) |
63 | #else | ||
64 | import Foreign.ForeignPtr(withForeignPtr) | ||
63 | #endif | 65 | #endif |
64 | 66 | ||
65 | #ifdef VECTOR | 67 | #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 | |||
41 | 41 | ||
42 | #ifdef VECTOR | 42 | #ifdef VECTOR |
43 | 43 | ||
44 | #if !MIN_VERSION_vector(0,8,0) | ||
44 | instance (Element a, Read a) => Read (Vector a) where | 45 | instance (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 |