added examples/benchmarks.hs

1 files changed, 0 insertions, 22 deletions

diff --git a/lib/Data/Packed/Internal/Vector.hs b/lib/Data/Packed/Internal/Vector.hs
index 6274e48..2df33e0 100644
--- a/lib/Data/Packed/Internal/Vector.hs
+++ b/lib/Data/Packed/Internal/Vector.hs
@@ -189,28 +189,6 @@ liftVector2 f u v = fromList $ zipWith f (toList u) (toList v)
 
 -----------------------------------------------------------------
 
-{- | creates a new vector with a desired position updated with a modification function
-
-@> updateVector 3 (+7) (fromList [1..5])
-5 |> [1.0,2.0,3.0,11.0,5.0]@
-
--}
-updateVector :: Storable t => Int       -- ^ position
-                           -> (t->t)    -- ^ modification function
-                           -> Vector t  -- ^ source
-                           -> Vector t  -- ^ result
-updateVector k h (v@V {dim=n})
-    | k<0 || k >= n = error $ "updateVector out of range (dim="++show n++", pos="++show k++")"
-    | otherwise = unsafePerformIO $ do
-        r <- createVector n
-        let f _ s _ d =  copyArray d s n
-                      >> pokeElemOff d k (h (v`at'`k))
-                      >> return 0
-        app2 f vec v vec r "updateVector"
-        return r
-
------------------------------------------------------------------
-
 cloneVector :: Storable t => Vector t -> IO (Vector t)
 cloneVector (v@V {dim=n}) = do
         r <- createVector n