diff options
Diffstat (limited to 'packages/base/src/Data/Packed/Internal/Vector.hs')
-rw-r--r-- | packages/base/src/Data/Packed/Internal/Vector.hs | 6 |
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 | ||
30 | import Data.Packed.Internal.Common | 31 | import Data.Packed.Internal.Common |
@@ -56,6 +57,8 @@ import Data.Vector.Storable(Vector, | |||
56 | unsafeWith) | 57 | unsafeWith) |
57 | 58 | ||
58 | 59 | ||
60 | type Idxs = Vector CInt | ||
61 | |||
59 | -- | Number of elements | 62 | -- | Number of elements |
60 | dim :: (Storable t) => Vector t -> Int | 63 | dim :: (Storable t) => Vector t -> Int |
61 | dim = Vector.length | 64 | dim = Vector.length |
@@ -243,6 +246,7 @@ double2FloatV v = unsafePerformIO $ do | |||
243 | foreign import ccall unsafe "float2double" c_float2double:: TFV | 246 | foreign import ccall unsafe "float2double" c_float2double:: TFV |
244 | foreign import ccall unsafe "double2float" c_double2float:: TVF | 247 | foreign import ccall unsafe "double2float" c_double2float:: TVF |
245 | 248 | ||
249 | |||
246 | --------------------------------------------------------------- | 250 | --------------------------------------------------------------- |
247 | 251 | ||
248 | stepF :: Vector Float -> Vector Float | 252 | stepF :: Vector Float -> Vector Float |