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/ODE.hs | |
| parent | f8b7b3734fa6bb8d63914719e09d17940add27d4 (diff) | |
Added back some safety.
Diffstat (limited to 'lib/Numeric/GSL/ODE.hs')
| -rw-r--r-- | lib/Numeric/GSL/ODE.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lib/Numeric/GSL/ODE.hs b/lib/Numeric/GSL/ODE.hs index 797ba3f..4d2beed 100644 --- a/lib/Numeric/GSL/ODE.hs +++ b/lib/Numeric/GSL/ODE.hs | |||
| @@ -91,7 +91,7 @@ odeSolveV method h epsAbs epsRel f mbjac xiv ts = unsafePerformIO $ do | |||
| 91 | freeHaskellFunPtr fp | 91 | freeHaskellFunPtr fp |
| 92 | return sol | 92 | return sol |
| 93 | 93 | ||
| 94 | foreign import ccall unsafe "ode" | 94 | foreign import ccall safe "ode" |
| 95 | ode_c :: CInt -> Double -> Double -> Double -> FunPtr (Double -> TVV) -> FunPtr (Double -> TVM) -> TVVM | 95 | ode_c :: CInt -> Double -> Double -> Double -> FunPtr (Double -> TVV) -> FunPtr (Double -> TVM) -> TVVM |
| 96 | 96 | ||
| 97 | ------------------------------------------------------- | 97 | ------------------------------------------------------- |