summaryrefslogtreecommitdiff
path: root/packages/base/src/Data/Packed/Internal/Vector.hs
diff options
context:
space:
mode:
Diffstat (limited to 'packages/base/src/Data/Packed/Internal/Vector.hs')
-rw-r--r--packages/base/src/Data/Packed/Internal/Vector.hs6
1 files changed, 5 insertions, 1 deletions
diff --git a/packages/base/src/Data/Packed/Internal/Vector.hs b/packages/base/src/Data/Packed/Internal/Vector.hs
index b49f379..2a6ed2c 100644
--- a/packages/base/src/Data/Packed/Internal/Vector.hs
+++ b/packages/base/src/Data/Packed/Internal/Vector.hs
@@ -24,7 +24,8 @@ module Data.Packed.Internal.Vector (
24 cloneVector, 24 cloneVector,
25 unsafeToForeignPtr, 25 unsafeToForeignPtr,
26 unsafeFromForeignPtr, 26 unsafeFromForeignPtr,
27 unsafeWith 27 unsafeWith,
28 Idxs
28) where 29) where
29 30
30import Data.Packed.Internal.Common 31import Data.Packed.Internal.Common
@@ -56,6 +57,8 @@ import Data.Vector.Storable(Vector,
56 unsafeWith) 57 unsafeWith)
57 58
58 59
60type Idxs = Vector CInt
61
59-- | Number of elements 62-- | Number of elements
60dim :: (Storable t) => Vector t -> Int 63dim :: (Storable t) => Vector t -> Int
61dim = Vector.length 64dim = Vector.length
@@ -243,6 +246,7 @@ double2FloatV v = unsafePerformIO $ do
243foreign import ccall unsafe "float2double" c_float2double:: TFV 246foreign import ccall unsafe "float2double" c_float2double:: TFV
244foreign import ccall unsafe "double2float" c_double2float:: TVF 247foreign import ccall unsafe "double2float" c_double2float:: TVF
245 248
249
246--------------------------------------------------------------- 250---------------------------------------------------------------
247 251
248stepF :: Vector Float -> Vector Float 252stepF :: Vector Float -> Vector Float