diff options
Diffstat (limited to 'lib/Data/Packed/Internal/Vector.hs')
-rw-r--r-- | lib/Data/Packed/Internal/Vector.hs | 19 |
1 files changed, 12 insertions, 7 deletions
diff --git a/lib/Data/Packed/Internal/Vector.hs b/lib/Data/Packed/Internal/Vector.hs index ac0f176..009297a 100644 --- a/lib/Data/Packed/Internal/Vector.hs +++ b/lib/Data/Packed/Internal/Vector.hs | |||
@@ -14,9 +14,20 @@ | |||
14 | ----------------------------------------------------------------------------- | 14 | ----------------------------------------------------------------------------- |
15 | -- #hide | 15 | -- #hide |
16 | 16 | ||
17 | module Data.Packed.Internal.Vector where | 17 | module Data.Packed.Internal.Vector ( |
18 | Vector(..), | ||
19 | fromList, toList, (|>), | ||
20 | join, (@>), safe, at, at', subVector, | ||
21 | mapVector, zipVector, | ||
22 | foldVector, foldVectorG, foldLoop, | ||
23 | createVector, withVector, vec, | ||
24 | asComplex, asReal, | ||
25 | fwriteVector, freadVector, fprintfVector, fscanfVector, | ||
26 | cloneVector | ||
27 | ) where | ||
18 | 28 | ||
19 | import Data.Packed.Internal.Common | 29 | import Data.Packed.Internal.Common |
30 | import Data.Packed.Internal.Signatures | ||
20 | import Foreign | 31 | import Foreign |
21 | import Foreign.C.String | 32 | import Foreign.C.String |
22 | import Foreign.C.Types(CInt,CChar) | 33 | import Foreign.C.Types(CInt,CChar) |
@@ -194,12 +205,6 @@ asComplex v = V { dim = dim v `div` 2, fptr = castForeignPtr (fptr v) } | |||
194 | 205 | ||
195 | ---------------------------------------------------------------- | 206 | ---------------------------------------------------------------- |
196 | 207 | ||
197 | liftVector f x = mapVector f x | ||
198 | |||
199 | liftVector2 f u v = zipVector f u v | ||
200 | |||
201 | ----------------------------------------------------------------- | ||
202 | |||
203 | cloneVector :: Storable t => Vector t -> IO (Vector t) | 208 | cloneVector :: Storable t => Vector t -> IO (Vector t) |
204 | cloneVector (v@V {dim=n}) = do | 209 | cloneVector (v@V {dim=n}) = do |
205 | r <- createVector n | 210 | r <- createVector n |