From 4e6c686dd496e9b7bdd209da3e8fbd3ac47de65a Mon Sep 17 00:00:00 2001 From: Bas van Dijk Date: Thu, 1 Sep 2011 14:25:37 +0000 Subject: Get rid of some deprecation warnings & Use more explicit imports --- lib/Numeric/GSL/Internal.hs | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) (limited to 'lib/Numeric/GSL/Internal.hs') 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 @@ module Numeric.GSL.Internal where import Data.Packed.Internal -import Foreign + +import Foreign.Marshal.Array(copyArray) +import Foreign.Ptr(Ptr, FunPtr) import Foreign.C.Types(CInt) +import System.IO.Unsafe(unsafePerformIO) iv :: (Vector Double -> Double) -> (CInt -> Ptr Double -> Double) iv f n p = f (createV (fromIntegral n) copy "iv") where -- cgit v1.2.3