summaryrefslogtreecommitdiff
path: root/lib/Numeric/GSL/Internal.hs
diff options
context:
space:
mode:
Diffstat (limited to 'lib/Numeric/GSL/Internal.hs')
-rw-r--r--lib/Numeric/GSL/Internal.hs5
1 files changed, 4 insertions, 1 deletions
diff --git a/lib/Numeric/GSL/Internal.hs b/lib/Numeric/GSL/Internal.hs
index 2ccc3ef..db2c633 100644
--- a/lib/Numeric/GSL/Internal.hs
+++ b/lib/Numeric/GSL/Internal.hs
@@ -13,8 +13,11 @@
13module Numeric.GSL.Internal where 13module Numeric.GSL.Internal where
14 14
15import Data.Packed.Internal 15import Data.Packed.Internal
16import Foreign 16
17import Foreign.Marshal.Array(copyArray)
18import Foreign.Ptr(Ptr, FunPtr)
17import Foreign.C.Types(CInt) 19import Foreign.C.Types(CInt)
20import System.IO.Unsafe(unsafePerformIO)
18 21
19iv :: (Vector Double -> Double) -> (CInt -> Ptr Double -> Double) 22iv :: (Vector Double -> Double) -> (CInt -> Ptr Double -> Double)
20iv f n p = f (createV (fromIntegral n) copy "iv") where 23iv f n p = f (createV (fromIntegral n) copy "iv") where