diff options
| author | Bas van Dijk <v.dijk.bas@gmail.com> | 2011-09-01 13:49:36 +0000 |
|---|---|---|
| committer | Bas van Dijk <v.dijk.bas@gmail.com> | 2011-09-01 13:49:36 +0000 |
| commit | c236a193ed710a29b6940b87bcbe05cb8f4a086a (patch) | |
| tree | e941d1204b3ae083a1da8e34991e3c8eec8c5c2e /lib/Numeric | |
| parent | 943f2db1bce8c5984673b7242ccc0e27a1eb0772 (diff) | |
Support vector >= 0.8
vector-0.8 provides a Read instance for Vectors.
This patch hides hmatrix's own Read instance when vector >= 0.8.
Diffstat (limited to 'lib/Numeric')
| -rw-r--r-- | lib/Numeric/Vector.hs | 1 |
1 files changed, 0 insertions, 1 deletions
diff --git a/lib/Numeric/Vector.hs b/lib/Numeric/Vector.hs index 5b72951..01637d5 100644 --- a/lib/Numeric/Vector.hs +++ b/lib/Numeric/Vector.hs | |||
| @@ -41,7 +41,6 @@ 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) | ||
| 45 | instance (Element a, Read a) => Read (Vector a) where | 44 | instance (Element a, Read a) => Read (Vector a) where |
| 46 | readsPrec _ s = [(fromList . read $ listnums, rest)] | 45 | readsPrec _ s = [(fromList . read $ listnums, rest)] |
| 47 | where (thing,trest) = breakAt ']' s | 46 | where (thing,trest) = breakAt ']' s |