From bd1bca66174ec3c0feb38c531cfc611cc0239b21 Mon Sep 17 00:00:00 2001 From: Alberto Ruiz Date: Sun, 21 Jun 2015 13:06:17 +0200 Subject: clean unused --- packages/base/src/Internal/Vector.hs | 16 +--------------- 1 file changed, 1 insertion(+), 15 deletions(-) (limited to 'packages/base/src/Internal/Vector.hs') diff --git a/packages/base/src/Internal/Vector.hs b/packages/base/src/Internal/Vector.hs index e5ac440..29b6797 100644 --- a/packages/base/src/Internal/Vector.hs +++ b/packages/base/src/Internal/Vector.hs @@ -14,7 +14,7 @@ module Internal.Vector( I,Z,R,C, fi,ti, Vector, fromList, unsafeToForeignPtr, unsafeFromForeignPtr, unsafeWith, - createVector, vec, avec, arrvec, inlinePerformIO, + createVector, avec, inlinePerformIO, toList, dim, (@>), at', (|>), vjoin, subVector, takesV, idxs, buildVector, @@ -67,25 +67,11 @@ dim = Vector.length -- C-Haskell vector adapter --- vec :: Adapt (CInt -> Ptr t -> r) (Vector t) r -vec :: (Storable t) => Vector t -> (((CInt -> Ptr t -> t1) -> t1) -> IO b) -> IO b -vec x f = unsafeWith x $ \p -> do - let v g = do - g (fi $ dim x) p - f v -{-# INLINE vec #-} - {-# INLINE avec #-} avec :: Storable a => (CInt -> Ptr a -> b) -> Vector a -> b avec f v = inlinePerformIO (unsafeWith v (return . f (fromIntegral (Vector.length v)))) infixl 1 `avec` -{-# INLINE arrvec #-} -arrvec :: Storable a => (Ptr CInt -> Ptr a -> b) -> Vector a -> b -arrvec f v = inlinePerformIO (unsafeWith (idxs [1,dim v]) (\p -> unsafeWith v (return . f p))) - - - -- allocates memory for a new vector createVector :: Storable a => Int -> IO (Vector a) createVector n = do -- cgit v1.2.3