diff options
| author | Clark Gaebel <cgaebel@csclub.uwaterloo.ca> | 2012-03-10 22:47:13 -0500 |
|---|---|---|
| committer | Clark Gaebel <cgaebel@csclub.uwaterloo.ca> | 2012-03-10 22:47:13 -0500 |
| commit | 7832cb74240ba06a23a981c20db3c5da8324828a (patch) | |
| tree | b8afe01c34c75486eb3561377d574911422f63ee /lib/Numeric/GSL/Root.hs | |
| parent | f8b7b3734fa6bb8d63914719e09d17940add27d4 (diff) | |
Added back some 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 4128846..cd2982a 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 unsafe "root" | 94 | foreign import ccall safe "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 unsafe "rootj" | 133 | foreign import ccall safe "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 | ------------------------------------------------------- |