diff options
| author | Alberto Ruiz <aruiz@um.es> | 2007-10-19 09:39:06 +0000 |
|---|---|---|
| committer | Alberto Ruiz <aruiz@um.es> | 2007-10-19 09:39:06 +0000 |
| commit | 1a9c07dd1fffdbd7eb939fa6a781793419947c08 (patch) | |
| tree | 849f7206f3179b60b19a6e986809b108381c9414 /lib/Data/Packed/Internal/Vector.hs | |
| parent | f71bcb5b4fbc68f514acc05005cc96932ced32dc (diff) | |
some refactoring
Diffstat (limited to 'lib/Data/Packed/Internal/Vector.hs')
| -rw-r--r-- | lib/Data/Packed/Internal/Vector.hs | 3 |
1 files changed, 0 insertions, 3 deletions
diff --git a/lib/Data/Packed/Internal/Vector.hs b/lib/Data/Packed/Internal/Vector.hs index 9557206..76bd4d1 100644 --- a/lib/Data/Packed/Internal/Vector.hs +++ b/lib/Data/Packed/Internal/Vector.hs | |||
| @@ -103,9 +103,6 @@ at :: Storable a => Vector a -> Int -> a | |||
| 103 | at v n | n >= 0 && n < dim v = at' v n | 103 | at v n | n >= 0 && n < dim v = at' v n |
| 104 | | otherwise = error "vector index out of range" | 104 | | otherwise = error "vector index out of range" |
| 105 | 105 | ||
| 106 | instance (Show a, Storable a) => (Show (Vector a)) where | ||
| 107 | show v = (show (dim v))++" |> " ++ show (toList v) | ||
| 108 | |||
| 109 | {- | takes a number of consecutive elements from a Vector | 106 | {- | takes a number of consecutive elements from a Vector |
| 110 | 107 | ||
| 111 | @> subVector 2 3 (fromList [1..10]) | 108 | @> subVector 2 3 (fromList [1..10]) |