diff options
author | Alberto Ruiz <aruiz@um.es> | 2012-03-13 15:23:30 +0100 |
---|---|---|
committer | Alberto Ruiz <aruiz@um.es> | 2012-03-13 15:23:30 +0100 |
commit | b959655b75da207fd7ac1c785a6ea9924d70d5a6 (patch) | |
tree | 0031778af5633100993d8447a5cbe021b1d3066f /lib/Numeric/GSL/Differentiation.hs | |
parent | c5fcca336f7d1ad6235d411268d8ff946bbe7f0c (diff) | |
parent | 0904bbd0befa48e98858def1b6d036c5b2f00bf1 (diff) |
Merge branch 'unsafe' into develop
Diffstat (limited to 'lib/Numeric/GSL/Differentiation.hs')
-rw-r--r-- | lib/Numeric/GSL/Differentiation.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lib/Numeric/GSL/Differentiation.hs b/lib/Numeric/GSL/Differentiation.hs index ab5eb50..d2a332c 100644 --- a/lib/Numeric/GSL/Differentiation.hs +++ b/lib/Numeric/GSL/Differentiation.hs | |||
@@ -48,7 +48,7 @@ derivGen c h f x = unsafePerformIO $ do | |||
48 | freeHaskellFunPtr fp | 48 | freeHaskellFunPtr fp |
49 | return result | 49 | return result |
50 | 50 | ||
51 | foreign import ccall "gsl-aux.h deriv" | 51 | foreign import ccall safe "gsl-aux.h deriv" |
52 | c_deriv :: CInt -> FunPtr (Double -> Ptr () -> Double) -> Double -> Double | 52 | c_deriv :: CInt -> FunPtr (Double -> Ptr () -> Double) -> Double -> Double |
53 | -> Ptr Double -> Ptr Double -> IO CInt | 53 | -> Ptr Double -> Ptr Double -> IO CInt |
54 | 54 | ||
@@ -84,4 +84,4 @@ derivBackward = derivGen 2 | |||
84 | 84 | ||
85 | {- | conversion of Haskell functions into function pointers that can be used in the C side | 85 | {- | conversion of Haskell functions into function pointers that can be used in the C side |
86 | -} | 86 | -} |
87 | foreign import ccall "wrapper" mkfun:: (Double -> Ptr() -> Double) -> IO( FunPtr (Double -> Ptr() -> Double)) | 87 | foreign import ccall safe "wrapper" mkfun:: (Double -> Ptr() -> Double) -> IO( FunPtr (Double -> Ptr() -> Double)) |