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/Root.hs | |
| parent | 13fe05779923baad386b0059ff6fbc7c6af405d9 (diff) | |
Removed foreign import safety.
Diffstat (limited to 'lib/Numeric/GSL/Root.hs')
| -rw-r--r-- | lib/Numeric/GSL/Root.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lib/Numeric/GSL/Root.hs b/lib/Numeric/GSL/Root.hs index 41f7fb3..4128846 100644 --- a/lib/Numeric/GSL/Root.hs +++ b/lib/Numeric/GSL/Root.hs | |||
| @@ -91,7 +91,7 @@ rootGen m f xi epsabs maxit = unsafePerformIO $ do | |||
| 91 | return (take n $ drop 1 sol, path) | 91 | return (take n $ drop 1 sol, path) |
| 92 | 92 | ||
| 93 | 93 | ||
| 94 | foreign import ccall "root" | 94 | foreign import ccall unsafe "root" |
| 95 | c_root:: CInt -> FunPtr TVV -> Double -> CInt -> TVM | 95 | c_root:: CInt -> FunPtr TVV -> Double -> CInt -> TVM |
| 96 | 96 | ||
| 97 | ------------------------------------------------------------------------- | 97 | ------------------------------------------------------------------------- |
| @@ -130,7 +130,7 @@ rootJGen m f jac xi epsabs maxit = unsafePerformIO $ do | |||
| 130 | return (take n $ drop 1 sol, path) | 130 | return (take n $ drop 1 sol, path) |
| 131 | 131 | ||
| 132 | 132 | ||
| 133 | foreign import ccall "rootj" | 133 | foreign import ccall unsafe "rootj" |
| 134 | c_rootj:: CInt -> FunPtr TVV -> FunPtr TVM -> Double -> CInt -> TVM | 134 | c_rootj:: CInt -> FunPtr TVV -> FunPtr TVM -> Double -> CInt -> TVM |
| 135 | 135 | ||
| 136 | ------------------------------------------------------- | 136 | ------------------------------------------------------- |