From 5e60b08d76e666643c795131bcbb18d196a39520 Mon Sep 17 00:00:00 2001
From: Vivian McPhail <haskell.vivian.mcphail@gmail.com>
Date: Fri, 27 Aug 2010 04:38:35 +0000
Subject: fix zipVector name to zipVectorWith

---
 lib/Data/Packed/Vector.hs | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

(limited to 'lib/Data/Packed/Vector.hs')

diff --git a/lib/Data/Packed/Vector.hs b/lib/Data/Packed/Vector.hs
index 81dfa37..a526caa 100644
--- a/lib/Data/Packed/Vector.hs
+++ b/lib/Data/Packed/Vector.hs
@@ -26,7 +26,7 @@ module Data.Packed.Vector (
 --    vectorFMax, vectorFMin, vectorFMaxIndex, vectorFMinIndex,
 --    vectorMax, vectorMin,
     vectorMaxIndex, vectorMinIndex,
-    mapVector, zipVector, unzipVector, unzipVectorWith,
+    mapVector, zipVector, zipVectorWith, unzipVector, unzipVectorWith,
     mapVectorM, mapVectorM_,
     fscanfVector, fprintfVector, freadVector, fwriteVector,
     foldLoop, foldVector, foldVectorG
@@ -114,6 +114,10 @@ buildVector len f =
     fromList $ map f [0 .. (len - 1)]
 
 
+-- | zip for Vectors
+zipVector :: (Storable a, Storable b, Storable (a,b)) => Vector a -> Vector b -> Vector (a,b)
+zipVector = zipVectorWith (,)
+
 -- | unzip for Vectors
 unzipVector :: (Storable a, Storable b, Storable (a,b)) => Vector (a,b) -> (Vector a,Vector b)
 unzipVector = unzipVectorWith id
-- 
cgit v1.2.3