From 1a9c07dd1fffdbd7eb939fa6a781793419947c08 Mon Sep 17 00:00:00 2001 From: Alberto Ruiz Date: Fri, 19 Oct 2007 09:39:06 +0000 Subject: some refactoring --- lib/Data/Packed/Internal/Vector.hs | 3 --- 1 file changed, 3 deletions(-) (limited to 'lib/Data/Packed/Internal/Vector.hs') 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 at v n | n >= 0 && n < dim v = at' v n | otherwise = error "vector index out of range" -instance (Show a, Storable a) => (Show (Vector a)) where - show v = (show (dim v))++" |> " ++ show (toList v) - {- | takes a number of consecutive elements from a Vector @> subVector 2 3 (fromList [1..10]) -- cgit v1.2.3