From edfaf9e0d1dcfccc9015476510a23e8cf64288be Mon Sep 17 00:00:00 2001 From: Alberto Ruiz Date: Fri, 21 Sep 2007 18:10:59 +0000 Subject: algorithms refactoring --- lib/Data/Packed/Internal/Vector.hs | 2 ++ 1 file changed, 2 insertions(+) (limited to 'lib/Data') diff --git a/lib/Data/Packed/Internal/Vector.hs b/lib/Data/Packed/Internal/Vector.hs index f0ef8b6..ebe6371 100644 --- a/lib/Data/Packed/Internal/Vector.hs +++ b/lib/Data/Packed/Internal/Vector.hs @@ -24,6 +24,7 @@ import Data.List(transpose) import Debug.Trace(trace) import Foreign.C.String(peekCString) import Foreign.C.Types +import Data.Monoid -- | A one-dimensional array of objects stored in a contiguous memory block. data Vector t = V { dim :: Int -- ^ number of elements @@ -177,3 +178,4 @@ liftVector f = fromList . map f . toList liftVector2 :: (Storable a, Storable b, Storable c) => (a-> b -> c) -> Vector a -> Vector b -> Vector c liftVector2 f u v = fromList $ zipWith f (toList u) (toList v) +----------------------------------------------------------------- -- cgit v1.2.3