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/ODE.hs | |
| parent | 13fe05779923baad386b0059ff6fbc7c6af405d9 (diff) | |
Removed foreign import 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 2251acd..797ba3f 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 "ode" | 94 | foreign import ccall unsafe "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 | ------------------------------------------------------- |