diff options
| author | Clark Gaebel <cgaebel@csclub.uwaterloo.ca> | 2012-03-10 18:26:56 -0500 |
|---|---|---|
| committer | Clark Gaebel <cgaebel@csclub.uwaterloo.ca> | 2012-03-10 18:26:56 -0500 |
| commit | f8b7b3734fa6bb8d63914719e09d17940add27d4 (patch) | |
| tree | 233c1c41ea8d5a0cf43bf9430cc2b60cff38a3e9 /lib/Numeric/GSL/Differentiation.hs | |
| parent | 13fe05779923baad386b0059ff6fbc7c6af405d9 (diff) | |
Removed foreign import safety.
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..448ab63 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 unsafe "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 unsafe "wrapper" mkfun:: (Double -> Ptr() -> Double) -> IO( FunPtr (Double -> Ptr() -> Double)) |