From 5b6de561f131d75049fdb999e98a07939ec2e8e7 Mon Sep 17 00:00:00 2001 From: Alberto Ruiz Date: Sat, 24 May 2014 13:32:58 +0200 Subject: backward compatibility --- packages/base/src/Data/Packed/Vector.hs | 16 ++-------------- 1 file changed, 2 insertions(+), 14 deletions(-) (limited to 'packages/base/src/Data/Packed/Vector.hs') diff --git a/packages/base/src/Data/Packed/Vector.hs b/packages/base/src/Data/Packed/Vector.hs index 53fe563..31dcf47 100644 --- a/packages/base/src/Data/Packed/Vector.hs +++ b/packages/base/src/Data/Packed/Vector.hs @@ -17,17 +17,15 @@ module Data.Packed.Vector ( Vector, - fromList, (|>), toList, buildVector, constant, + fromList, (|>), toList, buildVector, dim, (@>), subVector, takesV, vjoin, join, mapVector, mapVectorWithIndex, zipVector, zipVectorWith, unzipVector, unzipVectorWith, mapVectorM, mapVectorM_, mapVectorWithIndexM, mapVectorWithIndexM_, - foldLoop, foldVector, foldVectorG, foldVectorWithIndex, - stepD, stepF, condD, condF, conjugateC, conjugateQ + foldLoop, foldVector, foldVectorG, foldVectorWithIndex ) where import Data.Packed.Internal.Vector -import Data.Packed.Internal.Matrix import Foreign.Storable ------------------------------------------------------------------- @@ -95,13 +93,3 @@ unzipVector = unzipVectorWith id join :: Storable t => [Vector t] -> Vector t join = vjoin -{- | creates a vector with a given number of equal components: - -@> constant 2 7 -7 |> [2.0,2.0,2.0,2.0,2.0,2.0,2.0]@ --} -constant :: Element a => a -> Int -> Vector a --- constant x n = runSTVector (newVector x n) -constant = constantD-- about 2x faster - - -- cgit v1.2.3